#!/usr/bin/perl 

use CGI qw/:standard/;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

print header;
my $headerString = "";
open(HEADER, "myhead.shtml");
while(<HEADER>) {
	$headerString .= $_;
}
close(HEADER);

my $cslBannerString = "";
open CSLHEADER, "/Network/Servers/dna.cs.byu.edu/Volumes/home/httpd/html/cslBanner.inc";
while (<CSLHEADER>){
	$cslBannerString .= $_;
}
close CSLHEADER;

$headerString =~ s/<!--#include virtual="\/cslBanner\.inc" -->/$cslBannerString/;
print $headerString;

my $version_str = "3.0.2";

print "<title>Download</title><div class='feature'>";
      print start_form,
	h3("Download GNUMAP"),
	  h2("Provide your name and email address to download the latest software (Version $version_str)."),p,
	  "<em>Note:  This information is only used for tracking purposes.<br>",
	  "<em>If you would like to be added to the <tt>GNUMAP</tt> users group, ",
	  "visit the group page at the <a href='http://groups.google.com/group/gnumap-users/'>",
	  "Google groups page</a>.</em><p><p>",
	  "Name: &nbsp;",textfield('uname'),p,
	  "Email Address:  &nbsp;",textfield('email'),p,

	  submit(-name=>'submit',
	  		 -value=>'Submit',
			 -title=>'Submit name and email address for download'),br,
	  end_form,
	  "\n";

if(param('submit')) {
	if(!(param('uname') && param('email'))) {
		print "<hr><h5>Please provide a valid Name and Email Address</h5>";
	}
	else {
		if(!(param('email') =~ /\S+@\S+\.\S+/)) {
			print "<hr><h5>Please provide a valid Email Address</h5>";
			exit;
		}

		my $name = param('uname');
		my $email = param('email');
		
		#system("date >> /home/httpd/html/gnumap/users.txt; echo date.\"  $name, $email\" >> /home/httpd/html/gnumap/users.txt");
		#open(USERS,">>/home/httpd/html/gnumap/users.txt") or print "Could not open users.txt file";
		#my $date = `date`;
		#print USERS "$date\t$name\t$email\n";
		#close(USERS);
		system("echo \"`date`, $name, $email\" >> /home/httpd/html/gnumap/users.txt");
		print "<hr>Thank you.  Please click <a href=\'gnumap-$version_str.tgz\'>here</a> to download Version $version_str",p;
	}
}

print end_html;
#open(FOOTER, "mycgifoot.txt");
#while(<FOOTER>) {
#	print $_;
#}
#close(FOOTER);