gunnar: server/perl-kolab/bin kolabpasswd.in,1.2.2.1,1.2.2.2

[cvs at kolab.org]

Author: gunnar

Update of /kolabrepository/server/perl-kolab/bin
In directory doto:/tmp/cvs-serv21120/perl-kolab/bin

Modified Files:
      Tag: kolab_2_2_branch
	kolabpasswd.in 
Log Message:
 kolab/issue919 (kolab server has problems with some characters in passwords (rt#5558))

Index: kolabpasswd.in
===================================================================
RCS file: /kolabrepository/server/perl-kolab/bin/kolabpasswd.in,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -u -d -r1.2.2.1 -r1.2.2.2
--- kolabpasswd.in	17 Nov 2009 17:12:35 -0000	1.2.2.1
+++ kolabpasswd.in	14 Dec 2009 05:03:49 -0000	1.2.2.2
@@ -140,6 +140,8 @@
   ReadMode 'noecho';
   my $old_password = ReadLine 0; chomp $old_password;
 
+  $old_password = Encode::encode_utf8($old_password);
+
   $mesg = $ldap->bind( $account_dn, password => $old_password ) || die "\nkolabpasswd: Failed to bind to LDAP server";
   if( $mesg->code ) { print "\nError: ".$mesg->error.". Please try again\n"; }
 } while ( $mesg->code );
@@ -154,6 +156,8 @@
 print "\n";
 ReadMode 'normal';
 ($new_password eq $new_password2) || die "Sorry, passwords do not match.\n";
+
+$new_password = Encode::encode_utf8($new_password);
 
 my $bind_pw_hash;