bin/all-postal-no-email

   1 #!/usr/bin/perl -w
   2
   3 use strict;
   4 use FS::UID qw(adminsuidsetup);
   5 use FS::Record qw(qsearch);
   6 use FS::cust_main;
   7
   8 my $user = shift or die &usage;
   9 adminsuidsetup $user;
  10
  11 foreach my $cust_main ( qsearch( 'cust_main', {} ) ) {
  12
  13   print $cust_main->custnum. "\n";
  14
  15   $cust_main->invoicing_list( [ 'POST' ] );
  16
  17 }
  18
  19 sub usage {
  20   die "Usage:\n\n  all-postal-no-email user\n";
  21 }
  22