#!/usr/bin/perl
####
#### User Monthly Online Time
#### 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 time log
open (TIME, ">>timelog") || &death("Could not open timelog: $!");
$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")
{
$currentlyon = "true";
##
## We now have the user's time up to the present; serve it
##
# Get the month name
$month = (January,February,March,April,May,June,July,August,September,October,November,December)[(localtime)[4]];
# Begin page; includes JavaScript function "opentimer" for Timer Window
&resultsheader;
print "$month Online Time for $quoteduser\n
\n";
# The time
$hours = ($usertime/3600);
$fraction = int(($hours - int($hours))*100)/100;
# Make the string
$hourstr = int($hours) + $fraction;
# Print the time
print "$hourstr hours\n
\n\n";
## if user is logged on now (and not ISDN), give her the timer option
if ($currentlyon eq "true")
{
# Timer Window button for JavaScript capable browsers
print <<"AAA";