#!/usr/bin/perl

# Jestapher's Journal Code v .1 beta - Mar 24, 2001
# Copyright 2001 Ben Livingston <ben at oblivion dot net>
# Released under the GNU General Public License Version 2
# Viewable online at http://www.gnu.org/copyleft/gpl.html

# Intended to be called with SSI or something else that
# wraps a header and footer around it.

$user = "jest";

##### SET NUMBER
$highnumber = 342;

$number = $highnumber;
if ($ENV{'QUERY_STRING'}) { $number = $ENV{'QUERY_STRING'}; }
if ($number =~ /=/) { $number = $'; }

if (($number <= $highnumber) && ($number =~ /(^\d+$)|(^(\d+)-(\d+)$)/)) {

##### GET PREFIX, IF RESPONSE
  if ($3) { $number = $3; }

##### GET DIRECTORY
  if (length($number) == 3) { $directory = substr($number,0,1); }
  else { $directory = 0; }

##### JUMP TO TABLE
print <<"END_OF_OUTPUT";
<TABLE CELLPADDING="1" CELLSPACING="0" BORDER=0" ALIGN="right">
 <TR><TD BGCOLOR="#000000">
   <TABLE CELLPADDING="0" CELLSPACING="0" BORDER="0">
    <TR><TD BGCOLOR="#FFFFEE">
<FORM METHOD="GET" ACTION="/~$user/journal/">
<P><FONT FACE="Verdana, Arial" SIZE="-1">&nbsp;jump to
#<INPUT TYPE="text" NAME="" SIZE="3" MAXLENGTH="3"><INPUT TYPE="image" SRC="/~$user/images/blank.gif" HEIGHT="1" WIDTH="1" ALT="go!" BORDER="0"><BR>
<FONT COLOR="#FF8080">&nbsp;valid #'s: 1-$highnumber&nbsp;</FONT>
</FORM>
<CENTER>
END_OF_OUTPUT

  unless ($number < 2) { print "&nbsp;<A HREF=\"\/~$user\/journal\/?", $number-1, "\">&lt;&lt;<\/A>"; }
  print "&nbsp;<A HREF=\"\/~$user\/journal\/?$number\">$number<\/A>&nbsp;";
  unless ($number >= $highnumber) { print "<A HREF=\"\/~$user\/journal\/?", $number+1, "\">&gt;&gt;<\/A>&nbsp;"; }
  print "<\/CENTER><\/FONT>\n      <\/TD><\/TR><\/TABLE>\n   <\/TD><\/TR><\/TABLE>\n";

##### GET FILENAME
  if ($4) {
    $filename = "/home/$user/public_html/journal/$directory\/$number-$4";
    $suffix = $4;
    print "<P>Response #$4 to entry #$number<\/P>\n";
  }
  else {
    $filename = "/home/$user/public_html/journal/$directory\/$number";
    print "<P>Entry #$number<\/P>\n";
  }

##### OUTPUT
  open(OUTPUT,"$filename");
  print <OUTPUT>;
  close(OUTPUT);

  &response;
  print "<P><A HREF=\"/~$user/feedback.cgi?journal=$number\">Respond to this entry<\/A></P>\n";
}
else { print '<P>Query string is invalid.</P>'; }

sub response {
  opendir DATA, "/home/$user/public_html/journal/$directory";
  @responses = readdir(DATA);
  foreach $response (@responses) {
    if (($response =~ /(\Q$number\E)-(\d+)/) && ($response !~ /-\Q$suffix\E$/)) {
      print "<A HREF=\"\/~$user/journal/\?$1-$2\">Response #$2<\/A><BR>\n";
    }
  }
  closedir(DATA);
}