mbank-cli-defconf.patch

   1 diff -uNr mbank-cli-20120215/mbank-cli mbank-cli-20120215.new/mbank-cli
   2 --- mbank-cli-20120215/mbank-cli        2012-02-15 22:48:39.000000000 +0100
   3 +++ mbank-cli-20120215.new/mbank-cli    2012-02-23 14:36:01.943098229 +0100
   4 @@ -70,8 +70,8 @@
   5
   6  my $mbank_host = undef; # use set_country() to define
   7  my $mbank = undef; # use set_country() to define
   8 -my $cookie_jar_file = './cookie-jar.txt';
   9 -my $config_file = './mbank-cli.conf';
  10 +my $cookie_jar_file = "$ENV{ HOME }/.mbank-cli_cookie-jar.txt";
  11 +my $config_file = "$ENV{ HOME }/.mbank-cli.conf";
  12  my $http_read_size_hint = 1 << 20; # 1 MiB
  13
  14  sub set_country($)
  15 @@ -302,7 +302,7 @@
  16      eval { $digest_module = Digest->new('SHA-1'); } if $@;
  17      $digest_module = Digest->new('MD5') if $@;
  18    }
  19 -  user_error "Can't open the config file: $!" unless open my $config, '<', $config_file;
  20 +  user_error "Can't open the config file ($config_file): $!" unless open my $config, '<', $config_file;
  21    my $prev_digest = '';
  22    $main::digest_module->new();
  23    my $header = '';