403Webshell
Server IP : 101.53.144.229  /  Your IP : 216.73.216.181
Web Server : Apache
System : Linux host.gdigitalindia.in 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64
User : digitalshiksha ( 1179)
PHP Version : 5.6.40
Disable Function : eval,show_source,system,shell_exec,escapeshellarg,escapeshellcmd,proc_close,proc_open,ini_alter,dl,show_source,curl_multi_exechellcmd, ini_restore,apache_get_modules,get_cfg_var,passthru, exec ,proc_get_status,fpassthru,c999_buff_prepare,c999_sess_put,c99_buff_prepare,c99_sess_put,proc_close,ini_alter,dl,symlink,link,proc_close,ini_alter,dl,symlink,link,mail
MySQL : ON  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : ON  |  Sudo : ON  |  Pkexec : ON
Directory :  /scripts/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :


[ Back ]     

Current File : /scripts/autorepair
#!/usr/local/cpanel/3rdparty/bin/perl

# cpanel - scripts/autorepair                      Copyright 2022 cPanel, L.L.C.
#                                                           All rights reserved.
# copyright@cpanel.net                                         http://cpanel.net
# This code is subject to the cPanel license. Unauthorized copying is prohibited

use Cpanel::HttpRequest     ();
use Cpanel::Errors          ();
use Cpanel::Config::Sources ();
use Cpanel::Binaries        ();

my $sources = Cpanel::Config::Sources::loadcpsources();
$| = 1;

my $script = 'autorepair';
if ( $ARGV[0] ) {
    $script = $ARGV[0];
}

$script =~ s/\///g;

my $httpClient = Cpanel::HttpRequest->new( 'hideOutput' => 1 );

print "Requesting script ... ";
my $autofix = $httpClient->request(
    'host'     => $sources->{'HTTPUPDATE'},
    'url'      => '/autofixer2/' . $script,
    'protocol' => 0,
    'signed'   => 1,
);
if ( $autofix eq '' ) {
    Cpanel::Errors::deaderror("Problem downloading script $script! Please verify the script's name.");
}
print "Done\n";
print "Auto Repair is running...";
my $perl    = Cpanel::Binaries::path('perl');
my $perlpid = open( PERL, "|$perl" );
print PERL $autofix;
close(PERL);
waitpid( $perlpid, 1 );
print "...Auto Repair is done.\n";

Youez - 2016 - github.com/yon3zu
LinuXploit