'freq_mhz', 'int', 'NULL', '', '', '',
'direction', 'int', 'NULL', '', '', '',
'width', 'int', 'NULL', '', '', '',
- #downtilt etc? rfpath has profile files for devices/antennas you upload?
'sector_range', 'decimal', 'NULL', '', '', '', #?
- ],
+ 'downtilt', 'decimal', 'NULL', '', '', '',
+ 'v_width', 'int', 'NULL', '', '', '',
+ 'margin', 'decimal', 'NULL', '', '', '',
+ 'image', 'blob', 'NULL', '', '', '',
+ 'west', 'decimal', 'NULL', '10,7', '', '',
+ 'east', 'decimal', 'NULL', '10,7', '', '',
+ 'south', 'decimal', 'NULL', '10,7', '', '',
+ 'north', 'decimal', 'NULL', '10,7', '', '',
+ ],
'primary_key' => 'sectornum',
'unique' => [ [ 'towernum', 'sectorname' ], [ 'ip_addr' ], ],
'index' => [ [ 'towernum' ] ],
package FS::tower_sector;
use base qw( FS::Record );
+use Class::Load qw(load_class);
+use Data::Dumper;
+
use strict;
=head1 NAME
=head1 DESCRIPTION
-An FS::tower_sector object represents an tower sector. FS::tower_sector
+An FS::tower_sector object represents a tower sector. FS::tower_sector
inherits from FS::Record. The following fields are currently supported:
=over 4
ip_addr
+=item height
+
+The height of this antenna on the tower, measured from ground level. This
+plus the tower's altitude should equal the height of the antenna above sea
+level.
+
+=item freq_mhz
+
+The band center frequency in MHz.
+
+=item direction
+
+The antenna beam direction in degrees from north.
+
+=item width
+
+The -3dB horizontal beamwidth in degrees.
+
+=item downtilt
+
+The antenna beam elevation in degrees below horizontal.
+
+=item v_width
+
+The -3dB vertical beamwidth in degrees.
+
+=item margin
+
+The signal loss margin allowed on the sector, in dB. This is normally
+transmitter EIRP minus receiver sensitivity.
+
+=item image
+
+The coverage map, as a PNG.
+
+=item west, east, south, north
+
+The coordinate boundaries of the coverage map.
=back
$self->SUPER::delete;
}
-=item replace OLD_RECORD
-
-Replaces the OLD_RECORD with this one in the database. If there is an error,
-returns the error, otherwise returns false.
-
=item check
Checks all fields to make sure this is a valid sector. If there is
|| $self->ut_numbern('freq_mhz')
|| $self->ut_numbern('direction')
|| $self->ut_numbern('width')
+ || $self->ut_numbern('v_width')
+ || $self->ut_numbern('downtilt')
|| $self->ut_floatn('sector_range')
+ || $self->ut_numbern('margin')
+ || $self->ut_anything('image')
+ || $self->ut_sfloatn('west')
+ || $self->ut_sfloatn('east')
+ || $self->ut_sfloatn('south')
+ || $self->ut_sfloatn('north')
;
return $error if $error;
Returns the services on this tower sector.
+=item need_fields_for_coverage
+
+Returns a list of required fields for the coverage map that aren't yet filled.
+
+=cut
+
+sub need_fields_for_coverage {
+ my $self = shift;
+ my $tower = $self->tower;
+ my %fields = (
+ height => 'Height',
+ freq_mhz => 'Frequency',
+ direction => 'Direction',
+ downtilt => 'Downtilt',
+ width => 'Horiz. width',
+ v_width => 'Vert. width',
+ margin => 'Signal margin',
+ latitude => 'Latitude',
+ longitude => 'Longitude',
+ );
+ my @need;
+ foreach (keys %fields) {
+ if ($self->get($_) eq '' and $tower->get($_) eq '') {
+ push @need, $fields{$_};
+ }
+ }
+ @need;
+}
+
+=item queue_generate_coverage
+
+Starts a job to recalculate the coverage map.
+
+=cut
+
+sub queue_generate_coverage {
+ my $self = shift;
+ if ( length($self->image) > 0 ) {
+ foreach (qw(image west south east north)) {
+ $self->set($_, '');
+ }
+ my $error = $self->replace;
+ return $error if $error;
+ }
+ my $job = FS::queue->new({
+ job => 'FS::tower_sector::process_generate_coverage',
+ });
+ $job->insert('_JOB', { sectornum => $self->sectornum});
+}
+
=back
+=head1 SUBROUTINES
+
+=over 4
+
+=item process_generate_coverage JOB, PARAMS
+
+Queueable routine to fetch the sector coverage map from the tower mapping
+server and store it. Highly experimental. Requires L<Map::Splat> to be
+installed.
+
+PARAMS must include 'sectornum'.
+
+=cut
+
+sub process_generate_coverage {
+ my $job = shift;
+ my $param = shift;
+ warn Dumper($param);
+ $job->update_statustext('0,generating map');
+ my $sectornum = $param->{sectornum};
+ my $sector = FS::tower_sector->by_key($sectornum);
+ my $tower = $sector->tower;
+
+ load_class('Map::Splat');
+ my $splat = Map::Splat->new(
+ lon => $tower->longitude,
+ lat => $tower->latitude,
+ height => ($sector->height || $tower->height || 0),
+ freq => $sector->freq_mhz,
+ azimuth => $sector->direction,
+ h_width => $sector->width,
+ tilt => $sector->downtilt,
+ v_width => $sector->v_width,
+ max_loss => $sector->margin,
+ min_loss => $sector->margin - 80,
+ );
+ $splat->calculate;
+
+ my $box = $splat->box;
+ foreach (qw(west east south north)) {
+ $sector->set($_, $box->{$_});
+ }
+ $sector->set('image', $splat->mask);
+ # mask returns a PNG where everything below max_loss is solid colored,
+ # and everything above it is transparent. More useful for our purposes.
+ my $error = $sector->replace;
+ die $error if $error;
+}
+
=head1 BUGS
=head1 SEE ALSO
process_o2m => { 'table' => 'tower_sector',
'fields' => [qw(
sectorname ip_addr height freq_mhz direction width
+ downtilt v_width margin
sector_range
)],
},
my ($cgi, $object) = @_;
my @fields = qw(
- sectorname ip_addr height freq_mhz direction width sector_range
+ sectorname ip_addr height freq_mhz direction width tilt v_width margin sector_range
);
map {
'height' => 'Height',
'freq_mhz' => 'Freq. (MHz)',
'direction' => 'Direction', # or a button to set these to 0 for omni
- 'width' => 'Width', #
+ 'downtilt' => 'Downtilt',
+ 'width' => 'Horiz. width',
+ 'v_width' => 'Vert. width',
'sector_range' => 'Range',
+ 'margin' => 'Signal margin (dB)',
;
my @fields = keys %label;
--- /dev/null
+<% $server->process %>
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration'); # ???
+
+my $server =
+ new FS::UI::Web::JSRPC 'FS::tower_sector::process_generate_coverage', $cgi;
+
+</%init>
<%args>
@features
+@overlays
</%args>
<%doc>
Generic Google Maps front end.
}
}, # end of feature
],
+ overlays => [
+ { url => 'https://localhost/freeside/view/sector_overlay-png.html?102',
+ west => -130.0,
+ east => -128.0,
+ south => 10.0,
+ north => 12.0,
+ }, # make a ground overlay
+ ],
&>
</%doc>
<script type="text/javascript">
var data_geojson = <% encode_json($tree) %>;
+var data_overlays = <% encode_json(\@overlays) %>;
var baseStyle = {
clickable: true,
};
var map;
+var overlays;
function initMap() {
var canvas = $('#map_canvas');
map = new google.maps.Map(canvas[0], { zoom: 6 });
}
}); // addListener()
+
+ data_overlays.forEach(function(x) {
+ var url = x.url;
+ delete x.url;
+ var overlay = new google.maps.GroundOverlay( url, x );
+ overlay.setMap(map);
+ overlays.push(overlay);
+ });
}
$().ready( initMap );
--- /dev/null
+<& /elements/header.html, {
+ 'title' => 'Sector coverage maps',
+ }
+&>
+<style>
+ a.createmap {
+ font-weight: bold;
+ color: blue;
+ }
+ a.viewmap {
+ font-weight: bold;
+ color: green;
+ }
+</style>
+<table class="grid">
+ <thead>
+ <tr>
+ <th>Tower / sector</th>
+ <th colspan=3>
+ </tr>
+ </thead>
+ <tbody>
+% foreach my $sector (@sectors) {
+% my $sectornum = $sector->sectornum;
+ <tr>
+ <td>
+ <a href="<% $fsurl %>edit/tower.html?<% $sector->towernum |h %>">
+ <% $sector->description |h %>
+ </a>
+ </td>
+
+% my @need_fields = $sector->need_fields_for_coverage;
+% if ( @need_fields ) {
+ <td>Need fields:</td>
+ <td>
+ <% join('<br>', @need_fields) %>
+ </td>
+% } else {
+ <td colspan="2" style="text-align: center">
+% my $text = 'Create map';
+% if ( length($sector->image) > 0 ) {
+% $text = 'Reprocess';
+% }
+ <form name="create_<% $sectornum |h %>">
+ <input type="hidden" name="sectornum" value="<% $sectornum |h %>">
+ <& /elements/progress-init.html,
+ 'create_'.$sectornum,
+ [ 'sectornum' ],
+ $fsurl.'misc/sector-create_map.html',
+ { 'message' => 'Map generated' },
+ "sector$sectornum"
+ &>
+ <a class="createmap" href="#" onclick="sector<% $sectornum %>process()">
+ <% $text %>
+ </a>
+% }
+ </td>
+ <td>
+% if ( length($sector->image) > 0 ) {
+ <a class="viewmap" href="<% $fsurl %>search/svc_broadband-map.html?sectornum=<% $sectornum %>">
+ View map
+ </a>
+% }
+ </td>
+ </tr>
+% } # foreach $sector
+ </tbody>
+</table>
+<& /elements/footer.html &>
+<%init>
+
+die "access denied"
+ unless $FS::CurrentUser::CurrentUser->access_right('Configuration');
+
+my $query = {
+ table => 'tower_sector',
+ select => 'tower_sector.*,
+ tower.latitude, tower.longitude, tower.color, tower.towername',
+ extra_sql => ' WHERE tower.disabled is null',
+ addl_from => ' JOIN tower USING (towernum)',
+ order_by => ' ORDER BY towername, sectorname',
+};
+
+my @sectors = qsearch($query);
+</%init>
<& /elements/header.html, 'Broadband Search Results' &>
-<& elements/gmap.html, features => \@features &>
+<& elements/gmap.html, features => \@features, overlays => \@overlays &>
<& /elements/footer.html &>
<%init>
}
- my $tower = $towers{$towernum};
if ( $tower->latitude and $tower->longitude ) {
push @features,
{
};
}
+my @overlays;
+foreach my $sector (values %sectors) {
+ if ( length($sector->image) > 0 ) {
+ push @overlays,
+ { url => $fsurl.'view/sector_map-png.cgi?' . $sector->sectornum,
+ west => $sector->west,
+ east => $sector->east,
+ south => $sector->south,
+ north => $sector->north,
+ };
+ };
+};
+
</%init>
<%def .svc_broadband>
% my $svc = shift;
--- /dev/null
+<%init>
+my ($sectornum) = $cgi->keywords;
+my $sector = FS::tower_sector->by_key($sectornum);
+if ( $sector and length($sector->image) > 0 ) {
+ http_header('Content-Type', 'image/png');
+ $m->print($sector->image);
+}
+</%init>
projects / freeside.git / commitdiff