PAL.C.T MINI SHELL
#!/usr/bin/perl
# Show global server config settings
require 'virtual-server-mobile/virtual-server-mobile-lib.pl';
&foreign_require("virtual-server", "virtual-server-lib.pl");
&ReadParse();
&virtual_server::can_edit_templates() || &error($text{'templates_ecannot'});
&ui_print_header(undef, $text{'templates_title'}, "", undef, 0, 1, 1);
($tlinks, $ttitles) = &virtual_server::get_template_pages();
print "<ul>\n";
for($i=0; $i<@$tlinks; $i++) {
$link = $tlinks->[$i];
$link = "virtual-server/$link" if ($link !~ /\//);
print "<li><a href='$link'>",
"$ttitles->[$i]</a><br>\n";
}
print "<li><a href='config.cgi?virtual-server'>",
"$text{'header_config'}</a><br>\n";
print "<li><a href='virtual-server/check.cgi'>$text{'templates_check'}</a><br>\n";
&ui_print_footer("/", $text{'index'});
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`