⚝
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 :
edit_phpmode.cgi
#!/usr/bin/perl # Show web and PHP options for a virtual server require './virtual-server-lib.pl'; &ReadParse(); $d = &get_domain($in{'dom'}); &can_edit_domain($d) || &error($text{'edit_ecannot'}); $can = &can_edit_phpmode($d); $canv = &can_edit_phpver($d); $can || $canv || &error($text{'phpmode_ecannot'}); if (!$d->{'alias'}) { @modes = &supported_php_modes($d); $mode = &get_domain_php_mode($d); } $p = &domain_has_website($d); $p || &error($text{'phpmode_ewebsite'}); &ui_print_header(&domain_in($d), $text{'phpmode_title2'}, ""); # Check for FPM port clash or error my $fixport = 0; my $clashdomid; if ($mode eq "fpm" && $can) { my ($fpmerr, $otherid) = &get_php_fpm_port_error($d); if ($fpmerr) { my $otherd; if ($otherid) { # Has to be fixed on the other domain's page $otherd = &get_domain_by($otherid); } if ($otherd && &can_edit_phpmode($otherd)) { $fpmerr .= "<p>\n".&text('phpmode_fixport_desc2', &ui_link("edit_phpmode.cgi?dom=$otherid", $text{'phpmode_title2'})); } else { $fpmerr .= "<p>\n".$text{'phpmode_fixport_desc'}; } print &ui_alert_box($fpmerr, 'warn'); $fixport = 1; } } print &ui_form_start("save_phpmode.cgi"); print &ui_hidden("dom", $d->{'id'}),"\n"; print &ui_hidden("fixport", $fixport),"\n" if (!$clashdomid); print &ui_hidden_table_start($text{'phpmode_header'}, "width=100%", 2, "phpmode", 1, [ "width=30%" ]); if ($can) { if (!$d->{'alias'} && $can && ($p eq 'web' || &plugin_defined($p, "feature_get_web_php_mode"))) { # PHP execution mode push(@modes, $mode) if ($mode && &indexof($mode, @modes) < 0); my $dmode = sub { my ($mode) = @_; if ($mode eq 'mod_php') { return &ui_text_color($text{'phpmode_'.$mode}, 'danger'); } return $text{'phpmode_'.$mode}; }; print &ui_table_row(&hlink($text{'phpmode_mode'}, "phpmode"), &ui_radio_table("mode", $mode, [ map { [ $_, &$dmode($_) ] } @modes ])); } # FPM mode print &ui_table_row( &hlink($text{'phpmode_fpmtype'}, "phpmode_fpmtype"), &ui_radio("fpmtype", &get_domain_php_fpm_mode($d), [ ['dynamic', '<tt>dynamic</tt>'], ['static', '<tt>static</tt>'], ['ondemand', '<tt>ondemand</tt>'] ] ), undef, undef, ['data-row-name="phpmode"'. ($mode eq 'fpm' ? '' : ' style="display: none;"')]); # PHP fcgi sub-processes if (!$d->{'alias'} && $can && ($p eq 'web' || &plugin_defined($p, "feature_get_web_php_children"))) { $children = &get_domain_php_children($d); if (defined($children) && $children >= 0) { my $dom_limits = {}; if (defined(&supports_resource_limits) && &supports_resource_limits()) { $dom_limits = &get_domain_resource_limits($d); } if (!$dom_limits->{'procs'}) { print &ui_table_row(&hlink($text{'phpmode_children'}, "phpmode_children"), &ui_opt_textbox("children", $children > 0 ? $children : '', 5, $mode eq 'fcgid' ? $text{'tmpl_phpchildrenauto'} : &text('tmpl_phpchildrennone', &get_php_max_childred_allowed())). " ".&ui_checkbox("nophpsanity_check", 1, $text{'phpmode_sanitycheck'}, $d->{'phpnosanity_check'})); } } } # PHP max execution time, for fcgi mode if ($mode ne 'none' && !$d->{'alias'} && (&indexof("fcgid", @modes) >= 0 || &indexof("fpm", @modes) >= 0) && ($p eq 'web' || &plugin_defined($p, "feature_get_fcgid_max_execution_time"))) { $max = $mode eq "fcgid" ? &get_fcgid_max_execution_time($d) : &get_php_max_execution_time($d); print &ui_table_row( &hlink($text{'phpmode_maxtime'}, "phpmode_maxtime"), &ui_opt_textbox("maxtime", $max == 0 ? undef : $max, 5, $text{'form_unlimit'})." ". $text{'rfile_secs'}); } } # Show PHP error log if (&can_php_error_log($mode)) { my $plog = &get_domain_php_error_log($d); my $defplog = &get_default_php_error_log($d); my $lmode = !$plog ? 1 : $plog eq $defplog ? 2 : 0; if (&can_log_paths()) { # Can set to any path print &ui_table_row(&hlink($text{'phpmode_plog'}, 'phplog'), &ui_radio_table("plog_def", $lmode, [ [ 1, $text{'phpmode_noplog'} ], [ 2, $text{'phpmode_defplog'}, "<tt>$defplog</tt>" ], [ 0, $text{'phpmode_fileplog'}, &ui_textbox("plog", $lmode == 0 ? $plog : "", 60) ], ])); } else { # Can just turn on or off print &ui_table_row(&hlink($text{'phpmode_plog'}, 'phplog'), &ui_radio("plog_def", $lmode == 1 ? 1 : 0, [ [ 1, $text{'phpmode_noplog'} ], [ 0, $lmode != 0 ? $text{'phpmode_defplog'} : $text{'phpmode_fileplog'}. " <tt>$plog</tt>" ] ])); } } # Show PHP mail option my $phpmail = &get_php_can_send_mail($d); if (defined($phpmail)) { print &ui_table_row(&hlink($text{'phpmode_mail'}, 'phpmail'), &ui_yesno_radio("mail", $phpmail)); } # PHP versions if ($canv && !$d->{'alias'} && $mode ne "mod_php" && $mode ne "none") { # Build versions list my @avail = &list_available_php_versions($d, $mode); my @vlist = ( ); foreach my $v (@avail) { if ($v->[1]) { my $fullver = &get_php_version($v->[1], $d); push(@vlist, [ $v->[0], $fullver ]); } else { push(@vlist, [ $v->[0], $v->[0] ]); } } # Get current versions and directories @dirs = &list_domain_php_directories($d); $pub = &public_html_dir($d); if (@avail <= 1) { # System has only one version $fullver = $avail[0]->[1] ? &get_php_version($avail[0]->[1], $d) : $avail[0]->[0]; print &ui_table_row($text{'phpmode_version'}, $fullver.&get_php_info_link($d->{'id'}, 'label')); } elsif ($mode eq "fpm" && @dirs == 1 || $mode eq "fcgid" && $p ne "web") { # Only one version can be set my $v = $dirs[0]->{'version'}; my ($got) = grep { $_->[0] eq $v } @vlist; print &ui_table_row( &hlink($text{'phpmode_version'}, "phpmode_version"), &ui_select("ver_0", $v, \@vlist, 1, 0, 1). &get_php_info_link($d->{'id'}, 'label')); if (!$got) { print &ui_table_row("", &ui_text_color( $text{'phpmode_verswarn'}, 'warn')); } print &ui_hidden("dir_0", $dirs[0]->{'dir'}); print &ui_hidden("d", $dirs[0]->{'dir'}); } else { # Multiple versions can be selected for different directories $i = 0; @table = ( ); $anydelete = 0; foreach $dir (sort { $a->{'dir'} cmp $b->{'dir'} } @dirs) { $ispub = $dir->{'dir'} eq $pub; $sel = &ui_select("ver_$i", $dir->{'version'}, \@vlist); print &ui_hidden("dir_$i", $dir->{'dir'}); print &ui_hidden("oldver_$i", $dir->{'version'}); if ($ispub) { # Can only change version for public html push(@table, [ { 'type' => 'checkbox', 'name' => 'd', 'value' => $i, 'disabled' => 1, 'checked' => 1, }, "<i>$text{'phpver_pub'}</i>". &get_php_info_link($d->{'id'}), $sel ]); } elsif (substr($dir->{'dir'}, 0, length($pub)) eq $pub) { # Show directory relative to public_html my $subdir = substr($dir->{'dir'}, length($pub)+1); push(@table, [ { 'type' => 'checkbox', 'name' => 'd', 'value' => $i, 'checked' => 1, }, "<tt>$subdir</tt>". &get_php_info_link($d->{'id'}, 'cell', $subdir), $sel ]); $anydelete++; } else { # Show full path push(@table, [ { 'type' => 'checkbox', 'name' => 'd', 'value' => $i, 'checked' => 1, }, "<tt>$dir->{'dir'}</tt>", $sel ]); $anydelete++; } $i++; } push(@table, [ { 'type' => 'checkbox', 'name' => 'd', 'value' => "new", }, &ui_textbox("dir_new", undef, 30), &ui_select("ver_new", undef, \@vlist), ]); @heads = ( $text{'phpmode_enabled'},, $text{'phpver_dir'}, $text{'phpver_ver'} ); print &ui_table_row( &hlink($text{'phpmode_versions'}, "phpmode_versions"), &ui_columns_table(\@heads, 100, \@table), undef, undef, ["data-table-id='php-multi'"]); # Warn if changing mode would remove per-dir versions if ($mode eq "cgi" || $mode eq "fcgid") { @dirs = &list_domain_php_directories($d); if (@dirs > 1) { print &ui_table_row("", &ui_text_color( $text{'phpmode_dirswarn'}, 'warn')); } } } } print &ui_hidden_table_end(); # Show PHP information if ($mode ne 'none' && defined(&list_php_modules) && !$d->{'alias'}) { print &ui_hidden_table_start($text{'phpmode_header2'}, "width=100%", 2, "phpinfo", 0, [ "width=30%" ]); # PHP versions my @vlist = ( ); foreach $phpver (&list_available_php_versions($d)) { my $fullver = $phpver->[1] ? &get_php_version($phpver->[1], $d) : $phpver->[0]; push(@vlist, $fullver); } print &ui_table_row($text{'phpmode_vers'}, @vlist ? join(", ", @vlist) : $text{'phpmode_novers'}); # PHP errors for the domain foreach $phpver (&list_available_php_versions($d)) { $errs = &check_php_configuration($d, $phpver->[0],$phpver->[1]); if ($errs) { print &ui_table_row(&text('phpmode_errs', $phpver->[0]), &ui_text_color($errs, 'danger')); } } # PHP modules for the domain foreach $phpver (&list_available_php_versions($d)) { @mods = &list_php_modules($d, $phpver->[0], $phpver->[1]); @mods = sort { lc($a) cmp lc($b) } @mods; if (@mods) { print &ui_table_row(&text('phpmode_mods', $phpver->[0]), &ui_grid_table([ map { "<tt>$_</tt>" } @mods ], 6, 100)); } } # Pear modules if (&foreign_check("php-pear")) { &foreign_require("php-pear"); @allmods = ( ); if (defined(&php_pear::list_installed_pear_modules)) { @allmods = &php_pear::list_installed_pear_modules(); } @cmds = ( ); if (defined(&php_pear::get_pear_commands)) { @cmds = &php_pear::get_pear_commands(); } foreach $cmd (@cmds) { @mods = grep { $_->{'pear'} == $cmd->[1] } @allmods; @mods = sort { lc($a->{'name'}) cmp lc($b->{'name'}) } @mods; if (@mods) { print &ui_table_row( &text('phpmode_pears', $cmd->[1]), &ui_grid_table( [ map { "<tt>$_->{'name'}</tt>" } @mods ], 6, 100)); } } } print &ui_hidden_table_end(); } print &ui_form_end([ [ "save", $text{'save'} ] ]); &ui_print_footer(&domain_footer_link($d), "", $text{'index_return'});