bin/dump_tokens

   1 #!/usr/bin/perl
   2
   3 use FS::UID qw(adminsuidsetup);
   4 use FS::Record qw(qsearch);
   5 use FS::cust_main;
   6
   7 adminsuidsetup shift or die 'usage: dump_tokens username';
   8
   9 foreach my $cust_main ( qsearch({ table     => 'cust_main',
  10                                   extra_sql => "WHERE payby IN ('CARD','DCRD')",
  11                                })
  12 ) {
  13   print $cust_main->custnum. ','. $cust_main->payinfo. "\n";
  14 }