use vars qw( $conf $DEBUG $me );
use vars qw( $realtime_bop_decline_quiet ); #ugh
use Data::Dumper;
-use Business::CreditCard 0.28;
+use Business::CreditCard 0.35;
use FS::UID qw( dbh );
use FS::Record qw( qsearch qsearchs );
use FS::Misc qw( send_email );
}
}
+ my $log = FS::Log->new('FS::cust_main::Billing_Realtime::realtime_verify_bop');
+
if ( $transaction->is_success() ) {
$cust_pay_pending->status('authorized');
my $e = "Authorization successful but reversal failed, custnum #".
$self->custnum. ': '. $reverse->result_code.
": ". $reverse->error_message;
+ $log->warning($e);
warn $e;
return $e;
# Neither address nor postal code matches N N N N
if (my $avscode = uc($transaction->avs_code)) {
+
# map codes to accept/warn/reject
my $avs = {
'American Express card' => {
my $cardtype = cardtype($content{card_number});
if ($avs->{$cardtype}) {
my $avsact = $avs->{$cardtype}->{$avscode};
+ my $warning = '';
if ($avsact eq 'r') {
return "AVS code verification failed, cardtype $cardtype, code $avscode";
} elsif ($avsact eq 'w') {
- warn "AVS code verification did not occur, cardtype $cardtype, code $avscode";
+ $warning = "AVS did not occur, cardtype $cardtype, code $avscode";
} elsif (!$avsact) {
- warn "AVS code verification did not occur, unknown avscode, cardtype $cardtype, code $avscode";
+ $warning = "AVS code unknown, cardtype $cardtype, code $avscode";
} # else $avsact eq 'a'
+ if ($warning) {
+ $log->warning($warning);
+ warn $warning;
+ }
} # else $cardtype avs handling not implemented
} # else !$transaction->avs_code
$self->payinfo($transaction->card_token);
my $error = $self->replace;
if ( $error ) {
- warn "WARNING: error storing token: $error, but proceeding anyway\n";
+ my $warning = "WARNING: error storing token: $error, but proceeding anyway\n";
+ $log->warning($warning);
+ warn $warning;
}
}