fix firefox attachment downloads with spaces, RT#30167
[freeside.git] / bin / wipe-agent
1 #!/usr/bin/perl
2
3 use strict;
4 use vars qw( $opt_a $opt_d );
5 use Getopt::Std;
6 use FS::UID qw(adminsuidsetup);
7 use FS::Record qw(qsearch);
8 use FS::cust_main;
9
10 die "i cancel and delete all customers of an agent - use the -d switch first and be careful - remove this line to enable";
11
12 getopts('a:d');
13
14 my $user = shift or die "usage: wipe-agent -a agentnum [ -d ] username\n";
15 adminsuidsetup $user;
16
17 die "no agentnum specified" unless $opt_a;
18
19 foreach my $cust_main (
20
21   qsearch('cust_main', { 'agentnum' => $opt_a } )
22
23 ) {
24
25   warn "deleting ". $cust_main->custnum.': '. $cust_main->name. "\n";
26
27   unless ( $opt_d ) { #dry run
28
29     my @cerrors = $cust_main->cancel( quiet=>1, nobill=>1 );
30     if ( @cerrors ) {
31       die join(' / ', @cerrors);
32     }
33
34     my $error = $cust_main->delete( 'delete_financials' => 1);
35     die $error if $error;
36
37   }
38
39 }