sub set_login_cookie { my $loggedIn=cookie(-name=>'loggedIn', -value=>'true', -expires=>'+30m', -path=>'/public_html/cgi-bin/cit/'); print header(-cookie=>$loggedIn); } sub set_logout_cookie{ my $loggedIn=cookie(-name=>'loggedIn', -value=>'false', -path=>'/public_html/cgi-bin/cit/'); print header(-cookie=>$loggedIn); } #### sub login_html { my $cookie = "cookie('loggedIn')"; print< Net Works Web Design - Client Invoice Tracker: Admin Logon
 

Client Invoice Tracker: Administration Logon

Use the form below to login to the administration section to preform maintenace tasks and to update current invoices:

Username:
Password:
Copyright© 2004/2005 Net Works Web Design
EndOfHTML exit; } #### sub admin_main { my $cookie = cookie('loggedIn'); if ($cookie eq "true"){ print< Net Works Web Design - Client Invoice Tracker: Administration
 

CLIENT INVOICE TRACKER: ADMINISTRATION >> ADMIN OPTIONS

Administration Options are as follows:

Adds a user to the Client Invoice Tracker database.
Deletes a user from the Client Invoice Tracker database.
Edit a current client's Invoice information.
Edit a current client's information.
Change the administration password.
Change a current client's password.

Copyright© 2004/2005 Net Works Web Design
EndOfHTML } else { &login_html(); } exit; } #### sub add_user{ my $cookie = "cookie('loggedIn')"; if ($cookie eq "true"){ print "Content-type: text/html\n\n"; print< Net Works Web Design - Client Invoice Tracker: Administration
 

CLIENT INVOICE TRACKER: ADMINISTRATION >> ADD A USER

To add a client to the Client Invoice Tracker database, fill out all of the information below and click on the submit button:

Company Name:
E-mail Address:
Client ID #:
Password:

Copyright© 2004/2005 Net Works Web Design
EndOfHTML } else { &login_html(); } exit; }