Current Path : /proc/2/root/usr/local/rvglobalsoft/rvmanager/auto/

Upload File :

Current File : //proc/2/root/usr/local/rvglobalsoft/rvmanager/auto/autorvmanager.cgi

#!/usr/bin/perl
##LICENSE##

use strict;
use warnings;
use Socket;
use File::Basename;
use Data::Dumper;

my $inst = RVGlobalSofManagertInstaller->new(programName => 'rvglobalsoftmanager', INSTALLTITLE => 'RVGlobalSoft Manager Installer');

#require reqPackage to call another
$inst->{'reqPackage'} = 'rvglobalsoftmanager-upgrade';

#setup reqPackage information
$inst->setInstallPackage("$inst->{'reqPackage'}.ProductName", 'RVGlobalSoft Manager Installer');
$inst->setInstallPackage("$inst->{'reqPackage'}.ProductCode", 'rvglobalsoftmanager-upgrade');
$inst->setInstallPackage("$inst->{'reqPackage'}.SaveFilename", 'rvglobalsoftmanagertauto.tar.bz2');

#setup for installer
$inst->setInstallPackage("$inst->{'reqPackage'}.auto.installer", 'autorvglobalsoftmanager');
$inst->setInstallPackage("$inst->{'reqPackage'}.auto.real", 'real_autorvglobalsoftmanager');


$inst->startInstaller();

$inst->exitScript();


package RVGlobalSofManagertInstaller;
use strict;
use warnings;
use File::Basename;
use Data::Dumper;
use IPC::Open3;
BEGIN {
    push(@INC, dirname(__FILE__));
}
use base qw(RVSInstaller);
{
    sub new {
        my $class = shift;
        my $self = $class->SUPER::new( @_ );
        
        bless $self, $class;
        return $self;
    }
    
    sub Process_SetupInstaller_uncompressFile {
        my $self = shift;
        system($self->{'cmd'}->{'tar'} . ' -jxvf ' . $self->getInstallPackage("$self->{'reqPackage'}.SaveFilename")) if(-f $self->getInstallPackage("$self->{'reqPackage'}.SaveFilename"));
    	return 1;
    }
    
    sub Process_SetupInstaller_rsyncFileAfterUncompress {
        my $self = shift;
        
        system($self->{'cmd'}->{'rsync'} . ' -avz --timeout=60 ' . $self->getInstallConfig('sourcePath') . '/ ' . $self->getInstallConfig('thisPath'));
        return 1;
    }
    
}
1;

##!/usr/bin/perl
###LICENSE##
#
#use strict;
#use warnings;
#use Socket;
#use File::Basename;
#use Data::Dumper;
#BEGIN {
#    push(@INC, dirname(__FILE__));
#}
#use RVSInstaller;
#
#my $inst = RVSInstaller->new(programName => 'rvmanager', INSTALLTITLE => 'RVManager Installer');
#
##require reqPackage to call another
#$inst->{'reqPackage'} = 'rvmanager-upgrade';
#
##start install package
#$inst->startInstaller();
#
#$inst->exitScript();

Copyright 2K16 - 2K18 Indonesian Hacker Rulez