#!/bin/perl # editpost.cgi # because this is an administrator's tool, there are not too many special # checks (after all, the admin should have some special privileges) require "config"; use lib '../..'; use CGI; $query = new CGI; if (($postnum = $query->param('postnum')) || ($postnum eq '0')) { # if data is passed using POST (determined by checking to see if a value is # associated with the name "postnum"), then use the info to edit the # appropriate post # special check for $postnum == 0, since 0 is false &edit_post; } elsif (@keywords = $query->keywords) { # if data is passed using ISINDEX (determined by checking to see if a value is # associated with the name "keywords" ($threadnum, $postnum) = split(/,/,$keywords[0],2); if ($postnum || ($postnum eq '0')) { &print_edit_form; } else { &show_message_list; } } else { # if no data is passed, print out threads &show_thread_list; } ### sub edit_post { $threadnum = $query->param('threadnum') || die; $date_sec = $query->param('date_sec'); $title = $query->param('title'); $author = $query->param('author'); $email = $query->param('email'); $post = $query->param('post'); $title =~ s/[\t\n]/ /g; $title =~ s/\/\>\;/g; $author =~ s/[\t\n]/ /g; $author =~ s/\/\>\;/g; $email =~ s/[\t\n]//g; $email =~ s/\/\>\;/g; $post =~ s/\t/ /g; $post =~ s/\n//g; open(LOCK,"../list.lock") || die; flock(LOCK,2); open(SCRATCH,">$main_thread_file.bak") || die; open(THREADFILE,"../DATA/$threadnum.th") || die; $x = 0; while() { if ($x != $postnum) { print SCRATCH; } else { print SCRATCH "$title\t$author\t$email\t$date_sec\t0\t$post\n"; } $x++; } open(THREADFILE,">../DATA/$threadnum.th") || die; open(SCRATCH,"$main_thread_file.bak") || die; while() { print THREADFILE; } # if postnum == 0, edit main.th subject line if ($postnum == 0) { open(MAIN,"$main_thread_file") || die; open(SCRATCH,">$main_thread_file.bak") || die; while(
) { if (/^$threadnum\t/o) { ($num,$oldtitle,$oldauthor,$oldemail,$date_mod,$replies, $last_mod,$mod_val,$mod_num) = split(/\t/); print SCRATCH "$num\t$title\t$author\t$email\t$date_mod\t$replies\t$last_mod\t$mod_val\t$mod_num"; } else { print SCRATCH; } } open(SCRATCH,"$main_thread_file.bak") || die; open(MAIN,">$main_thread_file") || die; while() { print MAIN; } } flock(LOCK,8); print "Content-type: text/html\n\n"; print <Edit a Message

Message Edited

The message will look approximately like:

$post
Use the Back button to re-edit the message, or return to the beginning EOF } ### sub print_edit_form { open(THREADFILE,"../DATA/$threadnum.th") || die; $x = 0; while() { if ($x == $postnum) { ($title,$author,$email,$date_sec,$mod_val,$post) = split(/\t/,$_,6); last; } $x++; } $post =~ s/\/\\n/gi; print "Content-type: text/html\n\n"; print < Edit A Message

Edit a Message

Title:
Name:
E-mail:
Message: Enter HTML formatting (<P>, <BR>,...)

EOF } ### sub show_message_list { print "Content-type: text/html\n\nEdit a Message

Edit a Message

Click on the message you want to edit:
"; open(THREADFILE,"../DATA/$threadnum.th") || die; $x = 0; while () { ($title,$author,$email,$date_sec,$mod_val,$post) = split(/\t/,$_,6); if (!($mod_val)) { $date = &date_format($date_sec); print "$date $title - $author $email
"; } $x++; } print ""; } ### sub show_thread_list { open(DATABASE,"$main_thread_file") || die; print "Content-type: text/html\n\nEdit a MessageBack to Administration

Edit a Message

Click on the thread that contains the message you want to edit:
"; # get, print $listlength threads while() { chop; ($num,$title,$author,$email,$date_mod,$replies,$last_mod, $mod_val,$mod_num) = split(/\t/); $date = &date_format($date_mod); $last = &date_format($last_mod); if (!($mod_val)) { print "$num $date $title - $author [ $replies - $last ]
\n"; } } print ""; close(DATABASE); }