wording
[freeside.git] / 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;