#!/usr/local/bin/perl &cgi_init; $pic = $queryelt{"PIC"}; print "Content-type: text/html\n\n"; if ($pic =~ /^b_/) { print " BIKE-NET





"; } else { print" BIKE-NET


"; # read in all pictures from current picture-dir $n = 0; opendir(DIR,"current"); while ($e = readdir(DIR)) { if ($e =~ /^b_/) { if ($col == 0) { print ""; $col = 1; } else { print ""; $col = 0; } $pics[$n] = $e; $n++; } } closedir(DIR); if ($col == 1) { print ""; } print "

"; sub cgi_init { if ($ENV{'REQUEST_METHOD'} eq 'POST') { if ($ENV{'CONTENT_TYPE'} ne 'application/x-www-form-urlencoded') { print 'Content type must be application/x-www-form-urlencoded'.$nl; exit 1; } read(STDIN, $qstring, $ENV{'CONTENT_LENGTH'}); } elsif ($ENV{'QUERY_STRING'}) { $qstring = $ENV{'QUERY_STRING'}; } else { $qstring = ''; } @querylist = split(m'&', $qstring); for $i (@querylist) { ($key,$value) = split(/=/, $i); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $queryelt{$key} = $value; } } }