jpegDisplay.pl - A script to display a jpeg picture from jpegPhoto attribute of a LDAP directory entry.
The intent of this script is to show the user how to retrieve and display a jpeg photo from a LDAP directory entry.
This script has been tested on a OpenLDAP 2.0.7 directory server and a Netscape 4.x LDAP directory server.
You may need to change the first line of the PERL jpegDisplay.pl script to point to your file pathname of perl.
-b Search base. -d Debug mode. Display debug messages to stdout. -D Distingushed Name for authenication purposes. -h LDAP directory host computer. -w Authenication password. -a Attribute that will be incorporated into the search filter. -v Data that will be incorporated into the search filter. -V LDAP version of the LDAP directory. Usage: jpegDisplay.pl -b <base> -h <host> -d <number> -D <DN> \ -w <password> -a <attribute> -v <data>
Inside the script is a opt hash that can be initialized to default values that can elminate the need for many of the input options on the command line.
-------------------------------------------------------------------
To use this program you will need the following.
At least PERL version 5.004. You can get a stable version of PERL from the following URL; http://cpan.org/src/index.html
Perl LDAP module. You can get this from the following URL; ftp://ftp.duke.edu/pub/CPAN/modules/by-module/Net/
Perl Tk.800.22 module. You can get this from the following URL; ftp://ftp.duke.edu/pub/CPAN/modules/by-module/Net/
Perl Tk-JPEG-2.014 module. You can get this from the following URL; ftp://ftp.duke.edu/pub/CPAN/modules/by-module/Net/
Bundled inside each PERL module is instructions on how to install the module into your PERL system.
Install the jpegDisplay.pl script anywhere you wish, I suggest /usr/local/bin/jpegDisplay.pl.
Since the script is in PERL, feel free to modify it if it does not meet your needs. This is one of the main reasons I did it in PERL. If you make an addition to the code that you feel other individuals could use let me know about it. I may incorporate your code into my code.
Clif Harden <charden@pobox.com> If you find any errors in the code please let me know at charden@pobox.com.
Copyright (c) 2001 Clif Harden. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Net::LDAP, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::LDAP
CPAN shell
perl -MCPAN -e shell install Net::LDAP
For more information on module installation, please visit the detailed CPAN module installation guide.