Current Path : /proc/2/cwd/proc/3/cwd/usr/local/rvglobalsoft/rvglobalsoft/public_html/

Upload File :

Current File : //proc/2/cwd/proc/3/cwd/usr/local/rvglobalsoft/rvglobalsoft/public_html/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
package main;
##LICENSE##
use strict;
use warnings;
use Cwd;
use Cwd 'realpath';
use File::Basename qw(&basename &dirname);

my $scriptPath;
BEGIN {
    $scriptPath = dirname(realpath(dirname(__FILE__)));
}
use vars qw ($VERSION $DebugMode $CPAN_PATH);
$VERSION = 1.01;
$DebugMode = 1;

use lib "${scriptPath}/lib";
#use lib "../lib";

=help
 เลียนแบบมาตากการทำงานของ @PHP-DIR@ 
=cut

$CPAN_PATH = '/usr/local/rvglobalsoft/lib/lib/perl5';
if ($CPAN_PATH eq '@' . 'CPAN-PATH' . '@') {
    use lib "${scriptPath}/lib/perl5";
    #use lib "../lib/perl5";
} else {
    use lib '/usr/local/rvglobalsoft/lib/lib/perl5';
}
use RVL;
RVL::FrontController::run();
1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez