42 |
|
|
43 |
$self->{config} = new Config::IniFiles( -file => $config_file ); |
$self->{config} = new Config::IniFiles( -file => $config_file ); |
44 |
|
|
45 |
my $index_file = $self->{config}->val('global', 'index') || croak "can't find [index] section in config file with path of index"; |
$self->{config_file} = $config_file; |
46 |
|
$config_file =~ s/\.conf.*$//; |
47 |
|
$self->{config_name} = $config_file; |
48 |
|
|
49 |
|
my $index_dir = $self->{config}->val('global', 'index') || croak "can't find [index] section in config file with path of index"; |
50 |
|
|
51 |
$self->{mgr} = Mail::Box::Manager->new(access => 'r'); |
$self->{mgr} = Mail::Box::Manager->new(access => 'r'); |
52 |
$self->{index_file} = $index_file; |
$self->{index_dir} = $index_dir; |
53 |
|
|
54 |
# placeholder for opened folders |
# placeholder for opened folders |
55 |
$self->{folder} = {}; |
$self->{folder} = {}; |