--- trunk/MWS.pm	2004/05/08 16:24:46	26
+++ trunk/MWS.pm	2004/05/08 20:34:26	27
@@ -42,10 +42,14 @@
 
 	$self->{config} = new Config::IniFiles( -file => $config_file );
 
-	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;
+	$config_file =~ s/\.conf.*$//;
+	$self->{config_name} = $config_file;
+
+	my $index_dir = $self->{config}->val('global', 'index') || croak "can't find [index] section in config file with path of index";
 
 	$self->{mgr} = Mail::Box::Manager->new(access => 'r');
-	$self->{index_file} = $index_file;
+	$self->{index_dir} = $index_dir;
 
 	# placeholder for opened folders
 	$self->{folder} = {};