From 6e922098cca33e5533e59028b640156214ba936f Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Fri, 4 Jul 2003 03:27:35 +0000
Subject: [PATCH 1/1] removing ancient cybercash example

---
 etc/example-direct-cardin | 67 -----------------------------------------------
 1 file changed, 67 deletions(-)
 delete mode 100755 etc/example-direct-cardin

diff --git a/etc/example-direct-cardin b/etc/example-direct-cardin
deleted file mode 100755
index 1a4097221..000000000
--- a/etc/example-direct-cardin
+++ /dev/null
@@ -1,67 +0,0 @@
-#!/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";
-}
-
-- 
2.11.0