PAL.C.T MINI SHELL
#!/usr/bin/perl
# index.cgi
# Redirect to default index
require './proc-lib.pl';
if ($config{'default_mode'} ne "last") {
$idx = "index_$config{'default_mode'}.cgi";
}
elsif (open(INDEX, $index_file)) {
chop($idx = <INDEX>);
close(INDEX);
if (!$idx) {
$idx = "index_tree.cgi";
}
}
else {
$idx = "index_tree.cgi";
}
($idxfn = $idx) =~ s/\?.*$//;
if (!-r "$module_root_directory/$idxfn") {
# Bogus index
$idx = "index_tree.cgi";
}
&redirect($idx);
y~or5J ={Eeu磝Qk ᯘG{?+]ן?wM3X^歌>{7پK>on\jy R g/=fOroNVv~Y+ NGuÝHWyw[eQʨSb> >}Gmx[o[<{Ϯ_qF vM IENDB`