Mailing List Archive

commit e909f7705dcd5a6f25312bd8a77d426d40e147cc
Author: Mark Johnson <mark@endpoint.com>
Date: Sat Jan 9 14:49:10 2010 -0500

Integrate gateway logging to Vend::Payment::CyberSource

lib/Vend/Payment/CyberSource.pm | 129 ++++++++++++++++++++++++++++++++++++++-
1 files changed, 128 insertions(+), 1 deletions(-)
---
diff --git a/lib/Vend/Payment/CyberSource.pm b/lib/Vend/Payment/CyberSource.pm
index 7a7c051..0927915 100644
--- a/lib/Vend/Payment/CyberSource.pm
+++ b/lib/Vend/Payment/CyberSource.pm
@@ -1783,6 +1783,16 @@ sub cybersource {
my $cybs = Vend::Payment::CyberSource->new($opt);
my %resp;

+ my $gwl = Vend::Payment::CyberSourceGWL
+ -> new({
+ trans_type => $transtype,
+ origid => $opt->{origid},
+ Enabled => charge_param('gwl_enabled'),
+ LogTable => charge_param('gwl_table'),
+ Source => charge_param('gwl_source'),
+ })
+ ;
+
# Wrapping full call code to APIs in eval to
# implement interaction time limit on response.
eval {
@@ -1809,12 +1819,16 @@ sub cybersource {
die $sigalrm_die_msg;
};

-#::logDebug("cybersource Sending Request...\n%s", $debug_scrub->(\%request));
+ my $scrubbed_request = $debug_scrub->(\%request);
+#::logDebug("cybersource Sending Request...\n%s", $scrubbed_request);
+ $gwl->request(eval $scrubbed_request);

my $start = time;
alarm $timeout;

+ $gwl->start;
my $rv = $cybs->send(\%request, \%resp);
+ $gwl->stop;

alarm 0;
die $sigalrm_die_msg if $should_have_died;
@@ -1822,6 +1836,7 @@ sub cybersource {
my $end = time;

#::logDebug("cybersource Response (%ds):\n%s", $end - $start, ::uneval(\%resp));
+ $gwl->response(\%resp);

# Initiate a timeout payment if the gateway response
# itself was a timeout error
@@ -1875,6 +1890,46 @@ sub cybersource {
387 => 'PayPal authorization failed',
);

+ my %reason_result_map = (
+ 100 => 1,
+ 101 => 0,
+ 102 => 0,
+ 150 => -1,
+ 151 => -1,
+ 152 => -1,
+ 200 => 0,
+ 201 => 0,
+ 202 => 0,
+ 203 => 0,
+ 204 => 0,
+ 205 => 0,
+ 207 => 0,
+ 208 => 0,
+ 209 => 0,
+ 210 => 0,
+ 211 => 0,
+ 221 => 0,
+ 223 => 0,
+ 230 => 0,
+ 231 => 0,
+ 232 => 0,
+ 233 => 0,
+ 234 => -1,
+ 235 => 0,
+ 236 => 0,
+ 237 => 0,
+ 238 => 0,
+ 239 => 0,
+ 240 => 0,
+ 241 => 0,
+ 242 => 0,
+ 243 => 0,
+ 246 => 0,
+ 247 => 0,
+ 250 => -1,
+ 387 => 0,
+ );
+
# Stripping out irritating prefix of each service run from each different
# type of transaction. Will leave in the unadulterated versions too, in
# case anyone actually needs that distinction present.
@@ -1946,6 +2001,9 @@ sub cybersource {
$resp{transtype} = $inv_trans_map{$transtype} || $transtype;
$resp{acct_type} = $acct_type;
$resp{rc_msg} = $reason_code_map{ $resp{reasonCode} } || 'Unknown';
+ $resp{result_code} = $reason_result_map{ $resp{reasonCode} } || -2;
+
+ $gwl->response(\%resp);

#::logDebug("decision: $status, reason code: $resp{reasonCode}");

@@ -2512,4 +2570,73 @@ sub form_header {
return $header;
}

+package Vend::Payment::CyberSourceGWL;
+
+use Vend::Payment::GatewayLog;
+use base qw/Vend::Payment::GatewayLog/;
+
+# log_it() must be overridden.
+sub log_it {
+ my $self = shift;
+
+ my $request = $self->request;
+ unless ($request) {
+ ::logDebug('Nothing to write to %s: no request present', $self->table);
+ return;
+ }
+
+ unless ($self->response) {
+
+ if ($Vend::Payment::Global_Timeout) {
+ my $msg = errmsg('No response. Global timeout triggered');
+ ::logDebug($msg);
+ $self->response({
+ reasonCode => -2,
+ rc_msg => $Vend::Payment::Global_Timeout,
+ });
+ }
+ else {
+ my $msg = errmsg('No response. Reason unknown');
+ ::logDebug($msg);
+ $self->response({
+ reasonCode => -3,
+ rc_msg => $msg,
+ });
+ }
+ }
+ my $response = $self->response;
+
+ my %fields = (
+ trans_type => $response->{transtype} || $self->{trans_type},
+ processor => 'cybersource',
+ catalog => $Vend::Cfg->{CatalogName},
+ result_code => $response->{result_code} || '',
+ result_subcode => $response->{decision} || '',
+ reason_code => $response->{reasonCode} || '',
+ response_msg => $response->{rc_msg} || '',
+ request_id => $response->{requestID} || '',
+ order_number => $response->{merchantReferenceCode} || $request->{merchantReferenceCode} || '',
+ request_duration => $self->duration,
+ request_date => $self->timestamp,
+ email => $request->{billTo_email} || '',
+ request => ::uneval($request) || '',
+ response => ::uneval($response) || '',
+ session_id => $::Session->{id},
+ request_source => $self->source,
+ );
+
+ $fields{order_md5} =
+ Digest::MD5::md5_hex(
+ $request->{billTo_email},
+ $self->{trans_type},
+ $self->{origid},
+ $request->{purchaseTotals_grandTotalAmount},
+ $::Session->{id},
+ map { ($_->{code}, $_->{quantity}) } @$Vend::Items
+ )
+ ;
+
+ $self->write(\%fields);
+}
+
1;

_______________________________________________
interchange-cvs mailing list
interchange-cvs@icdevgroup.org
http://www.icdevgroup.org/mailman/listinfo/interchange-cvs