no longer needed
This commit is contained in:
JT Smith
parent
74258fb349
commit
b56a13fdfc
1 changed files with 0 additions and 417 deletions
|
|
@ -1,417 +0,0 @@
|
||||||
package WebGUI::Commerce::Payment::PayFlowPro;
|
|
||||||
|
|
||||||
use strict;
|
|
||||||
use WebGUI::Session;
|
|
||||||
use WebGUI::HTMLForm;
|
|
||||||
use WebGUI::Commerce::Payment;
|
|
||||||
use Tie::IxHash;
|
|
||||||
use PFProAPI qw( pfpro );
|
|
||||||
use WebGUI::International;
|
|
||||||
|
|
||||||
our @ISA = qw(WebGUI::Commerce::Payment);
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub cancelRecurringPayment {
|
|
||||||
my ($self, $recurring);
|
|
||||||
$self = shift;
|
|
||||||
$recurring = shift;
|
|
||||||
|
|
||||||
if ($recurring) {
|
|
||||||
$self->{_type} = 'R';
|
|
||||||
$self->{_recurring} = 1;
|
|
||||||
$self->{_transactionParams} = {
|
|
||||||
ORIGPROFILEID => $recurring->{id},
|
|
||||||
ACTION => 'C',
|
|
||||||
};
|
|
||||||
}
|
|
||||||
|
|
||||||
return $self->submit;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub connectionError {
|
|
||||||
my ($self, $resultCode);
|
|
||||||
$self = shift;
|
|
||||||
|
|
||||||
$resultCode = $self->resultCode;
|
|
||||||
return $self->resultMessage if ($resultCode < 0);
|
|
||||||
return undef;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub checkoutForm {
|
|
||||||
my ($self, $u, $f, %months, %years, $i18n);
|
|
||||||
$self = shift;
|
|
||||||
|
|
||||||
$i18n = WebGUI::International->new('CommercePaymentPayFlowPro');
|
|
||||||
|
|
||||||
$u = WebGUI::User->new($session{user}{userId});
|
|
||||||
|
|
||||||
$f = WebGUI::HTMLForm->new;
|
|
||||||
$f->text(
|
|
||||||
-name => 'name',
|
|
||||||
-label => $i18n->get('name'),
|
|
||||||
-value => $session{form}{name} || $u->profileField('firstName').' '.$u->profileField('lastName')
|
|
||||||
);
|
|
||||||
$f->text(
|
|
||||||
-name => 'address',
|
|
||||||
-label => $i18n->get('address'),
|
|
||||||
-value => $session{form}{address} || $u->profileField('homeAddress')
|
|
||||||
);
|
|
||||||
$f->text(
|
|
||||||
-name => 'city',
|
|
||||||
-label => $i18n->get('city'),
|
|
||||||
-value => $session{form}{city} || $u->profileField('homeCity')
|
|
||||||
);
|
|
||||||
$f->text(
|
|
||||||
-name => 'state',
|
|
||||||
-label => $i18n->get('state'),
|
|
||||||
-value => $session{form}{state} || $u->profileField('homeState')
|
|
||||||
);
|
|
||||||
$f->zipcode(
|
|
||||||
-name => 'zipcode',
|
|
||||||
-label => $i18n->get('zipcode'),
|
|
||||||
-value => $session{form}{zipcode} || $u->profileField('homeZip')
|
|
||||||
);
|
|
||||||
$f->email(
|
|
||||||
-name => 'email',
|
|
||||||
-label => $i18n->get('email'),
|
|
||||||
-value => $session{form}{email} || $u->profileField('email')
|
|
||||||
);
|
|
||||||
$f->text(
|
|
||||||
-name => 'cardNumber',
|
|
||||||
-label => $i18n->get('cardNumber'),
|
|
||||||
-value => $session{form}{cardNumber}
|
|
||||||
);
|
|
||||||
tie %months, "Tie::IxHash";
|
|
||||||
%months = map {sprintf('%02d',$_) => sprintf('%02d',$_)} 1..12;
|
|
||||||
tie %years, "Tie::IxHash";
|
|
||||||
%years = map {substr($_,2,2) => $_} 2004..2099;
|
|
||||||
$f->readOnly(
|
|
||||||
-label => $i18n->get('expiration date'),
|
|
||||||
-value =>
|
|
||||||
WebGUI::Form::selectList({name => 'expMonth', options => \%months, value => [$session{form}{expMonth}]}).
|
|
||||||
" / ".
|
|
||||||
WebGUI::Form::selectList({name => 'expYear', options => \%years, value => [$session{form}{expYear}]})
|
|
||||||
);
|
|
||||||
$f->integer(
|
|
||||||
-name => 'cvv2',
|
|
||||||
-label => $i18n->get('cvv2'),
|
|
||||||
-value => $session{form}{cvv2}
|
|
||||||
);
|
|
||||||
|
|
||||||
return $f->printRowsOnly;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub configurationForm {
|
|
||||||
my ($self, $f, $i18n);
|
|
||||||
$self = shift;
|
|
||||||
$i18n = WebGUI::International->new('CommercePaymentPayFlowPro');
|
|
||||||
|
|
||||||
$f = WebGUI::HTMLForm->new;
|
|
||||||
$f->text(
|
|
||||||
-name => $self->prepend('vendor'),
|
|
||||||
-label => $i18n->get('vendor'),
|
|
||||||
-value => $self->get('vendor')
|
|
||||||
);
|
|
||||||
$f->text(
|
|
||||||
-name => $self->prepend('partner'),
|
|
||||||
-label => $i18n->get('partner'),
|
|
||||||
-value => $self->get('partner')
|
|
||||||
);
|
|
||||||
$f->text(
|
|
||||||
-name => $self->prepend('username'),
|
|
||||||
-label => $i18n->get('username'),
|
|
||||||
-value => $self->get('username')
|
|
||||||
);
|
|
||||||
$f->text(
|
|
||||||
-name => $self->prepend('password'),
|
|
||||||
-label => $i18n->get('password'),
|
|
||||||
-value => $self->get('password')
|
|
||||||
);
|
|
||||||
$f->yesNo(
|
|
||||||
-name => $self->prepend('testModeEnabled'),
|
|
||||||
-label => $i18n->get('test mode'),
|
|
||||||
-value => $self->get('testModeEnabled'),
|
|
||||||
-subText=> $i18n->get('testModeEnabled')
|
|
||||||
);
|
|
||||||
|
|
||||||
return $self->SUPER::configurationForm($f->printRowsOnly);
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub confirmTransaction {
|
|
||||||
# This function should never be called with site side payment gateways!
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub init {
|
|
||||||
my ($class, $self);
|
|
||||||
$class = shift;
|
|
||||||
|
|
||||||
$self = $class->SUPER::init('PayFlowPro');
|
|
||||||
|
|
||||||
return $self;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub gatewayId {
|
|
||||||
my $self = shift;
|
|
||||||
|
|
||||||
return $self->{_response}->{PROFILEID} if $self->{_recurring};
|
|
||||||
return $self->{_response}->{PNREF};
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub getRecurringPaymentStatus {
|
|
||||||
my ($self, $term, $recurringId, $response, %paymentHistory);
|
|
||||||
$self = shift;
|
|
||||||
$recurringId = shift;
|
|
||||||
$term = shift;
|
|
||||||
|
|
||||||
if ($recurringId) {
|
|
||||||
$self->{_type} = 'R';
|
|
||||||
$self->{_recurring} = 1;
|
|
||||||
$self->{_transactionParams} = {
|
|
||||||
ORIGPROFILEID => $recurringId,
|
|
||||||
PAYMENTHISTORY => 'Y',
|
|
||||||
ACTION => 'I',
|
|
||||||
};
|
|
||||||
}
|
|
||||||
|
|
||||||
$self->submit;
|
|
||||||
|
|
||||||
$response = $self->{_response};
|
|
||||||
|
|
||||||
# Process the response
|
|
||||||
if ($term) {
|
|
||||||
return undef unless (defined $response->{'P_RESULT'.$term});
|
|
||||||
return {
|
|
||||||
resultCode => $response->{'P_RESULT'.$term},
|
|
||||||
gatewayId => $response->{'P_PNREF'.$term},
|
|
||||||
transferState => $response->{'P_TRANSTATE'.$term},
|
|
||||||
transferDate => $response->{'P_TRANSTIME'.$term},
|
|
||||||
amount => $response->{'P_AMOUNT'.$term},
|
|
||||||
};
|
|
||||||
}
|
|
||||||
|
|
||||||
$term = 1;
|
|
||||||
while (defined $response->{'P_RESULT'.$term}) {
|
|
||||||
$paymentHistory{$term} = {
|
|
||||||
resultCode => $response->{'P_RESULT'.$term},
|
|
||||||
gatewayId => $response->{'P_PNREF'.$term},
|
|
||||||
transferState => $response->{'P_TRANSTATE'.$term},
|
|
||||||
transferDate => $response->{'P_TRANSTIME'.$term},
|
|
||||||
amount => $response->{'P_AMT'.$term},
|
|
||||||
};
|
|
||||||
$term++;
|
|
||||||
}
|
|
||||||
|
|
||||||
return \%paymentHistory;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub errorCode {
|
|
||||||
my ($self, $resultCode);
|
|
||||||
$self = shift;
|
|
||||||
|
|
||||||
$resultCode = $self->{_response}->{RESULT};
|
|
||||||
return $self->{_response}->{TRXRESULT} if ($resultCode == 36 && $self->{_recurring} && $self->{_response}->{TRXRESULT});
|
|
||||||
return $resultCode unless ($resultCode eq '0');
|
|
||||||
return undef;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub name {
|
|
||||||
return WebGUI::International::get('module name', "CommercePaymentPayFlowPro");
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub namespace {
|
|
||||||
my $self = shift;
|
|
||||||
|
|
||||||
return $self->{_namespace};
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub normalTransaction {
|
|
||||||
my ($self, $normal);
|
|
||||||
$self = shift;
|
|
||||||
$normal = shift;
|
|
||||||
|
|
||||||
if ($normal) {
|
|
||||||
$self->{_type} = 'S';
|
|
||||||
$self->{_recurring} = 0;
|
|
||||||
$self->{_transactionParams} = {
|
|
||||||
AMT => sprintf('%.2f', $normal->{amount}),
|
|
||||||
COMMENT1 => $normal->{description},
|
|
||||||
COMMENT2 => $normal->{invoiceNumber},
|
|
||||||
ORGID => $normal->{id},
|
|
||||||
};
|
|
||||||
}
|
|
||||||
|
|
||||||
return $self->submit;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub recurringTransaction {
|
|
||||||
my ($self, $recurring);
|
|
||||||
$self = shift;
|
|
||||||
$recurring = shift;
|
|
||||||
|
|
||||||
my %resolve = (
|
|
||||||
Weekly => 'WEEK',
|
|
||||||
BiWeekly => 'BIWK',
|
|
||||||
FourWeekly => 'FRWK',
|
|
||||||
Monthly => 'MONT',
|
|
||||||
Quarterly => 'QTER',
|
|
||||||
HalfYearly => 'SMYR',
|
|
||||||
Yearly => 'YEAR',
|
|
||||||
);
|
|
||||||
|
|
||||||
if ($recurring) {
|
|
||||||
$self->{_type} = 'R';
|
|
||||||
$self->{_recurring} = 1;
|
|
||||||
$self->{_transactionParams} = {
|
|
||||||
START => $recurring->{start} || WebGUI::DateTime::epochToHuman(WebGUI::DateTime::addToDate(time, 0, 0, 1), '%m%d%y'),
|
|
||||||
AMT => sprintf('%.2f', $recurring->{amount}),
|
|
||||||
TERM => $recurring->{term},
|
|
||||||
PAYPERIOD => $resolve{$recurring->{payPeriod}},
|
|
||||||
PROFILENAME => $recurring->{profilename},
|
|
||||||
COMMENT1 => $recurring->{description},
|
|
||||||
COMMENT2 => $recurring->{invoiceNumber},
|
|
||||||
ORGID => $recurring->{id},
|
|
||||||
ACTION => 'A',
|
|
||||||
};
|
|
||||||
$self->{_transactionParams}->{OPTIONALTRX} = 'A' if ($recurring->{checkCard});
|
|
||||||
}
|
|
||||||
|
|
||||||
return $self->submit;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub resultCode {
|
|
||||||
my $self = shift;
|
|
||||||
|
|
||||||
return $self->{_response}->{RESULT};
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub resultMessage {
|
|
||||||
my $self = shift;
|
|
||||||
|
|
||||||
return $self->{_response}->{RESPMSG};
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub submit {
|
|
||||||
my ($payflow, $self, $purchase, %properties, $expirationDate);
|
|
||||||
$self = shift;
|
|
||||||
$purchase = shift;
|
|
||||||
|
|
||||||
my $server = 'payflow.verisign.com';
|
|
||||||
$server = 'test-payflow.verisign.com' if $self->get('testModeEnabled');
|
|
||||||
my $port = 443;
|
|
||||||
my %cardData = %{$self->{_cardData}} if $self->{_cardData};
|
|
||||||
my %userData = %{$self->{_userData}} if $self->{_userData};
|
|
||||||
my %specificTranasctionParams = %{$self->{_transactionParams}};
|
|
||||||
my %baseParams = (
|
|
||||||
USER => $self->get('username'),
|
|
||||||
VENDOR => $self->get('vendor'),
|
|
||||||
PARTNER => $self->get('partner'),
|
|
||||||
PWD => $self->get('password'),
|
|
||||||
|
|
||||||
TRXTYPE => $self->{_type},
|
|
||||||
TENDER => 'C',
|
|
||||||
);
|
|
||||||
|
|
||||||
%properties = (%baseParams, %specificTranasctionParams, %userData, %cardData);
|
|
||||||
|
|
||||||
my ( $response, $resultstr ) = pfpro( \%properties, $server, $port );
|
|
||||||
|
|
||||||
$self->{_response} = $response;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub supports {
|
|
||||||
return {
|
|
||||||
single => 1,
|
|
||||||
recurring => 1,
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub transactionCompleted {
|
|
||||||
my ($self) = shift;
|
|
||||||
return ($self->{_response}->{RESULT} eq '0');
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub transactionError {
|
|
||||||
my ($self, $resultCode);
|
|
||||||
$self = shift;
|
|
||||||
|
|
||||||
$resultCode = $self->resultCode;
|
|
||||||
return $self->{_response}->{TRXRESPMSG} if ($resultCode == 36 && $self->{_recurring} && $self->{_response}->{TRXRESULT});
|
|
||||||
return $self->resultMessage if ($resultCode > 0);
|
|
||||||
return undef;
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub transactionPending {
|
|
||||||
return ($_[0]->errorCode == 126);
|
|
||||||
}
|
|
||||||
|
|
||||||
#-------------------------------------------------------------------
|
|
||||||
sub validateFormData {
|
|
||||||
my ($self, @error, $i18n, $currentYear, $currentMonth);
|
|
||||||
$self = shift;
|
|
||||||
|
|
||||||
$i18n = WebGUI::International->new('CommercePaymentPayFlowPro');
|
|
||||||
|
|
||||||
push (@error, $i18n->get('invalid name')) unless ($session{form}{name});
|
|
||||||
push (@error, $i18n->get('invalid address')) unless ($session{form}{address});
|
|
||||||
push (@error, $i18n->get('invalid city')) unless ($session{form}{city});
|
|
||||||
push (@error, $i18n->get('invalid zip')) unless ($session{form}{zipcode});
|
|
||||||
push (@error, $i18n->get('invalid email')) unless ($session{form}{email});
|
|
||||||
|
|
||||||
push (@error, $i18n->get('invalid card number')) unless ($session{form}{cardNumber} =~ /^\d+$/);
|
|
||||||
push (@error, $i18n->get('invalid cvv2')) unless ($session{form}{cvv2} =~ /^\d+$/);
|
|
||||||
|
|
||||||
($currentYear, $currentMonth) = WebGUI::DateTime::localtime;
|
|
||||||
$currentYear -= 2000;
|
|
||||||
|
|
||||||
# Check if expDate and expYear have sane values
|
|
||||||
unless (($session{form}{expMonth} =~ /^(0[1-9]|1[0-2])$/) && ($session{form}{expYear} =~ /^\d\d$/)) {
|
|
||||||
push (@error, $i18n->get('invalid expiration date'));
|
|
||||||
} elsif (($session{form}{expYear} < $currentYear) ||
|
|
||||||
(($session{form}{expYear} == $currentYear) && ($session{form}{expMonth} < $currentMonth))) {
|
|
||||||
push (@error, $i18n->get('invalid expiration date'));
|
|
||||||
}
|
|
||||||
|
|
||||||
unless (@error) {
|
|
||||||
$self->{_cardData} = {
|
|
||||||
ACCT => $session{form}{cardNumber},
|
|
||||||
EXPDATE => $session{form}{expMonth}.$session{form}{expYear},
|
|
||||||
CVV2 => $session{form}{cvv2},
|
|
||||||
};
|
|
||||||
|
|
||||||
$self->{_userData} = {
|
|
||||||
STREET => $session{form}{address},
|
|
||||||
ZIP => $session{form}{zipcode},
|
|
||||||
CITY => $session{form}{city},
|
|
||||||
NAME => $session{form}{name},
|
|
||||||
EMAIL => $session{form}{email},
|
|
||||||
STATE => $session{form}{state},
|
|
||||||
};
|
|
||||||
|
|
||||||
return 0;
|
|
||||||
}
|
|
||||||
|
|
||||||
return \@error;
|
|
||||||
}
|
|
||||||
|
|
||||||
1;
|
|
||||||
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue