#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
use CGI::Carp qw(fatalsToBrowser);
#use strict;
use CGI;
my $q = new CGI;
my @exp = $q->param("explorer");
my $hoursworked = $q->param("hrswrked");
my $name = $q->param("name");
my $num = @exp;
(my $sec,my $min,my $hour,my $mday,my $mon,my $year,my $wday,my $yday,my $isdst)=localtime(time);
my $month = $mon+1;
my $year1 = $year+1900;
my $date = "$month\/$mday\/$year1";
my @months = qw(January February March April May June July August September October November December);
if ($q->param("submit")) {
if (($hoursworked eq "") || ($num == 0)) {
print <<"PrintTag";
Insufficient information
Insufficient information
The following field(s) were empty:
PrintTag
if ($hoursworked eq "") {
print "
Hours Worked
";
}
if ($num == 0) {
print "
Explorers
";
}
print <<"PrintTag";
Please click the \'Back\' button on your browser to try again
PrintTag
exit;
}
@exp = sort(@exp);
@date = split(/\//, $date);
$month = shift(@date);
$month--;
$month = @months[$month];
open(DATA, ">>/host/n/b/p/p/o/r/nbpdexplorers.port5.com/cgi-bin/data2.txt") or die "Cannot open database file: $!";
flock(DATA, 2);
print DATA "$month\+$exp[0]";
print DATA "\+$exp[1]" if exists $exp[1];
#print DATA "\+$exp[2]" if exists $exp[2];
#print DATA "\+$exp[3]" if exists $exp[3];
#print DATA "\+$exp[4]" if exists $exp[4];
#print DATA "\+$exp[5]" if exists $exp[5];
#print DATA "\+$exp[6]" if exists $exp[6];
#print DATA "\+$exp[7]" if exists $exp[7];
#print DATA "\+$exp[8]" if exists $exp[8];
#print DATA "\+$exp[9]" if exists $exp[9];
#print DATA "\+$exp[10]" if exists $exp[10];
#print DATA "\+$exp[11]" if exists $exp[11];
print DATA "\+$hoursworked\n";
}
flock(DATA, 8);
close(DATA);
}
print <<"PrintTag";
Record Accepted
Request Add Record Accepted
To check hours worked status or to edit explorer listing, click here