#!/usr/bin/perl my $r = Apache->request; print "HTTP/1.1 200 OK Server: Apache/1.3b3 mod_perl/1.08 "; use DBI; use strict 'vars'; require 'ctime.pl'; use slashmod; my ($imagedir)=slashmod::config(); my $dbh; sub main { $dbh=slashmod::dbconnect(); my (@content, @pairs, %FORM, %COOKIES); %FORM=slashmod::getform(); %COOKIES=slashmod::getcookies(); my ($thisuser,$email,$url)=slashmod::getuserinfo($COOKIES{userinfo}); if(defined $FORM{cookie}) { slashmod::setuserinfo($FORM{from}, $FORM{email},$url); } print "Content-Type: text/html\n\n"; print "
";
} else {
if(length $FORM{subj} < 2) {
print "Please enter a reasonable subject.";
} else {
print "Perhaps you would like to enter an
email address or a URL next time.
"
unless length $FORM{email} > 2;
print "This story has been submittedly anonymously
" unless length $FORM{from} > 2;
print "Thanks for this submission. ";
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =
localtime(time);
$mon++;
my $subid="$hour$min$sec.$mon$mday$year";
$FORM{story}=~s/'/''/g;
$FORM{subj}=~s/'/''/g;
$dbh->do("INSERT into submissions
(email,name,story,time,subid,subj,tid)
VALUES('$FORM{email}','$FORM{from}',
'$FORM{story}', NOW(),'$subid','$FORM{subj}','$FORM{tid}')");
}
}
slashmod::footer();
}
sub rmstory
{
my ($aid, $sid) =@_;
$dbh->do("DELETE from stories WHERE
('$aid'=aid OR '$aid'='CmdrTaco') AND
'$sid'=sid");
print "Deleted Article";
}
sub listtopics
{
my ($tid,$image, $alttext, $width, $height)="";
my $cursor=$dbh->prepare("SELECT tid,image,alttext,width,height
FROM topics
ORDER BY tid");
my $x=0;
$cursor->execute;
print "
$tid | ";
}
print "