\n";
print "$sidebar
\n";
print "IMAGE
| \n";
print " \n\n";
if ( $s == 0 ) {
print "\n";
$out = `ls -1tp ../images/yarktoon`;
@yts = split(" ", $out);
$first = 1;
for $_ (@yts) {
next if /\/$/;
next if /html$/i;
/^(.+)\.\w+$/;
$st = $1;
$st =~ s/_/ /g;
$l = "";
if ( $first == 1 ) {
$first--;
print "$l$st \n";
}
else {
print " $l$st\n";
}
}
print " \n";
}
else {
print "";
print "";
print "\n";
}
open(INF, "<../nfoot.htm");
while () { print; }
close INF;
|