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	joko	1.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