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