|
Read
|
#!/usr/bin/perl -Tw
#####################################
# Script by Joseph W. Guillaume #
# All Rights Reserved #
# Last updated June 2, 2005 #
#####################################
use strict;
use CGI qw(:standard);
print "Content-Type: text/html\n\n";
print '<body bgcolor="cccccc">';
#####################################
my $employee =param('employee_name');
my $extra_email =param('extra_email');
my $certification =param('certification');
my $month =param('month');
my @month ="";
my $day =param('day');
my $year =param('year');
my $mo_yr =param('mo_yr');
my @data =();
my $data;
my $lines;
my $number;
my $i;
my @mon = qw (January Feburary March April May June July August September October November December);
#####################################
# Read File #
#####################################
print '<table width="600" border="0" cellspacing="0" cellpadding="0" height="100"><tr><td></td><td></td><td></td></tr><tr><td></td><td></td><td></td></tr><tr><td></td><td></td><td></td></tr></table>';
print "Employee <b> $employee </b>";
open(JOE, "<Files/$employee.txt")or die "No can!";
@data = <JOE>;
close (JOE);
#####################################
# Print File #
#####################################
$lines=scalar@data/6;
if ($lines <= 0) {
print 'has no records at this time.';
}
print "<p\/><hr><p\/>";
while ($lines >=1) {
$certification = shift(@data);
print "Certification is $certification on ";
my $number = shift (@data);
$month = $mon [$number-1];
print "$month";
$day = shift (@data);
print " $day,";
$year = shift(@data);
print " $year";
$mo_yr = shift(@data);
#print " $mo_yr";
print "<p\/><HR>";
$lines--;
}
#####################################
print '<div align="center"><table width="120" border="1" cellspacing="2" cellpadding="0"><tr><td align="center">To go Back</td></tr><tr><td align="center"><a href="http://hawaiicivilmarriage.com/FFD/index.html">Click Here</a></td></tr></table><p></p></div>';
print '</body>';
#####################################
exit;