On Nov 15, 2005, at 10:50 AM, Yann Forget wrote:
Hi,
Graham Barr a écrit :
I do not see any addition at line 406 of the code. Is Net::LDAP
modified
in the debian installation ? What code is at line 406 in your
installation.
line 406 is:
$stash{scope} = 0 + (exists $scope{$sc} ? $scope{$sc} : $sc);
Hm, I guess the script is passing an invalid scope.
It is the standard debian package, not modifed, AFAIK:
$ dpkg -l libnet-ldap-perl
ii libnet-ldap-perl 0.33-2 A Client interface to LDAP servers
> It would also be useful to know what arguments are being passed
to the
> Net::LDAP method that results in this warning.
$ cat /usr/sbin/smbldap-usershow
That does not show me the point at which Net::LDAP is called or what
is being passed as arguments.
I suspect the call is inside the smbldap_tools module
Graham.
#!/usr/bin/perl -w
use strict;
use FindBin;
use FindBin qw($RealBin);
use lib "$RealBin/";
use smbldap_tools;
use Getopt::Std;
my %Options;
my $ok = getopts('?', \%Options);
if ( (!$ok) || (@ARGV < 1) || ($Options{'?'}) ) {
print_banner;
print "Usage: $0 [-?] username\n";
print " -? show this help message\n";
exit (1);
}
my $user = $ARGV[0];
my $ldap_slave=connect_ldap_slave();
my $lines = read_user($user);
if (!defined($lines)) {
print "$0: user $user doesn't exist\n";
exit (1);
}
print "$lines\n";
$ldap_slave->unbind;
exit(0);
Graham.
Regards,
Yann
--
Network & System Engineer
Goelaan SA, Switzerland
Tel. +41-22-960 98 20
Fax +41-22-960 98 21
http://www.goelaan.ch
