Вернуться   RDot > Песочница/Sandbox > Оффтоп/Offtopic

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
Старый 02.10.2014, 18:02   #1
vbv
 
Регистрация: 02.10.2014
Сообщений: 0
Репутация: 0
По умолчанию LDAP сервер во внутренней сети. Как вытащить данные perl скриптом?

Добрый день, друзья.
Есть на сервере вебшелл, есть конфиг с учеткой ldap: подключение идет во внутреннюю сеть. Вопрос, как подключиться к ldap, когда обратный ssh туннель не работает (ssh не находит uid в passwd и выдает You don't exist, go away) и PHP собран без поддержки ldap. Остается надежда на Perl, в модулях которого встречается ldap. Но по типу phpmyadmin/phpmyldap админок для ldap на perl гугл не находит. Кто-нибудь готов помочь с perl скриптом, который бы показал список баз, таблиц, выводил данные и наконец дампил нужные таблицы? Или может есть готовое решение у кого-то уже? Я отблагодарю.
vbv вне форума   Ответить с цитированием
Старый 02.10.2014, 22:59   #2
tex
 
Регистрация: 26.12.2010
Сообщений: 135
Репутация: 41
По умолчанию

ldapsearch же есть
tex вне форума   Ответить с цитированием
Старый 03.10.2014, 11:57   #3
vbv
 
Регистрация: 02.10.2014
Сообщений: 0
Репутация: 0
По умолчанию

Сервер ldap не установлен на этой машине, так что не подходит ldapsearch.
Я нашел следующий скрипт, который выводит данные по фильтру. Он успешно подключился к серверу. Но что в нем поменять, чтобы он вывел все данные - базы, таблицы, а не искал записи по заданному фильтру?
Цитата:
#!/usr/bin/perl
# This script will export LDAP entry in to a csv file.
# Install Net:LDAP for running this script.
# Feel free to contact me on praveen.velu84@yahoo.com

use Net::LDAP;

$ldap = Net::LDAP->new("localhost");
$ldap->bind("cn=admin,dc=example,dc=com", password=>"secret");

# Create a new file "ldapcsv.csv and pipe your query output to this file.
$outputfile = "ldapcsv.csv";

# Create a new File Handler.
open (FH, ">$outputfile") or die "$!";

# Modify your search query and ldap connection details.
$mesg = $ldap->search(filter=>"(&(mail=*)(objectclass=*))", base=>"dc=example,dc=com");

@entries = $mesg->entries;
foreach $entry (@entries){
@myuid = $entry->get( 'uid' );
@givenName = $entry->get( 'givenName' );
@sn = $entry->get( 'sn' );
@userPassword = $entry->get( 'userPassword' );
print "Exporting @myuid[0] to csv file \n";
print FH "@myuid[0],@givenName[0],@sn[0],@userPassword[0]\n"
}

# Close the file handler.
close(FH);
vbv вне форума   Ответить с цитированием
Старый 03.10.2014, 12:35   #4
slashd
 
Регистрация: 06.07.2010
Сообщений: 47
Репутация: 27
По умолчанию

Цитата:
Сообщение от vbv Посмотреть сообщение
Сервер ldap не установлен на этой машине, так что не подходит ldapsearch.
Залей свой ldapsearch
slashd вне форума   Ответить с цитированием
Старый 03.10.2014, 16:15   #5
tex
 
Регистрация: 26.12.2010
Сообщений: 135
Репутация: 41
По умолчанию

Цитата:
Сообщение от vbv Посмотреть сообщение
Но что в нем поменять, чтобы он вывел все данные - базы, таблицы, а не искал записи по заданному фильтру?
(objectclass=*)
tex вне форума   Ответить с цитированием
Ответ

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход



Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd. Перевод: zCarot