Imported Debian patch 0.5.6+cvs1-1

[pkg/abook.git] / contrib / ldap-abook / ldap2abook

diff --git a/contrib/ldap-abook/ldap2abook b/contrib/ldap-abook/ldap2abook
deleted file mode 100644 (file)
index 58b7936..0000000
--- a/contrib/ldap-abook/ldap2abook
+++ /dev/null
@@ -1,95 +0,0 @@
-#!/usr/bin/perl
-#
-# This is very simple method to get data from LDAP and
-# converts it to abook readable format.
-# Script get only first email of any person. This is, probably,
-# primary address.
-# If you have better/simpler method - send me, please.
-#
-# You MUST have ldap-utils installed on your system to
-# use this script. Without ldapsearch script does not work!
-#
-# Author: Mariusz Balewski <M.Balewski@wp.pl>
-# 03.06.2004
-# 29.08.2005 Tried to fix insecure tempfile handling (untested)
-#
-# GPL licensed
-# Feel free to send me your comments
-#
-# I'm not programmer, so REMEMBER:
-# YOU USE THIS SCRIPT ON YOUR OWN RISK!!!
-#
-
-# Change this section to your local settings
-  # Your LDAP host
-  $HOST="ldaphost.com";
-
-  # Base dn to search
-  $BASEDN="\"-b ou=example,dc=com\"";
-
-  # dn which contains email addresses
-  $FINDDN="mail";
-
-  # for example "-D \"cn=admin,dc=com\"" (if needed)
-  $AUTHDN="";
-
-  # ldap password (if needed), or -w to force script
-  # to password prompting
-  $PASS="";
-
-  # use -x if your ldaphost accept simple authentication
-  # or leave empty
-  $SIMPLEAUTH="";
-
-  # Where you want to put results?
-  # In this example results will be putted to
-  # your home directory, to abookFromLDAP file.
-  # If you wish to use abook with this file, simply run:
-  # abook --datafile $HOME/abookFromLDAP
-  $DESTFILE="$ENV{'HOME'}/abookFromLDAP";
-
-  # If you wish to see communiats in english or polish
-  # link comms.pl-en to comms.pl to english or
-  # comms.pl-pl to polish
-
-# End of configuration
-###############################
-###############################
-
-use File::Temp qw/ :mktemp  /;
-$file = mktemp("/tmp/tmpfileXXXXXXX");
-
-
-require 'comms.pl';
-
-system("ldapsearch -h $HOST $SIMPLEAUTH $AUTHDN $PASS \"$FINDDN=*\" $BASEDN -LLL > $file");
-
-$i=0;
-open(F1,"<$file") || die "$TMPERR";
-open(F2,">$DESTFILE") || die "$DESTFILEERR";
- flock(F1,8);
- flock(F2,8);
-  while(<F1>){
-     if ($_ =~ m/^gecos/g){
-         s/^ //g;
-         s/^gecos: /name=/g;
-         print F2 "[$i]\n";
-         print F2 $_;
-         $i++;
-     }
-     elsif ($_ =~ m/^mail/g){
-         s/^mail: /email=/g;
-         print F2 "$_\n";
-     }
-  }
-  flock(F2,2);
-  flock(F1,2);
-close(F2);
-close(F1);
-
-unlink($file);
-
-print "\n$i ";
-print "$REPORT\n\n";
-
-#== END