gunnar: server/perl-kolab/perl-kolab/bin kolabpasswd.in,1.1,1.2

cvs at kolab.org cvs at kolab.org
Thu Mar 11 13:23:14 CET 2010


Author: gunnar

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

Modified Files:
	kolabpasswd.in 
Log Message:
Also fix kolabpasswd.

kolab/issue919 (kolab server has problems with some characters in passwords (rt#5558)) 

Index: kolabpasswd.in
===================================================================
RCS file: /kolabrepository/server/perl-kolab/perl-kolab/bin/kolabpasswd.in,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- kolabpasswd.in	16 Feb 2010 05:33:42 -0000	1.1
+++ kolabpasswd.in	11 Mar 2010 12:23:12 -0000	1.2
@@ -45,6 +45,10 @@
 
 =cut
 
+use locale;
+use utf8;
+use open 'utf8';
+
 use Term::ReadKey;
 use IO::File;
 use File::Temp;
@@ -140,8 +144,6 @@
   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 );
@@ -156,8 +158,6 @@
 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;
 





More information about the commits mailing list