Как исправить ошибку при работе в скрипте users.pl (Elastix)?

Question

[Павел]

Появилось желание ̶п̶и̶н̶о̶к̶ ̶с̶о̶ ̶с̶т̶о̶р̶о̶н̶ы̶ ̶н̶а̶ч̶а̶л̶ь̶с̶т̶в̶а̶ , настроить обмен между астериском и AD.
Нашел статью на хабре (https://habrahabr.ru/post/125359/).
И не могу в нём разобраться, так как при выполнении скрипта пишет ошибку (Can't call method "bind" on an undefined value at ./users.pl line 107, line 225.), а в самом скрипте строчка 107:
(my $mesg = $ldap->bind ( dn=>$ADUserBind, password =>$ADpass);)

Подскажите пожалуйста куда копать?

PS;
[root@aster]# uname -a
Linux aster 2.6.18-371.1.2.el5 #1 SMP Tue Oct 22 12:51:53 EDT 2013 x86_64 x86_64 x86_64 GNU/Linux
Elastix: Elastix-2.5.0-STABLE-x86_64-bin-08may2015

Comments

[Saboteur]

bind не может выполнить операцию с переменной dn=>$ADUserBind, видимо там или пусто или неверное значение. Посмотрите что туда суется

[Павел]

Saboteur: В секции конфигурации указал:
my $ADUserBind="CN=admin,$ADDC";
А $ADDC :
my $ADDC="DC=TESTDC,DC=NET";
Так ж пробывал изменять строчку на DC=testdc.net .
Результат нулевой.

[Saboteur]

Попробуйте открытым текстом указать имя юзера и пароль, которым вы авторизируетесь в ldap, типа

(my $mesg = $ldap->bind ( "username", password =>"pass");)

[Павел]

Saboteur:
При указании:
my $mesg = $ldap->bind ( "admin", password =>"pass"); снова ругается на bind
А при
my $mesg = $ldap->bind ( "[e-mail]", password =>"pass")
Уже выводит ошибку:
./users.pl
Possible unintended interpolation of @TESTDC in string at ./users.pl line 107, line 225.
Global symbol "@TESTDC" requires explicit package name at ./users.pl line 107, line 225.
Execution of ./users.pl aborted due to compilation errors.

[Павел]

Saboteur: Не подскажите, как можно сократить этот блок:
my $ldap;
# get array DNS names of AD controllers
my $dig = "dig -t srv _ldap._tcp.$AD" . '| grep -v "^;\|^$" | grep SRV | awk "{print \$8}"';
my @adControllers = `$dig`;
# try connect to AD controllers
foreach my $controller (@adControllers){
$controller =~ s/\n//;
#INITIALIZING
$ldap = Net::LDAP->new ( $controller ) or next;
print STDERR "Connected to AD controller: $controller\n" if $debug > 0;
last;
}
die "$@" unless $ldap;

my $mesg = $ldap->bind ( dn=>$ADUserBind, password =>$ADpass);

Чтоб миновать выше указанные ошибки.
Так как другие скрипты для скана AD работают на ура, и без ошибок.

[Viktor]

Павел: ищется название контролера домена - просто у товарища несколько контроллеров. можно прописать руками.

[Saboteur]

Павел: у вас много AD контроллеров?
Посмотрите что возвращает команда
dig -t srv _ldap._tcp.$AD

тут вместо $AD должно быть видимо имя домена, а именя серверов видимо должны содержать SRV

Answer 1

[Rsa97]

Сan't call method "bind" on an undefined value at ./users.pl line 107, line 225
То есть скрипт не нашёл ни одного сервера AD и в переменной $ldap пусто.
Вы в переменной $AD прописали полное имя своего домена?

Comments

[Павел]

Указал на прямую, без переменных. Заработало.