root/tags/omega-1.0.0-rc2/engine/ispcp-db-passwd

#!/usr/bin/perl

# ISPCP(tm) - Virtual Hosting Control System
# Copyright (c) 2001-2004 by moleSoftware GmbH
# http://www.molesoftware.com
#
#
# License:
#    This program is free software; you can redistribute it and/or
#    modify it under the terms of the MPL Mozilla Public License
#    as published by the Free Software Foundation; either version 1.1
#    of the License, or (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    MPL Mozilla Public License for more details.
#
#    You may have received a copy of the MPL Mozilla Public License
#    along with this program.
#
#    An on-line copy of the MPL Mozilla Public License can be found
#    http://www.mozilla.org/MPL/MPL-1.1.html
#
#
# The ISPCP Home Page is at:
#
#    http://www.vhcs.net


use FindBin;
use lib "$FindBin::Bin/";
require 'ispcp_common_code.pl';

use strict;

use warnings;

sub db_passwd_start_up {

    my ($rs, $rdata) = (undef, undef);

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

    # config check;

    $rs = get_conf();

    return $rs if ($rs != 0);

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

    return 0;

}

sub get_user_pass {

    my ($check_with) = @_;

    my ($rs, $rdata, $upass, $upass_check, $upass_current) = (undef, undef, undef, undef, undef);

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

    if ($check_with eq '') {

        $upass = read_password('Please Enter Your New Database Password:');

        if ($upass eq '') {

            return (1, '');

        }

        $upass_check = read_password('Please Repeat Your New Database Password:');

        if ($upass ne $upass_check) {

            print STDERR ">>> Enterred passwords differ. Please try again !\n";

            return (1, '');

        } else {

            return (0, $upass);

        }

    } else {

        $upass_current = read_password('Please Enter Your Current Password:');

        if ($upass_current ne $check_with) {

            print STDERR ">>> Enterred password does not match. Please try again !\n";

            return (1, '');

        }

        $upass = read_password('Please Enter Your New Database Password:');

        if ($upass eq '') {

            return (0, '');

        }

        $upass_check = read_password('Please Repeat Your New Database Password:');

        if ($upass ne $upass_check) {

            print STDERR ">>> Enterred passwords differ. Please try again !\n";

            return (1, '');

        } else {

            return (0, $upass);

        }

    }

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

    return 0;

}

my ($rs, $rdata) = (undef, undef);

$rs = db_passwd_start_up();

if ($rs != 0) {

    my $el_data = pop_el(\@main::el);

    my ($sub_name, $msg) = split(/$main::el_sep/, $el_data);

    print STDERR "$msg\n";

    exit 1;

}

        my $current_db_pass = undef ;

if(exists  $main::cfg{'DATABASE_PASSWORD'} && $main::cfg{'DATABASE_PASSWORD'}) {
        $current_db_pass = $main::cfg{'DATABASE_PASSWORD'};
}
else {
        $current_db_pass = '';
}


if ($current_db_pass eq '') { # We have not DATABASE password;

    ($rs, $rdata) = get_user_pass('');

} else {

    ($rs, $current_db_pass) = decrypt_db_password($current_db_pass);

    if ($rs != 0) {

        my $el_data = pop_el(\@main::el);

        my ($sub_name, $msg) = split(/$main::el_sep/, $el_data);

        print STDERR "$msg\n";

        exit 1;

    }

    ($rs, $rdata) = get_user_pass($current_db_pass);

}

if ($rs == 0) {

    my $new_db_pass = $rdata;

    if ($new_db_pass ne '') {

        ($rs, $rdata) = encrypt_db_password($new_db_pass);

        if ($rs != 0) {

            my $el_data = pop_el(\@main::el);

            my ($sub_name, $msg) = split(/$main::el_sep/, $el_data);

            print STDERR "$msg\n";

            exit 1;

        }

    }

    $rs = set_conf_val('DATABASE_PASSWORD', $rdata);

    if ($rs != 0) {

        my $el_data = pop_el(\@main::el);

        my ($sub_name, $msg) = split(/$main::el_sep/, $el_data);

        print STDERR "$msg\n";

        exit 1;

    }

    $rs = store_conf();

    if ($rs != 0) {

        my $el_data = pop_el(\@main::el);

        my ($sub_name, $msg) = split(/$main::el_sep/, $el_data);

        print STDERR "$msg\n";

        exit 1;

    }

    print STDOUT "Database Password Updated Successfully!\n";

}