RT# 82988 - fixed resolve credit batches from RBC
[freeside.git] / FS / bin / freeside-delete-addr_blocks
1 #!/usr/bin/perl -Tw
2
3 use strict;
4 use vars qw( $user $block @blocks );
5 use FS::UID qw(adminsuidsetup);
6 use FS::Record qw(qsearch);
7 use FS::addr_block;
8 use FS::svc_broadband;
9
10 $user = shift or die &usage;
11 &adminsuidsetup( $user );
12
13 @blocks = qsearch('addr_block', {} );
14 die "No address blocks" unless (scalar(@blocks) > 0);
15
16 foreach $block (@blocks) {
17   my @devices = qsearch('svc_broadband', { 'blocknum' => $block->blocknum } );
18   if (@devices) {
19     print "Skipping block " . $block->ip_gateway . " / " . $block->ip_netmask;
20     print "\n";
21   }else{
22     print "Deleting block " . $block->ip_gateway . " / " . $block->ip_netmask;
23     print "\n";
24     $block->delete;
25   }
26 }
27
28
29 sub usage {
30   "Usage:\n  freeside-delete-addr_blocks user \n";
31 }