#!/usr/bin/perl -w #-------------------------------------------------------------------------- # This PERL Script is Copyright 2000 # by KitchenMedia - Holden Richards # Unauthorized reuse of this script is # punishable by applicable laws. #-------------------------------------------------------------------------- print "Content-type: text/html\n\n"; print "\n"; print "\n"; print "\n"; print "The Top Ten\: Writers Pick Their Favorite Books\n"; print " \n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "

\n"; print "Here are the last 20 top ten lists posted:\n"; print "

\n"; $count = 0; $datafile = "topten.data"; #----------------------------------------- # Sort the dataset in reverse #----------------------------------------- @temp = (); # first pass: read the file into memory open(i,"<$datafile") || die "Can't open $_ "; while (!eof(i)) { $line = ; my @test=split(/\|/,$line); $date=@test[22]; my @test99=split(/\//,$date); $month=@test99[0]; $day=@test99[1]; $year=@test99[2]; push @temp, $year.$month.$day."^".$line; } close(i); #------------------------------------------ @listsort = sort (@temp); @listsort2 = reverse (@listsort); #------------------------------------------ foreach (@listsort2) { $line = $_; if ($count < 21) { $count = $count +1; my @test=split(/\|/,$line); $key=@test[0]; $username=@test[1]; $number_one=@test[2]; $number_two=@test[3]; $number_three=@test[4]; $number_four=@test[5]; $number_five=@test[6]; $number_six=@test[7]; $number_seven=@test[8]; $number_eight=@test[9]; $number_nine=@test[10]; $number_ten=@test[11]; $author_one=@test[12]; $author_two=@test[13]; $author_three=@test[14]; $author_four=@test[15]; $author_five=@test[16]; $author_six=@test[17]; $author_seven=@test[18]; $author_eight=@test[19]; $author_nine=@test[20]; $author_ten=@test[21]; $date=@test[22]; if ($line =~ m@([0-9a-zA-Z])@g ) { print "

\n"; print "From $username submitted $date\n"; print "

    \n"; print "
  1. $number_one by $author_one\n"; print "
  2. $number_two by $author_two\n"; print "
  3. $number_three by $author_three\n"; print "
  4. $number_four by $author_four\n"; print "
  5. $number_five by $author_five\n"; print "
  6. $number_six by $author_six\n"; print "
  7. $number_seven by $author_seven\n"; print "
  8. $number_eight by $author_eight\n"; print "
  9. $number_nine by $author_nine\n"; print "
  10. $number_ten by $author_ten\n"; print "
\n"; } } } close(z); print "

\n"; print "See All previously posted lists\n"; print "

\n"; print "See Editor J. Peder Zane's Top Ten List\n"; print "

\n"; print "See some statistics\n"; print "

\n"; print "

\n"; print "


\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; print "		\n"; print "
\n"; print "
\n"; print "\n"; print "\n"; print "

\n"; print "
\n"; print "
\n"; print "
\n"; print "\n"; print "
\n"; print "
\n"; print "
\n"; print "\[ Back to Home \]\n"; print "
\n"; print "All Material Copyright ©\; Not for use without permission \n"; print "
\n"; print "

\n"; print "
\n"; print "\n"; print "\"buy\n"; print "\"about\n"; print "\"your\n"; print "\"about\n"; print "\"the\n"; print "\"for\n"; print "\n"; print "\n"; print "\n"; print "\n"; exit;