#!/usr/bin/perl
#a todo script
#add item with /?[stuff_to_add] 
#delete item with /?-[line_number_to_delete]

$url = "http://path/to/script/";

$temp=$ENV{'QUERY_STRING'};
$temp =~ s/%20/ /g;
$len = length($temp);
if ($temp =~ /^-[0-9]/) {
 $temp =~ s/-//;
 open (F, "tododata");
 $i=1;
 while ($line = <F>) {
  unless ($i eq $temp) {
   @print[$i] = "$line";
  }
  $i++;
 }
 close F;
 open (F, ">tododata");
 foreach $print(@print) {
  print F "$print";
 }
 close F;
 print "location: $url\n\n";
 die;
}
unless($len == 0) {
 open (F, ">>tododata");
 print F "$temp\n";
 close F;
 print "location: $url\n\n";
}

print "Content-type: text/html\n\n";
open (F, "tododata");
$i=1;
while ($line = <F>) {
 print "<small>[$i]</small> ";
 $line =~ s/(http.+)\b/<a href=\1>\1<\/a>/g;
 $line =~ s/\n/<br \/>/g;
 print "$line";
 $i++;
}
close F;