From e9a8450242559f58aa2535a489d7a7acc85790e2 Mon Sep 17 00:00:00 2001 From: ivan Date: Wed, 16 Mar 2005 10:37:56 +0000 Subject: [PATCH] initial import --- Changes | 2 + MANIFEST | 12 +++ Makefile.PL | 23 +++++ README | 13 +++ eSelectPlus.pm | 273 ++++++++++++++++++++++++++++++++++++++++++++++++++ t/bad_card.t | 35 +++++++ t/bop.t | 5 + t/credit_card.t | 36 +++++++ t/crypt_bad_card.t | 35 +++++++ t/crypt_credit_card.t | 34 +++++++ t/crypt_load.t | 13 +++ t/load.t | 12 +++ 12 files changed, 493 insertions(+) create mode 100644 Changes create mode 100644 MANIFEST create mode 100644 Makefile.PL create mode 100644 README create mode 100644 eSelectPlus.pm create mode 100644 t/bad_card.t create mode 100644 t/bop.t create mode 100644 t/credit_card.t create mode 100644 t/crypt_bad_card.t create mode 100644 t/crypt_credit_card.t create mode 100644 t/crypt_load.t create mode 100644 t/load.t diff --git a/Changes b/Changes new file mode 100644 index 0000000..92e6afa --- /dev/null +++ b/Changes @@ -0,0 +1,2 @@ +0.01 unreleased + - original version; created by ivan 1.0 diff --git a/MANIFEST b/MANIFEST new file mode 100644 index 0000000..556f1b3 --- /dev/null +++ b/MANIFEST @@ -0,0 +1,12 @@ +Changes +MANIFEST +Makefile.PL +eSelectPlus.pm +README +t/load.t +t/crypt_load.t +t/credit_card.t +t/crypt_credit_card.t +t/bop.t +t/bad_card.t +t/crypt_bad_card.t diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..bce1632 --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,23 @@ +use ExtUtils::MakeMaker; +# See lib/ExtUtils/MakeMaker.pm for details of how to influence +# the contents of the Makefile that is written. +WriteMakefile( + 'NAME' => 'Business::OnlinePayment::eSelectPlus', + 'VERSION_FROM' => 'eSelectPlus.pm', # finds $VERSION + 'AUTHOR' => 'Ivan Kohler ', + #'NORECURS' => 1, # dont descend into subdirectories + 'PREREQ_PM' => { + 'Business::OnlinePayment' => 0, + + # for HTTPS (maybe it should be a separate dist?) + 'URI::Escape' => 0, + 'Tie::IxHash' => 0, + + # 'Net::SSLeay' => 0, + # or 'Crypt::SSLeay' => 0, + # 'URI + + }, + #'dist' => {CI => 'ci -l'}, +); + diff --git a/README b/README new file mode 100644 index 0000000..9cac7d5 --- /dev/null +++ b/README @@ -0,0 +1,13 @@ +Copyright (c) 2004 Ivan Kohler +All rights reserved. This program is free software; you can redistribute it +and/or modify it under the same terms as Perl itself. + +This is Business::OnlinePayment::eSelectPlus, an Business::OnlinePayment +backend module for the Moneris eSelect Plus gateway . It is only +useful if you have a merchant account with Moneris: +https://www3.moneris.com/connect/en/ + +Business::OnlinePayment is a generic interface for processing payments through +online credit card processors, online check acceptance houses, etc. (If you +like buzzwords, call it an "multiplatform ecommerce-enabling middleware +solution"). diff --git a/eSelectPlus.pm b/eSelectPlus.pm new file mode 100644 index 0000000..21b722d --- /dev/null +++ b/eSelectPlus.pm @@ -0,0 +1,273 @@ +package Business::OnlinePayment::eSelectPlus; + +use strict; +use Carp; +use Tie::IxHash; +use Business::OnlinePayment 3; +use Business::OnlinePayment::HTTPS; +use vars qw($VERSION $DEBUG @ISA); + +@ISA = qw(Business::OnlinePayment::HTTPS); +$VERSION = '0.01'; +$DEBUG = 0; + +sub set_defaults { + my $self = shift; + + $self->server('esqa.moneris.com'); + $self->port('443'); + $self->path('/gateway2/servlet/MpgRequest'); + + $self->build_subs(qw( order_number )); + # avs_code order_type md5 cvv2_response cavv_response +} + +sub submit { + my($self) = @_; + + #$self->map_fields(); + $self->remap_fields( + # => 'order_type', + # => 'transaction_type', + #login => 'store_id', + #password => 'api_token', + #authorization => + #customer_ip => + #name => + #first_name => + #last_name => + #company => + #address => + #city => + #state => + #zip => + #country => + phone => + #fax => + email => + card_number => 'pan', + #expiration => + # => 'expdate', + + 'amount' => 'amount', + #invoice_number => + #customer_id => + order_number => 'order_id', + authorization => 'txn_number' + + #cvv2 => + ); + + my $action = $self->{_content}{'action'}; + if ( $self->{_content}{'action'} =~ /^\s*normal\s*authorization\s*$/i ) { + $action = 'purchase'; + } elsif ( $self->{_content}{'action'} =~ /^\s*authorization\s*only\s*$/i ) { + $action = 'preauth'; + } elsif ( $self->{_content}{'action'} =~ /^\s*post\s*authorization\s*$/i ) { + $action = 'completion'; + } elsif ( $self->{_content}{'action'} =~ /^\s*void\s*$/i ) { + $action = 'void'; + } elsif ( $self->{_content}{'action'} =~ /^\s*credit\s*$/i ) { + if ( $self->{_content}{'authorization'} ) { + $action = 'refund'; + } else { + $action = 'ind_refund'; + } + } + + if ( $action =~ /^(purchase|preauth|ind_refund)$/ ) { + + $self->required_fields( + qw( login password amount card_number expiration ) + ); + + #cardexpiremonth & cardexpireyear + $self->{_content}{'expiration'} =~ /^(\d+)\D+\d*(\d{2})$/ + or croak "unparsable expiration ". $self->{_content}{expiration}; + my( $month, $year ) = ( $1, $2 ); + $month = '0'. $month if $month =~ /^\d$/; + $self->{_content}{expdate} = $year.$month; + + $self->generate_order_id; + + $self->{_content}{amount} = sprintf('%.2f', $self->{_content}{amount} ); + + } elsif ( $action eq 'completion' || $action eq 'void' ) { + + $self->required_fields( qw( login password order_number authorization ) ); + + } elsif ( $action eq 'refund' ) { + + $self->required_fields( + qw( login passowrd order_number authorization ) + ); + + } + + $self->{_content}{'crypt_type'} ||= 7; + + #no, values aren't escaped for XML. their "mpgClasses.pl" example doesn't + #appear to do so, i dunno + tie my %fields, 'Tie::IxHash', $self->get_fields( $self->fields ); + my $post_data = + ''. + ''. + ''. $self->{_content}{'login'}. ''. + ''. $self->{_content}{'password'}. ''. + "<$action>". + join('', map "<$_>$fields{$_}", keys %fields ). + "". + ''; + + warn $post_data if $DEBUG > 1; + + my( $page, $response, @reply_headers) = $self->https_post( $post_data ); + + #my %reply_headers = @reply_headers; + #warn join('', map { " $_ => $reply_headers{$_}\n" } keys %reply_headers ) + # if $DEBUG; + + #XXX check $response and die if not 200? + + # avs_code + # is_success + # result_code + # authorization + #md5 cvv2_response cavv_response ...? + + $self->server_response($page); + + my $result = $self->GetXMLProp($page, 'ResponseCode'); + + die "gateway error: ". $self->GetXMLProp( $page, 'Message' ) + if $result =~ /^null$/i; + + if ( $result =~ /^\d+$/ && $result < 50 ) { + $self->is_success(1); + $self->result_code( $self->GetXMLProp( $page, 'ISO' ) ); + $self->authorization( $self->GetXMLProp( $page, 'Txn_number' ) ); + $self->order_number( $self->GetXMLProp( $page, 'order_id') ); + } elsif ( $result =~ /^\d+$/ ) { + $self->is_success(0); + $self->error_message( $self->GetXMLProp( $page, 'Message' ) ); + } else { + die "unparsable response received from gateway (response $result)". + ( $DEBUG ? ": $page" : '' ); + } + +} + +use vars qw(@oidset); +@oidset = ( 'A'..'Z', '0'..'9' ); +sub generate_order_id { + my $self = shift; + #generate an order_id if order_number not passed + unless ( exists ($self->{_content}{order_id}) + && defined($self->{_content}{order_id}) + && length ($self->{_content}{order_id}) + ) { + $self->{_content}{'order_id'} = + join('', map { $oidset[int(rand(scalar(@oidset)))] } (1..23) ); + } +} + +sub fields { + my $self = shift; + + #order is important to this processor + qw( + order_id + cust_id + amount + comp_amount + txn_number + pan + expdate + crypt_type + cavv + ); +} + +sub GetXMLProp { + my( $self, $raw, $prop ) = @_; + local $^W=0; + + my $data; + ($data) = $raw =~ m"<$prop>(.*?)"gsi; + #$data =~ s/<.*?>/ /gs; + chomp $data; + return $data; +} + +1; + +__END__ + +=head1 NAME + +Business::OnlinePayment::eSelectPlus - Moneris eSelect Plus backend module for Business::OnlinePayment + +=head1 SYNOPSIS + + use Business::OnlinePayment; + + #### + # One step transaction, the simple case. + #### + + my $tx = new Business::OnlinePayment("eSelectPlus"); + $tx->content( + type => 'VISA', + login => 'eSelect Store ID, + password => 'eSelect API Token', + action => 'Normal Authorization', + description => 'Business::OnlinePayment test', + amount => '49.95', + name => 'Tofu Beast', + address => '123 Anystreet', + city => 'Anywhere', + state => 'UT', + zip => '84058', + phone => '420-867-5309', + email => 'tofu.beast@example.com', + card_number => '4005550000000019', + expiration => '08/06', + cvv2 => '1234', #optional + ); + $tx->submit(); + + if($tx->is_success()) { + print "Card processed successfully: ".$tx->authorization."\n"; + } else { + print "Card was rejected: ".$tx->error_message."\n"; + } + +=head1 SUPPORTED TRANSACTION TYPES + +=head2 CC, Visa, MasterCard, American Express, Discover + +Content required: type, login, password, action, amount, card_number, expiration. + +=head1 PREREQUISITES + + URI::Escape + Tie::IxHash + + Net::SSLeay _or_ ( Crypt::SSLeay and LWP ) + +=head1 DESCRIPTION + +For detailed information see L. + +=head1 NOTE + +=head1 AUTHOR + +Ivan Kohler + +=head1 SEE ALSO + +perl(1). L. + +=cut + diff --git a/t/bad_card.t b/t/bad_card.t new file mode 100644 index 0000000..afd324b --- /dev/null +++ b/t/bad_card.t @@ -0,0 +1,35 @@ +BEGIN {$| = 1; print "1..1\n"; } + +eval "use Net::SSLeay;"; +if ( $@ ) { + print "ok 1 # Skipped: Net::SSLeay is not installed\n"; exit; +} + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("eSelectPlus"); + +#$Business::OnlinePayment::HTTPS::DEBUG = 1; +#$Business::OnlinePayment::HTTPS::DEBUG = 1; +#$Business::OnlinePayment::eSelectPlus::DEBUG = 1; +#$Business::OnlinePayment::eSelectPlus::DEBUG = 1; + +$tx->content( + type => 'VISA', + login => 'store1', + password => 'yesguy', + action => 'Normal Authorization', + amount => '32.32', + card_number => '4242424242424242', + expiration => '08/06', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + +if($tx->is_success()) { + print "not ok 1\n"; +} else { + #warn $tx->server_response."\n"; + #warn $tx->error_message. "\n"; + print "ok 1\n"; +} diff --git a/t/bop.t b/t/bop.t new file mode 100644 index 0000000..64332c5 --- /dev/null +++ b/t/bop.t @@ -0,0 +1,5 @@ +BEGIN { $| = 1; print "1..1\n"; } +END {print "not ok 1\n" unless $loaded;} +use Business::OnlinePayment; +$loaded = 1; +print "ok 1\n"; diff --git a/t/credit_card.t b/t/credit_card.t new file mode 100644 index 0000000..7cc40ac --- /dev/null +++ b/t/credit_card.t @@ -0,0 +1,36 @@ +BEGIN { $| = 1; print "1..1\n"; } + +eval "use Net::SSLeay;"; +if ( $@ ) { + print "ok 1 # Skipped: Net::SSLeay is not installed\n"; exit; +} + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("eSelectPlus"); + +#$Business::OnlinePayment::HTTPS::DEBUG = 1; +#$Business::OnlinePayment::HTTPS::DEBUG = 1; +#$Business::OnlinePayment::eSelectPlus::DEBUG = 1; +#$Business::OnlinePayment::eSelectPlus::DEBUG = 1; + +$tx->content( + type => 'VISA', + login => 'store1', + password => 'yesguy', + action => 'Normal Authorization', + amount => '54.01', + card_number => '4242424242424242', + expiration => '01/06', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + +if($tx->is_success()) { + print "ok 1\n"; +} else { + #warn $tx->server_response."\n"; + warn $tx->error_message. "\n"; + print "not ok 1\n"; +} + diff --git a/t/crypt_bad_card.t b/t/crypt_bad_card.t new file mode 100644 index 0000000..7089078 --- /dev/null +++ b/t/crypt_bad_card.t @@ -0,0 +1,35 @@ +BEGIN { + $| = 1; print "1..1\n"; + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; +} + +eval "use Crypt::SSLeay;"; +if ( $@ ) { + print "ok 1 # Skipped: Crypt::SSLeay is not installed\n"; exit; +} + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("eSelectPlus"); + +$tx->content( + type => 'VISA', + login => 'store1', + password => 'yesguy', + action => 'Normal Authorization', + amount => '32.32', + card_number => '4242424242424242', + expiration => '08/06', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + +if($tx->is_success()) { + print "not ok 1\n"; +} else { + #warn $tx->server_response."\n"; + #warn $tx->error_message. "\n"; + print "ok 1\n"; +} + diff --git a/t/crypt_credit_card.t b/t/crypt_credit_card.t new file mode 100644 index 0000000..ad458c3 --- /dev/null +++ b/t/crypt_credit_card.t @@ -0,0 +1,34 @@ +BEGIN { + $| = 1; print "1..1\n"; + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; +} + +eval "use Crypt::SSLeay;"; +if ( $@ ) { + print "ok 1 # Skipped: Crypt::SSLeay is not installed\n"; exit; +} + +use Business::OnlinePayment; + +my $tx = new Business::OnlinePayment("eSelectPlus"); +$tx->content( + type => 'VISA', + login => 'store1', + password => 'yesguy', + action => 'Normal Authorization', + amount => '54.01', + card_number => '4242424242424242', + expiration => '08/06', +); +$tx->test_transaction(1); # test, dont really charge +$tx->submit(); + +if($tx->is_success()) { + print "ok 1\n"; +} else { + #warn $tx->server_response."\n"; + warn $tx->error_message. "\n"; + print "not ok 1\n"; +} + diff --git a/t/crypt_load.t b/t/crypt_load.t new file mode 100644 index 0000000..721cbcf --- /dev/null +++ b/t/crypt_load.t @@ -0,0 +1,13 @@ +BEGIN { + $| = 1; print "1..1\n"; + eval "use Crypt::SSLeay;"; + if ( $@ ) { + print "ok 1 # Skipped: Crypt::SSLeay is not installed\n"; exit; + } + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; + $Business::OnlinePayment::HTTPS::skip_NetSSLeay=1; +} +END {print "not ok 1\n" unless $loaded;} +use Business::OnlinePayment::eSelectPlus; +$loaded = 1; +print "ok 1\n"; diff --git a/t/load.t b/t/load.t new file mode 100644 index 0000000..ad30c8f --- /dev/null +++ b/t/load.t @@ -0,0 +1,12 @@ +BEGIN { + $| = 1; print "1..1\n"; + eval "use Net::SSLeay;"; + if ( $@ ) { + print "ok 1 # Skipped: Net::SSLeay is not installed\n"; exit; + } + +} +END {print "not ok 1\n" unless $loaded;} +use Business::OnlinePayment::eSelectPlus; +$loaded = 1; +print "ok 1\n"; -- 2.11.0