--- 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/23 15:30:24	1.4
@@ -1,13 +1,29 @@
 #!/usr/bin/perl
 
+## --------------------------------------------------------------------------------
+##  $Id: feed_contacts.pl,v 1.4 2003/01/23 15:30:24 janosch Exp $
+## --------------------------------------------------------------------------------
+##  $Log: feed_contacts.pl,v $
+##  Revision 1.4  2003/01/23 15:30:24  janosch
+##  Added a Cmd Line to feed_contacts.pl
+##
+##  Revision 1.3  2003/01/20 21:50:49  joko
+##  + now utilizing 'org::netfrag::preambel'
+##
+##  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( ../libs );
+use org::netfrag::preambel;
+
 
-use lib qw( c:\home\amo\develop\netfrag.org\nfo\perl\libs );
+# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main
 
 use org::netfrag::shortcuts qw( run_cmd );
 
@@ -19,6 +35,7 @@
 #run_cmd('feed.pl --action=save --source=outlook --source-type=ContactItem --source-node=test.test --target=ldap --target-node=Addressbooks --mapping-module=Torus::Map::Outlook');
 #run_cmd('feed.pl --action=save --source=outlook --source-type=ContactItem --source-node=test.test --target=ldap --target-node=Adressen --mapping-module=Torus::Map::Outlook');
 run_cmd('feed.pl --action=save --source=outlook --source-type=ContactItem --source-node=Adressen.test --target=ldap --target-node=Adressen.test --mapping-module=Torus::Map::Outlook');
+#run_cmd('feed.pl --action=save --source=outlook --source-type=ContactItem --source-node=test --target=ldap --target-node=test --mapping-module=Torus::Map::Outlook');
 #run_cmd('feed.pl --action=save --source=outlook --source-type=ContactItem --source-node=test.test --target=ldap --target-node=Adressen.test --mapping-module=Torus::Map::Outlook');
 
 print $hr, "\n";