summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--Changes2
-rw-r--r--MANIFEST12
-rw-r--r--Makefile.PL23
-rw-r--r--README13
-rw-r--r--eSelectPlus.pm273
-rw-r--r--t/bad_card.t35
-rw-r--r--t/bop.t5
-rw-r--r--t/credit_card.t36
-rw-r--r--t/crypt_bad_card.t35
-rw-r--r--t/crypt_credit_card.t34
-rw-r--r--t/crypt_load.t13
-rw-r--r--t/load.t12
12 files changed, 493 insertions, 0 deletions
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 <ivan-eselectplus@420.am>',
+ #'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 =
+ '<?xml version="1.0"?>'.
+ '<request>'.
+ '<store_id>'. $self->{_content}{'login'}. '</store_id>'.
+ '<api_token>'. $self->{_content}{'password'}. '</api_token>'.
+ "<$action>".
+ join('', map "<$_>$fields{$_}</$_>", keys %fields ).
+ "</$action>".
+ '</request>';
+
+ 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>(.*?)</$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<Business::OnlinePayment>.
+
+=head1 NOTE
+
+=head1 AUTHOR
+
+Ivan Kohler <ivan-eselectplus@420.am>
+
+=head1 SEE ALSO
+
+perl(1). L<Business::OnlinePayment>.
+
+=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";
generated by cgit v1.2.1 (git 2.18.0) at 2025-08-22 13:27:18 +0000