!date.cgiuire "cgi-lib.pl"; require "ctime.pl"; chdir("/digiweb/usr/stinky/public_html/alison"); $topics = "topics"; $separator = "---"; #$url = &MyURL; #"http://www.cs.columbia.edu/~chaffee/alison/date.cgi"; $url = "date.cgi"; $options{"table"} = 0; # use a table border to surround each msg $options{"msg_hr_size"} = 6; # how thick is the HR between messages $options{"strong_buttons"} = 1; # make the button text $options{"view"} = 1; # 0=list, 1=threaded print &PrintHeader; $is_input = &ReadParse(*input); $topic = $input{"topic"}; if ($topic eq "") { $topic = "date"; } $options{"view"} = $input{"view"} if ($input{"view"}); if ($is_input && $topic) { # read the topic file &read_topic($topic); $action = $input{"action"}; $action =~ tr/A-Z/a-z/; # add a new message if ($action eq "add_reply") { &add_reply; print STDERR "topic=$topic\n"; &read_topic($topic); &print_topic; } elsif ($action eq "new_reply") { &new_reply; } else # topic, no action { &print_topic; } } else { $action = $input{"action"}; $action =~ tr/A-Z/a-z/; if ($action eq "new_topic") { &new_topic; } elsif ($action eq "add_topic") { &add_topic; &read_topic($topic); &print_topic; } else { # show the index of topics # &read_topics; # &print_topics; $topic = "date"; &read_topic($topic); &print_topic; } } sub good { 1; } # read the topics list sub read_topics { # the topics file has a simple format: # file\ttitle if (open(FILE, "$topics")) { for ( $i = 0; $line = ; ++$i) { chop($line); ($topics[$i], $titles[$i]) = ($line =~ /(\S*)\t(.*)/); } $cTopics = $i; close(FILE); } } #read_topics #read a single topic sub read_topic { local ($topic) = @_; open(DATAFILE, "$topic.data") || die "Couldn't open $topic.data\n"; # first look for intro HTML $intro = ""; while (($line = ) !~ /^$separator/ && $line) { $intro .= $line; } $i = 0; do { chop($id[$i] = ); chop($subject[$i] = ); chop($date[$i] = ); chop($from[$i] = ); chop($href[$i] = ); chop($email[$i] = ); chop($re[$i] = ); chop($replies[$i] = ); # set the reverse-index (id->index) array $index{$id[$i]} = $i; $text[$i] = undef; chop($line = ); do { $text[$i] .= $line . "\n"; chop($line = ); } while(($line !~ /^$separator/) && !eof(DATAFILE)); $i++; } while (!eof(DATAFILE)); $count = $i; $title = $subject[0]; close(DATAFILE); } sub print_topics { open(IN, "date.html"); print while (); close(IN); print <<"---";

