Business-OCV

 view release on metacpan or  search on metacpan

OCV.pm  view on Meta::CPAN

			LinkText		=> 'A20',
			PinPadStatus	=> 'A1',
			NumPhysPinPads	=> 'A1',
			NumVirtPinPads	=> 'A3',
			NumTransTx		=> 'A8',
			NumTransRx		=> 'A8',
			NumClients		=> 'A3',
			PeakClients		=> 'A3',
			StartTime		=> 'A20',
			ElapsedTime		=> 'A20',
			RejectQTimeout	=> 'A4',
			RejectParameter	=> 'A4',
			RejectOffline	=> 'A4',
			RejectBusy		=> 'A4',
			RejectLink		=> 'A4',
			NumStatusReq	=> 'A4',
			EFTSvrAddress	=> 'A15',
			EFTSvrPort		=> 'A4',
			PinPadPort		=> 'A12',
			PinPadTimeout	=> 'A3',
			NetworkName		=> 'A20',
			VPPsPeak		=> 'A3',
			VPPsCurrent		=> 'A3',
			TPMCurrent		=> 'A3',
			TPMPeak			=> 'A3'
		],

	TT_STATS() . STATS_PERMANENT() =>
		[
			StartFlag	=> 'A1',

utilities/OCVtotals  view on Meta::CPAN

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";

utilities/ocv  view on Meta::CPAN

#   938700000 = 99/10/01 00:00:00 in TZ=Australia/NSW
my $sn = 0;
sub txnref { $sn %= 100; sprintf("%s%X%02d", "$$-", time()-938700000, $sn++) }

# required parameters are: server address, client ID, account number
my $ocv = new OCV (
		Server		=> $server, 
		ClientId	=> CLIENTID, 
		AccountNum	=> $accountnum, 
		TxnRef		=> \&txnref, 
		Timeout		=> TIMEOUT, 
		LogDir		=> LOGDIR,
		TxnLog		=> TXNLOG,
		DebugLog	=> DEBUGLOG,
		Debug		=> 1, 
	)
	or die "Could not create OCV object: $@\n";

my $statistics = $ocv->statistics(SubCode => STATS_CURRENT) 
	or warn "Statistics: $@\n";

utilities/ocvtest  view on Meta::CPAN

$server = $server . ':' . PORT unless $server =~ /:\d+/;

print <<EOM;

OCV Arguments

          Server: $server          (standard test port = ${\PORT})
  Account Number: $accountnum

         Timeout: ${\TIMEOUT} s
       BUSY Wait: ${\BUSYWAIT} s
   BUSY Attempts: ${\BUSYATTEMPTS}

       Client ID: ${\CLIENTID}

   Log Directory: ${\LOGDIR}
 Transaction Log: ${\TXNLOG}
       Debug Log: ${\DEBUGLOG}
    Logs will be: ${TRUNCATE ? \'truncated' : \'appended'}