Viewing file:  edit_script.cgi (5.7 KB) -rwxrwxr-x
Select action/file-type:
 (+) |  (+) |  (+) | Code (+) | Session (+) |  (+) | SDB (+) |  (+) |  (+) |  (+) |  (+) |  (+) |
#!/usr/bin/perl
# Show options for upgrading or un-installing some script
require './virtual-server-lib.pl';
&ReadParse();
$d = &get_domain($in{'dom'});
&can_edit_domain($d) && &can_edit_scripts() || &error($text{'edit_ecannot'});
@got = &list_domain_scripts($d);
($sinfo) = grep { $_->{'id'} eq $in{'script'} } @got;
$script = &get_script($sinfo->{'name'});
$script || &error($text{'scripts_emissing'});
$opts = $sinfo->{'opts'};
&ui_print_header(&domain_in($d), $text{'scripts_etitle'}, "");
print "$text{'scripts_udesc'}<p>\n";
# Show install options form
print &ui_form_start("unscript_install.cgi", "post");
print &ui_hidden("dom", $in{'dom'}),"\n";
print &ui_hidden("script", $in{'script'}),"\n";
print &ui_table_start($text{'scripts_uheader'}, undef, 2);
# Show script description
print &ui_table_row($text{'scripts_iinstver'},
&filetimestamp_to_version($script->{'filename'})." ".
&ui_help("$text{'scripts_iinstdate'}: ".
&filetimestamp_to_date($script->{'filename'})));
print &ui_table_row($text{'scripts_iname'}, $script->{'desc'});
print &ui_table_row($text{'scripts_iversion2'},
$script->{'vdesc'}->{$sinfo->{'version'}} || $sinfo->{'version'});
# Show original website
if ($script->{'site'}) {
print &ui_table_row($text{'scripts_isite'},
&script_link($script->{'site'}));
}
# Show error, if any
if ($sinfo->{'partial'}) {
print &ui_table_row($text{'scripts_ipartial'},
"<font color=#ff0000>$sinfo->{'partial'}</font>");
}
if ($sinfo->{'deleted'}) {
print &ui_table_row($text{'scripts_idstatus'},
"<font color=#ff0000>$text{'scripts_ideleted'}</font>");
}
# Show install URL
my $slink = &get_script_link($d, $sinfo, 1);
if ($slink) {
print &ui_table_row($text{'scripts_iurl'}, $slink);
}
print &ui_table_row($text{'scripts_itime'}, &make_date($sinfo->{'time'}));
# Show directory
if ($opts->{'dir'}) {
print &ui_table_row($text{'scripts_idir'},
"<tt>$opts->{'dir'}</tt>");
# Show actual PHP version for the script's directory
@dirs = &list_domain_php_directories($d);
foreach my $dir (sort { length($a->{'dir'}) cmp length($b->{'dir'}) } @dirs) {
if (&is_under_directory($dir->{'dir'}, $opts->{'dir'}) ||
$dir->{'dir'} eq $opts->{'dir'}) {
$bestdir = $dir;
}
}
if ($bestdir) {
$mode = &get_domain_php_mode($d);
$fullver = &get_php_version($bestdir->{'version'}, $d) ||
$bestdir->{'version'};
print &ui_table_row($text{'scripts_iphpver'},
$fullver." (".$text{'phpmode_short_'.$mode}.")");
}
}
# Show DB, if we have it
($dbtype, $dbname) = split(/_/, $opts->{'db'}, 2);
if ($dbtype && $script->{'name'} !~ /^php(\S+)admin$/i) {
print &ui_table_row($opts->{'dbtbpref'} ?
$text{'scripts_idb2'} :
$text{'scripts_idb'},
&text('scripts_idbname',
"edit_database.cgi?dom=$in{'dom'}&type=$dbtype&".
"name=$dbname",
$text{'databases_'.$dbtype}, "<tt>$dbname</tt>" .
($opts->{'dbtbpref'} ? " $text{'scripts_idbtbpref'} <tt>$opts->{'dbtbpref'}</tt>" : "")).
($opts->{'newdb'} ? "<br>".&ui_text_color($text{'scripts_inewdb'}, 'warn') : ""));
}
# Show login, if we have it
if ($sinfo->{'user'}) {
print &ui_table_row($text{'scripts_iuser'},
&text('scripts_ipass',"<tt>$sinfo->{'user'}</tt>",
"<tt>$sinfo->{'pass'}</tt>"));
}
$sfunc = $script->{'status_server_func'};
# Show link to service
if (defined(&$sfunc)) {
&foreign_require('init');
my $service_name = "$sinfo->{'name'}-$d->{'dom'}-$opts->{'port'}";
if (&init::action_status($service_name)) {
my $service_link = $service_name;
if ($init::init_mode eq "systemd" &&
&foreign_available('init')) {
$service_link =
&ui_link(&get_webprefix_safe()."/init/edit_systemd.cgi?name=".&urlize($service_name).".service",
$service_name.".service");
}
print &ui_table_row($text{'scripts_iservice'}, "<tt>$service_link</tt>");
}
}
# Show port
if ($opts->{'port'}) {
@ports = split(/\s+/, $opts->{'port'});
print &ui_table_row($text{'scripts_iport'},
join(", ", @ports));
}
# Show current status
if (defined(&$sfunc)) {
@pids = &$sfunc($d, $opts);
if ($pids[0] >= 0) {
print &ui_table_row($text{'scripts_istatus'},
@pids ?
&ui_text_color($text{'scripts_istatus1'}, "success") :
&ui_text_color($text{'scripts_istatus0'}, "danger"));
$gotstatus = 1;
}
}
print &ui_table_end();
# Show un-install and upgrade buttons
print &ui_submit($text{'scripts_uok'}, "uninstall"),"\n";
if (!script_migrated_disallowed($script->{'migrated'})) {
@vers = sort { $a <=> $b }
grep { &compare_versions($_, $sinfo->{'version'}, $script) > 0 &&
&can_script_version($script, $_) }
@{$script->{'versions'}};
$canupfunc = $script->{'can_upgrade_func'};
if (!$sinfo->{'deleted'}) {
if (defined(&$canupfunc)) {
@vers = grep { &$canupfunc($sinfo, $_) > 0 } @vers;
}
if (@vers) {
# Upgrade button
print " \n";
print &ui_submit($text{'scripts_upok'}, "upgrade"),"\n";
print &ui_select("version", $vers[$#vers],
[ map { [ $_ ] } @vers ]),"\n";
}
elsif (&can_unsupported_scripts()) {
# Upgrade to un-supported version
print " \n";
print &ui_submit($text{'scripts_upok2'}, "upgrade"),"\n";
print &ui_textbox("version", undef, 15),"\n";
}
}
}
if (!$sinfo->{'deleted'}) {
if ($gotstatus) {
print " \n";
if (@pids) {
print &ui_submit($text{'scripts_ustop'},
"stop"),"\n";
print &ui_submit($text{'scripts_urestart'},
"restart"),"\n";
}
else {
print &ui_submit($text{'scripts_ustart'},
"start"),"\n";
}
}
}
print &ui_form_end();
# Make sure the left menu is showing this domain
if (defined(&theme_select_domain)) {
&theme_select_domain($d);
}
&ui_print_footer("list_scripts.cgi?dom=$in{'dom'}", $text{'scripts_return'},
&domain_footer_link($d));
|