view release on metacpan or  search on metacpan

utilities/OCVtotals  view on Meta::CPAN

#!/usr/bin/perl -w
# Retrieve OCV Totals from the OCV server.
#  - note the OCV totals are generated internally to the OCV - they are 
#    not provided by the bank.
# **
# NOTE: this procedure (using the OCV server) is unreliable, the OPS
# maintains it's own totals logging and this should be used instead.
# **
#
# Note on Settlement Dates:
#  The desired day is specified as an offset from the "current" settlement
# day. The OCV's notion of the current settlement day is generally that for
# the last transaction - which may not have been for some time. i.e. the
# current day may not be "today"! The OCV transparently skips idle days,
# so requesting an offset of say 0 and then 1 on the 1/3/00 could conceivably 
# return settlement dates of 25/2/00 and 7/2/00 if there were no transactions
# on any days between.
#  Furthermore, it is unspecified whether settlement days are independant of 
# Accounts - that is, whether the loop below could return different settlement
# days for the same day offset but different account numbers. To avoid any 
# ambiguity the settlement date is printed with each listing.

use strict;

use OCV;

my $server = shift;
my $accountnum = shift || 1;
my $day = shift || 0;

$SIG{__DIE__} = sub { die "$0: @_" };

die "usage: $0 <server<:port>> [<account number>] [<day>]\n" unless $server;


# required parameters are: server address, client ID, account number
$0 =~ /\/?([^\/]+)$/;	# basename
my $ocv = new OCV
	(
		Server => $server, 
		ClientId => substr($1, 0, 8), 
		Timeout => 60, 
		TxnLog => './var/totals.log',
		Debug => 0, DebugLog => './var/totals.debug',
	)
	or die "Could not create OCV object: $@\n";

my @statistics = $ocv->statistics(type => STATS_CURRENT) 
	or die "ocv->statistics failed: $@\n";

print "\n";
#print "Server up since $statistics[14]\n";

# get Accounts list
# - turn into number => name hash
#   - account number is actually a string, replete with leading 0's
my $l = $ocv->accountlist()->Accounts	# ref to list of OCV::Message objects
	or die "ocv->accountlist failed: $@\n";
my %accounts = map {$_->Num+0 => $_->Name} @{$l};

# if a specific account number was given, confirm it exists and skip
# all other accounts - i.e. only get totals for given account
# - also, skip Default account (0), as it's not a real account
delete $accounts{0};
if (defined($accountnum))
{
	die "no such account number [$accountnum]\n" 
		unless exists $accounts{$accountnum};
	%accounts = ($accountnum => $accounts{$accountnum});
}


for my $n (sort keys %accounts)
{