bin/fs-migrate-payref

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use FS::UID qw(adminsuidsetup);
   5 use FS::Record qw(qsearch);
   6 use FS::cust_pay;
   7 use FS::cust_refund;
   8
   9 my $user = shift or die &usage;
  10 my $dbh = adminsuidsetup $user;
  11
  12 # apply payments to invoices
  13
  14 foreach my $cust_pay ( qsearch('cust_pay', {} ) ) {
  15   my $error = $cust_pay->upgrade_replace;
  16   warn $error if $error;
  17 }
  18
  19 # apply refunds to credits
  20
  21 foreach my $cust_refund ( qsearch('cust_refund') ) {
  22   my $error = $cust_refund->upgrade_replace;
  23   warn $error if $error;
  24 }
  25
  26 # ? apply credits to invoices
  27
  28 sub usage {
  29   die "Usage:\n  fs-migrate-payref user\n";
  30 }
  31