From eb061f5119325e666f0dff40d4089e5c1df58e17 Mon Sep 17 00:00:00 2001
From: cvs2git <cvs2git>
Date: Sun, 16 Mar 2008 19:58:34 +0000
Subject: This commit was manufactured by cvs2svn to create tag 'TRIXBOX_2_6'.

---
 FS/bin/freeside-delete-addr_blocks | 31 -------------------------------
 1 file changed, 31 deletions(-)
 delete mode 100755 FS/bin/freeside-delete-addr_blocks

(limited to 'FS/bin/freeside-delete-addr_blocks')

diff --git a/FS/bin/freeside-delete-addr_blocks b/FS/bin/freeside-delete-addr_blocks
deleted file mode 100755
index a7e99766a..000000000
--- a/FS/bin/freeside-delete-addr_blocks
+++ /dev/null
@@ -1,31 +0,0 @@
-#!/usr/bin/perl -Tw
-
-use strict;
-use vars qw( $user $block @blocks );
-use FS::UID qw(adminsuidsetup);
-use FS::Record qw(qsearch);
-use FS::addr_block;
-use FS::svc_broadband;
-
-$user = shift or die &usage;
-&adminsuidsetup( $user );
-
-@blocks = qsearch('addr_block', {} );
-die "No address blocks" unless (scalar(@blocks) > 0);
-
-foreach $block (@blocks) {
-  my @devices = qsearch('svc_broadband', { 'blocknum' => $block->blocknum } );
-  if (@devices) {
-    print "Skipping block " . $block->ip_gateway . " / " . $block->ip_netmask;
-    print "\n";
-  }else{
-    print "Deleting block " . $block->ip_gateway . " / " . $block->ip_netmask;
-    print "\n";
-    $block->delete;
-  }
-}
-
-
-sub usage {
-  "Usage:\n  freeside-delete-addr_blocks user \n";
-}
-- 
cgit v1.2.1