#!/usr/local/bin/perl #Allows user to lookup name in a database push @INC, ("/home/bear-008/users/downeyt/scripts"); require 'parse-lib.pl'; require 'pictutil.pl'; %query=&get_query; print "Content-type: text/html\n\n"; &start_html; &open_databases('writable'); if (!$query{'reset'}) { $username=$query{'username'}; $password=$query{'password'}; $interest=$query{'interest'}; $new_interest=$query{'new_interest'}; } if ($query{'update_password'}) { &update_password($username,$password); } if ($query{'update_interest'}) { &change_field($username,'interest',$new_interest); $interest=$new_interest; } if ($username) { if (&in_file($username)) { $filepass=&lookup_field($username,'password'); if ($filepass eq $password) { if ($query{'change_password'} eq "Change Password") { &change_password($username,$password); } elsif ($query{'change_interest'} eq "Change Interest") { &change_interest($username,$password); } else { ®istered_user($username,$password,"Here is your information"); } } elsif (!$query{'update_password'}) { &wrong_password($username,"You typed the wrong password"); } } elsif ($query{'add'} ne "Add Me") { &wrong_password($username,"You are not a registered user"); } elsif ($query{'password'} ne $query{'confirm'}) { &wrong_password($username,"You typed two different passwords"); } else { &index($username,$password,""); ®istered_user($username,$password,"You are now entered in the data base"); } } else { &first_time; } sub start_html { print < Add info and update a data base END ; } sub first_time { print <

Username

Password

END ; } sub wrong_password { my($username,$title)=@_; print <$title Retype your password and press 'Submit', or enter a password, confirm it and press 'Add Me'

Username
Password
Retype Password
END ; } sub registered_user { my($username,$password,$title) = @_; my($interest); $interest = &lookup_field($username,'interest'); print <$title
Username $username
Interest $interest

END ; } sub change_password { my($username,$password) = @_; print <Update Password Type your new password, confirm it and press 'Update Password'
Username$username
New Password
Retype New Password

END ; } sub change_interest { my($username,$password) = @_; print <Update Interest Type your new interest and press 'Update Interest'
Username$username
Interest

END ; } sub update_password { my($username,$password)=@_; if ($password ne $query{'confirm'}) { print <Passwords Don't Match Retype your new password, confirm it and press 'Update Password'
Username
New Password
Retype New Password

END ; } else { &change_field($username,'password',$password); } }