view release on metacpan or  search on metacpan

lib/Business/OnlinePayment/IATSPayments.pm  view on Meta::CPAN

  '43' => 'Incorrect AVS.',
  '45' => 'Credit card name blocked. Call iATS at 1-888-955-5455.',
  '46' => 'Card tumbling. Call iATS at 1-888-955-5455.',
  '47' => 'Name tumbling. Call iATS at 1-888-955-5455.',
  '48' => 'IP blocked. Call iATS at 1-888-955-5455.',
  '49' => 'Velocity 1 – IP block. Call iATS at 1-888-955-5455.',
  '50' => 'Velocity 2 – IP block. Call iATS at 1-888-955-5455.',
  '51' => 'Velocity 3 – IP block. Call iATS at 1-888-955-5455.',
  '52' => 'Credit card BIN country blocked. Call iATS at 1-888-955-5455.',
  '100' => 'DO NOT REPROCESS. Call iATS at 1-888-955-5455.',
  #Timeout 	The system has not responded in the time allotted. Call iATS at 1-888-955-5455.
);

our %failure_status = (
  '7'  => 'stolen',
  '8'  => 'inactive',
  '9'  => 'inactive',
  '14' => 'nsf',
  '24' => 'expired',
  '25' => 'stolen',
  '45' => 'blacklisted',

lib/Business/OnlinePayment/IATSPayments.pm  view on Meta::CPAN

  if ( defined( $processresult->{TRANSACTIONID} ) ) {
    $processresult->{TRANSACTIONID} =~ s/^\s+//;
    $processresult->{TRANSACTIONID} =~ s/\s+$//;
  }
  $self->authorization($processresult->{TRANSACTIONID} || '');

  if ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*OK(:\s*\d+:)?(\w)?\s*$/i ) {
    $self->is_success(1);
    $self->avs_code($2); #avs_code?  sure looks like one

  } elsif ( $processresult->{AUTHORIZATIONRESULT} =~ /^\s*Timeout\s*$/i ) {
    $self->is_success(0);
    $self->error_message('The system has not responded in the time allotted. '.
                         'Call iATS at 1-888-955-5455.');

  } elsif ( $processresult->{AUTHORIZATIONRESULT}
              =~ /^\s*REJ(ECT)?:\s*(\d+)\s*$/i
          )
  {
    $self->is_success(0);
    $self->result_code($2);