myLinux Addressbook

#!/usr/bin/perl ######################################################################## # File: publicfiles/ldap2html.pl # # myLinux Server: Copyright (c) 2003 Michael Oberg # # Version: 0.92 # # Author: Michael Oberg # # # # This program is free software; you can redistribute it and/or modify # # it under the terms of the GNU General Public License as published by # # the Free Software Foundation; either version 2 of the License, or # # (at your option) any later version. # # # # This program is distributed in the hope that it will be useful, # # but WITHOUT ANY WARRANTY; without even the implied warranty of # # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # # GNU General Public License for more details. # # # # You should have received a copy of the GNU Public License along # # with this package; if not, write to the Free Software Foundation, # # Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. # ######################################################################## # ----------------------------------------------------------- # # This script can be copied to another world readable # # location an can be executed anonymous by any user. It reads # # only world readable LDAP entries and exports these to an # # html table file. This file can be imported into Microsoft # # Excel or OpenOffice Calc, or can be used as data source for # # serial documents in Microsoft Word or OpenOffice Writer. # # If Microsoft Office 2000/XP Web Components are installed, # # the Internet Explorer will display the HTML page as Excel # # Data Sheet. # # ----------------------------------------------------------- # use mylinux::env; # if called as cgi script, a http header has to be written #print "Content-type: text/html\n\n"; print "Content-type: application/vnd.ms-excel\n\n"; #@ATTRLIST = ("dn", "cn", "givenName", "sn", "personalTitle", "title", "o", "ou", "l", "st", "c", "postalAddress", "postalCode", "physicalDeliveryOfficeName", "telephoneNumber", "mobile", "facsimileTelephoneNumber", "homePostalAddress", "homePhone", "otherFacsimileTelephoneNumber", "URL", "mail", "comment"); @ATTRLIST = ("cn", "givenName", "sn", "personalTitle", "title", "o", "l", "st", "c", "postalAddress", "postalCode", "physicalDeliveryOfficeName", "telephoneNumber", "mobile", "facsimileTelephoneNumber", "URL", "mail", "comment"); $output = "\n\n"; $output .= "\n"; $output .= "\n"; $output .= "\n"; $output .= "myLinux Addressbook\n"; $output .= "\n\n\n\n"; foreach $attribute (@ATTRLIST) { $tableline{$attribute} = ""; $output .= "\n"; } $output .= "\n"; $LDAP = `ldapsearch -x -LLL -b 'ou=users,$env::ldapbase' '(objectclass=person)'`; $LDAP .= `ldapsearch -x -LLL -b 'ou=contacts,$env::ldapbase' '(&(objectclass=person)(!(givenName=Vorname)))'`; while ($LDAP =~ /:: (.*)/) { $UUENCODED = $1; $UTF8 = `echo -n "$UUENCODED" | /usr/local/bin/base64 -d`; $STRING = pack ("C*", unpack ("U*", $UTF8)); $LDAP =~ s/:: $UUENCODED/: $STRING/g; } foreach $entry (split /\n\n/, $LDAP) { foreach $line (split /\n/, $entry) { $line =~ /([^:]*): (.*)/; $name = $1; $value = $2; if ($value =~ /http:\/\//) { $value = "$value"; } if ($value =~ /^[^@]+@[^@]+$/) { $value = "$value"; } if ($tableline{$name}) { $tableline{$name} .= ", $value"; } else { $tableline{$name} = $value; } } $outline = "\n"; foreach $attribute (@ATTRLIST) { $outline .= "\n"; $tableline{$attribute} = ""; } $outline .= "\n"; $output .= $outline; } $output .= "

" . $attribute . "
" . $tableline{$attribute} . "

\n"; $output =~ s/ä/\ä/gs; $output =~ s/ö/\ö/gs; $output =~ s/ü/\ü/gs; $output =~ s/Ä/\Ä/gs; $output =~ s/Ö/\Ö/gs; $output =~ s/Ü/\Ü/gs; $output =~ s/ß/\ß/gs; print $output;