4 use FS::UID qw( adminsuidsetup );
5 use FS::Record qw( qsearch );
7 my $user = shift or die &usage;
9 my $email = shift or die &usage;
13 foreach my $cust_main_invoice (
14 qsearch('cust_main_invoice', { 'dest' => $email } )
16 my $error = $cust_main_invoice->delete;
21 "Usage: remove-cust_main_invoice username email\@address";