httemplate/misc/xmlhttp-broadband_snmp_get.cgi

   1 <%doc>
   2 Requires arg $svcnum.  Returns JSON-encoded realtime snmp results
   3 for configured broadband_snmp_get exports.
   4 </%doc>
   5 <% encode_json(\@result) %>\
   6 <%init>
   7
   8 # access/agent permissions lifted from /view/elements/svc_Common.html
   9
  10 die "access denied"
  11   unless $FS::CurrentUser::CurrentUser->access_right('View customer services');
  12
  13 my %arg = $cgi->param('arg');
  14 my $svc = qsearchs({
  15   'select'    => 'svc_broadband.*',
  16   'table'     => 'svc_broadband',
  17   'addl_from' => ' LEFT JOIN cust_svc  USING ( svcnum  ) '.
  18                  ' LEFT JOIN cust_pkg  USING ( pkgnum  ) '.
  19                  ' LEFT JOIN cust_main USING ( custnum ) ',
  20   'hashref'   => { 'svcnum' => $arg{'svcnum'} },
  21   'extra_sql' => ' AND '. $FS::CurrentUser::CurrentUser->agentnums_sql(
  22                             'null_right' => 'View/link unlinked services'
  23                           ),
  24 }) or die "Unknown svcnum ".$arg{'svcnum'}." in svc_broadband table\n";
  25
  26 my @part_export = $svc->cust_svc->part_svc->part_export('broadband_snmp_get');
  27
  28 my @result;
  29 foreach my $part_export (@part_export) {
  30   push @result, $part_export->snmp_results($svc);
  31 }
  32
  33 </%init>
  34
  35