+++ /dev/null
-##############################################################################\r
-# Business::OnlinePayment::OpenECHO\r
-#\r
-# Credit card transactions via SSL to\r
-# Electronic Clearing House (ECHO) Systems\r
-#\r
-# Refer to ECHO's documentation for more info\r
-# http://www.openecho.com/echo_gateway_guide.html\r
-#\r
-# AUTHOR\r
-# Michael Lehmkuhl <michael@electricpulp.com>\r
-#\r
-# SPECIAL THANKS\r
-# Jim Darden <jdarden@echo-inc.com>\r
-# Dan Browning <db@kavod.com>\r
-#\r
-# BUSINESS::ONLINEPAYMENT IMPLEMENTATION\r
-# Ivan Kohler <ivan-openecho@420.am>\r
-#\r
-# VERSION HISTORY\r
-# + v1.2 08/17/2002 Corrected problem with certain string comparisons.\r
-# + v1.3 08/23/2002 Converted Interchange GlobalSub to Vend::Payment module.\r
-# + v1.3.1 11/12/2002 Updated the OpenECHO_example.perl test script.\r
-# + v1.4 11/18/2002 Corrected a problem with Submit method when using LWP.\r
-# + v1.5 03/29/2003 Updated for additional status and avs_result codes.\r
-# + v1.6 08/26/2003 Cleaned up code (salim qadeer sqadeer@echo-inc.com)\r
-# + v1.6.2 09/23/2003 Added DH transaction type (salim qadeer sqadeer@echo-inc.com)\r
-# --------\r
-# + v0.1 08/26/2004 Business::OnlinePayment implementation\r
-#\r
-# Copyright (C) 2002 Electric Pulp. <info@electricpulp.com>\r
-# Copyright (C) 2004 Ivan Kohler\r
-#\r
-# This program is free software; you can redistribute it and/or modify\r
-# it under the terms of the GNU General Public License as published by\r
-# the Free Software Foundation; either version 2 of the License, or\r
-# (at your option) any later version.\r
-#\r
-# This program is distributed in the hope that it will be useful,\r
-# but WITHOUT ANY WARRANTY; without even the implied warranty of\r
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
-# GNU General Public License for more details.\r
-#\r
-# You should have received a copy of the GNU General Public\r
-# License along with this program; if not, write to the Free\r
-# Software Foundation, Inc., 59 Temple Place, Suite 330, Boston,\r
-# MA 02111-1307 USA.\r
-#\r
-################################################################################\r
-\r
-package Business::OnlinePayment::OpenECHO;\r
-\r
-use strict;\r
-use Carp;\r
-use Business::OnlinePayment 3;\r
-use Business::OnlinePayment::HTTPS;\r
-use vars qw($VERSION @ISA);\r
-\r
-@ISA = qw(Business::OnlinePayment::HTTPS);\r
-$VERSION = '0.01';\r
-\r
-sub set_defaults {\r
- my $self = shift;\r
-\r
- $self->server('wwws.echo-inc.com');\r
- $self->port('443');\r
- $self->path('/scripts/INR200.EXE');\r
-\r
- $self->build_subs(qw(\r
- order_number avs_code\r
- ));\r
- # order_type\r
- # md5 cvv2_response cavv_response\r
-\r
-}\r
-\r
-#map_fileds originally from AuthorizeNet.pm\r
-\r
-sub map_fields {\r
- my($self) = @_;\r
-\r
- ##AD (Address Verification) - 0.18 cents\r
- #AS (Authorization) - 0.18 cents\r
- #AV (Authorization with Address Verification) - 0.18 cents\r
- #CR (Credit) - 0.18 cents + 0.12 cents (discount fee returned to merchant)\r
- #DS (Deposit) - 0.18 cents + 0.12 cents\r
- #ES (Authorization and Deposit) - 0.18 cents + 0.12 cents + an extra 0.17%\r
- #EV (Authorization and Deposit with Address Verification) - 0.18 cents + 0.12 cents\r
- ##CK (System check) - 0.18 cents\r
- #DV (Electronic Check Verification) - check your contract\r
- #DD (Electronic Check Debit with Verification) - check your contract\r
- #DH (Electronic Check Debit ACH Only) - check your contract\r
- #DC (Electronic Check Credit) - check your contract\r
-\r
- my %content = $self->content();\r
-\r
- my $avs = $self->require_avs;\r
- $avs = 1 unless defined($avs) && length($avs); #default AVS on unless explicitly turned off\r
-\r
- my %map;\r
- if (\r
- $content{'type'} =~ /^(cc|visa|mastercard|american express|discover)$/i\r
- ) {\r
- if ( $avs ) {\r
- %map = ( 'normal authorization' => 'EV',\r
- 'authorization only' => 'AV',\r
- 'credit' => 'CR',\r
- 'post authorization' => 'DS',\r
- #'void' => 'VOID',\r
- );\r
- } else {\r
- %map = ( 'normal authorization' => 'ES',\r
- 'authorization only' => 'AS',\r
- 'credit' => 'CR',\r
- 'post authorization' => 'DS',\r
- #'void' => 'VOID',\r
- );\r
- }\r
- } elsif ( $content{'type'} =~ /^check$/i ) {\r
- %map = ( 'normal authorization' => 'DD',\r
- 'authorization only' => 'DV',\r
- 'credit' => 'DC',\r
- 'post authorization' => 'DH',\r
- #'void' => 'VOID',\r
- );\r
- } else {\r
- croak 'Unknown type: '. $content{'type'};\r
- }\r
-\r
- $content{'type'} = $map{lc($content{'action'})}\r
- or croak 'Unknown action: '. $content{'action'};\r
-\r
- $self->transaction_type($content{'type'});\r
-\r
- # stuff it back into %content\r
- $self->content(%content);\r
-\r
-}\r
-\r
-sub submit {\r
- my($self) = @_;\r
-\r
- $self->map_fields();\r
- $self->remap_fields(\r
- # => 'order_type',\r
- type => 'transaction_type',\r
- #action =>\r
- login => 'merchant_echo_id',\r
- password => 'merchant_pin',\r
- # => 'isp_echo_id',\r
- # => 'isp_pin',\r
- #transaction_key =>\r
- authorization => 'authorization', # auth_code => 'authorization',\r
- customer_ip => 'billing_ip_address',\r
- # 'billing_prefix',\r
- name => 'billing_name',\r
- first_name => 'billing_first_name',\r
- last_name => 'billing_last_name',\r
- company => 'billing_company_name',\r
- address => 'billing_address_1',\r
- # => 'billing_address_2',\r
- city => 'billing_city',\r
- state => 'billing_state',\r
- zip => 'billing_zip',\r
- country => 'billing_country',\r
- phone => 'billing_phone',\r
- fax => 'billing_fax',\r
- email => 'billing_email',\r
- card_number => 'cc_number',\r
- # => 'ccexp_month',\r
- # => 'ccexp_year',\r
- # => 'counter',\r
- # => 'debug',\r
-\r
- #XXX# => 'ec_*',\r
-\r
- 'amount' => 'grand_total',\r
- # => 'merchant_email',\r
- #invoice_number =>\r
- #customer_id =>\r
- # => 'merchant_trace_nbr',\r
- # => 'original_amount',\r
- # => 'original_trandate_mm',\r
- # => 'original_trandate_dd',\r
- # => 'original_trandate_yyyy',\r
- # => 'original_reference',\r
- order_number => 'order_number',\r
- # => 'shipping_flag',\r
-\r
- #description =>\r
- #currency =>\r
-\r
- #ship_last_name =>\r
- #ship_first_name =>\r
- #ship_company =>\r
- #ship_address =>\r
- #ship_city =>\r
- #ship_state =>\r
- #ship_zip =>\r
- #ship_country =>\r
-\r
- #expiration =>\r
- cvv2 => 'cnp_security',\r
-\r
- #check_type =>\r
- #account_name => 'ec_last_name' & 'ec_first_name',\r
- account_number => 'ec_account',\r
- #account_type =>\r
- bank_name => 'ec_bank_name',\r
- routing_code => 'ec_rt',\r
- #customer_org =>\r
- #customer_ssn =>\r
- license_num => 'ec_id_number',\r
- license_state => 'ec_id_state',\r
- #license_dob =>\r
-\r
- #recurring_billing => 'cnp_recurring',\r
- );\r
-\r
- #XXX hosted order_type?\r
- $self->{_content}{order_type} = 'S';\r
-\r
- #XXX counter field shouldn't be just a random integer (but it does need a\r
- #default this way i guess...\r
- $self->{_content}{counter} = int(rand(2**31));\r
-\r
- #ccexp_month & ccexp_year\r
- $self->{_content}{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/\r
- or croak "unparsable expiration ". $self->{_content}{expiration};\r
- my( $month, $year ) = ( $1, $2 );\r
- $month = '0'. $month if $month =~ /^\d$/;\r
- $self->{_content}{ccexp_month} = $month;\r
- $self->{_content}{ccexp_year} = $year;\r
-\r
- $self->{_content}{cnp_recurring} = 'Y'\r
- if exists($self->{_content}{recurring_billing})\r
- && $self->{_content}{recurring_billing} =~ /^y/i;\r
-\r
- #XXX echeck use customer_org and account_type to generate ec_account_type\r
-\r
- #XXX set required fields\r
- # https://wwws.echo-inc.com/ISPGuide-Fields2.asp\r
- $self->required_fields();\r
-\r
- my( $page, $response, %reply_headers) =\r
- $self->https_get( $self->get_fields( $self->fields ) );\r
-\r
- #XXX check $response and die if not 200?\r
-\r
- my $echotype1 = $self->GetEchoReturn($page, 1);\r
- my $echotype2 = $self->GetEchoReturn($page, 2);\r
- my $echotype3 = $self->GetEchoReturn($page, 3);\r
- my $openecho = $self->GetEchoReturn($page, 'OPEN');\r
-\r
- # server_response\r
- # avs_code\r
- # order_number\r
- # is_success\r
- # result_code\r
- # authorization\r
- #md5 cvv2_response cavv_response ...?\r
-\r
- # Get all the metadata.\r
- $self->server_response($page);\r
- $self->authorization( $self->GetEchoProp($echotype3, 'auth_code') );\r
- $self->order_number( $self->GetEchoProp($echotype3, 'order_number') );\r
-\r
- #XXX ???\r
- #$self->reference( $this->GetEchoProp($echotype3, "echo_reference");\r
-\r
- $self->result_code( $self->GetEchoProp($echotype3, 'status') );\r
- $self->avs_code( $self->GetEchoProp($echotype3, 'avs_result') );\r
-\r
- #XXX ???\r
- #$self->security_result( $self->GetEchoProp($echotype3, 'security_result');\r
- #$self->mac( $self->GetEchoProp($echotype3, 'mac') );\r
- #$self->decline_code( $self->GetEchoProp($echotype3, 'decline_code') );\r
-\r
- if ($self->result_code =~ /^[GR]$/ ) { #success\r
-\r
- #XXX special case for AVS-only transactions we don't handle yet\r
- #if ($self->transaction_type eq "AD") {\r
- # if ($self->avs_code =~ /^[XYDM]$/ ) {\r
- # $self->is_success(1);\r
- # } else {\r
- # $self->is_success(0);\r
- # }\r
- #} else { \r
- $self->is_success(1);\r
- #}\r
-\r
- } else {\r
- $self->is_success(0);\r
-\r
- my $decline_code = $self->GetEchoProp($echotype3, 'decline_code');\r
- my $error_message = $self->error($decline_code);\r
- if ( $decline_code =~ /^(00)?30$/ ) {\r
- $echotype2 =~ s/<br>/\n/ig;\r
- $echotype2 =~ s'</?(b|pre)>''ig;\r
- $error_message .= ": $echotype2";\r
- }\r
- $self->error_message( $error_message );\r
-\r
- }\r
-\r
- $self->is_success(0) if $page eq '';\r
-\r
-}\r
-\r
-\r
-sub fields {\r
- my $self = shift;\r
-\r
- my @fields = qw(\r
- order_type\r
- transaction_type\r
- merchant_echo_id\r
- merchant_pin\r
- isp_echo_id\r
- isp_pin\r
- authorization\r
- billing_ip_address\r
- billing_prefix\r
- billing_name\r
- billing_first_name\r
- billing_last_name\r
- billing_company_name\r
- billing_address1\r
- billing_address2\r
- billing_city\r
- billing_state\r
- billing_zip\r
- billing_country\r
- billing_phone\r
- billing_fax\r
- billing_email\r
- cc_number\r
- ccexp_month\r
- ccexp_year\r
- counter\r
- debug\r
- );\r
-\r
- if ($self->transaction_type =~ /^D[DCVH]$/) {\r
- push @fields, qw(\r
- ec_account\r
- ec_account_type\r
- ec_payment_type\r
- ec_address1\r
- ec_address2\r
- ec_bank_name\r
- ec_business_acct\r
- ec_city\r
- ec_email\r
- ec_first_name\r
- ec_id_country\r
- ec_id_exp_mm\r
- ec_id_exp_dd\r
- ec_id_exp_yy\r
- ec_id_number\r
- ec_id_state\r
- ec_id_type\r
- ec_last_name\r
- ec_merchant_ref\r
- ec_nbds_code\r
- ec_other_name\r
- ec_payee\r
- ec_rt\r
- ec_serial_number\r
- ec_state\r
- ec_transaction_dt\r
- ec_zip\r
- );\r
- }\r
-\r
- push @fields, qw(\r
- grand_total\r
- merchant_email\r
- merchant_trace_nbr\r
- original_amount\r
- original_trandate_mm\r
- original_trandate_dd\r
- original_trandate_yyyy\r
- original_reference\r
- order_number\r
- shipping_flag\r
- shipping_prefix\r
- shipping_name\r
- shipping_address1\r
- shipping_address2\r
- shipping_city\r
- shipping_state\r
- shipping_zip\r
- shipping_comments\r
- shipping_country\r
- shipping_phone\r
- shipping_fax\r
- shipper\r
- shipper_tracking_nbr\r
- track1\r
- track2\r
- cnp_security\r
- cnp_recurring\r
- );\r
-\r
- return @fields;\r
-}\r
-\r
-sub GetEchoProp {\r
- my( $self, $raw, $prop ) = @_;\r
- local $^W=0;\r
-\r
- my $data;\r
- ($data) = $raw =~ m"<$prop>(.*?)</$prop>"gsi;\r
- $data =~ s/<.*?>/ /gs;\r
- chomp $data;\r
- return $data;\r
-}\r
-\r
-# Get's a given Echo return type and strips all HTML style tags from it.\r
-# It also strips any new line characters from the returned string.\r
-#\r
-# This function based on Ben Reser's <breser@vecdev.com> Echo::Process\r
-# module.\r
-sub GetEchoReturn {\r
- my( $self, $page, $type ) = @_;\r
- local $^W=0;\r
-\r
- my $data;\r
- if ($type eq 'OPEN') {\r
- ($data) = $page =~ m"<OPENECHO>(.*?)</OPENECHO>"gsi;\r
- }\r
- else {\r
- ($data) = $page =~ m"<ECHOTYPE$type>(.*?)</ECHOTYPE$type>"gsi;\r
- }\r
-# $data =~ s"<.*?>" "g;\r
-\r
- #unless (length($data)) {\r
- # warn "$self $page $type";\r
- #}\r
-\r
- chomp $data;\r
- return $data;\r
-}\r
-\r
-use vars qw(%error);\r
-%error = (\r
- "01" => [ "Refer to card issuer", "The merchant must call the issuer before the transaction can be approved." ],\r
- "02" => [ "Refer to card issuer, special condition", "The merchant must call the issuer before the transaction can be approved." ],\r
- "03" => [ "Invalid merchant number", "The merchant ID is not valid." ],\r
- "04" => [ "Pick-up card. Capture for reward", "The card is listed on the Warning Bulletin. Merchant may receive reward money by capturing the card." ],\r
- "05" => [ "Do not honor. The transaction was declined by the issuer without definition or reason", "The transaction was declined without explanation by the card issuer." ],\r
- "06" => [ "Error", "The card issuer returned an error without further explanation." ],\r
- "07" => [ "Pick-up card, special condition", "The card is listed on the Warning Bulletin. Merchant may receive reward money by capturing the card." ],\r
- "08" => [ "Honor with identification", "Honor with identification." ],\r
- "09" => [ "Request in progress", "Request in progress." ],\r
- "10" => [ "Approved for partial amount", "Approved for partial amount." ],\r
- "11" => [ "Approved, VIP", "Approved, VIP program." ],\r
- "12" => [ "Invalid transaction", "The requested transaction is not supported or is not valid for the card number presented." ],\r
- "13" => [ "Invalid amount", "The amount exceeds the limits established by the issuer for this type of transaction." ],\r
- "14" => [ "Invalid card #", "The issuer indicates that this card is not valid." ],\r
- "15" => [ "No such issuer", "The card issuer number is not valid." ],\r
- "16" => [ "Approved, update track 3", "Approved, update track 3." ],\r
- "17" => [ "Customer cancellation", "Customer cancellation." ],\r
- "18" => [ "Customer dispute", "Customer dispute." ],\r
- "19" => [ "Re enter transaction", "Customer should resubmit transaction." ],\r
- "20" => [ "Invalid response", "Invalid response." ],\r
- "21" => [ "No action taken", "No action taken. The issuer declined with no other explanation." ],\r
- "22" => [ "Suspected malfunction", "Suspected malfunction." ],\r
- "23" => [ "Unacceptable transaction fee", "Unacceptable transaction fee." ],\r
- "24" => [ "File update not supported", "File update not supported." ],\r
- "25" => [ "Unable to locate record", "Unable to locate record." ],\r
- "26" => [ "Duplicate record", "Duplicate record." ],\r
- "27" => [ "File update edit error", "File update edit error." ],\r
- "28" => [ "File update file locked", "File update file locked." ],\r
- "30" => [ "Format error, call ECHO", "The host reported that the transaction was not formatted properly." ],\r
- "31" => [ "Bank not supported", "Bank not supported by switch." ],\r
- "32" => [ "Completed partially", "Completed partially." ],\r
- "33" => [ "Expired card, pick-up", "The card is expired. Merchant may receive reward money by capturing the card." ],\r
- "34" => [ "Issuer suspects fraud, pick-up card", "The card issuer suspects fraud. Merchant may receive reward money by capturing the card." ],\r
- "35" => [ "Contact acquirer, pick-up", "Contact card issuer. Merchant may receive reward money by capturing the card." ],\r
- "36" => [ "Restricted card, pick-up", "The card is restricted by the issuer. Merchant may receive reward money by capturing the card." ],\r
- "37" => [ "Call ECHO security, pick-up", "Contact ECHO security. Merchant may receive reward money by capturing the card." ],\r
- "38" => [ "PIN tries exceeded, pick-up", "PIN attempts exceed issuer limits. Merchant may receive reward money by capturing the card." ],\r
- "39" => [ "No credit account", "No credit account." ],\r
- "40" => [ "Function not supported", "Requested function not supported." ],\r
- "41" => [ "Lost Card, capture for reward", "The card has been reported lost." ],\r
- "42" => [ "No universal account", "No universal account." ],\r
- "43" => [ "Stolen Card, capture for reward", "The card has been reported stolen." ],\r
- "44" => [ "No investment account", "No investment account." ],\r
- "51" => [ "Not sufficient funds", "The credit limit for this account has been exceeded." ],\r
- "54" => [ "Expired card", "The card is expired." ],\r
- "55" => [ "Incorrect PIN", "The cardholder PIN is incorrect." ],\r
- "56" => [ "No card record", "No card record." ],\r
- "57" => [ "Transaction not permitted to cardholder", "The card is not allowed the type of transaction requested." ],\r
- "58" => [ "Transaction not permitted on terminal", "The Merchant is not allowed this type of transaction." ],\r
- "59" => [ "Suspected fraud", "Suspected fraud." ],\r
- "60" => [ "Contact ECHO", "Contact ECHO." ],\r
- "61" => [ "Exceeds withdrawal limit", "The amount exceeds the allowed daily maximum." ],\r
- "62" => [ "Restricted card", "The card has been restricted." ],\r
- "63" => [ "Security violation.", "The card has been restricted." ],\r
- "64" => [ "Original amount incorrect", "Original amount incorrect." ],\r
- "65" => [ "Exceeds withdrawal frequency", "The allowable number of daily transactions has been exceeded." ],\r
- "66" => [ "Call acquirer security, call ECHO", "Call acquirer security, call ECHO." ],\r
- "68" => [ "Response received too late", "Response received too late." ],\r
- "75" => [ "PIN tries exceeded", "The allowed number of PIN retries has been exceeded." ],\r
- "76" => [ "Invalid \"to\" account", "The debit account does not exist." ],\r
- "77" => [ "Invalid \"from\" account", "The credit account does not exist." ],\r
- "78" => [ "Invalid account specified (general)", "The associated card number account is invalid or does not exist." ],\r
- "79" => [ "Already reversed", "Already reversed." ],\r
- "84" => [ "Invalid authorization life cycle", "The authorization life cycle is invalid." ],\r
- "86" => [ "Cannot verify PIN", "Cannot verify PIN." ],\r
- "87" => [ "Network Unavailable", "Network Unavailable." ],\r
- "89" => [ "Ineligible to receive financial position information", "Ineligible to receive financial position information." ],\r
- "90" => [ "Cut-off in progress", "Cut-off in progress." ],\r
- "91" => [ "Issuer or switch inoperative", "The bank is not available to authorize this transaction." ],\r
- "92" => [ "Routing error", "The transaction cannot be routed to the authorizing agency." ],\r
- "93" => [ "Violation of law", "Violation of law." ],\r
- "94" => [ "Duplicate transaction", "Duplicate transaction." ],\r
- "95" => [ "Reconcile error", "Reconcile error." ],\r
- "96" => [ "System malfunction", "A system error has occurred." ],\r
- "98" => [ "Exceeds cash limit", "Exceeds cash limit." ],\r
- "1000" => [ "Unrecoverable error.", "An unrecoverable error has occurred in the ECHONLINE processing." ],\r
- "1001" => [ "Account closed", "The merchant account has been closed." ],\r
- "1002" => [ "System closed", "Services for this system are not available. (Not used by ECHONLINE)" ],\r
- "1003" => [ "E-Mail Down", "The e-mail function is not available. (Not used by ECHONLINE)" ],\r
- "1012" => [ "Invalid trans code", "The host computer received an invalid transaction code." ],\r
- "1013" => [ "Invalid term id", "The ECHO-ID is invalid." ],\r
- "1015" => [ "Invalid card number", "The credit card number that was sent to the host computer was invalid" ],\r
- "1016" => [ "Invalid expiry date", "The card has expired or the expiration date was invalid." ],\r
- "1017" => [ "Invalid amount", "The dollar amount was less than 1.00 or greater than the maximum allowed for this card." ],\r
- "1019" => [ "Invalid state", "The state code was invalid. (Not used by ECHONLINE)" ],\r
- "1021" => [ "Invalid service", "The merchant or card holder is not allowed to perform that kind of transaction" ],\r
- "1024" => [ "Invalid auth code", "The authorization number presented with this transaction is incorrect. (deposit transactions only)" ],\r
- "1025" => [ "Invalid reference number", "The reference number presented with this transaction is incorrect or is not numeric." ],\r
- "1029" => [ "Invalid contract number", "The contract number presented with this transaction is incorrect or is not numeric. (Not used by ECHONLINE)" ],\r
- "1030" => [ "Invalid inventory data", "The inventory data presented with this transaction is not ASCII \"printable\". (Not used by ECHONLINE)" ],\r
- "1508" => [ " ", "Invalid or missing order_type." ],\r
- "1509" => [ " ", "The merchant is not approved to submit this order_type." ],\r
- "1510" => [ " ", "The merchant is not approved to submit this transaction_type." ],\r
- #"1511" => [ " ", "Duplicate transaction attempt (see counterin Part I of this Specification</EM>)." ],\r
- "1511" => [ " ", "Duplicate transaction attempt (set counter field?)." ],\r
- "1599" => [ " ", "An system error occurred while validating the transaction input." ],\r
- "1801" => [ "Return Code \"A\"", "Address matches; ZIP does not match." ],\r
- "1802" => [ "Return Code \"W\"", "9-digit ZIP matches; Address does not match." ],\r
- "1803" => [ "Return Code \"Z\"", "5-digit ZIP matches; Address does not match." ],\r
- "1804" => [ "Return Codes \"U\"", "Issuer unavailable; cannot verify." ],\r
- "1805" => [ "Return Code \"R\"", "Retry; system is currently unable to process." ],\r
- "1806" => [ "Return Code \"S\" or \"G\"", "Issuer does not support AVS." ],\r
- "1807" => [ "Return Code \"N\"", "Nothing matches." ],\r
- "1808" => [ "Return Code \"E\"", "Invalid AVS only response." ],\r
- "1809" => [ "Return Code \"B\"", "Street address match. Postal code not verified because of incompatible formats." ],\r
- "1810" => [ "Return Code \"C\"", "Street address and Postal code not verified because of incompatible formats." ],\r
- "1811" => [ "Return Code \"D\"", "Street address match and Postal code match." ],\r
- "1812" => [ "Return Code \"I\"", "Address information not verified for international transaction." ],\r
- "1813" => [ "Return Code \"M\"", "Street address match and Postal code match." ],\r
- "1814" => [ "Return Code \"P\"", "Postal code match. Street address not verified because of incompatible formats." ],\r
- "1897" => [ "invalid response", "The host returned an invalid response." ],\r
- "1898" => [ "disconnect", "The host unexpectedly disconnected." ],\r
- "1899" => [ "timeout", "Timeout waiting for host response." ],\r
- "2071" => [ "Call VISA", "An authorization number from the VISA Voice Center is required to approve this transaction." ],\r
- "2072" => [ "Call Master Card", "An authorization number from the Master Card Voice Center is required to approve this transaction." ],\r
- "2073" => [ "Call Carte Blanche", "An authorization number from the Carte Blanche Voice Center is required to approve this transaction." ],\r
- "2074" => [ "Call Diners Club", "An authorization number from the Diners' Club Voice Center is required to approve this transaction." ],\r
- "2075" => [ "Call AMEX", "An authorization number from the American Express Voice Center is required to approve this transaction." ],\r
- "2076" => [ "Call Discover", "An authorization number from the Discover Voice Center is required to approve this transaction." ],\r
- "2078" => [ "Call ECHO", "The merchant must call ECHOCustomer Support for approval.or because there is a problem with the merchant's account." ],\r
- "2079" => [ "Call XpresscheX", "The merchant must call ECHOCustomer Support for approval.or because there is a problem with the merchant's account." ],\r
- "3001" => [ "No ACK on Resp", "The host did not receive an ACK from the terminal after sending the transaction response." ],\r
- "3002" => [ "POS NAK'd 3 Times", "The host disconnected after the terminal replied 3 times to the host response with a NAK." ],\r
- "3003" => [ "Drop on Wait", "The line dropped before the host could send a response to the terminal." ],\r
- "3005" => [ "Drop on Resp", "The line dropped while the host was sending the response to the terminal." ],\r
- "3007" => [ "Drop Before EOT", "The host received an ACK from the terminal but the line dropped before the host could send the EOT." ],\r
- "3011" => [ "No Resp to ENQ", "The line was up and carrier detected, but the terminal did not respond to the ENQ." ],\r
- "3012" => [ "Drop on Input", "The line disconnected while the host was receiving data from the terminal." ],\r
- "3013" => [ "FEP NAK'd 3 Times", "The host disconnected after receiving 3 transmissions with incorrect LRC from the terminal." ],\r
- "3014" => [ "No Resp to ENQ", "The line disconnected during input data wait in Multi-Trans Mode." ],\r
- "3015" => [ "Drop on Input", "The host encountered a full queue and discarded the input data." ],\r
-);\r
-for ( 9000..9999 ) {\r
- $error{$_} = [ "Host Error", "The host encountered an internal error and was not able to process the transaction." ]; \r
-}\r
-sub error {\r
- my( $self, $num ) = @_;\r
- $num =~ s/^00(\d\d)$/$1/;\r
- return $num. ': '. $error{$num}[0]. ': '. $error{$num}[1];\r
-}\r
-\r
-1;\r
-\r
-__END__\r
-\r
-=head1 NAME\r
-\r
-Business::OnlinePayment::OpenECHO - ECHO backend module for Business::OnlinePayment\r
-\r
-=head1 SYNOPSIS\r
-\r
- use Business::OnlinePayment;\r
-\r
- ####\r
- # One step transaction, the simple case.\r
- ####\r
-\r
- my $tx = new Business::OnlinePayment("OpenECHO");\r
- $tx->content(\r
- type => 'VISA',\r
- login => '1234684752',\r
- password => '43400210',\r
- action => 'Normal Authorization',\r
- description => 'Business::OnlinePayment test',\r
- amount => '49.95',\r
- invoice_number => '100100',\r
- customer_id => 'jsk',\r
- first_name => 'Tofu',\r
- last_name => 'Beast',\r
- address => '123 Anystreet',\r
- city => 'Anywhere',\r
- state => 'UT',\r
- zip => '84058',\r
- card_number => '4005550000000019',\r
- expiration => '08/06',\r
- cvv2 => '1234', #optional\r
- referer => 'http://valid.referer.url/',\r
- );\r
- $tx->submit();\r
-\r
- if($tx->is_success()) {\r
- print "Card processed successfully: ".$tx->authorization."\n";\r
- } else {\r
- print "Card was rejected: ".$tx->error_message."\n";\r
- }\r
-\r
-=head1 SUPPORTED TRANSACTION TYPES\r
-\r
-=head2 CC, Visa, MasterCard, American Express, Discover\r
-\r
-Content required: type, login, password, action, amount, first_name, last_name, card_number, expiration.\r
-\r
-=head2 Check\r
-\r
-Not yet implemented...\r
-#Content required: type, login, password, action, amount, first_name, last_name, account_number, routing_code, bank_name.\r
-\r
-=head1 PREREQUISITES\r
-\r
- URI::Escape\r
- Tie::IxHash\r
-\r
- Net::SSLeay _or_ ( Crypt::SSLeay and LWP )\r
-\r
-=head1 DESCRIPTION\r
-\r
-For detailed information see L<Business::OnlinePayment>.\r
-\r
-=head1 AUTHOR\r
-\r
-Original Author\r
-Michael Lehmkuhl <michael@electricpulp.com>\r
-\r
-Special Thanks\r
-Jim Darden <jdarden@echo-inc.com>\r
-Dan Browning <db@kavod.com>\r
-\r
-Business::OnlinePayment Implementation\r
-Ivan Kohler <ivan-openecho@420.am>\r
-\r
-=head1 SEE ALSO\r
-\r
-perl(1). L<Business::OnlinePayment>.\r
-\r
-=cut\r
-\r