1 files changed, 67 insertions, 0 deletions
diff --git a/etc/example-direct-cardin b/etc/example-direct-cardin
new file mode 100755
index 000000000..1a4097221
--- /dev/null
+++ b/etc/example-direct-cardin
@@ -0,0 +1,67 @@
+#!/usr/local/bin/perl
+
+###
+# THIS IS FROM CYBERCASH (is there a newer version?)
+###
+
+$paymentserverhost = 'localhost';
+$paymentserverport = 8000;
+$paymentserversecret = 'two-turntables';
+use CCLib qw(sendmserver);
+
+# first lets fake up some data 
+# use time of day and pid to give me my pretend
+# order number
+# you obviously need to get real data from somewhere...
+
+$oid = "test$$"; #fake order number.
+$amount = 'usd 42.42';
+$ramount = 'usd 24.24';
+$pan = '4111111111111111';
+$name = 'John Q. Doe';
+$addr = '17 Richard Rd.';
+$city = 'Ivyland';
+$state = 'PA';
+$zip = '18974';
+$country = 'USA';
+$exp = '7/97';
+
+
+%result = &sendmserver('mauthcapture', 
+                       'Order-ID', $oid,
+		       'Amount', $amount,
+		       'Card-Number', $pan,
+		       'Card-Name', $name,
+		       'Card-Address', $addr,
+		       'Card-City', $city,
+		       'Card-State', $state,
+		       'Card-Zip', $zip,
+		       'Card-Country', $country,
+		       'Card-Exp', $exp);
+
+#
+# just dump results to stdout.
+# you should process them...
+# to allow results to affect operation of your fulfillment...
+#
+foreach (keys(%result)) {
+   print " $_ ==> $result{$_}\n";
+}
+
+print "\n";
+
+exit;
+
+$trans=$result{'MTransactionNumber'};
+$code=$result{'MRetrievalCode'};
+
+%result = &sendmserver('return',
+                        'Order-ID', $oid,
+			'Return-Amount',$ramount,
+			'Amount',$amount,
+			);
+
+foreach (keys(%result)) {
+   print " $_ ==> $result{$_}\n";
+}
+