#!/usr/bin/perl

require "admin/cgi-lib.cgi";
# This should match the mail program on system.
$mailprog = '/usr/lib/sendmail';

# These should be set to the proper constants

$siteowner= "Paul Inniss";
$siteowneremail = "paul\@islandtreasure.com";          #The site owner email
$phonenumber = "246\-419\-0189";                    #The site owner phone number
$websitename = "Bajan Treasure";
$websitecompany = "Bajan Treasure";                #The name of the business
$websiteurl = "http://www.islandtreasure.com/";         #The URL of the site
$websitedomain = "islandtreasure.com";
$webdesign = "SUNNY OASIS";                         #The designer of the pages
$webdesignurl = "http://www.sunnyoasis.com/"; #The URL of the designer
$webdesignemail = "sitedesign\&\#64islandtreasure.com";      #The site designer email
$webmaster = "webmaster\@islandtreasure.com";          #The webmaster email

  # Read in all the variables set by the form
  &ReadParse(*input);

  # Print the header
  #print &PrintHeader;

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

#===============================================================================
# Strip nonprintables except for spaces
# Make sure no illegal characters (',' '\n') are in fields
while (($key,$value) = each %input) {
	$input{$key} =~ tr/\000-\037\177-\377//d;
	$input{$key} =~ s/\054/\046\043\064\064\073/g;  # Replace commas (\054) with &#44 (\046\043\064\064\073)
	#$input{$key} =~ s/\047/\046\043\063\071\073/g;  # Replace apostrophes (\047) with &#39 (\046\043\063\071\073)
	$input{$key} =~ s/~!/ ~!/g;
	$input{$key} =~ s/ARGV//g;
	# $input{'bcity'} =~ tr/([a-zA-Z])(.*)$/(A-Z)(.*)/;
}
$input{'bname'} =~ s/\137/\040/g; #Replace underscores with spaces
$input{'bname'} =~ s/\053/\046/g; # Replace + characters with & character
#===============================================================================
# Print standard stuff to browser
open (FILETOP, "contactuscgi.html") || die print "Can't open FILETOP";
while (<FILETOP>) {
		s/"/\\"/g;
		print eval qq/"$_"/;
}
close FILETOP;

#============================================
exit;