1 <& elements/svc_Common.html,
2 table => 'svc_broadband',
5 svc_callback => \&svc_callback,
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')
13 my $conf = FS::Conf->new;
14 my $fields = FS::svc_broadband->table_info->{'fields'};
15 my %labels = map { $_ => ( ref($fields->{$_})
16 ? $fields->{$_}{'label'}
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'); #?
29 $labels{'coordinates'} = 'Latitude/Longitude';
33 { field => 'routernum', value_callback => \&router },
36 { field => 'ip_addr', value_callback => \&ip_addr },
37 { field => 'sectornum', value_callback => \§ornum },
38 { field => 'mac_addr', type=>'mac_addr', value_callback => \&mac_addr },
41 { field => 'coordinates', value_callback => \&coordinates },
49 { field => 'shared_svcnum', value_callback=> \&shared_svcnum, }, #value_callback =>
57 { field => 'usergroup', value_callback => \&usergroup }
58 if $conf->exists('svc_broadband-radius');
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;
71 my $ip_addr = $svc->ip_addr;
73 $out .= ' (' . include('/elements/popup_link-ping.html', ip => $ip_addr) . ')'
75 if ($svc->cust_svc->part_svc->part_export('cacti')) {
78 . 'misc/cacti_graphs.html?load=1&svcnum='
82 if ( my $addr_block = $svc->addr_block ) {
83 $out .= '<br>Netmask: ' . $addr_block->NetAddr->mask .
84 '<br>Gateway: ' . $addr_block->ip_gateway;
91 $svc->mac_addr_formatted('U',':');
96 my $usergroup = $svc->usergroup;
97 join('<BR>', $svc->radius_groups('long_description'));
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. '">'
108 $link . $tower_sector->description. ( $link ? '</A>' : '');
112 my $s = shift; #$svc_broadband
113 return '' unless $s->latitude && $s->longitude;
115 my $d = $s->description;
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;
124 #'Latitude: '. $s->latitude. ', Longitude: '. $s->longitude. ' '.
125 $s->latitude. ', '. $s->longitude. ' '.
126 include('/elements/coord-links.html',
135 my $svc_broadband = shift;
136 return '' unless $svc_broadband->shared_svcnum;
138 my $shared_svc_broadband =
139 qsearchs('svc_broadband', { 'svcnum' => $svc_broadband->shared_svcnum,
144 my $shared_cust_pkg = $shared_svc_broadband->cust_svc->cust_pkg;
146 $shared_svc_broadband->label.
148 ? ' ('. $shared_cust_pkg->cust_main->name. ')'
154 # trying to move to the callback style
155 my ($cgi, $svc_x, $part_svc, $cust_pkg, $fields, $opt) = @_;
157 if ( $part_svc->part_svc_column('latitude')->columnflag eq 'F'
158 && $part_svc->part_svc_column('longitude')->columnflag eq 'F'
161 @$fields = grep { !ref($_) || $_->{field} ne 'coordinates' } @$fields;
164 # again, we assume at most one of these exports per part_svc
165 my ($nas_export) = $part_svc->part_export('broadband_nas');
167 my $nas = qsearchs('nas', { 'svcnum' => $svc_x->svcnum });
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';