#!/usr/bin/perl
#
# File:		journals.cgi
# Purpose:	Provide index & links to journals files
# Author:	Neal Haggard
# History:	2/21/1999 - Created - NH (based on sessions.cgi)
#

use CGI qw(:standard);

$fontface = "Verdana";
$fontsize = 3;
$intro_text = <<END;
<P>
The following are excerpts from the journals of the individual party members.
They are incomplete, despite this chronicler's best efforts, but they should
give some glimpse into the individual's perspective of the 
<a href="../sessions">events</a> as they took place.
</p>
END

journal_index( param( 'journal' ) );

sub journal_index()
{
   ($journal) = @_;

   print header();

   if( $journal )
   {
      $ucjournal = ucfirst $journal;
      $title = $ucjournal . "'s Journal Index";
   }
   else
   {
      $title = "Campaign Journals";
   }

   print start_html( -title=>$title,
         -background=>"../images/background/parc1.jpg",
         -bgcolor=>"#F4E5C0", -text=>"#8A441D", -alink=>"#0000FF",
         -vlink=>"#441F0B", -link=>"#441F0B" );

   print <<END;
<link rel="stylesheet" href="../links.css" type="text/css" />
<script type="text/javascript" language="JavaScript">

<!-- //
        if (document.all) {
                document.body.onmouseover=highlightText;
                document.body.onmouseout=returnColor;
        }

            function highlightText() {
            src = event.toElement;
                if (src.tagName == "A") {
                src.oldColor = src.style.color;
                src.style.color = "0000FF";
                }
            }

            function returnColor() {
                src=event.fromElement;
                if (src.tagName == "A") {
                    src.style.color = src.oldColor;
                }
            }

//      if (document.layers) layerPointer = document.layers["layerName"];
//  if (document.all) layerPointer = document.all["layerName"].style;

//-->

</script>
END


   print "<CENTER>\n", begin_font(2), "$title</FONT>\n</CENTER>\n";

   unless( $journal )
   {
      @journals = <*>;

      print begin_font(), "$intro_text</FONT>";

      print "<ul>\n";
      foreach $journal (@journals)
      {
         if( -d $journal )
         {
            $ucjournal = ucfirst $journal;

            if( $ucjournal =~ /s$/ )
            {
               $poss = "'";
            }
            else
            {
               $poss = "'s";
            }
   
            print "<li>", begin_font(), 
             "<a href=\"journal.cgi?journal=$journal\">$ucjournal",
             "$poss Journal</a><br>\n";
         }
      }
      print "<li>", begin_font(), 
       "<A HREF=\"http://mirok.invite.net/mazyfum_journal.htm\"",
       " target=\"_top\">Mazyfum's Journal</a>\n";

      print end_html;
      exit;
   }


   @files = <$journal/*.html>;


   foreach $file (@files)
   {
      if( $file !~ /entry(\d+)\.html/ )
      {
         next;
      }

      $entry = $1 - 0;

      push( @entries, $entry );
      $files{$entry} = $file;
   }

   @entries = sort int_sort @entries;

   foreach $entry (@entries)
   {
      $file = $files{$entry};

      $out = entry_string( $file );
      $outstr .= "<!-- $file: $out -->";

      if( $out ne "" )
      {
         $outstr .= "<TR>\n  <TD>" . begin_font() . $out 
          . "</FONT></TD>\n</TR>\n";
      }
   }

   print begin_font(), "<BR>";
   print "Latest $out\n";
   print "</FONT>\n";

   print "<BR>\n<BR>\n<TABLE>\n", $outstr;
   print "</TABLE>\n</CENTER>\n", end_html();
}


sub begin_font( ;$ )
{
   my( $add ) = @_;

   if( $add eq "" )
   {
      $add = 0;
   }

   return "<FONT FACE='$fontface' SIZE='" . ($fontsize + $add ) .  "'>";
}

sub int_sort()
{
   $a > $b;
}

sub entry_string()
{
   ($file) = @_;

   open( INFILE, $file );

   @lines = <INFILE>;

   close( INFILE );

   $found = 0;
   foreach $line (@lines)
   {
      if( $line =~ /<title>/i )
      {
         $title = $line;
         $title =~ s/<title>(.*)<\/title>/$1/ig;
         #print "<!-- found a title \"$title\"-->\n";
         $found = 1;
         last;
      }
   }

   if( $found )
   {
      return( "Entry $entry: <A HREF=\"$file\">$title</A>" );
   }
   else
   {
      return "";
   }
}