#!/usr/bin/perl5
#Copyright 1995-1997, Timothy J. Turner

require "lib.pl";
require "setup.pl";
&setup;

$DEBUG=1;  # 1 = enable debugging; 0 = disable debugging
$TO="tturner\@da.awa.com";
$PATH="/usr/local/etc/httpd/htdocs/tt/bltest";
$LOGFILE1="$PATH/initial.log";
$LOGFILE2="$PATH/feedback.log";
$EMAILFILE1="$PATH/initial.email"; #Compose an e-mail only list
$EMAILFILE2="$PATH/feedback.email"; #Compose an e-mail only list
$SENDMAIL="/usr/lib/sendmail";
$URLRETURN="http://www.torrid-tech.com/";
$URLNAME="Home Page";
$SUBHEAD="<RETIRE2> "; #Don't forget to leave that space at the end of the string

$message = "";

#push(@INC,"/usr/local/etc/httpd/cgi-bin");
#require("cgi-lib.pl");

&ReadParse;
print &PrintHeader; # prints HTML MIME type header

$case = $in{'case'};
$HTML_info{NAME}="";
$HTML_info{COMPANY}="";
$HTML_info{ADDRESS}="";
$HTML_info{EMAIL}="";
$HTML_info{PHONE}="";
$HTML_info{MESSAGE}="";
#$HTML_info{POST_ACTION}="download.cgi";
$HTML_info{LEFT_WIDTH}="35%";
$HTML_info{RIGHT_WIDTH}="40%";
$HTML_info{NUM_COLUMNS}="50";

if ($case eq "") {
	$_= $ENV{HTTP_REFERER};
	#&logit("index.cgi, initial entry, referer=<$_>");
	# this won't work because search engines use
	# the domain name in the referer search page sometimes
	#if (/torrid/) {
		# don't log it
	#} else {
		&log_referer; # log where they came from!!!
	#}
	&gen_main;
} else {
	&gen_other;
}


sub gen_main {

	$HTML_info{PAGE_TITLE}="Torrid Technologies: Financial Software"; 
	#$HTML_info{POST_ACTION}="download.cgi";
	&track_em;
	$HTML_info{CASE}="main";
	#&build_html_page("headmain");
	&build_html_page("main");
	#&build_html_page("foot");
	# &pagehit("noad","Retire2 Main Page");
}

sub gen_other {

#&logit("gen_other: case= $case");
	$HTML_info{PAGE_TITLE}="Torrid Technologies: $case"; 
	#$HTML_info{POST_ACTION}="download.cgi";
	$HTML_info{CASE}="$case";
	&build_html_page("headmain");
	&build_html_page("$case");
	&build_html_page("foot");
	# &pagehit("noad","Retire2 $case Page");
}