use strict 'vars';
use utf8;
use CGI qw(-utf8);
binmode(STDOUT, ":utf8");

#import($DEBUG);  # THIS DIDN'T WORK.

#CURRENT SUBS IN THIS FILE
sub usrupdatePassword;
sub updatePassword;
sub updateUserRank;
sub connectdb;
sub connectdb_login;
sub create_login_table;
sub query_login_table;
sub login;

1;

#----------------------------------------
sub usrupdatePassword {    # A USER FUNCTION
    if (($DEBUG) && ($DEBUG<12)) { print qq|<p><span style="font-size: 16pt;color: #008800">SUB:</span> usrupdatePassword\n</p>| };
my $user    = shift @_;
my $curpass = shift @_;
my $newpass = shift @_;
my $valid   = &checkLogin_mysql($user,$curpass);
my $salt    = &getRandomSalt;

if (($user) && ($newpass) && ($valid)) {
    $salt = crypt($newuserpass, $salt);    
    my $statement = qq| UPDATE $membertable SET Password = '$salt' WHERE Username='$user'; |;    
    &connectdb_login($statement,'updatePassword');
    return "Password updated!";
} else {
    return "Sorry. Incorrect credentials.";    
}    
} #END SUB usrupdatePassword

sub updatePassword {    # AN ADMIN FUNCTION
    if (($DEBUG) && ($DEBUG<12)) { print qq|<p><span style="font-size: 16pt;color: #008800">SUB:</span> updatePassword\n</p>| };
my $authuser = shift @_;
my $newpass  = shift @_;
my $valid    = &checkUserExists_mysql($authuser);
my $salt     = &getRandomSalt;

if (($authuser) && ($newpass) && ($valid)) {
    $salt = crypt($newuserpass, $salt);    
    my $statement = qq| UPDATE $membertable SET Password = '$salt' WHERE Username='$authuser'; |;    
    &connectdb_login($statement,'updatePassword');
    return "Password updated!";
} else {
    return "Sorry. Incorrect credentials.";    
}    
} #END SUB updatePassword

# . . . [TRUNCATED]