mbank-cli-defconf.patch

   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
   4  .RE
   5  .SH "FILES"
   6  .PP
   7 -(Due to experimental nature of
   8 -mbank\-cli
   9 -these files are expected to be in the current working directory\&.)
  10 +These files are expected to be in the users home directory\&.
  11  .PP
  12 -\fImbank\-cli\&.conf\fR
  13 +\fI\&.mbank\-cli\&.conf\fR
  14  .RS 4
  15  The default configuration file\&.
  16  .sp
  17 @@ -337,7 +335,7 @@ To create the configuration file, use th
  18  .sp
  19  .RS 4
  20  .nf
  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"
  25  EOF\fR
  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
  29
  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";
  34
  35  $::locale_codeset = langinfo(CODESET);
  36  %::fallback_map = (
  37 @@ -227,7 +227,7 @@ sub preread_config()
  38      eval { $digest_module = Digest->new('SHA-1'); } if $@;
  39      $digest_module = Digest->new('MD5') if $@;
  40    }
  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;
  43    my $prev_digest = '';
  44    $main::digest_module->new();
  45    my $header = '';