outlook2ldap/bin/genSchema.pl

#!/usr/bin/perl

use strict;
use warnings;

use Torus::Reflection::schema;

my $sourceFileName = "etc/outlook_ole_fields.csv";

my $schemaData=Torus::Reflection::schema::genSchema($sourceFileName);

if ($schemaData) { 
  print $schemaData; 
} else {
  print "no schema data could be generated", "\n";
}
1	#!/usr/bin/perl
2
3	use strict;
4	use warnings;
5
6	use Torus::Reflection::schema;
7
8	my $sourceFileName = "etc/outlook_ole_fields.csv";
9
10	my $schemaData=Torus::Reflection::schema::genSchema($sourceFileName);
11
12	if ($schemaData) {
13	print $schemaData;
14	} else {
15	print "no schema data could be generated", "\n";
16	}
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26