[freeside-commits] freeside/bin wipe-agent,NONE,1.1.2.2

Ivan,,, ivan at wavetail.420.am
Fri Nov 19 13:58:45 PST 2010


Update of /home/cvs/cvsroot/freeside/bin
In directory wavetail.420.am:/tmp/cvs-serv16757

Added Files:
      Tag: FREESIDE_2_1_BRANCH
	wipe-agent 
Log Message:
adding wipe-agent script, RT#10679

--- NEW FILE: wipe-agent ---
#!/usr/bin/perl

use strict;
use vars qw( $opt_a $opt_d );
use Getopt::Std;
use FS::UID qw(adminsuidsetup);
use FS::Record qw(qsearch);
use FS::cust_main;

die "i cancel and delete all customers of an agent - use the -d switch first and be careful - remove this line to enable";

getopts('a:d');

my $user = shift or die "usage: wipe-agent -a agentnum [ -d ] username\n";
adminsuidsetup $user;

die "no agentnum specified" unless $opt_a;

foreach my $cust_main (

  qsearch('cust_main', { 'agentnum' => $opt_a } )

) {

  warn "deleting ". $cust_main->name. "\n";

  unless ( $opt_d ) { #dry run

    my @cerrors = $cust_main->cancel( quiet=>1, nobill=>1 );
    if ( @cerrors ) {
      die join(' / ', @cerrors);
    }

    my $error = $cust_main->delete( 'delete_financials' => 1);
    die $error if $error;

  }

}



More information about the freeside-commits mailing list