bin/cust_main.restore-paymask

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use FS::UID qw( adminsuidsetup );
   5 use FS::Record qw( qsearch dbh );
   6
   7 adminsuidsetup shift
   8   or die "Usage: cust_main.restore-paymask freeside_username\n";
   9
  10 foreach my $cust_main (
  11   qsearch({ 'table' => 'cust_main',
  12             'extra_sql' => q[WHERE payby IN ('CARD','DCRD') AND paymask IS NULL OR paymask = 'N/A (tokenized)'],
  13          })
  14 ) {
  15
  16   my $custnum = $cust_main->custnum;
  17
  18   my $paymask = FS::Record->scalar_sql(qq[
  19     SELECT paymask FROM h_cust_main WHERE custnum = $custnum AND history_action = 'replace_old' AND paymask IS NOT NULL AND paymask != 'N/A (tokenized)' ORDER BY historynum desc LIMIT 1
  20   ]);
  21
  22   #dbh->do(
  23   print
  24     qq[UPDATE cust_main SET paymask = '$paymask' WHERE custnum = $custnum;]
  25   ."\n"
  26   ;
  27
  28   #print "$custnum: $paymask\n";
  29 }
  30
  31 1;