#!/usr/bin/perl use strict; use CGI; print "Content-type: TEXT/HTML\n\n"; open(INPUT_FILE, "photos.fet"); my ($target, $line, $image, $title, $blurb, $done, $newest, $commentfile, $commentdate, $commentname, $commenttext, $addcomment, $commentip, $commenthost); my @params = split(/&/, $ENV{'QUERY_STRING'}); $target = $params[0]; $addcomment = $params[1]; $done = 0; $line = ""; while(!($done == 1) && !($line eq "end")) { do { $line = ; chomp($line); }while(!($line)); if($newest == undef) { $newest = $line; } if($target == $line || $target == "") { $target = $line; while(!($done == 1)) { $image = ; chomp($image); $title = ; chomp($title); $blurb = ; chomp($blurb); $done = 1; } } else { do { $line = ; chomp($line); }while($line); } } close(INPUT_FILE); $commentfile = 'itsstupid/' . $target . '.fet'; if (!(-e $commentfile)) { open (CREATE_COMMENT_FILE, '>' . $commentfile) || die "cannot create comment file: $!"; close CREATE_COMMENT_FILE; } open (COMMENT_FILE, '<' . $commentfile) || die "cannot open comment file: $!"; my @comments = ; my @commentbits; my @checklastpost = split(/\|/, @comments[$#comments]); close COMMENT_FILE; if ($addcomment == 1) { my ($data, $writedate, $writename, $writetext, $writeip, $writehost, $blah); my $length = $ENV{'CONTENT_LENGTH'}; read(STDIN, $data, $length); my ($Second, $Minute, $Hour, $Day, $Month, $Year, $WeekDay, $DayOfYear, $IsDST) = localtime(time + 3600); my $RealYear = $Year + 1900; my $RealMonth = $Month + 1; if ($Minute < 10) { $Minute = '0' . $Minute; } my $writedate = $RealYear . '.' . $RealMonth . '.' . $Day . ' at ' . $Hour . ':' . $Minute . ' EST'; my @pairs = split(/&/, $data); ($blah, $writename) = split(/=/, $pairs[0]); ($blah, $writetext) = split(/=/, $pairs[1]); $writename =~ tr/+/ /; $writetext =~ tr/+/ /; ## $writename =~ s/%([0-9a-fA-F]{2,2})/(26=>'&',3C=>'<',3E=>'>'){uc($1)}/eg $writename =~ s'%26'&'g; $writename =~ s'%3C'<'g; $writename =~ s'%3E'>'g; $writetext =~ s'%26'&'g; $writetext =~ s'%3C'<'g; $writetext =~ s'%3E'>'g; $writename =~ s'%0D%0A'
'g; $writetext =~ s'%0D%0A'
'g; $writename =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg; $writetext =~ s/%([\dA-Fa-f][\dA-Fa-f])/pack ("C", hex ($1))/eg; $writeip = $ENV{'REMOTE_ADDR'}; $writehost = $ENV{'REMOTE_HOST'}; if ($writename eq '') { $writename = "anonymous"; } if (($writetext ne $checklastpost[2]) && ($writetext ne '')) { open (WRITE_COMMENT_FILE, '>>' . $commentfile); flock(WRITE_COMMENT_FILE, 2) or die "cannot lock file exclusively: $!"; my $linetowrite = $writedate . '|' . $writename . '|' . $writetext . '|' . $writeip . '|' . $writehost . "\n"; print WRITE_COMMENT_FILE $linetowrite; push(@comments, $linetowrite); close WRITE_COMMENT_FILE; } } print <<"EOT"; LiK's Photo Thingy

last updated February 17, 2003