3 use FS::UID qw(adminsuidsetup);
4 use FS::Record qw(qsearch);
7 adminsuidsetup shift or die 'usage: dump_tokens username';
9 foreach my $cust_main ( qsearch({ table => 'cust_main',
10 extra_sql => "WHERE payby IN ('CARD','DCRD')",
13 print $cust_main->custnum. ','. $cust_main->payinfo. "\n";