function password_save($curpass, $passwd){

    $rcmail = rcmail::get_instance();
    $Socket = new HTTPSocket;

    $da_user    = $_SESSION['username'];
    $da_curpass = $curpass;
    $da_newpass = $passwd;
    $da_host    = $rcmail->config->get('password_directadmin_host');
    $da_port    = $rcmail->config->get('password_directadmin_port');

    $Socket->connect($da_host,$da_port); 
    $Socket->set_method('POST');
    $Socket->query('/cgi-bin/qmailadmin/qmailadmin/passwd/',
        array(
            'address' 	=> $da_user,
            'oldpass' 	=> $da_curpass,
            'newpass1' 	=> $da_newpass,
            'newpass2' 	=> $da_newpass
    ));
    $response = $Socket->fetch_parsed_body();

	//console("DA error response: $response[text] [$da_user]");
    if($Socket->result_status_code <> 200)
        return PASSWORD_CONNECT_ERROR;
    elseif($response['error'] == 1){ //Error description: $response[text] 
        return PASSWORD_ERROR;
    }else 
        return PASSWORD_SUCCESS;

}