#  This software was derived from SATAN 1.1.1 by Dan Farmer and Wietse Venema
#  (http://www.porcupine.org/satan).
#
#
# Report subnets
#

# generate the tables for looking subnets/hosts in:
&make_subnet_info();
$_subnets = keys %all_subnets;

sub sort_ip {
    local($aip,$bip);
    for $ip (split(/\./,$a)) { $aip = $aip * 256 + $ip; }
    for $ip (split(/\./,$b)) { $bip = $bip * 256 + $ip; }
    return $aip <=> $bip;
}

print CLIENT <<EOF;
<HTML>
<HEAD>
<title> Host Tables - By Subnet  </title>
<LINK REV="made" HREF="mailto:satan\@fish.com">
<LINK REV="made" HREF="mailto:sara\@arc.com">
</HEAD>
<BODY>
<BODY BACKGROUND="/images/bckgrnd.jpg" vlink="#000000" link="#04289D">
<TABLE border=0 width=100%>
 <TR>
 <TD width=10% valign=top>
<a href="http://www-arc.com">
    <img width="150" src="/images/sara.gif" ALT="ARC" BORDER="0"></A><P>
    <img src="/images/dummy.gif">
   <A HREF="/sara.html">
      <IMG border=0 align=top SRC="$HTML_ROOT/images/bluedot.gif"></A>
      <strong> SARA Home </strong><P>
   <A HREF="/data/sara_data_form.pl">
      <IMG border=0 align=top SRC="$HTML_ROOT/images/bluedot.gif"></A>
      <strong> Data Management</strong><P>
   <A HREF="/running/sara_run_form.pl">
      <IMG border=0 align=top SRC="$HTML_ROOT/images/bluedot.gif"></A>
      <STRONG>Target selection</STRONG><p>
   <A HREF="/reporting/analysis.pl">
     <IMG border=0 align=top SRC="$HTML_ROOT/images/bluedot.gif"></A>
     <STRONG> Data Analysis</STRONG><p>
   <A HREF="/admin/sara_cf_form.pl">
     <IMG border=0 align=top SRC="$HTML_ROOT/images/bluedot.gif"></A>
     <strong>Configuration Mgt</strong><p>
   <A HREF="/sara_documentation.html">
     <IMG border=0 align=top SRC="$HTML_ROOT/images/bluedot.gif"></A>
     <strong>Documents/CVE</strong><p>
   <A HREF="/docs/FAQ.html#trouble">
     <IMG border=0 align=top SRC="$HTML_ROOT/images/bluedot.gif"></A>
     <strong>Troubleshooting</strong><P>

</TD><TD valign=top>
<CENTER><H1>Reporting - Start </H1></CENTER>
<hr>
<h3>$_subnets Subnets. Number of hosts per subnet (vulnerable/total). </h3>
<strong>Select the Subnet where you want to start reporting.</strong>
<ul>
EOF

# until the subnet is all looked at...
for $_net (sort sort_ip keys %all_subnets) {
    $dot = $subnet_severities{$_net} ? "red" : "black";
    print CLIENT <<EOF;
	    <dt><IMG SRC=$HTML_ROOT/dots/$dot\dot.gif ALT="$dot">
	    <a href="sara_report_subnet.pl,$_net,"> $_net </a> 
	    ($subnet_severities{$_net}/$subnet_count{$_net})
EOF
    }

print CLIENT <<EOF;
</ul>
<hr> <a href="/"> Back to the SARA start page </a> |
<a href=/reporting/analysis.pl> Back to SARA Reporting and Analysis </a>
</UL></UL></TABLE>
</BODY>
</HTML>
EOF
