Current Path : /proc/2/root/usr/local/rvglobalsoft/rvglobalsoft/lib/RVL/

Upload File :

Current File : //proc/2/root/usr/local/rvglobalsoft/rvglobalsoft/lib/RVL/Archive.pm

#!/usr/bin/perl
package RVL::Archive;
##LICENSE##
use strict;
use warnings;
use Archive::Extract;
use Class::Std::Utils;
{
    sub extract {
        my ($source) = $_[0];
        my ($dest) = (defined($_[1]) && RVL::String::is_string($_[1])) ? $_[1] : '';
        my ($res) = 1;
        
        if (defined($source) && (-e $source)) {
            my ($obj) = Archive::Extract->new(archive => $source);
            $res = $obj->extract( to => $dest);            
        } else {
        	$res = RVL::Output::translate("", "invalid extrac file");
        }
       
        return $res;
    }

}

1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez