Current Path : /proc/self/root/proc/2/root/usr/local/rvglobalsoft/rvglobalsoftmanager/

Upload File :

Current File : //proc/self/root/proc/2/root/usr/local/rvglobalsoft/rvglobalsoftmanager/index.cgi

#!/bin/sh
eval 'if [ -x /usr/local/cpanel/3rdparty/bin/perl ]; then exec /usr/local/cpanel/3rdparty/bin/perl -x -- $0 ${1+"$@"}; else exec /usr/bin/perl -x $0 ${1+"$@"}; fi;'
if 0;

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

use strict;
use Carp;
use warnings;
use Cwd;
use Cwd 'realpath';
use Config qw(%Config);
use File::Basename qw(&basename &dirname);
use CGI ':standard';
use Data::Dumper;
use File::Basename;
use Socket;

use lib dirname(realpath(__FILE__));
use lib dirname(realpath(__FILE__)).'/lib';
use lib dirname(realpath(__FILE__)).'/modules';
use vars qw ($INSTANCE %CONSTANTS %GLOBALS $PARAM $CONF $API %Config);

use RvglobalsoftManager();
use ApiProcess();

getParam();
if(RvglobalsoftManager::getRequestType() eq 'Ajax'){
	RvglobalsoftManager::mainAjaxProcess();
}else{
	if(defined $PARAM->{'action'} && $PARAM->{'action'} eq 'apimanager'){
		ApiProcess::mainApi();
	}else{
		RvglobalsoftManager::mainProcess();
	}
}

sub getParam {
	my $q = CGI->new();
	my @allParam = $q->param;
	$PARAM = {};
	foreach (@allParam){
		if(defined $q->param($_)){
			$PARAM->{$_} = $q->param($_);
		}
	}
}
1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez