Jakub Wilk avatar Jakub Wilk committed 6ed7d12

Rename: withholdings -> blocked.

Comments (0)

Files changed (3)

+mbank-cli (20120704) unstable; urgency=low
+
+  The “withholdings” command has been renamed to “blocked”.
+
+ -- Jakub Wilk <jwilk@debian.org>  Sat, 04 Aug 2012 23:07:47 +0200
+
 mbank-cli (20110617) unstable; urgency=low
 
   mbank-cli no longer creates debug files automatically by default. Use the

doc/mbank-cli.xml

 	<cmdsynopsis>
 		<command>&p;</command>
 		<arg choice='opt' rep='repeat'><replaceable>option</replaceable></arg>
-		<arg choice='plain'>withholdings</arg>
+		<arg choice='plain'>blocked</arg>
 		<group choice='req'>
 			<arg choice='plain'><replaceable>account</replaceable></arg>
 			<arg choice='plain'><option>-M</option> <arg choice='plain' rep='repeat'><replaceable>account</replaceable></arg></arg>
 </refsection>
 
 <refsection>
-	<title>withholdings action</title>
+	<title>blocked action</title>
 	<para>
-		Show list of withholdings for the selected account(s).
+		Show list of operations that were carried out but not booked.
 	</para>
 	&select-accounts;
 	&select-accounts-wildcard;
   mbank-cli [list]
   mbank-cli history [--range <start-date> <end-date> | --from <start-date> [--to <end-date>] ] {<account> | -M <account>... | -A}
   mbank-cli future {<account> | -M <account>... | -A}
-  mbank-cli withholdings {<account> | -M <account>... | -A}
+  mbank-cli blocked {<account> | -M <account>... | -A}
   mbank-cli funds
   mbank-cli deposits
   mbank-cli notices
   do_logout();
   exit EXIT_OK;
 }
-elsif (grep $action eq $_, qw(history future withholdings))
+elsif (grep $action eq $_, qw(history future blocked))
 {
   $opt_multiple_accounts++ if $opt_multiple_accounts == 0 and $#ARGV > 0;
   if ($opt_multiple_accounts > 1)
       printf "%s\t%s\t%s\t%8.2f %s\t%s\n", $date, $receiver, $title, $amount, $currency, $status;
     }
   }
-  elsif ($action eq 'withholdings')
+  elsif ($action eq 'blocked')
   {
     my $web_operations = download $operations_req;
     next if not $web_operations->{content} =~ m{<a onclick="doSubmit\('/witholdings_list.aspx'};
-    my $web_withholdings = download POST("$mbank/witholdings_list.aspx");
-    my $withholding_re = qr{
+    my $web_blocked = download POST("$mbank/witholdings_list.aspx");
+    my $blocked_re = qr{
       <span[ ]id="\w+"> (\d\d)-(\d\d)-(\d{4}) </span>   .*?
       <span[ ]id="\w+"> (\d\d)-(\d\d)-(\d{4}) </span>   .*?
       <span[ ]id="\w+"> ([0-9, ]+) \s+ ([A-Z]+) </span>   .*?
       <span[ ]id="\w+"> ([^>]+?) </span>
     }x;
-    while ($web_withholdings->{content} =~ m{$withholding_re}go)
+    while ($web_blocked->{content} =~ m{$blocked_re}go)
     {
       my $reg_date = "$3-$2-$1";
       my $fin_date = "$6-$5-$4";
       my $amount = parse_amount $7;
-      defined $amount or api_error('withholdings-amount');
+      defined $amount or api_error('blocked-amount');
       my $currency = $8;
       my $title = localize_html_string $9;
       printf "$name\t", $name if $opt_multiple_accounts;
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.