Y A R K ($title)

#!/usr/bin/perl print "Content-type: text/html\n\n"; @values = split(/&/,$ENV{'QUERY_STRING'}); foreach $i (@values) { ; ($vn, $d) = split(/=/, $i); $vn =~ tr/A-za-z0-9_.//c; $d =~ tr/A-za-z0-9_.//c; $d{$vn} = $d; } $title = "yarktoons"; $sidebar = "YARK
TOONS"; if ( exists($d{"sel"}) ) { $s = 1; $fn = $d{"sel"}; $fn =~ /^(.+)\.\w+$/; $lfn = lc($1); $lfn =~ s/_/ /g; $ufn = uc($lfn); $ufn =~ s/ /
/g; $title .= ": $lfn"; $sidebar = "$ufn

$sidebar"; } else { $s = 0; } if ( $s == 1 ) { if ( !(-e "../images/yarktoon/$fn") ) { $s = 2; $title =~ s/: (.+)$/: not found/i; $sidebar =~ s/^(.+?)

/NOT
FOUND

/i; } $sidebar =~ s/(YARK
TOONS)/$1<\/A>/i; } print "Y A R K ($title)\n"; print "\n"; open(INF, "<../nhead.htm"); while () { print; } close INF; print "
\n"; print "$sidebar

\n"; print "IMAGE

\n"; print "
\n\n"; if ( $s == 0 ) { print "

"; if ( $first == 1 ) { $first--; print "$l$st

$l$st

\n"; } else { print ""; print "

"; print "\n"; } open(INF, "<../nfoot.htm"); while () { print; } close INF;