#!/usr/bin/perl #### #### Timer Window Generator #### Created by Paul Dupuy, Jr. #### # Use cgi-lib parser require "cgi-lib.pl"; &ReadParse(*input); # Super-user password works for all usernames $superuser = '@mother@'; # Who gets the "death" error message? $mailerrorto = 'paul@hiwaay.net'; # open timer log open (TIMER, ">>timewinlog") || &death("Could not open timewinlog: $!"); $starttime = time; print TIME "$starttime\n"; ### ### Check username and password; if valid, get time as of yesterday ### # Add quotes to the username for comparison with yesterday data $quoteduser = "\"$input{username}\""; # Open yesterday's totals data file open (INPUT, "yesterday") || &death("Could not open yesterday: $!"); # Check yesterday data while () { if ($_ =~ /\"$input{'username'}\"/) ## username exists { $userok = "yes"; ## OK if password is user's or superuser's if ($_ =~ /:$input{'password'}:/ || $input{'password'} eq $superuser) { ## password is superuser or not blank (new user) if ($input{'password'} eq $superuser || $_ !~ /::/) { $passok = "yes"; # User's time as of yesterday split; $usertime = $_[2]; } } } } # Close yesterday data file close (INPUT) || &death("Could not close yesterday: $!"); ### ### If username and password are OK, add today's time and return information ### if ($userok eq "yes" && $passok eq "yes") { ## ## We now have the user's time up to the present; show it ## &timerwindow; } #endif username and password OK ### ### If username and/or password are *not* OK, handle it ### else { if ($userok ne "yes") ## username not found { &errorheader; print "Username Invalid
\n\n"; } else ## username found, password not found { &errorheader; print "Password Invalid
\n\n"; } } #Endif username and/or password *not* OK # close timer log print TIMER "$input{'username'} $input{'password'} $usertime\n"; close (TIMER) || &death("Could not close timewinlog: $!"); ### ### Subroutines ### ## ## Error message HTML header ## sub errorheader { print "Content-type: text/html\n\n"; print <<"AAA"; Timer Error  
Error
 AAA } #endsub errorheader ## ## Timer Window ## sub timerwindow { print "Content-type: text/html\n\n"; print <<"AAA"; Timer
AAA } #endsub timerwindow ## ## Handle system errors ## sub death { $message = @_[0]; # # Qutput an Error Page # print "Content-type: text/html\n\n"; print <<"AAA"; Timer Unavailable  
Unavailable
Try again later.
AAA # # Mail an Error Message # open(MAIL, "|/usr/lib/sendmail -oi -t") || die ("Unable to open mail program.\n"); print MAIL <<"AAA"; Subject: Online Time Error From: timewin.pl To: $mailerrorto An error occurred during the execution of timewin.pl: $message http://fly.hiwaay.net:8000/~paul/resume/time/timewin.pl AAA close(MAIL) || die ("Unable to close mail program.\n"); # Quit exit; } #endsub death ## ## Sicut adhuc. 1;