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 }