--- nfo/perl/scripts/outlook2ldap/bin/feed_contacts.pl	2003/01/20 21:20:35	1.2
+++ nfo/perl/scripts/outlook2ldap/bin/feed_contacts.pl	2003/01/23 15:30:24	1.4
@@ -1,9 +1,15 @@
 #!/usr/bin/perl
 
 ## --------------------------------------------------------------------------------
-##  $Id: feed_contacts.pl,v 1.2 2003/01/20 21:20:35 joko Exp $
+##  $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
 ##
@@ -13,12 +19,8 @@
 use strict;
 use warnings;
 
-BEGIN {
-  use FindBin qw($Bin);
-  use lib qw(
-    $Bin/../../libs
-  );
-}
+use lib qw( ../libs );
+use org::netfrag::preambel;
 
 
 # - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main
@@ -33,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";