outlook2ldap/libs/loadConfig.pm

package loadConfig;

use strict;
use warnings;

use AppConfig qw(:expand :argcount);

  require Exporter;
  our @ISA = qw(Exporter);
  our @EXPORT = qw( $config );

  # ==================================
  #  setup configuration
  # ==================================

  our $config;
  
  sub raiseAppConfigError {
    my $error = shift;
    print "error while accessing configuration-data: ", $error, "\n";
  }
  
  my $cfgfile_name = '../etc/syncOutlookContacts.ini';
  $config = AppConfig->new({
          CASE   => 1,
                ERROR  => \&raiseAppConfigError,
          GLOBAL => {
                  #DEFAULT  => "<unset>",
                  DEFAULT  => "",
                  ARGCOUNT => ARGCOUNT_ONE,
              },
          CREATE => 1,
      });
  #$config->define("debug_level", { ARGCOUNT => ARGCOUNT_ONE } );
  $config->define("mapi_ProfilePass", { ARGCOUNT => ARGCOUNT_NONE, DEFAULT => "" } );
  $config->define("sync_map", { ARGCOUNT => ARGCOUNT_LIST } );
  $config->define("sync_mapping", { ARGCOUNT => ARGCOUNT_HASH } );

  $config->define("folders_use", { ARGCOUNT => ARGCOUNT_LIST } );
  $config->define("folders_map", { ARGCOUNT => ARGCOUNT_HASH } );

  if (! -e $cfgfile_name) {
    print "config-file \"$cfgfile_name\"does not exist.", "\n";
    exit;
  }
  $config->file($cfgfile_name);

  # ==================================
  
1;
1	joko	1.1	package loadConfig;
2
3			use strict;
4			use warnings;
5
6			use AppConfig qw(:expand :argcount);
7
8			require Exporter;
9			our @ISA = qw(Exporter);
10			our @EXPORT = qw( $config );
11
12			# ==================================
13			# setup configuration
14			# ==================================
15
16			our $config;
17
18			sub raiseAppConfigError {
19			my $error = shift;
20			print "error while accessing configuration-data: ", $error, "\n";
21			}
22
23			my $cfgfile_name = '../etc/syncOutlookContacts.ini';
24			$config = AppConfig->new({
25			CASE => 1,
26			ERROR => \&raiseAppConfigError,
27			GLOBAL => {
28			#DEFAULT => "<unset>",
29			DEFAULT => "",
30			ARGCOUNT => ARGCOUNT_ONE,
31			},
32			CREATE => 1,
33			});
34			#$config->define("debug_level", { ARGCOUNT => ARGCOUNT_ONE } );
35			$config->define("mapi_ProfilePass", { ARGCOUNT => ARGCOUNT_NONE, DEFAULT => "" } );
36			$config->define("sync_map", { ARGCOUNT => ARGCOUNT_LIST } );
37			$config->define("sync_mapping", { ARGCOUNT => ARGCOUNT_HASH } );
38
39			$config->define("folders_use", { ARGCOUNT => ARGCOUNT_LIST } );
40			$config->define("folders_map", { ARGCOUNT => ARGCOUNT_HASH } );
41
42			if (! -e $cfgfile_name) {
43			print "config-file \"$cfgfile_name\"does not exist.", "\n";
44			exit;
45			}
46			$config->file($cfgfile_name);
47
48			# ==================================
49
50			1;
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26