httemplate/browse/ac.cgi

   1 <!-- mason kludge -->
   2 <%= header('Access Concentrator Listing', menubar(
   3   'Main Menu'   => $p,
   4   'Access Concentrator Types' => $p. 'browse/ac_type.cgi',
   5 )) %>
   6 <BR>
   7 <A HREF="<%= $p %>edit/ac.cgi"><I>Add a new Access Concentrator</I></A><BR><BR>
   8
   9 <%= table() %>
  10 <TR>
  11   <TH COLSPAN=2>AC</TH>
  12   <TH>AC Type</TH>
  13   <TH>Fields</TH>
  14   <TH>Network/Mask</TH>
  15 </TR>
  16 <%
  17
  18 foreach my $ac ( qsearch('ac',{}) ) {
  19   my($hashref)=$ac->hashref;
  20   my($actypenum)=$hashref->{actypenum};
  21   my($ac_type)=qsearchs('ac_type',{'actypenum'=>$actypenum});
  22   my($actypename)=$ac_type->getfield('actypename');
  23   print <<END;
  24       <TR>
  25         <TD><A HREF="${p}edit/ac.cgi?$hashref->{acnum}">
  26           $hashref->{acnum}</A></TD>
  27         <TD><A HREF="${p}edit/ac.cgi?$hashref->{acnum}">
  28           $hashref->{acname}</A></TD>
  29         <TD><A HREF="${p}edit/ac_type.cgi?$actypenum">$actypename</A></TD>
  30         <TD>
  31 END
  32
  33   foreach my $ac_field ( qsearch('ac_field', { acnum => $hashref->{acnum} }) ) {
  34     my $part_ac_field = qsearchs('part_ac_field',
  35                          { acfieldpart => $ac_field->getfield('acfieldpart') });
  36     print $part_ac_field->getfield('name') . ' ';
  37     print $ac_field->getfield('value') . '<BR>';
  38   }
  39   print '</TD><TD>';
  40
  41   foreach (qsearch('ac_block', { acnum => $hashref->{acnum} })) {
  42     my $net_addr = new NetAddr::IP($_->getfield('ip_gateway'),
  43                                    $_->getfield('ip_netmask'));
  44     print $net_addr->network->addr . '/' . $net_addr->network->mask . '<BR>';
  45   }
  46
  47   print "<TR>\n";
  48
  49 }
  50
  51 print <<END;
  52     </TABLE>
  53   </BODY>
  54 </HTML>
  55 END
  56
  57 %>