bin/dump_tokens


1
2
3
4
5
6
7
8
9
10
11
12
13
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";
}