initial import of Business-OnlinePayment-Exact 0.01 from CPAN

git-cpan-module:   Business-OnlinePayment-Exact
git-cpan-version:  0.01
git-cpan-authorid: MOCK
git-cpan-file:     authors/id/M/MO/MOCK/Business-OnlinePayment-Exact-0.01.tar.gz

7 files changed, 349 insertions, 0 deletions

diff --git a/Changes b/Changes
new file mode 100644
index 0000000..bdb4768
--- /dev/null
+++ b/Changes
@@ -0,0 +1,6 @@
+Revision history for Perl extension Business::OnlinePayment::Exact.
+
+0.01  Wed Jan  7 13:31:33 2004
+	- original version; created by h2xs 1.23 with options
+		-AX --use-new-tests -b 5.6.1 -n Business::OnlinePayment::Exact
+
diff --git a/MANIFEST b/MANIFEST
new file mode 100644
index 0000000..b4e439c
--- /dev/null
+++ b/MANIFEST
@@ -0,0 +1,7 @@
+Changes
+Makefile.PL
+MANIFEST
+README
+t/Business-OnlinePayment-Exact.t
+lib/Business/OnlinePayment/Exact.pm
+META.yml                                 Module meta-data (added by MakeMaker)
diff --git a/META.yml b/META.yml
new file mode 100644
index 0000000..df62ba5
--- /dev/null
+++ b/META.yml
@@ -0,0 +1,15 @@
+# http://module-build.sourceforge.net/META-spec.html
+#XXXXXXX This is a prototype!!!  It will change in the future!!! XXXXX#
+name:         Business-OnlinePayment-Exact
+version:      0.01
+version_from: lib/Business/OnlinePayment/Exact.pm
+installdirs:  site
+requires:
+    Business::OnlinePayment:       2.01
+    SOAP::Lite:                    0.65_3
+    Term::ReadLine:                0
+    Term::ReadLine::Gnu:           0
+    Test::More:                    0
+
+distribution_type: module
+generated_by: ExtUtils::MakeMaker version 6.17
diff --git a/Makefile.PL b/Makefile.PL
new file mode 100644
index 0000000..0a8ae3d
--- /dev/null
+++ b/Makefile.PL
@@ -0,0 +1,16 @@
+use 5.006001;
+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::Exact',
+    VERSION_FROM      => 'lib/Business/OnlinePayment/Exact.pm', # finds $VERSION
+    PREREQ_PM         => {'Test::More'  =>  0,
+                          'Term::ReadLine' => 0,
+                          'Term::ReadLine::Gnu' => 0,
+                          'Business::OnlinePayment' => '2.01',
+                          'SOAP::Lite' => '0.65_3'}, # e.g., Module::Name => 1.1
+    ($] >= 5.005 ?     ## Add these new keywords supported since 5.005
+      (ABSTRACT_FROM  => 'lib/Business/OnlinePayment/Exact.pm', # retrieve abstract from module
+       AUTHOR         => 'mock <mock@obscurity.org>') : ()),
+);
diff --git a/README b/README
new file mode 100644
index 0000000..47dfb66
--- /dev/null
+++ b/README
@@ -0,0 +1,32 @@
+Business-OnlinePayment-Exact version 0.01
+=========================================
+
+Module for doing Credit Card Transactions using the v7 E-xact Web Services API
+
+INSTALLATION
+
+To install this module type the following:
+
+   perl Makefile.PL
+   make
+   make test
+   make install
+
+DEPENDENCIES
+
+This module requires these other modules and libraries:
+
+  Test::More
+  Business::OnlinePayment
+  SOAP::Lite
+  Term::ReadLine::GNU - for testing
+
+COPYRIGHT AND LICENCE
+
+Copyright (C) 2005 by mock <mock@obscurity.org>
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.8.1 or,
+at your option, any later version of Perl 5 you may have available.
+
+
diff --git a/lib/Business/OnlinePayment/Exact.pm b/lib/Business/OnlinePayment/Exact.pm
new file mode 100644
index 0000000..2171c36
--- /dev/null
+++ b/lib/Business/OnlinePayment/Exact.pm
@@ -0,0 +1,216 @@
+package Business::OnlinePayment::Exact;
+
+use 5.006001;
+use strict;
+use warnings;
+use SOAP::Lite;
+use Business::OnlinePayment;
+
+our @ISA = qw(Business::OnlinePayment);
+our @EXPORT_OK = ();
+our @EXPORT = qw();
+
+our $VERSION = '0.01';
+
+sub set_defaults {
+    my $self = shift;
+    $self->build_subs(qw(proxy on_action uri tns types process encodingstyle
+        order_number));
+    $self->proxy('https://secure2.e-xact.com/vpos/process/vpos.asmx');
+    $self->on_action('http://secure2.e-xact.com/vpos/process/Process');
+    $self->uri('http://secure2.e-xact.com/vpos/process/');
+    $self->tns('http://secure2.e-xact.com/vpos/process/');
+    $self->types('http://secure2.e-xact.com/vpos/process/encodedTypes');
+    $self->process('http://secure2.e-xact.com/vpos/process/Request');
+    $self->encodingstyle('http://schemas.xmlsoap.org/soap/encoding/');
+}
+
+sub map_fields {
+    my $self = shift;
+    my %content = $self->content();
+    my %actions = ('normal authorization' => '00',
+                   'authorization only' => '01',
+                   'credit' => '04',
+                   'post authorization' => '02',
+                   'void' => '13',
+    );
+    $content{'action'} = $actions{lc($content{'action'})};
+    $content{'name'} = $content{'first_name'}.' '.$content{'last_name'} ||
+        $content{'name'} if $content{'first_name'} and $content{'last_name'};
+    $content{'expiration'} =~ /(\d\d)\D*(\d\d)/ if $content{'expiration'};
+    $content{'expiration_month'} = $1 || $content{'expiration_month'};
+    $content{'expiration_year'} = $2 || $content{'expiration_year'};
+    $content{'expiration'} = $content{'expiration_month'}.
+        $content{'expiration_year'} || $content{'expiration'};
+    $self->content(%content);
+}
+
+sub remap_fields {
+    my($self,%map) = @_;
+
+    my %content = $self->content();
+    foreach(keys %map) {
+        $content{$map{$_}} = $content{$_};
+    }
+    $self->content(%content);
+}
+
+sub submit {
+    my $self = shift;
+    $self->map_fields;
+    $self->remap_fields(
+        login => 'ExactID',
+        password => 'Password',
+        action => 'Transaction_Type',
+        amount => 'DollarAmount',
+        customer_ip => 'Client_IP',
+        order_number => 'Reference_No',
+        name => 'CardHoldersName',
+        address => 'VerificationStr1',
+        email => 'Client_Email',
+        card_number => 'Card_Number',
+        expiration => 'Expiry_Date',
+        referer => 'Customer_Ref', 
+    );
+    my %content = $self->content();
+    #make data here
+    my @data;
+    foreach (keys %content) {
+        push @data, SOAP::Data->name($_ => $content{$_})->type('string');
+    }
+
+    my $data = 
+    SOAP::Data->attr({'xsi:type' => 'types:Transaction'})
+        ->name('Transaction')->value(\SOAP::Data->value(@data));
+    #figure out action
+    #make request
+
+    my $s = SOAP::Lite
+    ->proxy($self->proxy)
+    ->on_action(sub{return $self->on_action})
+    ->uri($self->uri)
+    ->readable(1);
+
+    $s->serializer->register_ns($self->tns => 'tns');
+    $s->serializer->register_ns($self->types => 'types');
+
+    my $m = SOAP::Data->name('q1:Process')
+        ->attr({'xmlns:q1' => $self->process,
+        'soap:encodingStyle' => $self->encodingstyle});
+
+    my $result = $s->call($m => $data);
+    #get result
+    if ($result->fault) {
+        $self->is_success(0);
+        $self->error_message($result->faultstring);
+    }
+    else {
+        if ($result->valueof('//TransactionResult/Transaction_Approved') 
+        eq '1' and $result->valueof('//TransactionResult/EXact_Resp_Code') 
+        eq '00' and $result->valueof('//TransactionResult/Transaction_Error') 
+        eq '0') {
+            $self->is_success(1);
+            $self->error_message(
+                $result->valueof('//TransactionResult/EXact_Message'));
+            $self->authorization(
+                $result->valueof('//TransactionResult/Authorization_Num'));
+            $self->order_number(
+                $result->valueof('//TransactionResult/SequenceNo'));
+            }
+        else {
+            $self->is_success(0);
+            $self->error_message(
+                $result->valueof('//TransactionResult/EXact_Message'));
+        }
+
+    }
+}
+
+
+1;
+__END__
+=head1 NAME
+
+Business::OnlinePayment::Exact - Perl extension for doing credit card 
+processing through the E-xact v7 Web Services API payment gateway.
+
+=head1 SYNOPSIS
+
+  use Business::OnlinePayment;
+  my $tx = new Business::OnlinePayment('Exact');
+  $tx->content(
+    amount => '19.00',
+    card_number => '4200000000000000',
+    expiration => '0110',
+    name => 'Some Guy',
+    action => 'authorization only',
+    login => 'A000XX-XX'
+    password => 'password'
+  );
+  $tx->submit;
+  if ($tx->is_success()) {
+    my $ordernum = $tx->order_number;
+    print "Got the cash";
+  }
+  else {
+    print $tx->error_message;
+  }
+
+=head1 ABSTRACT
+
+    This is a Business::OnlinePayment module for E-xact loosely based on
+    Business::OnlinePayment::AuthorizeNet.  I've only used it for normal
+    authorization so it may require some work to do pre auth, etc.
+
+
+=head1 DESCRIPTION
+
+    See synopsis.  It works like any other Business::OnlinePayment module.
+    The following content keys are usefull:
+    login
+    password
+    amount
+    card_number
+    expiration
+    name
+    referer
+    email
+    address
+    order_number
+    customer_ip
+    action
+
+    The following content keys are also available (but not really usefull):
+    'first_name' and 'last_name' will combine to override 'name'
+    'expiration_month' and 'expiration_year' will combine to override 
+    'expiration'
+
+    The 'authorization' method will return the bank authorization code, and the
+    'order_number' method will contain the sequence number from E-xact.
+    The content key 'referer' can be used to store any string data (20 bytes)
+    and used to search for those transactions from the web interface.
+
+=head2 EXPORT
+
+None by default.
+
+=head1 SEE ALSO
+
+Business::OnlinePayment
+SOAP::Lite
+"Exact Payment WebService Plug-In Programming Reference Guide v7"
+(which can be found on www.e-xact.com with enough digging)
+
+=head1 AUTHOR
+
+mock, E<lt>mock@obscurity.orgE<gt>
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2005 by mock
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself, either Perl version 5.8.1 or,
+at your option, any later version of Perl 5 you may have available.
+
+=cut
diff --git a/t/Business-OnlinePayment-Exact.t b/t/Business-OnlinePayment-Exact.t
new file mode 100644
index 0000000..0754ac3
--- /dev/null
+++ b/t/Business-OnlinePayment-Exact.t
@@ -0,0 +1,57 @@
+# Before `make install' is performed this script should be runnable with
+# `make test'. After `make install' it should work as `perl Business-OnlinePayment-Exact.t'
+
+#########################
+
+# change 'tests => 1' to 'tests => last_test_to_print';
+
+use Test::More tests => 8;
+use Term::ReadLine;
+BEGIN { use_ok('Business::OnlinePayment::Exact') };
+
+#########################
+
+# Insert your test code below, the Test::More module is use()ed here so read
+# its man page ( perldoc Test::More ) for help writing this test script.
+
+my $term = new Term::ReadLine 'E-Xact Test';
+diag("Please enter a test account for E-Xact");
+my $prompt = "ExactID: ";
+my $login = $term->readline($prompt);
+diag("Please enter the password for the test account $login");
+$prompt = "Password: ";
+my $pass = $term->readline($prompt);
+diag("Please enter a valid credit card to test (it will not be charged)");
+$prompt = "Card Number: ";
+my $card = $term->readline($prompt);
+diag("Please enter an expiry date for the card in the form MMYY");
+$prompt = "Expiry: ";
+my $expiry = $term->readline($prompt);
+diag("Please enter a name to match the card");
+$prompt = "Name: ";
+my $name = $term->readline($prompt);
+
+my $tx;
+ok($tx = new Business::OnlinePayment('Exact'), 'New Exact');
+ok($tx->content(
+    amount => '9.95',
+    card_number => $card,
+    expiration => $expiry,
+    name => $name,
+    action => 'normal authorization',
+    login => $login,
+    password => $pass,
+    referer => 'Business::OnlinePayment::Exact testing',
+    ),
+    'Add Some Content');
+
+ok($tx->submit(), 'submit');
+ok($tx->is_success(), 'Success!!!');
+my $auth;
+ok($auth = $tx->authorization(), "authorization $auth");
+my $err;
+ok($err = $tx->error_message(), "error $err");
+my $on;
+ok($on = $tx->order_number(), "order number $on");
+
+