#!/usr/bin/perl

use CGI;
$in = new CGI;

## CONVERT XHTML INTO WIKIFIED TEXT
if ($in->param('d')) {

 $dateStr = $in->param('d');
 ($year, $month, $day) = ($in->param('d') =~ /(....)(..)(..)/);
 $monthStr = ("January","February","March","April","May","June","July","August","September","October","November","December")[$month-1];
 open (FD, "/home/shroom/public_html/cal/$year/$month$day");
 @wikiText = <FD>;
 print qq{Content-type:  text/html

 <h2>$monthStr $day, $year</h2>
 <hr/>
 <form method="post" action="http://shroom.dv8.org/cal/">
 <textarea name="txt" cols="80" rows="10">@wikiText</textarea><br/>
 <input type="hidden" name="s" value="$dateStr"/>
 <input type="submit" name="submit" value="set"/>
 </form> };
 exit 0;
}

## New text for this day's entry.
if ($in->param('s')) {
 ($year, $month, $day) = ($in->param('s') =~ /(....)(..)(..)/);
 open (FD, ">/home/shroom/public_html/cal/$year/$month$day");
 print FD $in->param(txt);
 print "Location:  http://shroom.dv8.org/#cal\n\n";
 exit 0;
}

print "Location:  http://shroom.dv8.org/\n\n";