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