#!/usr/bin/perl5
# $Id: tourintro.cgi,v 1.1 1994/04/18 14:48:00 root Exp $
#
# get tourintro.cgi
# $Log: tourintro.cgi $

require('getopts.pl') || die "can\'t do getopts.pl: $@";
#require('sys/file.ph') || die "can\'t do sys/file.ph: $@";

print &PrintHeader; #mln
printf ("<pre>\n");
open (INTRO, "tourintro.txt")|| &Error( "Can't open file !" );
while (<INTRO>)
  {
  if (index ($_, "http:") >= 0)  # is there an http in this one?
    {
    s/(http:)([^ ]+)(.*)/\<a href="$1$2"\>$2\<\/a\>$3/g;
    }
  print "$_";
  }
close (INTRO);
printf ("</pre>\n");
sub PrintHeader {
  return "Content-type: text/html\n\n";
}