MarioR
22.01.05, 22:04
Hallo,
ich bin dabei Samba mit LDAP einzurichten (Howto vonhopto.org (http://howto.hopto.org/HowTos/Samba/SmbLDAP/) ).
Nun wollte ich wie beschrieben die smbldap-populate aufrufen und bekomme
folgende Fehlermeldung:
Can't call method "code" without a package or object reference
at /usr/local/sbin/smbldap-populate line 389, <GEN1> line 2.
in der smbldap-populate tritt der Fehler in diesem Teil auf
if (!defined $Options{'e'}) {
my $ldap_master=connect_ldap_master();
my $ldif = Net::LDAP::LDIF->new($tmp_ldif_file, "r", onerror => 'undef' );
while ( not $ldif->eof() ) {
my $entry = $ldif->read_entry();
if ( $ldif->error() ) {
print "Error msg: ",$ldif->error(),"\n";
print "Error lines:\n",$ldif->error_lines(),"\n";
} else {
my $dn = $entry->dn;
print "adding new entry: $dn\n";
my $result=$ldap_master->add($entry);
Line>389>>>> $result->code && warn "failed to add entry: ", $result->error ;
}
}
$ldap_master->unbind;
if (!defined $Options{'i'}) {
system "rm -f $tmp_ldif_file";
}
} else {
print "exported ldif file: $tmp_ldif_file\n";
}
exit(0);
Was soll denn das ?
Fehlt da irgend ein Perl-Package ?
Gruß Mario
ich bin dabei Samba mit LDAP einzurichten (Howto vonhopto.org (http://howto.hopto.org/HowTos/Samba/SmbLDAP/) ).
Nun wollte ich wie beschrieben die smbldap-populate aufrufen und bekomme
folgende Fehlermeldung:
Can't call method "code" without a package or object reference
at /usr/local/sbin/smbldap-populate line 389, <GEN1> line 2.
in der smbldap-populate tritt der Fehler in diesem Teil auf
if (!defined $Options{'e'}) {
my $ldap_master=connect_ldap_master();
my $ldif = Net::LDAP::LDIF->new($tmp_ldif_file, "r", onerror => 'undef' );
while ( not $ldif->eof() ) {
my $entry = $ldif->read_entry();
if ( $ldif->error() ) {
print "Error msg: ",$ldif->error(),"\n";
print "Error lines:\n",$ldif->error_lines(),"\n";
} else {
my $dn = $entry->dn;
print "adding new entry: $dn\n";
my $result=$ldap_master->add($entry);
Line>389>>>> $result->code && warn "failed to add entry: ", $result->error ;
}
}
$ldap_master->unbind;
if (!defined $Options{'i'}) {
system "rm -f $tmp_ldif_file";
}
} else {
print "exported ldif file: $tmp_ldif_file\n";
}
exit(0);
Was soll denn das ?
Fehlt da irgend ein Perl-Package ?
Gruß Mario