#!/usr/bin/perl
# authtip2.pl - authenticate to change the tip of the week.
use CGI;
my $pwfile = "pw.dat";
my @begindate = split (/ /, scalar localtime);
my ($dow,$mon,$day,$hh_mm_ss,$tz,$yyyy) = @begindate;
my $query = CGI->new();
my $status = $query->param('status');
my $user = $query->param('user');
my $pass = $query->param('pass');
my $hidden = $query->param('hide');
my %auth = ($user => $pass);
$myself = $query->url;
if (defined $user) {
&TEST($user);                }

&HEADER;
 if (defined $status) {
         print $query->h3( "$status $hidden" );
                                                 }

&SIGN_IN_FORM;

sub HEADER {
my $status = shift;
print $query->header( "text/html" ),
        $query->start_html(-title   => "Tip Authenticator",
                   -style=>{'src'=>'../mystyle.css'}),
      $query->h1( "Tip Changer Sign-In $hidden" );

                          }


sub SIGN_IN_FORM {
 $myself = $query->url;
        print '
        <form method="get" action=', $myself, ' name="">
          <p> <font face="Elephant">
            <input type="text" name="user">
            user name</font></p>
          <p> <font face="Elephant">
            <input type="password" name="pass">
            password</font></p>
          <p> <font face="Elephant">
          <input type="hidden" name="hidden" value="logged_in">
            <input type="submit" name="Submit" value="Submit">
            </font>

        </form>
                  ';
                          }

sub TEST {
        open (PW, "pw.dat") or die "$! Couldn't open pw file";
        while (<PW>) {
        chomp;
        my @record = split /:/;
        next unless $record[0] eq $user;
        $auth{$user} eq $record[1] ?
        return (&validuser)  :
        return(print $query->redirect("$myself?status=Incorrect Password")) ;
                                        }
print $query->redirect("$myself?status=Bad User Name");
                }

sub validuser {
print $query->redirect("http://localhost/tip2.pl?status=$key");
                        }