tolyn77
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет
пытаюсь из влечь из Active Directory фотографии пользоватлей
что то с кодировкой не то не могу понять с какой стороны подойти, вроде содержимое выводит вроде в заголовке есть JFIF, но изображение не показывает - набор символов
#/usr/bin/perl -w
use Net::LDAP;
my $ldap = Net::LDAP->new( 'сервер', inet4 => 'Y' ) or die "$@","connect error";
my $mesg = $ldap->search( filter => "(objectClass=*)", base => "OU=users" );
my $max = $mesg->count;
for ( my $i = 0 ; $i < $max ; $i++ ) {
$entry = $mesg->entry ( $i );
print "\<img src\=\"data\:image\/jpeg\;base64\,", $entry->get_value( 'thumbnailPhoto' ),"\>";
}
подскажите где грабли?
заранее благодарен
Добавлено:
разобрался нужно было base64 кодировать с начало
use MIME::Base64;
encode_base64( $entry->get_value( 'thumbnailPhoto' )) |
Всего записей: 1507 | Зарегистр. 07-09-2004 | Отправлено: 15:29 29-11-2016 | Исправлено: tolyn77, 15:58 29-11-2016 |
|
