#!/usr/bin/perl -wT use strict; my $http_host = $ENV{'HTTP_HOST'}; my $request_uri = $ENV{'REQUEST_URI'}; my $gallery = $request_uri; $gallery =~ s/\/~pengo\/images\///; chop ($gallery); print "Content-type: text/html\n\n"; print < main.images.$gallery

END_OF_PAGE opendir (DH, "./"); readdir(DH); readdir(DH); my $http_cookie = $ENV{'HTTP_COOKIE'}; my $address; my $thumbnail; my $i = 0; my @rray; my $tring; while (defined($address = readdir(DH))) { if($address =~ /(\.jpg|\.JPG)/){ if (!$i--) { $i = 3; print "\n\n"; } print "\n" } } print "

"; print ""; print "

"; if($http_cookie =~ "mst3k=1") { open(FH, "comments/" . $address . ".txt"); read(FH, $tring, 2056); close(FH); @rray = split (/\n/,$tring); print "

" . @rray . " Comment"; if(@rray != 1) { print "s\n"; } $tring = ""; } print "

"; print '

'; if($http_cookie =~ "mst3k=1") { print 'ENABLED'; } else { print 'DISABLED'; } print < END_OF_PAGE closedir(DH);