outlook2ldap/bin/feed_contacts.pl

#!/usr/bin/perl

## --------------------------------------------------------------------------------
##  $Id: feed.pl,v 1.3 2003/01/20 16:29:48 joko Exp $
## --------------------------------------------------------------------------------
##  $Log: feed.pl,v $
## --------------------------------------------------------------------------------


use strict;
use warnings;

BEGIN {
  use FindBin qw($Bin);
  use lib qw(
    $Bin/../../libs
  );
}


# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   main

use org::netfrag::shortcuts qw( run_cmd );

my $hr = "-" x 40;

print $hr, "\n";
print " Outlook vs. LDAP", "\n";
print $hr, "\n";
#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.test --target=ldap --target-node=Adressen.test --mapping-module=Torus::Map::Outlook');

print $hr, "\n";
print " LDAP vs. Outlook", "\n";
print $hr, "\n";
print "   ... to be implemented!!!", "\n";

1;
1	joko	1.1	#!/usr/bin/perl
2
3	joko	1.2	## --------------------------------------------------------------------------------
4			## $Id: feed.pl,v 1.3 2003/01/20 16:29:48 joko Exp $
5			## --------------------------------------------------------------------------------
6			## $Log: feed.pl,v $
7			## --------------------------------------------------------------------------------
8
9
10	joko	1.1	use strict;
11			use warnings;
12
13			BEGIN {
14			use FindBin qw($Bin);
15	joko	1.2	use lib qw(
16			$Bin/../../libs
17			);
18	joko	1.1	}
19
20	joko	1.2
21			# - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - main
22	joko	1.1
23			use org::netfrag::shortcuts qw( run_cmd );
24
25			my $hr = "-" x 40;
26
27			print $hr, "\n";
28			print " Outlook vs. LDAP", "\n";
29			print $hr, "\n";
30			#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');
31			#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');
32			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');
33			#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');
34
35			print $hr, "\n";
36			print " LDAP vs. Outlook", "\n";
37			print $hr, "\n";
38			print " ... to be implemented!!!", "\n";
39
40			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26