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.");
         }
}