Hi,
I want to set up perl based replication system. For this I just copied
perldoc Net::LDAP::Intermediate::SyncInfo into my file, modified host
name and search base. This script throws following error:
die...@rubin:> perl synctest.pl
Can't call method "isa" on an undefined value at synctest.pl line 37, <DATA>
line 872.
(in cleanup) Can't call method "isa" on an undefined value at
synctest.pl line 37, <DATA> line 872.
,----[ script lines 32 - 38 ]
| sub searchCallback {
| my $message = shift;
| my $entry = shift;
| my @controls = $message->control;
|
| if($controls[0]->isa('Net::LDAP::Control::SyncState')) {
| print "Received Sync State Control\n";
`----
What is wrong with this script?
-Dieter
--
Dieter Klünter | Systemberatung
http://dkluenter.de
GPG Key ID:8EF7B6C6
53°08'09,95"N
10°08'02,42"E
