From 691bb9412fd331e9cda0013df41e2fb418d97674 Mon Sep 17 00:00:00 2001 From: levinse Date: Mon, 6 Jun 2011 20:59:19 +0000 Subject: [PATCH 1/1] BOP Cardcom, RT13058 --- Cardcom.pm | 3 ++- Makefile.PL | 11 +---------- 2 files changed, 3 insertions(+), 11 deletions(-) diff --git a/Cardcom.pm b/Cardcom.pm index 2159033..cd8b2a8 100644 --- a/Cardcom.pm +++ b/Cardcom.pm @@ -21,7 +21,6 @@ sub set_defaults { } # XXX? -# -CVV # -Identity number # -Configurable currency # -Configurable deal code @@ -33,6 +32,7 @@ sub submit { card_number => 'cardnumber', amount => 'Sum', login => 'Username', + cvv2 => 'cvv', ); die "invalid action" unless @@ -96,6 +96,7 @@ sub fields { cardvaliditymonth Username languages + cvv ); } diff --git a/Makefile.PL b/Makefile.PL index 5e9573c..6d53229 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -5,19 +5,10 @@ WriteMakefile( 'NAME' => 'Business::OnlinePayment::Cardcom', 'VERSION_FROM' => 'Cardcom.pm', # finds $VERSION 'AUTHOR' => 'Erik Levinson ', - #'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 - + 'Net::HTTPS::Any' => 0, }, - #'dist' => {CI => 'ci -l'}, ); -- 2.11.0