#!perl
#  Build sss/sss.html as a function of sss/sss.div
#
open (SSS,">sss/sss.html");
print SSS <<EOC;
<HTML>
<HEAD>
<META HTTP-EQUIV="Expires" CONTENT="Tue, 04 Dec 1993 21:29:02 GMT">
<SCRIPT language="JavaScript">
  function movepic(img_name,img_src) {
  document[img_name].src=img_src;
}
</SCRIPT>
<TITLE>SARA Self Audit</TITLE>
<LINK REV="update" HREF="mailto:sara\@arc.com">
</HEAD>
<BODY>
<TABLE Border=0>
<TR><TD valign="top">
<body bgcolor="FFFFFF" link="#3333CC" vlink="#666666"> 
&nbsp;&nbsp;&nbsp;&nbsp;<img  width="100" height="150 "src="/sss/lighthouse.gif">
<BR> <img  width = "140" src="/sss/sara.gif">
</TD><TD>
<FORM METHOD=GET ACTION="/cgi-bin/sss/sss.cgi">
<CENTER><H2>SARA Self Scan</H2></CENTER>
<UL>
This facility allows you to scan your host with the Security
Auditor's Research Assistant (SARA) and have the report sent
to you.  Your system will be scanned by this web server.
The resulting report will be mailed to you within an hour or so
<P>
Please note that this scan will NOT determine if you are infected
by virii/worms!<br>  
You must run the latest virus software on your
machine to detect the presence of virii/worms.</H3>
<P>
<P>Please enter your email address where you want the report sent.
<BR>
<INPUT SIZE="48" NAME="my_email0" Value="">
<P>Type it again to confirm it.
<BR><INPUT SIZE="48" NAME="my_email1" Value="">
<P>
EOC
if (open(ORG,"sss/sss.organizations")) {
  print SSS "Please Select your organization good buddy<BR>\n";
  print SSS "\<SELECT name=\"selected_link\"\>\n";
  while (<ORG>) {
    chomp;
    print SSS "<OPTION value=\"$_\">$_\n";
  }
  print SSS "</SELECT>\n<P>";
}
print SSS<<EOC;
<INPUT TYPE="submit" VALUE=" Start Self Scan ">
<P>
</FORM>
</TD></TR></TABLE>
</BODY>
</HTML>
EOC
