diff options
Diffstat (limited to 'VirtualNet.pm')
| -rw-r--r-- | VirtualNet.pm | 86 |
1 files changed, 27 insertions, 59 deletions
diff --git a/VirtualNet.pm b/VirtualNet.pm index 3344f45..07468e3 100644 --- a/VirtualNet.pm +++ b/VirtualNet.pm @@ -68,25 +68,9 @@ sub submit { my %content = $self->content; my $action = lc($content{'action'}); - #die 'eSec only supports "Authorization Only" transactions' - # unless $action eq 'authorization only'; - - #my %typemap = ( - # "VISA card" => 'visa', - # "MasterCard" => 'mastercard', - # "Discover card" => 'discover', #not supported... - # "American Express card" => 'amex', - # "Diner's Club/Carte Blanche" => 'dinersclub', - # "enRoute" => 'enroute', #not supported... - # "JCB" => 'jcb', - # "BankCard" => 'bankcard', - #); - #my $cardtype = $self->test_transaction - # ? 'testcard' - # : $typemap{cardtype($content{'card_number'})}; - - #? what's supported - if ( $self->transaction_type() =~ + + #? what's supported + if ( $self->transaction_type() =~ /^(cc|visa|mastercard|american express|discover)$/i ) { $self->required_fields(qw/type action amount card_number expiration/); } else { @@ -131,43 +115,30 @@ sub submit { if ( $page =~ /^(\d+)\s+\-\s+(\S.*)$/ ) { die "VirtualNet protocol error: $page"; - #$self->is_success(0); - #$self->result_code($1); - #$self->error_message($2); - #$self->error_message($page); - } else { - warn "protocol sucessful, decoding VisaNet-II response\n" if $DEBUG; - - isEvenParity($page) or die "VisaNet-II response not even parity"; - - $page =~ s/(.)/pack('C', unpack('C',$1) & 0x7f)/ge; #drop parity bits - - #warn $page; + } - my %response; - if ( $action eq 'authorization only' ) { - %response = $self->eis1080_response( $page ); - } elsif ( $action eq 'post authorization' ) { - %response = $self->eis1081_response( $page ); - #} elsif ( $action eq 'normal authorization' ) { - # croak 'Normal Authorization not supported'; - #} elsif ( $action eq 'credit' ) { - # croak 'Credit not (yet) supported'; - } + warn "protocol sucessful, decoding VisaNet-II response\n" if $DEBUG; -# $self->is_success($response{is_success}); -# $self->result_code($response{result_code}); -# $self->error_message($response{error_message}); -# $self->authorization($response{authorization}); + isEvenParity($page) or die "VisaNet-II response not even parity"; + $page =~ s/(.)/pack('C', unpack('C',$1) & 0x7f)/ge; #drop parity bits - for my $field ( qw( is_success result_code error_message authorization - authorization_source_code returned_ACI - transaction_identifier validation_code - transaction_sequence_num local_transaction_date - local_transaction_time AVS_result_code ) ) { - $self->$field($response{$field}); - } + my %response; + if ( $action eq 'authorization only' ) { + %response = $self->eis1080_response( $page ); + } elsif ( $action eq 'post authorization' ) { + %response = $self->eis1081_response( $page ); + #} elsif ( $action eq 'normal authorization' ) { + # croak 'Normal Authorization not supported'; + #} elsif ( $action eq 'credit' ) { + # croak 'Credit not (yet) supported'; + } + for my $field ( qw( is_success result_code error_message authorization + authorization_source_code returned_ACI + transaction_identifier validation_code + transaction_sequence_num local_transaction_date + local_transaction_time AVS_result_code ) ) { + $self->$field($response{$field}); } } @@ -267,9 +238,9 @@ sub eis1080_request { # ***FIXME*** $content .= '705'; # 49-51 3 Time Zone Differential: 705=EST $content .= $self->mcc; # 52-55 4 Metchant Category Code: 5999 - $content .= 'N'; # 56 1 Requested ACI (Authorization + $content .= 'Y'; # 56 1 Requested ACI (Authorization # Characteristics Indicator): - # N=Device is not CPS capable + # Y=Device is CPS capable $content .= $seq; # 57-60 4 Tran Sequence Number $content .= '56'; # 61-62 2 Auth Transaction Code: # 56=Card Not Present @@ -389,9 +360,6 @@ sub eis1080_response { $response{result_code} = $response{response_code}; $response{error_message} = $response{auth_response_text}; $response{authorization} = $response{approval_code}; - #$response{returned_ACI} = $response{returned_ACI}; - #$response{authorization_source_code} = $response{authorization_source_code}; - #$response{transaction_sequence_num} = $response{transaction_sequence_num}; %response; } @@ -514,12 +482,12 @@ sub eis1081_request { #14-35 22 A/N Cardholder Account Number Left-Justified/Space-Filled 4.30 $detail .= substr( $param->{card_number}.' ', 0, 22 ); - $detail .= 'N'; # 36 1 Requested ACI (Authorization + $detail .= 'Y'; # 36 1 Requested ACI (Authorization # Characteristics Indicator): # N (4.163) # 37 1 A/N Returned ACI (4.168) - $detail .= $param->{returned_ACI} || 'N'; + $detail .= $param->{returned_ACI} || ' '; # *** 38 1 A/N Authorization Source Code (4.13) $detail .= $param->{authorization_source_code} || '6'; |