sub verify_admin {

    my($admin_passwd,$ausername,$apasswd,$username);

    open(PASSWD, "$adminpasswddir/adminpasswd.db") || &dienice("Can't open the file adminpasswd.db: $!");
    $admin_passwd = <PASSWD>;
    close(PASSWD);

    chomp($admin_passwd);
    ($ausername,$apasswd) = split(/\|/,$admin_passwd);

    $username = "$FORM{'username'}";
    my $cypassword = crypt("$FORM{'password'}","v6");

    if ($cypassword eq "$apasswd" && $username eq "$ausername"){
        &admin_main;
    }
    else {
        &dienice("Your username/password combination is incorrect. Please press your browsers back button and try again.");
         }
}

##</code><code>##

if ($FORM{'password'} eq "$FORM{'verifypassword'}"){
    my $cpasswd = crypt("$FORM{'password'}","v6");

    open(ADMINPASS, ">$adminpasswddir/adminpasswd.db") || &dienice("Can't open the file adminpasswd.db $!");
    print ADMINPASS "$FORM{'username'}\|$cpasswd";
    close(ADMINPASS);

    open(USERS, "<$passwddir/users.db") || &dienice("Can't create the file users.db $!");
    close(USERS);

print "Content-type: text/html\n\n";

#SUCCESS HTML

}
else {
    &dienice("Your passwords do not match. Please press your browsers back button to fix the problem.");
}
exit;
}