httemplate/view/svc_broadband.cgi

   1 <& elements/svc_Common.html,
   2   table        => 'svc_broadband',
   3   labels       => \%labels,
   4   fields       => \@fields,
   5   svc_callback => \&svc_callback,
   6   radius_usage => 1,
   7   'manage_link'               => scalar($conf->config('svc_broadband-manage_link')),
   8   'manage_link_text'          => scalar($conf->config('svc_broadband-manage_link_text')),
   9   'manage_link-new_window'    => $conf->exists('svc_broadband-manage_link-new_window')
  10 &>
  11 <%init>
  12
  13 my $conf = FS::Conf->new;
  14 my $fields = FS::svc_broadband->table_info->{'fields'};
  15 my %labels = map { $_ => ( ref($fields->{$_})
  16                             ? $fields->{$_}{'label'}
  17                             : $fields->{$_}
  18                           );
  19                  } keys %$fields;
  20
  21 #my %labels = ();
  22
  23 $labels{'description'} = emt('Description');
  24 $labels{'speed_down'} = emt('Download Speed');
  25 $labels{'speed_up'} = emt('Upload Speed');
  26 $labels{'ip_addr'} = emt('IP Address');
  27 $labels{'usergroup'} = emt('RADIUS groups'); #?
  28
  29 $labels{'coordinates'} = 'Latitude/Longitude';
  30
  31 my @fields = (
  32   'description',
  33   { field => 'routernum', value_callback => \&router },
  34   'speed_down',
  35   'speed_up',
  36   'speed_test_down',
  37   'speed_test_up',
  38   'speed_test_latency',
  39   { field => 'ip_addr', value_callback => \&ip_addr },
  40   { field => 'sectornum', value_callback => \&sectornum },
  41   { field => 'mac_addr', type=>'mac_addr', value_callback => \&mac_addr },
  42   #'latitude',
  43   #'longitude',
  44   { field => 'coordinates', value_callback => \&coordinates },
  45   'altitude',
  46
  47   'radio_serialnum',
  48   'radio_location',
  49   'poe_location',
  50   'rssi',
  51   'suid',
  52   { field => 'shared_svcnum', value_callback=> \&shared_svcnum, }, #value_callback =>
  53
  54   'vlan_profile',
  55   'authkey',
  56   'plan_id',
  57 );
  58
  59 push @fields,
  60   { field => 'usergroup', value_callback => \&usergroup }
  61   if $conf->exists('svc_broadband-radius');
  62
  63 sub router {
  64   my $svc = shift;
  65   my $router = $svc->router;
  66   my $block = $svc->addr_block;
  67   $router = $router->routernum . ': ' . $router->routername if $router;
  68   $block = '; '.$block->cidr if $block;
  69   $router . $block
  70 }
  71
  72 sub ip_addr {
  73   my $svc = shift;
  74   my $ip_addr = $svc->ip_addr;
  75   my $out = $ip_addr;
  76   $out .= ' (' . include('/elements/popup_link-ping.html', ip => $ip_addr) . ')'
  77     if $ip_addr;
  78   if ($svc->cust_svc->part_svc->part_export('cacti')) {
  79     $out .= ' (<A HREF="'
  80          .  popurl(2)
  81          .  'misc/cacti_graphs.html?load=1&svcnum='
  82          .  $svc->svcnum
  83          .  '">cacti</A>)';
  84   }
  85   if ( my $addr_block = $svc->addr_block ) {
  86     $out .= '<br>Netmask: ' . $addr_block->NetAddr->mask .
  87             '<br>Gateway: ' . $addr_block->ip_gateway;
  88   }
  89   $out .= include('/elements/broadband_snmp_get.html', svc => $svc);
  90   $out;
  91 }
  92
  93 sub mac_addr {
  94   my $svc = shift;
  95   $svc->mac_addr_formatted('U',':');
  96 }
  97
  98 sub usergroup {
  99   my $svc = shift;
 100   my $usergroup = $svc->usergroup;
 101   join('<BR>', $svc->radius_groups('long_description'));
 102 }
 103
 104 sub sectornum {
 105   my $svc_broadband = shift;
 106   return '' unless $svc_broadband->sectornum;
 107   my $tower_sector = $svc_broadband->tower_sector;
 108   my $link = $tower_sector->ip_addr
 109                ? '<A HREF="http://'. $tower_sector->ip_addr. '">'
 110                : '';
 111
 112   $link .  $tower_sector->description. ( $link ? '</A>' : '');
 113 }
 114
 115 sub coordinates {
 116   my $s = shift; #$svc_broadband
 117   return '' unless $s->latitude && $s->longitude;
 118
 119   my $d = $s->description;
 120   my $agentnum;
 121   unless ($d) {
 122     if ( my $cust_pkg = $s->cust_svc->cust_pkg ) {
 123       $d = $cust_pkg->cust_main->name_short;
 124       $agentnum = $cust_pkg->cust_main->agentnum;
 125     }
 126   }
 127
 128   #'Latitude: '. $s->latitude. ', Longitude: '. $s->longitude. ' '.
 129   $s->latitude. ', '. $s->longitude. ' '.
 130     include('/elements/coord-links.html',
 131       $s->latitude,
 132       $s->longitude,
 133       $d,
 134       $agentnum
 135     );
 136 }
 137
 138 sub shared_svcnum {
 139   my $svc_broadband = shift;
 140   return '' unless $svc_broadband->shared_svcnum;
 141
 142   my $shared_svc_broadband =
 143     qsearchs('svc_broadband', { 'svcnum' => $svc_broadband->shared_svcnum,
 144                               }
 145                               #agent virt?
 146             )
 147       or return '';
 148   my $shared_cust_pkg = $shared_svc_broadband->cust_svc->cust_pkg;
 149
 150   $shared_svc_broadband->label.
 151     ( $shared_cust_pkg
 152          ? ' ('. $shared_cust_pkg->cust_main->name. ')'
 153          : ''
 154     );
 155 }
 156
 157 sub svc_callback {
 158   # trying to move to the callback style
 159   my ($cgi, $svc_x, $part_svc, $cust_pkg, $fields, $opt) = @_;
 160
 161   if (    $part_svc->part_svc_column('latitude')->columnflag eq 'F'
 162        && $part_svc->part_svc_column('longitude')->columnflag eq 'F'
 163      )
 164   {
 165     @$fields = grep { !ref($_) || $_->{field} ne 'coordinates' } @$fields;
 166   }
 167
 168   # again, we assume at most one of these exports per part_svc
 169   my ($nas_export) = $part_svc->part_export('broadband_nas');
 170   if ( $nas_export ) {
 171     my $nas = qsearchs('nas', { 'svcnum' => $svc_x->svcnum });
 172     if ( $nas ) {
 173       $svc_x->set($_, $nas->$_) foreach (fields('nas'));
 174       push @$fields, qw(shortname secret type ports server community);
 175       $opt->{'labels'}{'shortname'}  = 'Short name';
 176       $opt->{'labels'}{'secret'}     = 'Shared secret';
 177       $opt->{'labels'}{'type'}       = 'Type';
 178       $opt->{'labels'}{'ports'}      = 'Ports';
 179       $opt->{'labels'}{'server'}     = 'Server';
 180       $opt->{'labels'}{'community'}  = 'Community';
 181     } #if $nas
 182   } #$nas_export
 183 };
 184
 185
 186 </%init>