1 --- ./doc/mbank-cli.1.org 2009-08-18 18:57:10.000000000 +0200
2 +++ ./doc/mbank-cli.1 2009-11-15 15:45:10.753638992 +0100
3 @@ -321,11 +321,9 @@ $ \fB\&./mbank\-cli\fR logout
7 -(Due to experimental nature of
9 -these files are expected to be in the current working directory\&.)
10 +These files are expected to be in the users home directory\&.
12 -\fImbank\-cli\&.conf\fR
13 +\fI\&.mbank\-cli\&.conf\fR
15 The default configuration file\&.
17 @@ -337,7 +335,7 @@ To create the configuration file, use th
21 -$ \fBcat\fR <<EOF | \fBgpg\fR \-\-armor \-\-encrypt \-\-default\-recipient\-self > \fI\fImbank\-cli\&.conf\fR\fR
22 +$ \fBcat\fR <<EOF | \fBgpg\fR \-\-armor \-\-encrypt \-\-default\-recipient\-self > \fI\fI\&.mbank\-cli\&.conf\fR\fR
23 \fBLogin \fR\fB\fI123456\fR\fR\fB
24 Password "\fR\fB\fIyour\-password\fR\fR\fB"
26 --- ./mbank-cli.org 2009-08-18 18:57:08.000000000 +0200
27 +++ ./mbank-cli 2009-11-15 15:42:18.496989544 +0100
28 @@ -68,7 +68,7 @@ chdir dirname($0) or die "Can't change w
30 my $mbank = 'https://www.mbank.com.pl';
31 my $cookie_jar_file = './cookie-jar.txt';
32 -my $config_file = './mbank-cli.conf';
33 +my $config_file = "$ENV{ HOME }/.mbank-cli.conf";
35 $::locale_codeset = langinfo(CODESET);
37 @@ -227,7 +227,7 @@ sub preread_config()
38 eval { $digest_module = Digest->new('SHA-1'); } if $@;
39 $digest_module = Digest->new('MD5') if $@;
41 - user_error "Can't open the config file: $!" unless open CONFIG, '<', $config_file;
42 + user_error "Can't open the config file ($config_file): $!" unless open CONFIG, '<', $config_file;
44 $main::digest_module->new();