⚝
One Hat Cyber Team
⚝
Your IP:
216.73.216.133
Server IP:
185.119.109.197
Server:
Linux managedhosting.chostar.me 5.15.0-160-generic #170-Ubuntu SMP Wed Oct 1 10:06:56 UTC 2025 x86_64
Server Software:
Apache
PHP Version:
8.1.33
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
proc
/
self
/
root
/
usr
/
share
/
webmin
/
virtual-server
/
View File Name :
script_install.cgi
#!/usr/bin/perl # Actually install some script require './virtual-server-lib.pl'; &ReadParse(); $d = &get_domain($in{'dom'}); $ENV{'HTTP_REFERER'} = "list_scripts.cgi?dom=$in{'dom'}"; &can_edit_domain($d) && &can_edit_scripts() || &error($text{'edit_ecannot'}); &domain_has_website($d) && $d->{'dir'} || &error($text{'scripts_eweb'}); $sname = $in{'script'}; $ver = $in{'version'}; $script = &get_script($sname); $script || &error($text{'scripts_emissing'}); @got = &list_domain_scripts($d); if ($in{'upgrade'}) { ($sinfo) = grep { $_->{'id'} eq $in{'upgrade'} } @got; } else { $script->{'avail'} || &error($text{'scripts_eavail'}); &can_script_version($script, $ver) || &error($text{'scripts_eavail'}); } &error_setup($text{'scripts_ierr'}); # Check for enough quota if (!$in{'upgrade'}) { ($ok, $need, $usage, $quota) = &check_script_quota($d, $script, $ver); $ok || &error(&text('scripts_equota', &nice_size($need), &nice_size($quota-$usage))); } # Validate user and pass if ($in{'upgrade'}) { # Same as before $domuser = $sinfo->{'user'} || $d->{'user'}; $dompass = $sinfo->{'pass'} || $d->{'pass'}; } else { $domuser = $d->{'user'}; $dompass = $d->{'pass'} || &random_password(8); if ($in{'passmode'} && !$in{'passmode_def'}) { if ($in{'passmode'} == 1 || $in{'passmode'} == 3) { # Check username $in{'passmodeuser'} =~ /^[a-z0-9\.\-\_]+$/i || &error($text{'scripts_epassmodeuser'}); $domuser = $in{'passmodeuser'}; } if ($in{'passmode'} == 1 || $in{'passmode'} == 2) { $dompass = $in{'passmodepass'}; } } } # Re-check the public html directory &find_html_cgi_dirs($d); &save_domain($d); # Parse inputs %incopy = %in; $opts = &{$script->{'parse_func'}}($d, $ver, \%incopy, $sinfo); if ($opts && !ref($opts)) { &error($opts); } # Check for a clash, unless upgrading if (!$sinfo && !$script->{'overlap'}) { ($clash) = grep { $_->{'opts'}->{'path'} eq $opts->{'path'} } @got; if ($clash) { $clashscript = &get_script($clash->{'name'}); $clashscript->{'overlap'} || &error(&text('scripts_eclash', "<tt>$opts->{'dir'}</tt>")); } } # Check options, unless upgrading if (defined(&{$script->{'check_func'}}) && !$sinfo) { $oerr = &{$script->{'check_func'}}($d, $ver, $opts, $sinfo); if ($oerr) { &error($oerr); } } # Check for files in the script's directory $found = 0; if (-d $opts->{'dir'} && !$sinfo && !$in{'confirm'} && !$opts->{'nofcount'}) { opendir(DESTDIR, $opts->{'dir'}); foreach $f (readdir(DESTDIR)) { if ($f ne "." && $f ne ".." && $f !~ /^(index|welcome)\./) { $fcount++; } } closedir(DESTDIR); } &ui_print_unbuffered_header(&domain_in($d), $sinfo ? $text{'scripts_uptitle'} : $text{'scripts_intitle'}, ""); if (!$fcount) { # Install needed packages (unless we are going to prompt for # overwrite confirmation) &setup_script_packages($script, $d, $ver); } # Check for install into non-empty directory, unless upgrading if ($fcount > 0) { # Has some files already .. ask the user if he is sure print "<center>\n"; print &ui_form_start("script_install.cgi", "post"); foreach my $i (keys %in) { print &ui_hidden($i, $in{$i}),"\n"; } print &text('scripts_rusurei', $script->{'desc'}, "<tt>$opts->{'dir'}</tt>", $fcount, &nice_size(&disk_usage_kb($opts->{'dir'})*1024)), "<p>\n"; print &ui_form_end([ [ "confirm", $text{'scripts_iok'} ] ]); print "</center>\n"; &ui_print_footer("list_scripts.cgi?dom=$in{'dom'}", $text{'scripts_return'}, &domain_footer_link($d)); exit; } # Run the before command %envs = map { 'script_'.$_, $opts->{$_} } (keys %$opts); $envs{'script_name'} = $sname; $envs{'script_upgrade'} = $in{'upgrade'} ? 1 : 0; $envs{'script_version'} = $ver; &set_domain_envs($d, "SCRIPT_DOMAIN", \%newdom, undef, \%envs); $merr = &making_changes(); &reset_domain_envs($d); &error(&text('save_emaking', "<tt>$merr</tt>")) if (defined($merr)); # Get locks &obtain_lock_web($d); &obtain_lock_cron($d); # Setup PHP version if (&indexof("php", @{$script->{'uses'}}) >= 0) { ($phpver, $phperr) = &setup_php_version( $d, $script, $ver, $opts->{'path'}); if (!$phpver) { &error($phperr); } $opts->{'phpver'} = $phpver; } # Setup Python version if (&indexof("python", @{$script->{'uses'}}) >= 0) { ($pyver, $pyerr) = &setup_python_version( $d, $script, $ver, $opts->{'path'}); if ($pyerr) { &error($pyerr); } $opts->{'pyver'} = $pyver; } # Check depends again $derr = &check_script_depends($script, $d, $ver, $sinfo, $phpver); &error(&text('scripts_edep', $derr)) if ($derr); # First fetch needed files $ferr = &fetch_script_files($script, $d, $ver, $opts, $sinfo, \%gotfiles); &error($ferr) if ($ferr); print "<br>\n"; # Install needed PHP and Perl modules if (!&setup_script_requirements($d, $script, $ver, $phpver, $opts)) { &ui_print_footer("list_scripts.cgi?dom=$in{'dom'}", $text{'scripts_return'}, &domain_footer_link($d)); exit; } # Disable PHP timeouts if (&indexof("php", @{$script->{'uses'}}) >= 0) { $t = &disable_script_php_timeout($d); } # Restart Apache now if needed &run_post_actions(); # Call the install function &$first_print(&text('scripts_installing', $script->{'desc'}, $ver)); ($ok, $msg, $desc, $url, $suser, $spass) = &{$script->{'install_func'}}($d, $ver, $opts, \%gotfiles, $sinfo, $domuser, $dompass); &$indent_print(); print $msg,"<p>\n"; if ($ok > 0 && !$sinfo) { # Show login details if ($suser && $spass) { print &text('scripts_userpass', "<tt>$suser</tt>", "<tt>$spass</tt>"),"<p>\n"; } elsif ($suser) { print &text('scripts_useronly', "<tt>$suser</tt>"),"<p>\n"; } elsif ($spass) { print &text('scripts_passonly', "<tt>$spass</tt>"),"<p>\n"; } } if ($ok && $script->{'site'} && $ok >= 0) { print &script_link($script->{'site'}, 'scripts_sitelink'),"<p>\n"; } &$outdent_print(); # Re-enable script PHP timeout if (&indexof("php", @{$script->{'uses'}}) >= 0) { &enable_script_php_timeout($d, $t); } if ($ok) { # Suggest to go on installation manually if ($ok < 0) { &$indent_print(); &$first_print($text{'scripts_epartialmanual'}." ".&get_script_link($d, $opts, 1)); if ($ok && $script->{'site'}) { print &script_link($script->{'site'}, 'scripts_sitelink'),"<p>\n"; } &$outdent_print(); } &$second_print($ok < 0 ? $text{'scripts_epartial'} : $text{'setup_done'}); # Record script install in domain if ($sinfo) { &remove_domain_script($d, $sinfo); } $sinfo = &add_domain_script($d, $sname, $ver, $opts, $desc, $url, $sinfo ? ( $sinfo->{'user'}, $sinfo->{'pass'} ) : ( $suser, $spass ), $ok < 0 ? $msg : undef); &run_post_actions(); &webmin_log("install", "script", $sname, { 'ver' => $ver, 'desc' => $desc, 'dom' => $d->{'dom'}, 'url' => $url }); } else { &$second_print($text{'scripts_failed'}); &run_post_actions(); } &release_lock_web($d); &release_lock_cron($d); # Run post commands &set_domain_envs($d, "SCRIPT_DOMAIN", undef, \%envs); local $merr = &made_changes(); &$second_print(&text('setup_emade', "<tt>$merr</tt>")) if (defined($merr)); &reset_domain_envs($d); &ui_print_footer( $sinfo ? ( "edit_script.cgi?dom=$in{'dom'}&script=$sinfo->{'id'}", $text{'scripts_ereturn'} ) : ( ), "list_scripts.cgi?dom=$in{'dom'}", $text{'scripts_return'}, &domain_footer_link($d));