#!/usr/local/bin/perl

require "./ReadParse.pl" || die "error loading ReadParse.pl\n";

ReadData();
writeData();
ReadFromFile();


sub ReadData() {
my (%in);
# ReadParse returns an associative array of key-value pairs:
%in = ReadParse();
$fname = $in{'fname'};
$mname = $in{'mname'};
$lname = $in{'lname'};
$ssn = $in{'ssn'};
$dept = $in{'dept'};
$street= $in{'street'};
$city = $in{'city'};
$state = $in{'state'};
$zip = $in{'zip'};
$filename = $in{'filename'}; 
return 1;
}

sub writeData() {

$file = "./tmp/".$filename;
open(W,">>$file") || die "Cannot open file \n";
print W "=======================\n";
print W "fname=$fname\n";
print W "mname=$mname\n";
print W "lname=$lname\n";
print W "ssn=$ssn\n";
print W "dept=$dept\n";
print W "street=$street\n";
print W "city=$city\n";
print W "state=$state\n";
print W "zip=$zip\n";
close(W);
}

sub ReadFromFile() {

print "Content-type: text/html \n\n";

print "The values have been entered to the file \"$filename \" \n";
print "
 Please <a href=\"/cps606fall98-docs/cu98xqi/assgn1/read.html\">click here to read the values from the file. Use the filename given above.  \n 
 ";
}