#!/usr/bin/perl
########################################
## INITIALIZE CGI ######################
########################################
use lib qw(.);
use CGI;
use CGI::Carp qw(fatalsToBrowser);
$cgi = new CGI;
########################################
## MAIN ################################
########################################
$DATAFILE = "hitcount-sendtoevery.txt";
$WEBPAGE_INITIALIZE = "";
$val = 0;
open(RECORD, "$DATAFILE") or error_page_exit("Could not open datafile");
$val = $_;
close(RECORD);
$val++;
open(RECORD, ">$DATAFILE") or error_page_exit("Could not open datafile");
print(RECORD, $val);
close(RECORD);
print $cgi->header();
print $WEBPAGE_INITIALIZE;
print "Your download will begin automatically...(not working yet!)";
print $WEBPAGE_SHUTDOWN;
########################################
## EXIT ################################
########################################
exit;
########################################
## ERROR ###############################
########################################
sub error_page_exit
{
print $cgi->header();
print $WEBPAGE_INITIALIZE;
print "ERROR - Reason: ";
print shift;
print $WEBPAGE_SHUTDOWN;
exit;
}
########################################
## END OF FILE #########################
########################################