nach update: login - "Query was empty"

Code:
sub decrypt_db_password {



    my ($pass) = @_;



    push_el(\@main::el, 'decrypt_db_password()', 'Starting...');



    if (!defined($pass) || $pass eq '') {



        push_el(\@main::el, 'decrypt_db_password()', 'ERROR: Undefined input data ($pass)...');



        return (1, '');



    }



    if (length($main::db_pass_key) != 32 || length($main::db_pass_iv) != 8) {



        push_el(\@main::el, 'decrypt_db_password()', 'WARNING: KEY or IV has invalid length');



        return (1, '');

    }



    my $cipher = Crypt::CBC -> new(

                                    {

                                        'key'             => $main::db_pass_key,

                                        'keysize'         => 32,

                                        'cipher'          => 'Blowfish',

                                        'iv'              => $main::db_pass_iv,

                                        'regenerate_key'  => 0,

                                        'padding'         => 'space',

                                        'prepend_iv'      => 0

                                    }

                                  );



    my $decoded = decode_base64("$pass\n");



    my $plaintext = $cipher -> decrypt($decoded);





    push_el(\@main::el, 'decrypt_db_password()', 'Ending...');



    return (0, $plaintext);



}



sub setup_main_vars {



    push_el(\@main::el, 'setup_main_vars()', 'Starting...');



    #

    # Database backend vars;

    #



    $main::db_host = $main::cfg{'DATABASE_HOST'};



    $main::db_user = $main::cfg{'DATABASE_USER'};



    $main::db_pwd = $main::cfg{'DATABASE_PASSWORD'};



    $main::db_name = $main::cfg{'DATABASE_NAME'};



    if ($main::db_pwd ne '') {



        my $rs = undef;



        ($rs, $main::db_pwd) = decrypt_db_password($main::db_pwd);



        # Silently quit

        return 0 if ($rs != 0);



    }