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;
  87 }
  88
  89 sub mac_addr {
  90   my $svc = shift;
  91   $svc->mac_addr_formatted('U',':');
  92 }
  93
  94 sub usergroup {
  95   my $svc = shift;
  96   my $usergroup = $svc->usergroup;
  97   join('<BR>', $svc->radius_groups('long_description'));
  98 }
  99
 100 sub sectornum {
 101   my $svc_broadband = shift;
 102   return '' unless $svc_broadband->sectornum;
 103   my $tower_sector = $svc_broadband->tower_sector;
 104   my $link = $tower_sector->ip_addr
 105                ? '<A HREF="http://'. $tower_sector->ip_addr. '">'
 106                : '';
 107
 108   $link .  $tower_sector->description. ( $link ? '</A>' : '');
 109 }
 110
 111 sub coordinates {
 112   my $s = shift; #$svc_broadband
 113   return '' unless $s->latitude && $s->longitude;
 114
 115   my $d = $s->description;
 116   my $agentnum;
 117   unless ($d) {
 118     if ( my $cust_pkg = $s->cust_svc->cust_pkg ) {
 119       $d = $cust_pkg->cust_main->name_short;
 120       $agentnum = $cust_pkg->cust_main->agentnum;
 121     }
 122   }
 123
 124   #'Latitude: '. $s->latitude. ', Longitude: '. $s->longitude. ' '.
 125   $s->latitude. ', '. $s->longitude. ' '.
 126     include('/elements/coord-links.html',
 127       $s->latitude,
 128       $s->longitude,
 129       $d,
 130       $agentnum
 131     );
 132 }
 133
 134 sub shared_svcnum {
 135   my $svc_broadband = shift;
 136   return '' unless $svc_broadband->shared_svcnum;
 137
 138   my $shared_svc_broadband =
 139     qsearchs('svc_broadband', { 'svcnum' => $svc_broadband->shared_svcnum,
 140                               }
 141                               #agent virt?
 142             )
 143       or return '';
 144   my $shared_cust_pkg = $shared_svc_broadband->cust_svc->cust_pkg;
 145
 146   $shared_svc_broadband->label.
 147     ( $shared_cust_pkg
 148          ? ' ('. $shared_cust_pkg->cust_main->name. ')'
 149          : ''
 150     );
 151 }
 152
 153 sub svc_callback {
 154   # trying to move to the callback style
 155   my ($cgi, $svc_x, $part_svc, $cust_pkg, $fields, $opt) = @_;
 156
 157   if (    $part_svc->part_svc_column('latitude')->columnflag eq 'F'
 158        && $part_svc->part_svc_column('longitude')->columnflag eq 'F'
 159      )
 160   {
 161     @$fields = grep { !ref($_) || $_->{field} ne 'coordinates' } @$fields;
 162   }
 163
 164   # again, we assume at most one of these exports per part_svc
 165   my ($nas_export) = $part_svc->part_export('broadband_nas');
 166   if ( $nas_export ) {
 167     my $nas = qsearchs('nas', { 'svcnum' => $svc_x->svcnum });
 168     if ( $nas ) {
 169       $svc_x->set($_, $nas->$_) foreach (fields('nas'));
 170       push @$fields, qw(shortname secret type ports server community);
 171       $opt->{'labels'}{'shortname'}  = 'Short name';
 172       $opt->{'labels'}{'secret'}     = 'Shared secret';
 173       $opt->{'labels'}{'type'}       = 'Type';
 174       $opt->{'labels'}{'ports'}      = 'Ports';
 175       $opt->{'labels'}{'server'}     = 'Server';
 176       $opt->{'labels'}{'community'}  = 'Community';
 177     } #if $nas
 178   } #$nas_export
 179 };
 180
 181
 182 </%init>