#!/usr/bin/perl
#
#Created by: Ray Love
#Modified by: Keith DeConto
#Date: Jan. 12, 2001

use DBI;
use CGI qw(:all);
require "config.cfg";

print "Content-Type: text/html\n\n";

open(HTMLPAGE, "BookSeats.html");
while($line = <HTMLPAGE>){
  $line =~ s/Booking//g;
  $line =~ s/~fileNum~/$fileNum/g;
  print $line;
}
close HTMLPAGE;
exit;