#!/usr/bin/perl # # hate.pl # # The Hate File. Nothing needs explanation. # # (c) 2004 Kyle Donaldson # use Digest::MD5 qw(md5_hex); my $root = "/~gile/hate/hate.cgi"; # the directory containing this... my $base = $root; my $pathdata = $ENV{PATH_INFO}; my $filebase = "/u11/gile/web/hate/files"; sub page_top { print "Content-Type: text/html\r\n\r\n"; print " The I Hate People File$addtitle
\"I
\n"; } sub page_bottom { print "
Copyright © 2004 Kyle Donaldson. Don't Mess With His Rights.
\n"; } sub almost_die { print "$_\n"; page_bottom(); die($_); } sub write_rss_data { my $curdate = `date '+%a, %d %b %Y %H:%M:%S %Z'`; open(COUNT, "$filebase/count") or almost_die("Drag. No Hate File entries :("); my $count = ; $count =~ s/\n//g; close(COUNT); $count = int($count); my $ocount = $count; open(RSS, ">$filebase/ihatepeople.rss") or almost_die("Cannot create RSS syndication file. :-("); print RSS " The I Hate People File http://csh.rit.edu/~gile/hate/ These are the reasons I hate people. $curdate I Hate People / gile\n"; for ($count--; ($count > -1) && (($ocount - $count) < 20); $count--) { if (open(FILE, "$filebase/$count.text")) { my $subject = ; my $date = ; my $text = ""; while () { $text .= $_; } close(FILE); print RSS " http://csh.rit.edu/$base/entries/$count $date $subject http://csh.rit.edu/$base/entries/$count \n"; } } print RSS "\n\n"; close(RSS); } sub decode_and_write_new { my $cgidata = ""; my $subject = ""; my $date = `date '+%a, %d %b %Y %H:%M:%S %Z'`; my $text = "

"; my $passwerd = ""; my $password = "dca4cfb0f86f7f0c2fc9acc69f08551c"; while (<>) { $cgidata .= $_; } $cgidata =~ s/\n//g; my @pairs = split(/&/, $cgidata); foreach (@pairs) { @set = split(/=/); $set[1] =~ s/\+/ /g; $set[1] =~ s/%([0-9A-F][0-9A-F])/chr hex $1/ge; if ($set[0] eq "subject") { $subject = $set[1]; } if ($set[0] eq "text") { $text .= $set[1]; } if ($set[0] eq "passwerd") { $passwerd = $set[1]; } } if (md5_hex($passwerd) != $password) { almost_die("Bad password. KTHXDIENOWBYEBYE.\n"); } $text =~ s/\n\n/<\/p>

/g; $text =~ s/\n/
/g; $text .= "

"; if (open(COUNT, "$filebase/count")) { $count = ; $count =~ s/\n//g; close(COUNT); } else { $count = 0; } open(ENTRY, ">$filebase/$count.text") or almost_die("Cannot post new entries. Sorry :("); print ENTRY "$subject\n"; print ENTRY "$date\n"; print ENTRY "$text\n"; close(ENTRY); $count++; open(COUNT, ">$filebase/count") or almost_die("Cannot post new entries. Sorry :("); print COUNT "$count\n"; close(COUNT); write_rss_data(); } sub decode_and_write_edit { my $id = shift; my $cgidata = ""; my $text = "

"; my $passwerd = ""; my $password = "dca4cfb0f86f7f0c2fc9acc69f08551c"; open(ENTRY, "$filebase/$id.text") or almost_die("Cannot edit because I cannot read. :-("); my $subject = ; my $date = ; $date =~ s/\n//g; close(ENTRY); while (<>) { $cgidata .= $_; } $cgidata =~ s/\n//g; my @pairs = split(/&/, $cgidata); foreach (@pairs) { @set = split(/=/); $set[1] =~ s/\+/ /g; $set[1] =~ s/%([0-9A-F][0-9A-F])/chr hex $1/ge; if ($set[0] eq "subject") { $subject = $set[1]; } if ($set[0] eq "text") { $text .= $set[1]; } if ($set[0] eq "passwerd") { $passwerd = $set[1]; } } if (md5_hex($passwerd) != $password) { almost_die("Bad password. KTHXDIENOWBYEBYE.\n"); } $text =~ s/\n\n/<\/p>

/g; $text =~ s/\n/
/g; $text .= "

"; open(ENTRY, ">$filebase/$id.text") or almost_die("Cannot post new entries. Sorry :("); print ENTRY "$subject\n"; print ENTRY "$date\n"; print ENTRY "$text\n"; close(ENTRY); $count++; open(COUNT, ">$filebase/count") or almost_die("Cannot post new entries. Sorry :("); print COUNT "$count\n"; close(COUNT); write_rss_data(); } sub decode_and_write_reply { my $id = shift; my $cgidata = ""; my $name = ""; my $text = ""; while (<>) { $cgidata .= $_; } $cgidata =~ s/\n//g; my @pairs = split(/&/, $cgidata); foreach (@pairs) { @set = split(/=/); $set[1] =~ s/\+/ /g; $set[1] =~ s/%([0-9A-F][0-9A-F])/chr hex $1/ge; if ($set[0] eq "name") { $name = $set[1]; } if ($set[0] eq "text") { $text = $set[1]; } } # haha, no html for you. KTHXBYE. $text =~ s/&/&/g; $text =~ s//>/g; $text =~ s/\n\n/<\/p>

/g; $text =~ s/\n/
/g; $text = "

$text

"; if (open(COUNT, "$filebase/$id.commentcount")) { $count = ; $count =~ s/\n//g; close(COUNT); } else { $count = 0; } `mkdir -p $filebase/$id.comments`; open(COMMENT, ">$filebase/$id.comments/$count") or almost_die("Cannot post new comments. Sorry :("); print COMMENT "$name\n"; print COMMENT "$text\n"; close(COMMENT); $count++; open(COUNT, ">$filebase/$id.commentcount") or almost_die("Cannot post new comments. Sorry :("); print COUNT "$count\n"; close(COUNT); } sub show_new_form { print "
Password:
Subject:

\n"; } sub show_entry { my $id = shift; open(ENTRY, "$filebase/$id.text") or almost_die("Error: Entry $id does not exist or is not available for viewing right now."); my $subject = ; my $date = ; my $text = ""; while () { $text .= $_; } close(ENTRY); print "
$subject $date
$text
Link · Read Comments · Share Your Thoughts
\n"; } sub show_reply_form { my $id = shift; show_entry($id); print "
Name:

\n"; } sub show_entry_and_comments { my $id = shift; show_entry($id); open(COUNT, "$filebase/$id.commentcount") or almost_die("No comments available."); my $count = ; $count =~ s/\n//g; close(COUNT); for ($i = 0; $i < $count; $i++) { if (open(COMMENT, "$filebase/$id.comments/$i")) { my $name = ; my $text = ""; while () { $text .= $_; } print "
\n"; if ($name gt "") { print "Name: $name
\n"; } print "$text
"; close(COMMENT); } } } sub show_current { open(COUNT, "$filebase/count") or almost_die("Drag. No Hate File entries :("); my $count = ; $count =~ s/\n//g; $count = int($count); close(COUNT); my $ocount = $count; for ($count--; ($count > -1) && (($ocount - $count) < 20); $count--) { show_entry($count); } } sub show_edit_form { my $id = shift; open(ENTRY, "$filebase/$id.text") or almost_die("Cannot open entry $id for editing. Drag."); my $subject = ; $subject =~ s/\n//g; my $date = ; my $text = ""; while () { $text .= $_; } close(ENTRY); $text =~ s/

//g; $text =~ s/<\/p>/\n\n/g; $text =~ s/
/\n/g; print "

Password:
Subject:

\n"; } page_top(); if ($pathdata eq "/submit") { # send me new hate print "

This isn't some automated place that you can submit whatever you want and have it show up. Here, I only allow things that inspire hate in me. I allow submissions on the assumption that you understand that.

To submit, email gile@hatespeople.com with whatever you think inspires my hate. If it's good, it goes in the file.

"; } elsif ($pathdata eq "/search") { # search the archives print "No search yet :-("; } elsif ($pathdata eq "/about") { # about us print "What do you need to know? I hate people, and I'm going to show you why."; } elsif ($pathdata eq "/new") { show_new_form(); } elsif ($pathdata eq "/postnew") { # auth and add new decode_and_write_new(); print "

Whee! A successful post!

\n"; } elsif ($pathdata =~ /\/entries\/[0-9]*/) { # display entry and comments $id = $pathdata; $id =~ s/\/entries\/([0-9]*)/$1/; show_entry_and_comments($id); } elsif ($pathdata =~ /\/discuss\/[0-9]*/) { # add a reply to an entry $id = $pathdata; $id =~ s/\/discuss\/([0-9]*)/$1/; show_reply_form($id); } elsif ($pathdata =~ /\/edit\/[0-9]*/) { $id = $pathdata; $id =~ s/\/edit\/([0-9]*)/$1/; show_edit_form($id); } elsif ($pathdata =~ /\/postedit\/[0-9]*/) { $id = $pathdata; $id =~ s/\/postedit\/([0-9]*)/$1/; decode_and_write_edit($id); } elsif ($pathdata =~ /\/reply\/[0-9]*/) { # post the reply $id = $pathdata; $id =~ s/\/reply\/([0-9]*)/$1/; decode_and_write_reply($id); print "Reply posted. Yay.\n"; show_entry_and_comments($id); #} elsif ($pathdata eq "/kill") { # `rm -rf $filebase/*` } else { # default listing show_current(); } page_bottom();