From fcc2d2644025c63d443e78671573b5231fbbed17 Mon Sep 17 00:00:00 2001
From: Ivan Kohler <ivan@freeside.biz>
Date: Sat, 13 Jun 2015 18:02:53 -0700
Subject: [PATCH] dump tokens for cardfortress export

---
 bin/dump_tokens | 14 ++++++++++++++
 1 file changed, 14 insertions(+)
 create mode 100644 bin/dump_tokens

diff --git a/bin/dump_tokens b/bin/dump_tokens
new file mode 100644
index 000000000..70c449bf9
--- /dev/null
+++ b/bin/dump_tokens
@@ -0,0 +1,14 @@
+#!/usr/bin/perl
+
+use FS::UID qw(adminsuidsetup);
+use FS::Record qw(qsearch);
+use FS::cust_main;
+
+adminsuidsetup shift or die 'usage: dump_tokens username';
+
+foreach my $cust_main ( qsearch({ table     => 'cust_main',
+                                  extra_sql => "WHERE payby IN ('CARD','DCRD')",
+                               })
+) {
+  print $cust_main->custnum. ','. $cust_main->payinfo. "\n";
+}
-- 
2.11.0