httemplate/view/svc_broadband.cgi

   1 <!-- mason kludge -->
   2 %
   3 %
   4 %my($query) = $cgi->keywords;
   5 %$query =~ /^(\d+)$/;
   6 %my $svcnum = $1;
   7 %my $svc_broadband = qsearchs( 'svc_broadband', { 'svcnum' => $svcnum } )
   8 %  or die "svc_broadband: Unknown svcnum $svcnum";
   9 %
  10 %#false laziness w/all svc_*.cgi
  11 %my $cust_svc = qsearchs( 'cust_svc', { 'svcnum' => $svcnum } );
  12 %my $pkgnum = $cust_svc->getfield('pkgnum');
  13 %my($cust_pkg, $custnum);
  14 %if ($pkgnum) {
  15 %  $cust_pkg = qsearchs( 'cust_pkg', { 'pkgnum' => $pkgnum } );
  16 %  $custnum = $cust_pkg->custnum;
  17 %} else {
  18 %  $cust_pkg = '';
  19 %  $custnum = '';
  20 %}
  21 %#eofalse
  22 %
  23 %my $addr_block = $svc_broadband->addr_block;
  24 %my $router = $addr_block->router;
  25 %
  26 %if (not $router) { die "Could not lookup router for svc_broadband (svcnum $svcnum)" };
  27 %
  28 %my (
  29 %     $routername,
  30 %     $routernum,
  31 %     $speed_down,
  32 %     $speed_up,
  33 %     $ip_addr,
  34 %     $ip_gateway,
  35 %     $ip_netmask,
  36 %   ) = (
  37 %     $router->getfield('routername'),
  38 %     $router->getfield('routernum'),
  39 %     $svc_broadband->getfield('speed_down'),
  40 %     $svc_broadband->getfield('speed_up'),
  41 %     $svc_broadband->getfield('ip_addr'),
  42 %     $addr_block->ip_gateway,
  43 %     $addr_block->NetAddr->mask,
  44 %   );
  45 %
  46
  47
  48 <%include("/elements/header.html",'Broadband Service View', menubar(
  49   ( ( $custnum )
  50     ? ( "View this customer (#$custnum)" => "${p}view/cust_main.cgi?$custnum",
  51       )
  52     : ( "Cancel this (unaudited) website" =>
  53           "${p}misc/cancel-unaudited.cgi?$svcnum" )
  54   ),
  55   "Main menu" => $p,
  56 ))
  57 %>
  58
  59 <A HREF="<%${p}%>edit/svc_broadband.cgi?<%$svcnum%>">Edit this information</A>
  60 <BR>
  61 <%ntable("#cccccc")%>
  62   <TR>
  63     <TD>
  64       <%ntable("#cccccc",2)%>
  65         <TR>
  66           <TD ALIGN="right">Service number</TD>
  67           <TD BGCOLOR="#ffffff"><%$svcnum%></TD>
  68         </TR>
  69         <TR>
  70           <TD ALIGN="right">Router</TD>
  71           <TD BGCOLOR="#ffffff"><%$routernum%>: <%$routername%></TD>
  72         </TR>
  73         <TR>
  74           <TD ALIGN="right">Download Speed</TD>
  75           <TD BGCOLOR="#ffffff"><%$speed_down%></TD>
  76         </TR>
  77         <TR>
  78           <TD ALIGN="right">Upload Speed</TD>
  79           <TD BGCOLOR="#ffffff"><%$speed_up%></TD>
  80         </TR>
  81         <TR>
  82           <TD ALIGN="right">IP Address</TD>
  83           <TD BGCOLOR="#ffffff"><%$ip_addr%></TD>
  84         </TR>
  85         <TR>
  86           <TD ALIGN="right">IP Netmask</TD>
  87           <TD BGCOLOR="#ffffff"><%$ip_netmask%></TD>
  88         </TR>
  89         <TR>
  90           <TD ALIGN="right">IP Gateway</TD>
  91           <TD BGCOLOR="#ffffff"><%$ip_gateway%></TD>
  92         </TR>
  93         <TR COLSPAN="2"><TD></TD></TR>
  94 %
  95 %foreach (sort { $a cmp $b } $svc_broadband->virtual_fields) {
  96 %  print $svc_broadband->pvf($_)->widget('HTML', 'view',
  97 %                                        $svc_broadband->getfield($_)), "\n";
  98 %}
  99 %
 100 %
 101
 102       </TABLE>
 103     </TD>
 104   </TR>
 105 </TABLE>
 106
 107 <BR>
 108 <%ntable("#cccccc", 2)%>
 109 %
 110 %  my $sb_router = qsearchs('router', { svcnum => $svcnum });
 111 %  if ($sb_router) {
 112 %
 113
 114   <B>Router associated: <%$sb_router->routername%> </B>
 115   <A HREF="<%popurl(2)%>edit/router.cgi?<%$sb_router->routernum%>">
 116     (details)
 117   </A>
 118   <BR>
 119 % my @sb_addr_block;
 120 %     if (@sb_addr_block = $sb_router->addr_block) {
 121 %
 122
 123   <B>Address space </B>
 124   <A HREF="<%popurl(2)%>browse/addr_block.cgi">
 125     (edit)
 126   </A>
 127   <BR>
 128 %   print ntable("#cccccc", 1);
 129 %       foreach (@sb_addr_block) {
 130
 131     <TR>
 132       <TD><%$_->ip_gateway%>/<%$_->ip_netmask%></TD>
 133     </TR>
 134 % }
 135
 136   </TABLE>
 137 % } else {
 138
 139   <B>No address space allocated.</B>
 140 % }
 141
 142   <BR>
 143 %
 144 %  } else {
 145 %
 146
 147
 148 <FORM METHOD="GET" ACTION="<%popurl(2)%>edit/router.cgi">
 149   <INPUT TYPE="hidden" NAME="svcnum" VALUE="<%$svcnum%>">
 150 Add router named
 151   <INPUT TYPE="text" NAME="routername" SIZE="32" VALUE="Broadband router (<%$svcnum%>)">
 152   <INPUT TYPE="submit" VALUE="Add router">
 153 </FORM>
 154 %
 155 %}
 156 %
 157
 158
 159 <BR>
 160 <%joblisting({'svcnum'=>$svcnum}, 1)%>
 161   </BODY>
 162 </HTML>
 163