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