#!/usr/bin/perl $logfile="logfile"; $width=80; $tmpdir="tmp"; $finaldir="entries"; $urlbase="http://www.demo.cs.brandeis.edu/Private/info"; $thisform="infoform.cgi"; $masterpasswd="33665"; $runindexgen="/usr/bin/perl ./indexgen"; $nopassword=1; use CGI; $query = new CGI; print $query->header; print "DEMO information post form \n"; if ($query->param('entry')) { print "

MODIFICATION FORM

\n"; $continue=undef; $delete=undef; $entry=$query->param('entry'); if ( -f "$finaldir/$entry.post") { if ($query->param('pass')) { open IN,"<$finaldir/$entry.post"; $oldquery = new CGI(IN); close IN; print "olquery loaded title=",$oldquery->param('title'), "
\n"; if ($query->param('delete')) { $delete=1; } if ($nopassword || $masterpasswd eq $query->param('pass')) { $continue=1; } elsif ($oldquery->param('pass') && ("" ne trim($oldquery->param('pass')))) { if ($oldquery->param('pass') eq $query->param('pass')) { #passwd ok! print "

password ok.

"; $continue=1; } else { print "

wrong password

"; } } else { print "

Entry can't be modified.

"; } } else { # create a little form for password input print "

\n"; if (!($nopassword)) { print "Enter password: ", $query->password_field(-name=>'pass'); } else { print $query->hidden(-name=>'pass', -value=>$masterpasswd); } print $query->hidden(-name=>'entry'), "
", "

Click here to modify this entry: ", $query->submit(-name=>"modify"), "

Click here to delete it : ", $query->submit(-name=>"delete"), $query->endform; } } else { print ("

Error: Can't find entry\n

"); } if ($continue) { $query=$oldquery; if ($delete) { print "

deleting ",$query->param('title'),"

"; $id=$query->param('id'); foreach $ext (qw(post idx html 0.html)) { $file="$finaldir/$id.$ext"; # print ("$tmpfile -> $file
\n"); if (-f "$file.old") { unlink ("$file.old"); } if (-f $file) { link($file,"$file.old"); unlink($file); } } spawn_reindex(); print "

Deleted.

", "Click here to go back to the ", "DEMO Private Parts

\n", "Remember to reload the page to see your changes.

\n"; $|=1; exit(0); } # print "

modify ",$oldquery->param('title'),"

"; print "

modify ",$query->param('title'),"

"; } else { $|=1; # print "

EXIT 0

"; exit (0); } } if ($query->param('finish')) { $id=$query->param('id'); foreach $ext (qw(post idx html 0.html)) { $file="$finaldir/$id.$ext"; $tmpfile="$tmpdir/$id.$ext"; if (-f $tmpfile) { # print ("$tmpfile -> $file
\n"); if (-f "$file.old") { unlink ("$file.old"); } if (-f $file) { link($file,"$file.old"); unlink($file); } link($tmpfile,$file); unlink($tmpfile); } else { print "Error: $tmpfile does not exist. Double submission?
\n"; } } spawn_reindex(); print "Done.
Click here to go back to the DEMO Private Parts\n", "Remember to reload the pages to see your changes

\n"; exit(0); } elsif ($query->param('submit')) { print "

FORM RECEIVED

"; $errors=undef; # check for errors # 1. check that a title is present if (trim($query->param('title')) eq '') { $errors=1; print ("

Error: No title.

"); } @curtime=localtime(time); $day=$curtime[3]; $month=$curtime[4]+1; $year=$curtime[5]+1900; #datestring="".(($year+2)*10000+$month*100+$day); $datestring="29990101"; # default expiration date $todaystring="".($year*10000+$month*100 + $day); #2. check for correct expiration date if ("" ne trim($query->param('expdate'))) { if ($query->param('expdate') < $todaystring) { print ("

Warning: Expiration date past already

"); } #lsif (($query->param('pass') ne $masterpasswd) && # ($query->param('expdate') > $datestring)) { # print("

