#! /usr/bin/perl # # Todo Issues - A task maanger of things to do. # Kirk Waingrow (c) 8/2003 - V2.5 # # Reference with http://mbod.beamdev.com/cgi-bin/todo?ID=bvdc # Where ID equals the list name that everything is create under. # # Send the data from the adduguer form to us. # $EMAIL="kewaingr"; $LINK="http://mbod"; $WEBPATH="/cgi-bin/kbase"; $DPATH="/httpd/html/kbase"; $HPATH="/httpd"; $DATE=`date +%y%m%d%H%M%S`; $DT=`date +%m/%d/%y`; $DDT=`date '+%m.%d.%y / %H:%M'`; chop($DT); chop($DDT); chop($DATE); $ID=""; print "Content-type: text/html\n\n"; print "
";
$cc++;
}
else { print "$_ ";
$cc++;
}
else { print "$_
"; }
}
close(infile);
exit;
}
#
# ADD TO AN ENTRY
#
if ( $form{MOD} )
{
$chk1=""; $chk2=""; $chk3="";
open(infile, $OPEN);
while (
~;
$print="&PF=2";
&header_bar;
print "";
# DISPLAY RECORD FILE
$cc=0;
open (infile, "$TODO/$form{IDX}");
while (
Posted By: $OWNER
Record #$REC
"; }
}
close(infile);
print qq~
~;
if ( ! "$form{PF}" )
{
&header_bar;
}
print qq~
~;
$bs=0;
open(infile, "$OPEN");
while (Rec #
Record Title
Posted By
\n";
}
}
else
{
if ( $bs == 1 )
{ $bcs="white"; $bs=0; }
else { $bcs="e8e8e8"; $bs=1; }
print "$REC \n";
print "$LINE \n";
print "$OWNER \n";
print " \n";
}
}
print "$REC \n";
print "$LINE \n";
print "$OWNER \n";
print "
\n";
print "\n";
##
## HEADER BAR
##
sub header_bar
{
$PFIDX="&IDX=$form{IDX}";
print qq~
$reccnt Records
Add A Record
Printer Friendly
~;
}