|
Reset
|
#!/usr/bin/perl -w
#####################################
# Script by Joseph W. Guillaume #
# All Rights Reserved #
#####################################
use strict;
use CGI qw(:standard);
print "Content-Type: text/html\n\n";
print '<body bgcolor="cccccc">';
#####################################
my $employee =param('employee_name');
my $date =();
#####################################
# Write File #
#####################################
$date = scalar(localtime(time));
print "The record of <B>$employee</B> has been succesfully cleared on $date<p\/>";
open(JOE, ">Files/$employee.txt");
close (JOE);
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://127.0.0.1/FFD_folder/index.html">Click Here</a></td></tr></table><p></p></div>'; Note: This is the localhost URL
print '</body';
#####################################
exit;