#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
$foot = `cat shtml/footer.html`;
$head = `cat shtml/header.html`;
$imagedir="../bashimg2";
chdir "$imagedir";
$reloadtime =5;
$script="browser-secured.cgi";
$list = `/bin/ls -l |grep -v $script`;
@listarray = split('\n',$list);
$num = @listarray;
$num --;
if ($page > $num) {print "image error";}
&parse_form;
if ($FORM{page}) {$page=$FORM{page};}
else {$page=1;}
if ($FORM{reloadtime}) {$reloadtime=$FORM{reloadtime};}
else {$reloadtime=0;}
$,=' ';
$line="@listarray[$page]";
($a,$a,$a,$a,$size,$a,$a,$a,$fname) = split(' ',$line);
while ($size < 1) {
$line="@listarray[$page]";
($a,$a,$a,$a,$size,$a,$a,$a,$fname) = split(' ',$line);
$page ++;
}
$prev = $page -1;
$next = $page +1;
print "Whiplash Bash Page $page";
if ($reloadtime) {print "\n";}
#print "$head";
#$page --;
print "