bin/tron-scan

   1 #!/usr/bin/perl
   2
   3 use FS::UID qw(adminsuidsetup);
   4 use FS::Conf;
   5 use FS::Record qw(qsearch);
   6 use FS::Tron qw(tron_scan tron_lint);
   7 use FS::cust_svc;
   8
   9 adminsuidsetup shift;
  10
  11 my $conf = new FS::Conf;
  12 my $mcp_svcpart = $conf->config('mcp_svcpart') or die "no mcp_svcpart";
  13
  14 #tron_scan($_) foreach qsearch('cust_svc', { 'svcpart' => $mcp_svcpart } );
  15 foreach my $svc ( qsearch('cust_svc', { 'svcpart' => $mcp_svcpart } ) ) {
  16   my $error = tron_scan($svc);
  17   warn $error if $error;
  18
  19   my @lint = tron_lint($svc);
  20   print $svc->svc_x->title. "\n". join('', map "  $_\n", @lint )
  21     if @lint;
  22 }
  23
  24 1;