CHips L Pro sangad

Current Path : /proc/self/root/proc/3/task/3/cwd/usr/local/rvglobalsoft/rvsitebuilder7/public_html/

Current File : //proc/self/root/proc/3/task/3/cwd/usr/local/rvglobalsoft/rvsitebuilder7/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 Config qw( %Config );
use File::Basename qw(&basename &dirname);

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

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

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

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

CHips L MINI SHELL

CHips L pro