#  This software was derived from SATAN 1.1.1 by Dan Farmer and Wietse Venema
#  (http://www.porcupine.org/satan).
#
#
#  First Data Analysis Page
#
print CLIENT <<EOF;
<HTML>
<HEAD>
<META HTTP-EQUIV="Expires" CONTENT="Tue, 04 Dec 1993 21:29:02 GMT">
<title>SARA Reporting and Analysis</title>
<LINK REV="made" HREF="mailto:satan\@fish.com">
<LINK REV="updated" HREF="mailto:sara\@arc.com">
<SCRIPT language="JavaScript">
  function movepic(img_name,img_src) {
  document[img_name].src=img_src;
}
</SCRIPT>

</HEAD>
<BODY>
EOF
if ($pi_menu) {
  $screen = &$pi_menu;
} else {
  $screen = print_menu();
}
$screen =~ s/\\n/\n/g;
print CLIENT $screen;

print CLIENT "</TD><TD valign=top>";
if ($pi_analysis) {
  $screen = &$pi_analysis;
  $screen =~ s/\\n/\n/g;
  print CLIENT "$screen";
} else {

print CLIENT <<EOF;
<TABLE BORDER="0" WIDTH="650"
<TR><TD BGCOLOR="#000000">
<Font Color="#FFFFFF">
<Center> <H2> SARA Reporting and Analysis</H2></Center>
</FONT>
</TD></TR></TABLE>
<UL>
<h2> Table of contents</h2>
<HL>
<p>
<strong> Vulnerabilities </strong>
        <ul>
        <li> <a href=sara_results_danger.pl> By Approximate Danger Level </a>
        <li> <a href=sara_severity_types.pl> By Type of Vulnerability </a>
        <li> <a href=sara_severity_counts.pl> By Vulnerability Count </a>
        </ul>

<strong> Host Information </strong>
        <ul>
        <li> <a href=sara_info_class.pl> By Class of Service</a>
        <li> <a href=sara_info_OS.pl> By System Type</a>
	<li> <a href=sara_info_domain.pl> By Internet Domain</a>
        <li> <a href=sara_info_subnet.pl> By Subnet</a>
	<li> <a href=sara_info_name.pl> By Host Name</a>
        </ul>
<p>
EOF
#<strong> Trust</strong>
#        <ul>
#        <li> <a href=sara_info_trusted.pl> Trusted Hosts</a>
#        <li> <a href=sara_info_trusting.pl> Trusting Hosts</a>
#	</ul>
print CLIENT <<EOF;
<strong> Reporting</strong>
	<ul>
         <li> <a href="../running/sara_report_form.pl">SARA ReportWriter</A>
EOF
if (-f "config/sans10.r2") {
   print CLIENT "(includes SANS Top 20)";
}
elsif (-f "config/sans10.r1") {
   print CLIENT "(includes SANS Top 10)";
}
print CLIENT <<EOF;
<p>
<HL>
</UL></UL>
</TD></TR></TABLE>
</BODY>
</HTML>
EOF
}
