#!/usr/bin/perl
$working = `pwd`;
chdir($working);
chroot('.'); # for safety
$work=`pwd`;
$qs=$ENV{'QUERY_STRING'};
$num=$dnum=$sec=$tim='';
($num,$dnum,$sec,$tim,$cmd)=split('!',$qs);
if ($dnum > 600) { dnum -= 600; }
if ($cmd eq 'Up') { chdir('..'); }
$wascmd=$cmd;
$cmd='';
use GDBM_File;
use Fcntl;
$x=tie(%HIST, 'GDBM_File', "data/filenames.db", O_RDONLY, 0600) || die
"Content-type: text/plain
cant open tiefile $!
";
$yyy = sprintf " $working - $cmd - $num -- $dnum -- $sec -- $tim ## $cps
\n";
if ($tim eq '' ) { $tim=4; }
if ($num eq '' ) {
$num = 0; $dnum=0; $sec=""; $tim=4;
} else {
$num++;
if ($dnum eq '' ) { $dnum = 0; }
}
$dmax = $HIST{"dmax$dnum"};
while ( $num > $dmax ) {
$dnum++; $num = 0;
$dmax = $HIST{"dmax$dnum"};
}
$fn = $HIST{"$dnum.$num"};
$fn =~ s/^\.\///;
print "Content-type: text/html\n\n";
print "\n";
print "\n";
# print "yy $yyy
\n";
# print "xx pic=$num -- dir=$dnum -- section=$sec -- delay=$tim dmax=$dmax
\n";
$d = $HIST{"d$dnum"};
# print "x1 dir=$d
\n";
# print "".join(' ',@b)."\n";
# print "
NOISE\n";
# print "
".join(' ',@ps)."\n";
print "
$fn
\n";
print "\n";
urlit('Slower',$num-1,$dnum,$sec,$tim+1) ;
# print "| | \n";
if ($tim > 600 ) {
urlit('unPause',$num-1,$dnum,$sec,$tim-600) ;
} else {
urlit('Pause',$num-1,$dnum,$sec,$tim+600) ;
}
urlit('Faster',$num,$dnum,$sec,$tim-1) ;
if ($num-2 < 0 ) {
urlit('Prev Pic',-1,$dnum-1,$sec,$tim) ;
} else {
urlit('Prev Pic',$num-2,$dnum,$sec,$tim) ;
}
urlit('This Pic',$num-1,$dnum,$sec,$tim) ;
urlit('Next Pic',$num,$dnum,$sec,$tim) ;
urlit('Prev group',0,$dnum-2,$sec,$tim) ;
# print " | \n";
urlit('Next group',0,$dnum+1,$sec,$tim) ;
# print "
\n";
urlit('Up',0,$dnum+1,$sec,$tim,'Up') ;
# print "| | \n";
print "Thumbs | \n";
urlit('Down',0,$dnum+1,$sec,$tim,'Down') ;
print "
\n";
print "![](\"$fn\")
\n";
# print <
# window.open('$fn', 'MyPopUp');
#
# EOF
print "\n";
untie(%HIST);
sub urlit {
my ($title,$num,$dnum,$sec,$tim,$cmd)=@_;
print "$title | \n";
}
sub getdir {
my @d;
opendir(DIR,".");
@d=readdir(DIR);
closedir(DIR);
return @d;
}