--- nfo/perl/scripts/outlook2ldap/bin/feed_contacts.pl	2003/01/20 16:27:29	1.1
+++ nfo/perl/scripts/outlook2ldap/bin/feed_contacts.pl	2003/01/20 21:20:35	1.2
@@ -1,13 +1,27 @@
 #!/usr/bin/perl
 
+## --------------------------------------------------------------------------------
+##  $Id: feed_contacts.pl,v 1.2 2003/01/20 21:20:35 joko Exp $
+## --------------------------------------------------------------------------------
+##  $Log: feed_contacts.pl,v $
+##  Revision 1.2  2003/01/20 21:20:35  joko
+##  - now doesn't use a hardcoded $libpath any more
+##
+## --------------------------------------------------------------------------------
+
+
 use strict;
 use warnings;
 
 BEGIN {
   use FindBin qw($Bin);
+  use lib qw(
+    $Bin/../../libs
+  );
 }
 
-use lib qw( c:\home\amo\develop\netfrag.org\nfo\perl\libs );
+
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main
 
 use org::netfrag::shortcuts qw( run_cmd );