diff options
author | Ivan Kohler <ivan@freeside.biz> | 2015-06-13 18:02:53 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2015-06-13 18:02:53 -0700 |
commit | fcc2d2644025c63d443e78671573b5231fbbed17 (patch) | |
tree | 73dc61b2ef93fd7b9df8257a43a62f3680d132b0 /bin/dump_tokens | |
parent | 99a85d8ed7da15cb441a54cde91f7e43cb89a15e (diff) |
dump tokens for cardfortress export
Diffstat (limited to 'bin/dump_tokens')
-rw-r--r-- | bin/dump_tokens | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/bin/dump_tokens b/bin/dump_tokens new file mode 100644 index 0000000..70c449b --- /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"; +} |