projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
99a85d8
)
dump tokens for cardfortress export
author
Ivan Kohler
<ivan@freeside.biz>
Sun, 14 Jun 2015 01:02:53 +0000
(18:02 -0700)
committer
Ivan Kohler
<ivan@freeside.biz>
Sun, 14 Jun 2015 01:02:53 +0000
(18:02 -0700)
bin/dump_tokens
[new file with mode: 0644]
patch
|
blob
diff --git a/bin/dump_tokens
b/bin/dump_tokens
new file mode 100644
(file)
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";
+}