#!/usr/bin/perl

#oppsett
$HTML_FILE="doors.html";
$QUOTE_FILE="sitater.txt";

#skriv begynnelsen
&print_header;

#skriv sitatet
&print_qoute;

#skriv slutten
&print_footer;

sub print_header
{  print("Content-type:text/html\n\n");
   open(INFILE, $HTML_FILE);
   $hline= <INFILE>;

   while($hline ne "<!QUOTE GOES HERE!>\n")
   {print($hline);
    $hline= <INFILE>;
   }
}

sub print_qoute
{ open(FILE1, $QUOTE_FILE);
  $antall = <FILE1>;
  chop($antall);
  srand(time ^ $$);
  $randnum = int(rand($antall))+1; #et tilfeldig nummer fra 1 til antall


  # hopp nedover i fila til riktig sitat
  for($teller = 0; $teller < $randnum; $teller++)
  {  $line = <FILE1>;
     until($line eq "#SITAT\n"){ $line = <FILE1>;}
  }

  # skriv sitatet til web-browseren
  print("<BLOCKQUOTE>\n");
  $line = <FILE1>;
  until($line eq "#SITAT\n")
  { print("$line<BR>\n");
    $line = <FILE1>;
  }
  print("</BLOCKQUOTE>\n");
  close(FILE1);
}

sub print_footer
{  $hline= <INFILE>;

   until($hline eq "</HTML>\n") 
   {print($hline);
    $hline= <INFILE>;
   }
   print($hline);
   close(INFILE);

}