<% my($query) = $cgi->keywords; $query =~ /^(\d+)$/; my $svcnum = $1; my $svc_broadband = qsearchs( 'svc_broadband', { 'svcnum' => $svcnum } ) or die "svc_broadband: Unknown svcnum $svcnum"; #false laziness w/all svc_*.cgi my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } ); my $pkgnum = $cust_svc->getfield('pkgnum'); my($cust_pkg, $custnum); if ($pkgnum) { $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } ); $custnum = $cust_pkg->custnum; } else { $cust_pkg = ''; $custnum = ''; } #eofalse my $router = $svc_broadband->addr_block->router; if (not $router) { die "Could not lookup router for svc_broadband (svcnum $svcnum)" }; my ( $routername, $routernum, $speed_down, $speed_up, $ip_addr ) = ( $router->getfield('routername'), $router->getfield('routernum'), $svc_broadband->getfield('speed_down'), $svc_broadband->getfield('speed_up'), $svc_broadband->getfield('ip_addr') ); %> <%=header('Broadband Service View', menubar( ( ( $custnum ) ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum", ) : ( "Cancel this (unaudited) website" => "${p}misc/cancel-unaudited.cgi?$svcnum" ) ), "Main menu" => $p, )) %> Edit this information
<%=ntable("#cccccc")%> <%=ntable("#cccccc",2)%> Service number <%=$svcnum%> Router <%=$routernum%>: <%=$routername%> Download Speed <%=$speed_down%> Upload Speed <%=$speed_up%> IP Address <%=$ip_addr%> <% foreach (sort { $a cmp $b } $svc_broadband->virtual_fields) { print $svc_broadband->pvf($_)->widget('HTML', 'view', $svc_broadband->getfield($_)), "\n"; } %>
<%=ntable("#cccccc", 2)%> <% my $sb_router = qsearchs('router', { svcnum => $svcnum }); if ($sb_router) { %> Router associated: <%=$sb_router->routername%> (details)
<% my @addr_block; if (@addr_block = $sb_router->addr_block) { %> Address space (edit)
<% print ntable("#cccccc", 1); foreach (@addr_block) { %> <%=$_->ip_gateway%>/<%=$_->ip_netmask%> <% } %> <% } else { %> No address space allocated. <% } %>
<% } else { %>
Add router named
<% } %>
<%=joblisting({'svcnum'=>$svcnum}, 1)%>