bin/remove-cust_main_invoice

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use FS::UID qw( adminsuidsetup );
   5 use FS::Record qw( qsearch );
   6
   7 my $user = shift or die &usage;
   8
   9 my $email = shift or die &usage;
  10
  11 adminsuidsetup $user;
  12
  13 foreach my $cust_main_invoice (
  14   qsearch('cust_main_invoice', { 'dest' => $email } )
  15 ) {
  16   my $error = $cust_main_invoice->delete;
  17   die $error if $error;
  18 }
  19
  20 sub usage {
  21   "Usage: remove-cust_main_invoice username email\@address";
  22 }