#!/usr/local/bin/perl -w # CS2734submit.cgi # Get submission of webpage and preferred email address. use strict; use CGI qw( :standard ); use Fcntl qw( :flock ); # main parameters for the program my $infile = "CS2734classweb.html"; my $outfile = "CS2734classweb2.html"; my $passwd = "password"; my $course = "CS 2734"; my $bookimage = "http://www.cs.utsa.edu/~wagner/CS2734/patterson.gif"; my $name = param("name"); my $email = param("email"); my $webpage = param("webpage"); my $password = param("password"); my $line; my $entered; my $oldname; my $sec; my $min; my $hour; my $mday; my $mon; my $year; print header(), start_html('Submit E-mail Address and Webpage'); print ""; print "

"; print ""; print "".$course." Spring 2002
"; print "Update Student Data

"; print "Directions:

Enter your preferred e-mail address or your wegpage URL or both here."; print "
Use a duplicate name for updates."; print "
Use a duplicate name with empty fields to delete."; print "
Click to go back to the list of student web pages: here."; print "

"; print start_form(); print "

"; print ""; print ""; print ""; print ""; print "

*Your name in the form: \"Last, First\"* "; print "	"; print textfield("name"); print "	(required)
Your preferred e-mail address "; print "	"; print textfield("email"); print "	(this or the next required)
The URL of your webpage "; print "	"; print textfield("webpage"); print "	(this or the previous required)
*The password (now it is: \"password\")* "; print "	"; print textfield("password"); print "	(required)
Push the submit button "; print "	"; print submit("Submit entry"); print "	(required)

"; print end_form(); print "Actions Taken:

"; print "

ERROR: Wrong password.
"; } elsif ($name eq "" && ($email ne "" || $webpage ne "" || $password ne "")) { print "
ERROR: Must enter name
"; } elsif ($password eq $passwd) { print "
Password accepted
"; print ("
Full name submitted: ".$name."
") if $name; print ("
Preferred e-mail address submitted: ".$email."
") if $email; print ("
Webpage URL submitted: ".$webpage."
") if $webpage; # now start copying and searching ... open(INFILE, "/home/wagner/public_html/cgi-bin/".$infile) || die "Unable to open file for input: $!"; $line = ; open(OUTFILE, "> /home/wagner/public_html/cgi-bin/".$outfile) || die "Unable to open file for output: $!"; flock(OUTFILE, LOCK_EX) || die "Unable to get exclusive lock: $!"; print OUTFILE $line; # all preliminary stuff in first line $line = ; # fetch next line $_ = $line; # here is the next line if ( /^<\/ol>.*/ ) { # check for file with no data lines if ($webpage ne "" || $email ne "") { # add new entry to file with no data lines print p( b('
Add entry to empty file') ); print OUTFILE "
"; print OUTFILE $name; print OUTFILE "
Webpage: "; print OUTFILE $webpage; print OUTFILE "
Email: "; print OUTFILE $email; print OUTFILE "
\n"; $line = ; # print last line to OUTFILE print $line; } } else { # handle files with at least one data line $entered = 0; do { if ( /^
(.*)<\/b>(.*)\n/ ) { # retrieve name from dataline $oldname = $1; } if ($oldname eq $name) { if ($webpage ne "" || $email ne "") { # replace entry print p( b('
Replace existing entry') ); print OUTFILE "
"; print OUTFILE $name; print OUTFILE "
Webpage: "; print OUTFILE $webpage; print OUTFILE "
Email: "; print OUTFILE $email; print OUTFILE "
\n"; # here replacing; DO NOT copy $_ to OUTFILE $entered = 1; } # otherwise empty webpage and email, so delete else { print p( b('
Delete existing entry:', $name) ); $entered = 1; } } elsif ($oldname lt $name) { # just copy entry print OUTFILE $_; } elsif ($oldname gt $name) { # just add the first time as new entry, before the current one if ($entered == 0) { if ($webpage ne "" || $email ne "") { print p( b('
Add as new entry:'), $name ); print OUTFILE "
"; print OUTFILE $name; print OUTFILE "
Webpage: "; print OUTFILE $webpage; print OUTFILE "
Email: "; print OUTFILE $email; print OUTFILE "
\n"; $entered = 1; } #else { # print p( b('
Error: must have either webpage or email') ); #} } # now the current entry print OUTFILE $_; } $line = ; $_ = $line; } until ( /^<\/ol>.*/ ); # end of do if ($entered == 0) { # must insert at the end if ($webpage ne "" || $email ne "") { print p( b('
Add as new entry at the end:'), $name ); print OUTFILE "
"; print OUTFILE $name; print OUTFILE "
Webpage: "; print OUTFILE $webpage; print OUTFILE "
Email: "; print OUTFILE $email; print OUTFILE "
\n"; } else { print p( b('
Error: must have either webpage or email') ); } } # end of if that handles insertion at end of data lines } # end of big else after taking care of file with no data lines # add last line print OUTFILE "
Revision date: "; # print date and time in international form ($sec,$min,$hour,$mday,$mon,$year) = localtime(time); print OUTFILE $year+1900; print OUTFILE "-"; if ($mon < 9) {print OUTFILE ("0".($mon+1));} else {print OUTFILE ($mon+1);} print OUTFILE "-"; if ($mday < 10) {print OUTFILE ("0".($mday));} else {print OUTFILE ($mday);} print OUTFILE " "; if ($hour < 10) {print OUTFILE ("0".($hour));} else {print OUTFILE ($hour);} print OUTFILE ":"; if ($min < 10) {print OUTFILE ("0".($min));} else {print OUTFILE ($min);} print OUTFILE ":"; if ($sec < 10) {print OUTFILE ("0".($sec));} else {print OUTFILE ($sec);} # print OUTFILE scalar(localtime()); print OUTFILE "."; print OUTFILE " (Please use ISO8601, "; print OUTFILE "the International Standard.)"; print OUTFILE "\n"; flock(OUTFILE, LOCK_UN) || die "Unable to get unlock: $!"; close(INFILE); close(OUTFILE); # now turn around and copy the files back open(INFILE, "/home/wagner/public_html/cgi-bin/".$outfile) || die "Unable to open file for input"; open(OUTFILE, "> /home/wagner/public_html/cgi-bin/".$infile) || die "Unable to open file for output"; flock(OUTFILE, LOCK_EX) || die "Unable to get second exclusive lock: $!"; while ($line = ) { print OUTFILE $line; } flock(OUTFILE, LOCK_UN) || die "Unable to get second unlock: $!"; close(INFILE); close(OUTFILE); print "
Click to go back to the list of student web pages"; print " here."; print " (You may need to refresh the page.)

"; } # end of top-level elseif print end_html();