Verses from "The Lord of the Rings" by J.R.R.Tolkien

[Picture of the Ring]

The picture above comes from the game "The Lord of The Rings" by Interplay.

#!/usr/bin/perl -w

  
use CGI::Pretty qw/:standard/;
use strict;
  
my $css = <);
my $content;
my $number;

if(param() && defined param('fn')) {
  $number = param('fn');
}

if(defined $number)
{
  $number = $#names if $number<0;
  $number = 0 if $number > $#names;
  open FILE, $path . $names[$number];
  my @lines = ;
  close FILE;
  $content = h2(shift @lines) . pre(join("",@lines)) .
  hr() .
  div({-id=>"menu"},
    a({-href=>url(-full=>1)."?fn=".($number-1)}, 'Previous') .
    a({-href=>url(-full=>1)}, 'Index') .
    a({-href=>url(-full=>1)."?fn=".($number+1)}, 'Next')
  );
}
else # no args - show index
{
  $content = ul(li([
     map {
      my $name = $names[$_];
      $name =~ tr/_/ /; 
      a({-href=>url(-full=>1)."?fn=".$_},$name)
     } 0..$#names
  ])),
}

print 
  header(-type => 'text/html', -charset => 'iso-8859-1'), 
  start_html(-title=>'Verses from "The Lord of the Rings" by J.R.R.Tolkien',
             -author=>'szymon@uci.agh.edu.pl',
             -style=>{'code'=>$css},
             -xbase=>"http://home.agh.edu.pl/szymon/",
             -head=>Link({-rel=>'SHORTCUT ICON', -href=>'favicon.ico'})
            ),
  h1('Verses from "The Lord of the Rings" by '.
     a({-href=>"http://www.tolkiensociety.org/"},"J.R.R.Tolkien")),
       img({-src=>"obrazki/tolkien-ring.gif", -alt=>"[Picture of the Ring]"}),
  p({-style=>"font-size: x-small;"}, "The picture above comes from the game",
  a({-href=>"http://www.lysator.liu.se/tolkien-games/entry/lotr1.html"},
    '"The Lord of The Rings"'),
    "by Interplay."),
  $content,
  hr(),
  address(
  a({-href=>"http://validator.w3.org/check/referer"},
    img({-src=>"http://www.w3.org/Icons/valid-xhtml10",
         -alt=>"Valid XHTML 1.0!",-style=>"height:31px;width:88px"})),
    a({-href=>"http://home.agh.edu.pl/szymon/"},
    'Szymon Sokol 
<szymon@uci.agh.edu.pl>'),',
17.08.94, last modified 14.04.2005'),
  end_html();
# ;-)


Valid XHTML 1.0! Szymon Sokol <szymon@uci.agh.edu.pl> , 17.08.94, last modified 14.04.2005