#!/bin/perl # moderate.cgi (modification of 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 &approve_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; } ### Subroutines sub approve_post { $threadnum = $query->param('threadnum') || die; $approved = $query->param(approve); open(LOCK,"../list.lock") || die; flock(LOCK,2); open(MAIN,"$main_thread_file") || die; open(SCRATCH,">$main_thread_file.bak") || die; # modify thread file open(THREADFILE,"../DATA/$threadnum.th") || die; $x = 0; while() { ($title,$author,$email,$date_sec,$mod_val,$post) = split(/\t/,$_,6); if ($mod_val) { if ($x != $postnum) { print SCRATCH; } elsif ($approved) { print SCRATCH "$title\t$author\t$email\t$date_sec\t0\t$post"; } $x++; } else { print SCRATCH; } } open(THREADFILE,">../DATA/$threadnum.th") || die; open(SCRATCH,"$main_thread_file.bak") || die; while() { print THREADFILE; } # modify main_thread_file open(SCRATCH,">$main_thread_file.bak") || die; while (
) { chop; if (/^$threadnum\t/) { ($thread_num,$titre,$name,$mail,$date,$replies,$last_mod, $mod_val,$mod_num) = split(/\t/,$_); if ($approved) { $mod_num--; $replies++; print SCRATCH "$thread_num\t$titre\t$name\t$mail\t$date\t$replies\t$last_mod\t0\t$mod_num\n"; } elsif ($replies > -1) { $mod_num--; print SCRATCH "$thread_num\t$titre\t$name\t$mail\t$date\t$replies\t$last_mod\t0\t$mod_num\n"; } else { next; } } else { print SCRATCH $_, "\n"; } } close SCRATCH; open(SCRATCH,"$main_thread_file.bak"); open(MAIN,">$main_thread_file") || die; while() { print MAIN; } flock(LOCK,8); print "Content-type: text/html\n\n"; print qq( Message Moderation ); if ($approved) { print "

Message Approved

"; } else { print "

Message Rejected and Deleted

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

Approve/Reject a Message

Title: $title
Name: $author
E-mail: $email
Message:
$post

Approve
Reject

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

Thread list

Approve/Reject a Message

These messages require approval:
"; 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\nApprove Message

Administration Page

Approve/Reject a Message

These threads have messages that require approval:
"; # get, print $listlength threads while() { chop; ($num,$title,$author,$email,$date_mod,$replies,$last_mod, $mod_val,$mod_num) = split(/\t/); if ($mod_num) { $date = &date_format($date_mod); $last = &date_format($last_mod); print "$num $date $title - $author [ $mod_num ]
\n"; } } print ""; close(DATABASE); }