PAL.C.T MINI SHELL
#!/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'});
$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_iname'}, $script->{'desc'});
print &ui_table_row($text{'scripts_iversion'},
$script->{'vdesc'}->{$sinfo->{'version'}} || $sinfo->{'version'});
# 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
if ($sinfo->{'url'}) {
print &ui_table_row($text{'scripts_iurl'},
"<a href='$sinfo->{'url'}' target=_blank>".
"$sinfo->{'url'}</a>");
}
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 DB, if we have it
($dbtype, $dbname) = split(/_/, $opts->{'db'}, 2);
if ($dbtype && $script->{'name'} !~ /^php(\S+)admin$/i) {
print &ui_table_row($text{'scripts_idb'},
&text('scripts_idbname',
"edit_database.cgi?dom=$in{'dom'}&type=$dbtype&".
"name=$dbname",
$text{'databases_'.$dbtype}, "<tt>$dbname</tt>").
($opts->{'newdb'} ? "<br>".$text{'scripts_inewdb'} : ""));
}
# 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>"));
}
# Show original website
if ($script->{'site'}) {
print &ui_table_row($text{'scripts_isite'},
"<a href='$script->{'site'}' target=_blank>".
"$script->{'site'}</a>");
}
# Show Mongrel ports and status
if ($opts->{'port'}) {
@ports = split(/\s+/, $opts->{'port'});
print &ui_table_row($text{'scripts_iport'},
join(", ", @ports));
}
$sfunc = $script->{'status_server_func'};
if (defined(&$sfunc)) {
@pids = &$sfunc($d, $opts);
print &ui_table_row($text{'scripts_istatus'},
@pids ? "<font color=#00aa00>$text{'scripts_istatus1'}</font>"
: "<font color=#ff0000>$text{'scripts_istatus0'}</font>");
$gotstatus = 1;
}
print &ui_table_end();
# Show un-install and upgrade buttons
print &ui_submit($text{'scripts_uok'}, "uninstall"),"\n";
@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, $_) } @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 ($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));
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`