This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9

1 files changed, 0 insertions, 24 deletions

diff --git a/bin/tron-scan b/bin/tron-scan
deleted file mode 100755
index 914d6d407..000000000
--- a/bin/tron-scan
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/perl
-
-use FS::UID qw(adminsuidsetup);
-use FS::Conf;
-use FS::Record qw(qsearch);
-use FS::Tron qw(tron_scan tron_lint);
-use FS::cust_svc;
-
-adminsuidsetup shift;
-
-my $conf = new FS::Conf;
-my $mcp_svcpart = $conf->config('mcp_svcpart') or die "no mcp_svcpart";
-
-#tron_scan($_) foreach qsearch('cust_svc', { 'svcpart' => $mcp_svcpart } );
-foreach my $svc ( qsearch('cust_svc', { 'svcpart' => $mcp_svcpart } ) ) {
-  my $error = tron_scan($svc);
-  warn $error if $error;
-
-  my @lint = tron_lint($svc);
-  print $svc->svc_x->title. "\n". join('', map "  $_\n", @lint )
-    if @lint;
-}
-
-1;