Adding the CDG Commerce payment plugin.

2004-12-29 17:11:13 +00:00 · 2004-12-29 17:11:13 +00:00 · 990cd43035
commit 990cd43035
parent 4d5841418d
5 changed files with 801 additions and 2 deletions
--- a/lib/WebGUI/Commerce/Payment/ITransact.pm
+++ b/lib/WebGUI/Commerce/Payment/ITransact.pm
@ -0,0 +1,571 @@
+package WebGUI::Commerce::Payment::ITransact;
+
+use strict;
+use WebGUI::Session;
+use WebGUI::HTMLForm;
+use WebGUI::Commerce::Payment;
+use WebGUI::Commerce::Item;
+use Tie::IxHash;
+use WebGUI::International;
+use LWP::UserAgent;
+use XML::Simple;
+use HTTP::Cookies;
+
+our @ISA = qw(WebGUI::Commerce::Payment);
+
+#-------------------------------------------------------------------
+sub _resolveRecipe {
+	my %resolve = (
+		Weekly		=> 'weekly',
+		BiWeekly	=> 'biweekly',
+		FourWeekly	=> 'fourweekly',
+		Monthly		=> 'monthly',
+		Quarterly	=> 'quarterly',
+		HalfYearly	=> 'halfyearly',
+		Yearly		=> 'yearly',
+		);
+	
+	return $resolve{$_[0]};
+}
+
+#-------------------------------------------------------------------
+sub cancelRecurringPayment {
+	my ($self, $recurring, $userAgent, $request, $response);
+	$self = shift;
+	$recurring = shift;
+
+	if ($recurring) {
+		$self->{_recurring} = 1;
+
+		my $itemProperties = $recurring->{transaction}->getItems->[0];
+		my $item = WebGUI::Commerce::Item->new($itemProperties->{itemId}, $itemProperties->{itemType});
+		my $recipe = _resolveRecipe($item->duration);
+		    
+		# Set up a user agent that uses cookies and allows POST redirects
+		$userAgent = LWP::UserAgent->new;
+		$userAgent->agent("Mozilla/5.0 (Windows; U; Windows NT 5.0; en-US; rv:1.7.5) Gecko/20041107 Firefox/1.0");
+		push @{ $userAgent->requests_redirectable }, 'POST';
+		$userAgent->cookie_jar({});
+
+		# Login to iTransact
+		$request = HTTP::Request->new(POST => 'https://secure.paymentclearing.com/cgi-bin/rc/sess.cgi');
+		$request->content_type('application/x-www-form-urlencoded');
+		$request->content('mid='.$self->get('vendorId').'&pwd='.$self->get('password').'&cookie_precheck=0');
+
+		$response = $userAgent->request($request);
+
+		# Check the outcome of the response
+		if ($response->is_success) {
+#			print "FIRST PAGE SUCCESS!\n";
+#			print "(".$response->base.")\n";
+		} else {
+			WebGUI::ErrorHandler::fatalError(
+				'Connection Error while trying to cancel transaction '.$recurring->{transaction}->transactionId." \n".
+				"Could not reach login page.\n".
+				"(".$response->base.")\n".
+				$response->status_line. "\n");
+		}
+
+
+		# Post cancelation 
+		my $request = HTTP::Request->new(POST => 'https://secure.paymentclearing.com/cgi-bin/rc/recur/update/update.cgi');
+		$request->content_type('application/x-www-form-urlencoded');
+		$request->content(
+			'reps=0&'.			# Set number of remaining repetition to zero in order to cancel
+			'recipe_code='.$recipe.'&'.	
+			'xid='.$recurring->{id});
+
+		my $response = $userAgent->request($request);
+
+		# Check the outcome of the response
+		if ($response->is_success) {
+#			print "CANCELATION PAGE SUCCESS!\n";
+#			print "(".$response->base.")\n";
+		} else {
+			WebGUI::ErrorHandler::fatalError(
+				'Connection Error while trying to cancel transaction '.$recurring->{transaction}->transactionId." \n".
+				"(".$response->base.")\n".
+				$response->status_line. "\n");
+		}
+	}
+}	
+
+#-------------------------------------------------------------------
+sub connectionError {
+	my ($self, $resultCode);
+	$self = shift;
+	
+	return $self->resultMessage if ($self->{_connectionError});
+	return undef;
+}
+
+#-------------------------------------------------------------------
+sub checkoutForm {
+	my ($self, $u, $f, %months, %years, $i18n);
+	$self = shift;
+	
+	$i18n = WebGUI::International->new('CommercePaymentITransact');
+
+	$u = WebGUI::User->new($session{user}{userId});
+
+	$f = WebGUI::HTMLForm->new;
+	$f->text(
+		-name	=> 'firstName',
+		-label	=> $i18n->get('firstName'),
+		-value	=> $session{form}{firstName} || $u->profileField('firstName')
+	);
+	$f->text(
+		-name	=> 'lastName',
+		-label	=> $i18n->get('lastName'),
+		-value	=> $session{form}{lastName} || $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 {$_ => $_} 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}
+	) if ($self->get('useCVV2'));
+
+	return $f->printRowsOnly;	
+}
+
+#-------------------------------------------------------------------
+sub configurationForm {
+	my ($self, $f, $i18n);
+	$self = shift;
+ 	$i18n = WebGUI::International->new('CommercePaymentITransact');
+
+	$f = WebGUI::HTMLForm->new;
+	$f->text(
+		-name	=> $self->prepend('vendorId'),
+		-label	=> $i18n->get('vendorId'),
+		-value	=> $self->get('vendorId')
+		);
+	$f->text(
+		-name	=> $self->prepend('password'),
+		-label	=> $i18n->get('password'),
+		-value	=> $self->get('password')
+		);
+	$f->yesNo(
+		-name	=> $self->prepend('useCVV2'),
+		-label	=> $i18n->get('use cvv2'),
+		-value	=> $self->get('useCVV2'),
+		);
+	$f->textarea(
+		-name	=> $self->prepend('emailMessage'),
+		-label	=> $i18n->get('emailMessage'),
+		-value	=> $self->get('emailMessage')
+		);
+	$f->readOnly(
+		-value	=> '<br>'
+		);
+	if ($self->get('vendorId')) {
+		$f->readOnly(
+			-value => '<a target="_blank" href="https://secure.paymentclearing.com/support/login.html">'.$i18n->get('show terminal').'</a>'
+			);
+	} else {
+		$f->readOnly(
+			-value => '<a target="_blank" href="https://secure.cdgcommerce.com/onlineapp/onlineapp.php?agentid=309&appcode=PROMO2005">'.
+				$i18n->get('set up account').'</a>'
+			);
+	}
+	$f->readOnly(
+		-value	=> '<br>'
+		);
+	$f->readOnly(
+		-value	=> $i18n->get('extra info').'<br><b>'.$session{setting}{companyURL}.'?op=confirmRecurringTransaction&gateway='.$self->namespace
+		);
+		
+	return $self->SUPER::configurationForm($f->printRowsOnly);
+}
+
+#-------------------------------------------------------------------
+sub confirmRecurringTransaction {
+	#### !!!Site checken!!! ####
+	my $self = shift;
+	
+	my $form = $session{form};
+	my $transaction = WebGUI::Commerce::Transaction->getByGatewayId($session{form}{orig_xid}, $self->namespace);
+	my $itemProperties = $transaction->getItems->[0];
+	my $item = WebGUI::Commerce::Item->new($itemProperties->{itemId}, $itemProperties->{itemType});
+	
+	my $startEpoch = WebGUI::DateTime::setToEpoch(sprintf("%4d-%02d-%02d %02d:%02d:%02d", unpack('a4a2a2a2a2a2', $form->{start_date})));
+	my $currentEpoch = WebGUI::DateTime::setToEpoch(sprintf("%4d-%02d-%02d %02d:%02d:%02d", unpack('a4a2a2a2a2a2', $form->{when})));
+	
+	WebGUI::SQL->write("delete from ITransact_recurringStatus where gatewayId=".quote($form->{orig_xid}));
+	WebGUI::SQL->write("insert into ITransact_recurringStatus ".
+		"(gatewayId, initDate, lastTransaction, status, errorMessage, recipe) values ".
+		"(".quote($form->{orig_xid}).", $startEpoch, $currentEpoch, ".quote($form->{status}).", ".quote($form->{error_message}).
+		", ".quote($form->{recipe_name}).")");
+}
+
+#-------------------------------------------------------------------
+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('ITransact');
+
+	return $self;
+}
+
+#-------------------------------------------------------------------
+sub gatewayId {
+	my $self = shift;
+	
+	return $self->{_response}->{XID};
+}
+
+#-------------------------------------------------------------------
+sub getRecurringPaymentStatus {
+	my ($self, $term, $recurringId, $response, %paymentHistory);
+	$self = shift;
+	$recurringId = shift;
+	$term = shift || 1;
+	
+	my %resolve = {
+		weekly		=> 7*3600*24,
+		biweekly	=> 14*3600*24,
+		fourweekly	=> 28*3600*24,
+		monthly		=> 30*3600*24,
+		quarterly	=> 91*3600*24,
+		halfyearly	=> 182*3600*24,
+		yearly		=> 365*3600*24
+		};
+
+	my $transactionData = WebGUI::SQL->quickHashRef("select * from ITransact_recurringStatus where gatewayId=".quote($recurringId));
+	
+        my $lastTerm = int(($transactionData->{lastTransaction} - $transactionData->{initDate}) / $resolve{$transactionData->{recipe}}) + 1;
+		
+	# Process the response
+	
+	if ($lastTerm > $term) {
+		$paymentHistory{resultCode} = 0;
+	} elsif ($lastTerm == $term) {
+		$paymentHistory{resultCode} = $transactionData->{status}.' '.$transactionData->{errorMessage};
+		$paymentHistory{resultCode} = 0 if $transactionData->{status} eq 'OK';
+	} else {
+		return undef;
+	}
+		
+	return \%paymentHistory;
+}
+
+#-------------------------------------------------------------------
+sub errorCode {
+	my ($self, $resultCode);
+	$self = shift;
+	
+	$resultCode = $self->{_response}->{Status};
+	return $resultCode unless ($resultCode eq 'OK');
+	return undef;
+}
+
+#-------------------------------------------------------------------
+sub name {
+	return WebGUI::International::get('module name', "CommercePaymentITransact");
+}
+
+#-------------------------------------------------------------------
+sub namespace {
+	my $self = shift;
+	
+	return $self->{_namespace};
+}
+
+#-------------------------------------------------------------------
+sub normalTransaction {
+	my ($self, $normal);
+	$self = shift;
+	$normal = shift;
+
+	if ($normal) {
+		$self->{_recurring} = 0;
+		$self->{_transactionParams} = {
+			AMT		=> sprintf('%.2f', $normal->{amount}),
+			DESCRIPTION	=> $normal->{description} || WebGUI::International::get('no description', "CommercePaymentITransact"),
+			INVOICENUMBER	=> $normal->{invoiceNumber},
+			ORGID		=> $normal->{id},
+		};
+	}
+
+	return $self->submit;
+}
+
+#-------------------------------------------------------------------
+sub recurringTransaction {
+	my ($self, $recurring, $initialAmount);
+	$self = shift;
+	$recurring = shift;
+
+
+	if ($recurring) {
+		# initial amount = (daysInMonth - dayInMonth) / daysInMonth * amount
+		$initialAmount = (WebGUI::DateTime::getDaysInMonth(time) - (WebGUI::DateTime::localtime)[2])*$recurring->{amount}/WebGUI::DateTime::getDaysInMonth(time);
+		$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}),
+			INITIALAMT	=> sprintf('%.2f', $initialAmount),
+			TERM		=> $recurring->{term} || 9999,
+			RECIPE		=> _resolveRecipe($recurring->{payPeriod}),
+			DESCRIPTION	=> $recurring->{description} || WebGUI::International::get('no description', "CommercePaymentITransact"),
+			INVOICENUMBER	=> $recurring->{invoiceNumber},
+			ORGID		=> $recurring->{id},
+		};
+	}
+
+	return $self->submit;
+}	
+
+#-------------------------------------------------------------------
+sub resultCode {
+	my $self = shift;
+
+	return $self->{_response}->{Status};
+}
+
+#-------------------------------------------------------------------
+sub resultMessage {
+	my $self = shift;
+	
+	return $self->{_errorMessage} if ($self->connectionError);
+	return $self->{_response}->{ErrorMessage};
+}
+
+#-------------------------------------------------------------------
+sub submit {
+	my ($self, $xml, $items);
+	$self = shift;
+
+my	%cardData = %{$self->{_cardData}} if $self->{_cardData};
+my	%userData = %{$self->{_userData}} if $self->{_userData};
+my	%transactionData = %{$self->{_transactionParams}};
+
+	# Set up the XML.
+
+	$xml = 
+'<?xml version="1.0"?>'.
+"<SaleRequest>
+  <CustomerData>
+    <Email>$userData{EMAIL}</Email>
+    <BillingAddress>
+      <Address1>$userData{STREET}</Address1>
+      <FirstName>$userData{FIRSTNAME}</FirstName>
+      <LastName>$userData{LASTNAME}</LastName>
+      <City>$userData{CITY}</City>
+      <State>$userData{STATE}</State>
+      <Zip>$userData{ZIP}</Zip>
+      <Country>USA</Country>
+      <Phone>230-555-1212</Phone>
+    </BillingAddress>
+    <AccountInfo>
+      <CardInfo>
+  	<CCNum>$cardData{ACCT}</CCNum>
+   	<CCMo>$cardData{EXPMONTH}</CCMo>
+    	<CCYr>$cardData{EXPYEAR}</CCYr>\n";
+	
+	$xml .= "<CVV2Number>$cardData{CVV2}</CVV2Number>\n" if $self->get('useCVV2');
+#      	  <CVV2Illegible>1</CVV2Illegible> <!-- .Submit only if CVV number is illegible. -->
+	$xml .=
+"      </CardInfo> 
+    </AccountInfo>
+  </CustomerData>
+  <TransactionData>
+    <VendorId>".$self->get('vendorId')."</VendorId>
+    <VendorPassword>".$self->get('password')."</VendorPassword>
+    <HomePage>".$session{setting}{companyURL}."</HomePage>";
+
+	if ($self->{_recurring}) {
+		$xml .=
+"    <RecurringData>
+      <RecurRecipe>$transactionData{RECIPE}</RecurRecipe>
+      <RecurReps>$transactionData{TERM}</RecurReps>
+      <RecurTotal>$transactionData{INITIALAMT}</RecurTotal>
+      <RecurDesc>$transactionData{DESCRIPTION}</RecurDesc>
+    </RecurringData>";
+	};
+
+	$xml .=
+"    <EmailText>
+      <EmailTextItem>".$self->get('emailMessage')."</EmailTextItem>
+      <EmailTextItem>ID: $transactionData{ORGID}</EmailTextItem>
+    </EmailText>\n";
+
+	$items = WebGUI::Commerce::Transaction->new($transactionData{ORGID})->getItems;
+	foreach (@{$items}) {
+		$xml .= 
+"    <OrderItems>
+      <Item>
+        <Description>".$_->{itemName}."</Description>
+	<Cost>".$_->{amount}."</Cost>
+	<Qty>".$_->{quantity}."</Qty>
+      </Item>\n";
+	}
+
+	$xml .=
+"    </OrderItems>
+  </TransactionData>
+</SaleRequest>";
+
+
+my	$xmlTransactionScript = 'https://secure.paymentclearing.com/cgi-bin/rc/xmltrans.cgi';
+
+	# Set up LWP to post the XML to iTransact.
+my	$userAgent = LWP::UserAgent->new;
+	$userAgent->agent("WebGUI ");
+
+my	$request = HTTP::Request->new(POST => $xmlTransactionScript);
+	$request->content_type('application/x-www-form-urlencoded');
+	$request->content('xml='.$xml);
+
+my	$response = $userAgent->request($request);
+
+	if ($response->is_success) {
+		# We got some XML back from iTransact, now parse it.
+my		$xmlParser = XML::Simple->new;
+my		$transactionResult = $xmlParser->XMLin($response->content);
+
+		unless (defined $transactionResult->{TransactionData}) {
+			# Some error occurred
+			$self->{_transactionError} = 1;
+			$self->{_response} = $transactionResult;
+			$self->{_resultMessage} = $self->{_response}->{ErrorMessage};
+		} else {
+			$self->{_response} = $transactionResult->{TransactionData};
+		}
+	} else {
+		# Connection Error
+		$self->{_connectionError} = 1;
+		$self->{_resultMessage} = $response->status_line;
+	}
+}
+
+#-------------------------------------------------------------------
+sub supports {
+	return {
+		single		=> 1,
+		recurring	=> 1,
+	}
+}
+
+#-------------------------------------------------------------------
+sub transactionCompleted {
+	my ($self) = shift;
+	return ($self->{_response}->{Status} eq 'OK');
+}
+
+#-------------------------------------------------------------------
+sub transactionError {
+	my ($self, $resultCode);
+	$self = shift;
+	
+	$resultCode = $self->resultCode;
+	return $self->resultMessage if ($resultCode ne 'OK');
+	return undef;
+}
+
+#-------------------------------------------------------------------
+sub transactionPending {
+	return 0;
+}
+
+#-------------------------------------------------------------------
+sub validateFormData {
+	my ($self, @error, $i18n, $currentYear, $currentMonth);
+	$self = shift;
+
+	$i18n = WebGUI::International->new('CommercePaymentITransact');
+
+	push (@error, $i18n->get('invalid firstName')) unless ($session{form}{firstName});
+	push (@error, $i18n->get('invalid lastName')) unless ($session{form}{lastName});
+	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')) if ($session{form}{cvv2} !~ /^\d+$/ && $self->get('useCVV2'));
+
+	($currentYear, $currentMonth) = WebGUI::DateTime::localtime;
+
+	# Check if expDate and expYear have sane values
+	unless (($session{form}{expMonth} =~ /^(0[1-9]|1[0-2])$/) && ($session{form}{expYear} =~ /^\d\d\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},
+			EXPMONTH	=> $session{form}{expMonth},
+			EXPYEAR		=> $session{form}{expYear},
+			CVV2		=> $session{form}{cvv2},
+		};	
+		
+		$self->{_userData} = {
+			STREET		=> $session{form}{address},
+			ZIP		=> $session{form}{zipcode},
+			CITY		=> $session{form}{city},
+			FIRSTNAME	=> $session{form}{firstName},
+			LASTNAME	=> $session{form}{lastName},
+			EMAIL		=> $session{form}{email},
+			STATE		=> $session{form}{state},
+		};
+
+		return 0;
+	}
+			
+	return \@error;
+}
+
+1;
+
--- a/lib/WebGUI/Commerce/Transaction.pm
+++ b/lib/WebGUI/Commerce/Transaction.pm
@ -42,7 +42,8 @@ sub cancelTransaction {

 	$plugin = WebGUI::Commerce::Payment->load($self->gateway);
 	$plugin->cancelRecurringPayment({
-		id => $self->gatewayId
+		id => $self->gatewayId,
+		transaction => $self,
 		});
 	return $plugin->resultMessage.' (code: '.$plugin->errorCode.')' if ($plugin->errorCode);

@ -112,6 +113,20 @@ sub get {
 	return $self->{_properties};
 }

+#-------------------------------------------------------------------
+sub getByGatewayId {
+	my ($self, $gatewayId, $paymentGateway, $transactionId);
+	$self = shift;
+	$gatewayId = shift;
+	$paymentGateway = shift;
+
+	($transactionId) = WebGUI::SQL->quickArray("select transaction Id from transaction where gatewayId=".quote($gatewayId).
+		" and gateway=".quote($paymentGateway));
+
+	return WebGUI::Commerce::Transaction->new($transactionId) if $transactionId;
+	return undef;
+}
+
 #-------------------------------------------------------------------
 sub getItems {
 	my ($self);
--- a/lib/WebGUI/Operation/Commerce.pm
+++ b/lib/WebGUI/Operation/Commerce.pm
@ -224,6 +224,16 @@ sub www_completePendingTransaction {
 	return WebGUI::Operation::execute('listPendingTransactions');
 }

+#-------------------------------------------------------------------
+sub www_confirmRecurringTransaction {
+	my($plugin, %var);
+	$plugin = WebGUI::Commerce::Payment->load($session{form}{gateway});
+
+	if ($plugin) {
+		$plugin->confirmRecurringTransaction;
+	}
+}
+
 #-------------------------------------------------------------------
 sub www_confirmTransaction {
 	my($plugin, %var);
@ -288,7 +298,7 @@ sub www_editCommerceSettings {
 		$plugin = WebGUI::Commerce::Payment->load($_);
 		if ($plugin) {
 			push(@paymentPlugins, $plugin);
-			$paymentPlugins{$_} = $_;
+			$paymentPlugins{$_} = $plugin->name;
 		} else {
 			push(@failedPaymentPlugins, $_);
 		}
--- a/lib/WebGUI/i18n/English/CommercePaymentITransact.pm
+++ b/lib/WebGUI/i18n/English/CommercePaymentITransact.pm
@ -0,0 +1,195 @@
+package WebGUI::i18n::English::CommercePaymentITransact;
+
+our $I18N = {
+	'firstName' => {
+		message => q|First name|,
+		lastUpdated => 0,
+		context => q|Form label in the checkout form of the iTransact module.|
+	},
+	'lastName' => {
+		message => q|Last name|,
+		lastUpdated => 0,
+		context => q|Form label in the checkout form of the iTransact module.|
+	},
+	'address' => {
+		message => q|Address|,
+		lastUpdated => 1101772170,
+		context => q|Form label in the checkout form of the iTransact module.|
+	},
+	'city' => {
+		message => q|City|,
+		lastUpdated => 1101772171,
+		context => q|Form label in the checkout form of the iTransact module.|
+	},
+	'state' => {
+		message => q|State|,
+		lastUpdated => 1101772173,
+		context => q|Form label in the checkout form of the iTransact module.|
+	},
+	'zipcode' => {
+		message => q|Zipcode|,
+		lastUpdated => 1101772174,
+		context => q|Form label in the checkout form of the iTransact module.|
+	},
+	'email' => {
+		message => q|Email|,
+		lastUpdated => 1101772176,
+		context => q|Form label in the checkout form of the iTransact module.|
+	},
+	'cardNumber' => {
+		message => q|Credit card number|,
+		lastUpdated => 1101772177,
+		context => q|Form label in the checkout form of the iTransact module.|
+	},
+	'expiration date' => {
+		message => q|Expiration date|,
+		lastUpdated => 1101772180,
+		context => q|Form label in the checkout form of the iTransact module.|
+	},
+	'cvv2' => {
+		message => q|Verification number (ie. CVV2)|,
+		lastUpdated => 1101772182,
+		context => q|Form label in the checkout form of the iTransact module.|
+	},
+	
+	'vendorId' => {
+		message => q|Username (Vendor ID)|,
+		lastUpdated => 0,
+		context => q|Form label in the configuration form of the iTransact module.|
+	},
+	'use cvv2' => {
+		message => q|Use CVV2|,
+		lastUpdated => 0,
+		context => q|Form label in the configuration form of the iTransact module.|
+	},
+	'emailMessage' => {
+		message => q|Email message|,
+		lastUpdated => 0,
+		context => q|Form label in the configuration form of the iTransact module.|
+	},
+	'password' => {
+		message => q|Password|,
+		lastUpdated => 0,
+		context => q|Form label in the configuration form of the iTransact module.|
+	},
+
+	'module name' => {
+		message => q|CDG Commerce|,
+		lastUpdated => 0,
+		context => q|The displayed name of the Payflo Pro payment module.|
+	},
+
+	'invalid firstName' => {
+		message => q|You have to enter a valid first name.|,
+		lastUpdated => 0,
+		context => q|An error indicating that an invalid first name has been entered.|
+	},
+	'invalid lastName' => {
+		message => q|You have to enter a valid last name.|,
+		lastUpdated => 0,
+		context => q|An error indicating that an invalid last name has been entered.|
+	},
+	'invalid address' => {
+		message => q|You have to enter a valid address.|,
+		lastUpdated => 0,
+		context => q|An error indicating that an invalid street has been entered.|
+	},
+	'invalid city' => {
+		message => q|You have to enter a valid city.|,
+		lastUpdated => 0,
+		context => q|An error indicating that an invalid city has been entered.|
+	},
+	'invalid zip' => {
+		message => q|You have to enter a valid zipcode.|,
+		lastUpdated => 0,
+		context => q|An error indicating that an invalid zipcode has been entered.|
+	},
+	'invalid email' => {
+		message => q|You have to enter a valid email address.|,
+		lastUpdated => 0,
+		context => q|An error indicating that an invalid email address has been entered.|
+	},
+	'invalid card number' => {
+		message => q|You have to enter a valid credit card number.|,
+		lastUpdated => 0,
+		context => q|An error indicating that an invalid credit card number has been entered.|
+	},
+	'invalid cvv2' => {
+		message => q|You have to enter a valid card security code (ie. cvv2).|,
+		lastUpdated => 0,
+		context => q|An error indicating that an invalid card security code has been entered.|
+	},
+	'invalid expiration date' => {
+		message => q|You have to enter a valid expiration date.|,
+		lastUpdated => 0,
+		context => q|An error indicating that an invalid expiration date has been entered.|
+	},
+	'no description' => {
+		message => q|No description|,
+		lastUpdated => 0,
+		context => q|The default description of purchase of users.|
+	},
+	'show terminal' => {
+		message => q|Click here to use your virtual terminal.|,
+		lastUpdated => 0,
+		context => q|The label of the link that points to the virtual terminal login.|
+	},
+	'set up account' => {
+		message => q|Register for a merchant account now to get started processing online transactions.|,
+		lastUpdated => 0,
+		context => q|The label of the link that points to the account creation page of CDG.|
+	},
+	'extra info' => {
+		message => q|This plugin expects that you set up the following recipe's in your CDG account. Be very careful to enter the recipe names exactly as given below.<br>
+<table border="0" cellpadding="3" cellspacing="0">
+  <tr>
+    <td align="right"><b>weekly</b></td>
+    <td> -> </td>
+    <td align="left">7 days</td>
+  </tr>
+  <tr>
+    <td align="right"><b>biweekly</b></td>
+    <td> -> </td>
+    <td align="left">14 days</td>
+  </tr>
+   <tr>
+    <td align="right"><b>fourweekly</b></td>
+    <td> -> </td>
+    <td align="left">28 days</td>
+  </tr>
+  <tr>
+    <td align="right"><b>monthly</b></td>
+    <td> -> </td>
+    <td align="left">30 days</td>
+  </tr>
+  <tr>
+    <td align="right"><b>quarterly</b></td>
+    <td> -> </td>
+    <td align="left">91 days</td>
+  </tr>
+  <tr>
+    <td align="right"><b>halfyearly</b></td>
+    <td> -> </td>
+    <td align="left">182 days</td>
+  </tr>
+  <tr>
+    <td align="right"><b>yearly</b></td>
+    <td> -> </td>
+    <td align="left">365 days</td>
+  </tr>
+</table><br>
+Please note that some of these recipe's are only roughly correct. They don't 'fit' exactly in a whole year. Below the affected recipe's are given together with their difference on a year's basis. <br>
+<ul>
+  <li><b>monthly</b> (differs 5 days each year, 6 days each leap year)</li>
+  <li><b>quarterly</b> (differs 1 day each year, 2 days each leap year)</li>
+  <li><b>halfyearly</b> (differs 1 day each year, 2 days each leap year)</li>
+  <li><b>yearly</b> (differs 1 day each leap year)</li>
+</ul><br>
+Also set the 'RECURRING POST-BACK URL' field in the Account Settings part of the virtual terminal to:|,
+		lastUpdated => 0,
+		context => q|An informational message that's shown in the configuration form of this plugin.|
+	},
+};
+
+1;
+