Error: Expiration date after two years

"); #$errors=1 ; # } else { #print "

Expiration date set by default to $datestring

\n"; $query->param('expdate', $datestring); } $_ = $query->param('section'); s/ .*$//; if ($_ eq "00") { print("

Error: Please select a section

"); $errors=1 ; } if ($errors) { print "

YOUR FORM CONTAINS ERRORS. \n", "PLEASE CORRECT THE INFORMATION BELOW AND RESUBMIT

\n"; } else { # no errors, go ahead # do we have an id yet? if (! $query->param('id')) { # no, create new one $query->param('id',time); } $id=$query->param('id'); # ok, now we have an id # generate random password if one not present if (! $query->param('pass')) { $query->param('pass',randstring(5)); } print "

No errors, processing entry $id...

\n"; #create files # 1. full post file open(OUT,">$tmpdir/$id.post") or die "Can't open $id.post"; $query->save(OUT); close OUT; # 2. index entry open(OUT,">$tmpdir/$id.idx") or die "Can't open $id.idx"; print OUT $query->param('expdate')," ", $query->param('id')," ", $todaystring," ", $query->param('section'), "\n"; close OUT; # 3. formatted entry open OUT,">$tmpdir/$id.html" or die "Can't open $id.html"; print OUT formatentry("$finaldir/"); close OUT; #4. optional page open OUT, ">$tmpdir/$id.0.html" or die "Can't open $id.0.html"; print OUT "",$query->param('title')," ", $query->param('detttitle')," Back to the DEMO Lab Private Parts

",$query->param('title'),"

",$query->param('dettitle'),"

"; print OUT $query->param('detail'); close OUT; #now display the formated entry... print "

", "

",$query->param('section'),"

\n", "

\n", formatentry("$tmpdir/"), "

\n"; } print "

\n"; #print "

Expiration date: ",$query->param('expdate'),"
\n", #"Password: ",$query->param('pass'),"
\n", #"Email: ",$query->param('email'),"
\n", #"

\n"; if (!$errors) { print "

",$query->startform, $query->hidden(-name=>'id',-value=>$id), $query->submit(-name=>'finish', -value=>'Click here to finish your submission'), $query->endform, "
Or
\n"; } print "Click here to cancel and go back to the DEMO info page
Or correct the information below and submit again.

"; display_form(); } else { #if ($query->param('password') eq $masterpasswd) { display_form(); #} # else { # print "Please go to the DEMO Limbo #to make postings\n"; # exit(0); # } #display_form(); } sub display_form { print "

DEMO Info post form

"; print $query->startform; print " Section:
"; @sections=("00 ** Choose a section ** "); open IN,") { push(@sections,$_); } print $query->popup_menu('section',\@sections); print "

Title: (required)
\n", $query->textfield(-name=>'title', -size=>$width), "

Description: (html)
\n", $query->textarea(-name=>'descr', -cols=>$width, -rows=>5), # "

Expiration date: (optional, enter yyyymmdd or leave blank for no ex)
\n", # $query->textfield(-name=>'expdate',-size=>8,-maxsize=>8), "

Web address: (optional)
\n", $query->textfield(-name=>'http', -default=>'http://',-size=>$width), "

Detailed information (optional)
", "You can include a long html text, a full description, a report or essay, etc.
\n", "

Title (i.e. \"abstract\",\"report\", etc.)
\n", $query->textfield(-name=>'dettitle',-size=>30), "
Full Text: Use html or, if text preferred, enter <PRE> in the first line
\n", $query->textarea(-rows=>30, -cols=>$width, -name=>'detail'), "


\n"; # "

A password... (optional, you'll need it only if you wish to modify/delete this entry
\n", # $query->textfield(-name=>'pass',-size=>10), # "

An email address... (if you want the system to notify you when ", # "this entry is about to expire)
\n", # $query->textfield(-name=>'email',-size=>25); if ($query->param('id')) { print $query->hidden('id'); } print "

", "