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

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

    $test_passwd = crypt("$FORM{'password'}","k3");

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