|
Lines 10-16
Link Here
|
| 10 |
# |
10 |
# |
| 11 |
|
11 |
|
| 12 |
use strict; |
12 |
use strict; |
| 13 |
#use utf8; |
13 |
use utf8; |
| 14 |
use Net::LDAP; |
14 |
use Net::LDAP; |
| 15 |
use Net::LDAP::Util qw(ldap_error_name ldap_error_text); |
15 |
use Net::LDAP::Util qw(ldap_error_name ldap_error_text); |
| 16 |
use Getopt::Long; |
16 |
use Getopt::Long; |
|
Lines 171-178
Link Here
|
| 171 |
# if set to 1, unassigned passwords become the same as the username |
171 |
# if set to 1, unassigned passwords become the same as the username |
| 172 |
my $USE_TRIVIAL_PWD = 0; |
172 |
my $USE_TRIVIAL_PWD = 0; |
| 173 |
|
173 |
|
| 174 |
# not yet... |
174 |
# if set to 1, a utf-8 enabled system is assumed |
| 175 |
my $HAVE_UTF8 = 0; |
175 |
my $HAVE_UTF8 = 1; |
| 176 |
|
176 |
|
| 177 |
my $SMB_CONF; |
177 |
my $SMB_CONF; |
| 178 |
my $SAMBA_VERSION = "3_0"; |
178 |
my $SAMBA_VERSION = "3_0"; |
|
Lines 2542-2547
Link Here
|
| 2542 |
from_to($opt_user, "utf-8", "iso-8859-1" ); |
2542 |
from_to($opt_user, "utf-8", "iso-8859-1" ); |
| 2543 |
$opt_user = encode_utf8($opt_user); |
2543 |
$opt_user = encode_utf8($opt_user); |
| 2544 |
$ascii_user = umlaut2ascii($tmp); |
2544 |
$ascii_user = umlaut2ascii($tmp); |
|
|
2545 |
} else { |
| 2546 |
$ascii_user = $opt_user; |
| 2545 |
} |
2547 |
} |
| 2546 |
} |
2548 |
} |
| 2547 |
|
2549 |
|