fix quotations, RT#21103
[freeside.git] / 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