#  This software was derived from SATAN 1.1.1 by Dan Farmer and Wietse Venema
#  (http://www.porcupine.org/satan).
#
#
# Translate HMTL arg list form.
#
if ($_query_host eq "") {
    print CLIENT <<EOF;
<HTML>
<HEAD>
<title>Error - No Host </title>
<LINK REV="made" HREF="mailto:satan\@fish.com">
<LINK REV="updated" HREF="mailto:sara\@arc.com">
</HEAD>
<BODY BACKGROUND="/images/bckgrnd.jpg" vlink="#000000" link="#04289D">
<TABLE border=0>
 <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>Error - No Host </H1></CENTER>
<hr><UL><UL>
<h2>Error: no host name specified. Try again.</h2>
EOF
} else {
    $_query_host =~ tr /A-Z/a-z/;
    $_query_host = &getfqdn($_query_host) if (&getfqdn($_query_host));
    if (defined($all_hosts{$_query_host})) {
	$html_script_args = $_query_host;
	do "$html_root/reporting/sara_info_host.pl";
	print CLIENT $@ if $@;
    } else {
	print CLIENT <<EOF;
<HTML>
<HEAD>
<title>Error - Unknown Host </title>
<LINK REV="made" HREF="mailto:satan\@fish.com">
<LINK REV="update" HREF="mailto:sara\@arc.com">
</HEAD>
<BODY>
<H1><IMG width="150" SRC=$HTML_ROOT/images/sara.gif> Error - Unknown Host </H1>
<hr>
<h2>Error: unknown host name specified: $_query_host. Try again.</h2>
EOF
    }
}
print CLIENT <<EOF
</UL></UL></TABLE>
</BODY>
</HTML>
EOF