Topics

    --- for ($i=0; $i<$cTopics; ++$i) { print "
  1. $titles[$i]
    2. \n"; } print "

"; print "" if ($options{"strong_buttons"}); print "[New Topic]"; print "" if ($options{"strong_buttons"}); print "
"; &print_hr; print ""; } # print_topics sub print_topic { print "\n"; if ($intro) { if ($intro =~ /^file:/) { ($file) = ($intro =~ /^file:(.*)$/); open(FILE, $file); print while (); close(FILE); } else { print $intro . "\n"; print "

\n"; } } else { print "$title\n"; } print STDOUT "

$title

\n"; #introductory message (message #0) if ($text[0]) { &print_basic_headers(0); ($parent_href, $parent) = ($re[0] =~ /(\S*)\s*(.*)/); # if ($re[0]) { # print "In response to: $re[0]
\n"; # } print "

"; print $text[0]; } &print_message_index; if ($options{"view"} == 1) { # should clear this array for ($i=1; $i<$count; ++$i) { $printed[$i] = 0; } for ($i=1; $i<$count; ++$i) { if (!$printed[$i]) { &recursive_print_message($i); } } } else { for ($i = 1; $i < $count; ++$i) { &print_message($i); &print_message_buttons; } } # bottom of page &print_hr; &print_header_buttons; print "\n"; } sub print_message_index { # index # &print_hr; if ($count > 1) { print "

Replies:

\n"; print STDOUT ""; print STDOUT "
    \n"; for ($i = 1; $i < $count; ++$i) { print STDOUT "
  1. $subject[$i]\n"; if ($from[$i]) { print "(by $from[$i])\n"; } } print STDOUT "
\n"; &print_header_buttons; print "

\n"; } else { print "

No replies.

\n"; } } sub print_basic_headers { local($i) = @_; if ($from[$i]) { print "From: "; if ($href[$i]) { print "$from[$i]\n" } else { print "$from[$i]\n"; } if ($email[$i]) { print "($email[$i])\n"; } print "
\n"; } if ($date[$i]) { print "Date: $date[$i]\n"; print "
\n"; } } # print_basic_headers sub print_header_buttons { print "" if ($options{"strong_buttons"}); print "[Back to $parent] "; print "[Reply to $title] "; print "" if ($options{"strong_buttons"}); print "\n"; } sub recursive_print_message { local ($i) = @_; &print_message($i); &print_message_buttons; $printed[$i] = 1; foreach $reply ($replies[$i] =~ /\#(\w+)/g) { next if ($reply == ""); print stderr "Reply $reply\n"; print "
\n"; &recursive_print_message(&lookup_id($reply)); print "
\n"; } } sub print_message { local ($i) = @_; # name the anchor as the horizontal rule print ""; &print_hr; print "\n"; if ($options{"table"}) { print "
\n"; } # header # subject # print "Subject: "; print "$i. "; print "$subject[$i]\n"; print "
\n"; # from, date &print_basic_headers($i); if ($re[$i]) { print "In Reply To: $subject[&lookup_id($re[$i])]\n"; print "
\n"; } if ($replies[$i]) { print "Replies:"; $bat = 0; foreach $reply ($replies[$i] =~ /\#(\w+)\W*/g) { # next if ($reply == ""); if ($bat) { print ", "; } if ($the_index = $index{$reply}) { $the_reply = "#" . $reply; } else { $the_num = "another topic"; $the_reply = $reply; } print " [$the_index]"; $bat = 1; } print "
\n"; } if ($options{"table"}) { print "
\n"; } print "
\n"; print $text[$i] . "\n"; print "

\n"; if ($options{"table"}) { print "

\n"; } } sub print_message_buttons { print "" if ($options{"strong_buttons"}); print "[Reply to this message] "; print "[Return to List of Replies] "; print "

\n"; print "" if ($options{"strong_buttons"}); } sub choose_id { local($id); for ($id = $count+1; $index{$id}; ++$id ) {} return $id; } # appends a reply to an existing message sub append_reply { local($msg, $reply) = @_; # warn "adding reply: $msg $reply"; rename("$topic.data", "$topic.data.bak") && open(IN, "<$topic.data.bak") || die("Couldn't open $topic.data.bak\n"); open(OUT, ">$topic.data") || die("Couldn't open $topic.data\n"); flock(OUT, 2); $count = 0; while ($line = ) { chop($line); if ($line =~ /^$separator/) { $fSep = 1; $id = ""; } elsif ($fSep) { $id = $line; $fSep = 0; } if ($id eq $msg) { $count++; } if ($count == 8) { # replies is the 8th line if ($line ne "") {$line .= " ";} $line .= $reply; $count = 0; } print OUT $line . "\n"; } flock(OUT, 8); close(IN); close(OUT); unlink("$topic.data.bak"); } # new_reply # print the form for adding a reply sub new_reply { $re = $input{"re"}; if($re) { $re_id = $re; $re_id =~ s/^#//; $subj = $subject[$index{$re_id}]; if ($subj !~ /^Re:/) { $subject = "Re: " . $subj; } else { $subject = $subj; } } # reply -> send a form print <<"---END FORM---"; Reply to $title

Reply to $title

Original message:

$text[$index{$re_id}]

Your reply:

Your name:
Your home page URL: (optional)
Your email address: (optional)
Subject:
Enter your reply below: (Separate paragraphs with blank lines. You can use HTML codes too!)

[Return to $title] ---END FORM--- } # new_reply sub add_reply { # input $id = &choose_id; $subject = $input{"subject"}; chop($date = &ctime(time)); $from = $input{"from"}; $href = $input{"href"}; $email = $input{"email"}; $re = $input{"re"}; $body = $input{"body"}; &write_reply($id, $subject, $date, $from, $href, $email, $re, $body); } # add_reply sub write_reply { local($id, $subject, $date, $from, $href, $email, $re, $body) = @_; $body = &parse_body($body); # output open(OUT, ">>$topic.data") || die "Couldn't open $topic.data for writing\n"; flock(OUT, 2); # if ($id != 0) { print OUT $separator ."\n"; # } print OUT $id ."\n"; print OUT $subject ."\n"; print OUT $date ."\n"; print OUT $from ."\n"; print OUT $href ."\n"; print OUT $email ."\n"; print OUT $re ."\n"; print OUT "\n"; # no replies print OUT $body; print OUT "\n\n"; flock(OUT, 8); close(OUT); if ($re) { if ($re =~ /^#/) { $re =~ s/^#//; &append_reply($re, "#" . $id); } else { # replies to other topics not yet implemented } } } # write_reply # new_topic # print the form for adding a topic sub new_topic { print <<"---END"; New Topic

New Topic

Your name:
Your home page URL: (optional)
Your email address: (optional)
Topic:
Enter your message below: (use HTML codes to format)

[Return to topic list] ---END } # new_topic sub add_topic { $subject = $input{"subject"}; $topic = $subject; $topic = &choose_topic_name($topic); open(TOPICS, ">>$topics"); print TOPICS "$topic\t$subject\n"; close(TOPICS); chop($date = &ctime(time)); $from = $input{"from"}; $href = $input{"href"}; $email = $input{"email"}; $re = $url ."\tBlind Date Page"; $body = $input{"body"}; &write_reply(0, $subject, $date, $from, $href, $email, $re, $body); } sub choose_topic_name { local($topic) = @_; $name = $topic; $name =~ tr/A-Z/a-z/; $name =~ s/^(\w{1,8}).*/$1/; # up to 8 chars $tag = ($name =~ /\d*$/); while (-e $name . ".data") { $tag++; # print STDERR $tag . "\n"; $name =~ s/\d*$/$tag/; } return $name; } sub lookup_id { local ($id) = @_; return $index{$id}; } sub print_hr { if ($size = $options{"msg_hr_size"}) { print "

\n"; } else { print "
\n"; } } sub parse_body { local ($body) = @_; $body =~ s/\r//g; $body =~ s/^($separator)/ $1/g; $body =~ s/\n{2,}/\n

\n/g; return $body; }