#
# Select SAINT data base
#
$_saint_dir = "";
@_results = `ls results`;
for (@_results) { chop; }

print CLIENT <<EOF;
<HTML>
<HEAD>
<title> SAINT Data Management </title>
<LINK REV="made" HREF="mailto:saint\@saintcorporation.com">
</HEAD>
<BODY BGCOLOR="white" vlink="#000000" link="#04289D">

<P></P>

<P>
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0">
	<TR>
		<TD COLSPAN="2"><IMG SRC="$HTML_ROOT/images/Data_Mgmt_banner.gif" WIDTH="621" HEIGHT="106" ALIGN="BOTTOM" ALT="Data Management" BORDER="0"></TD>
	</TR>
	<TR>
	  <TD WIDTH="86" VALIGN="TOP">
	    <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0">
		<TR>
		    <TD WIDTH="86"><A HREF="http://www.saintcorporation.com"><IMG SRC="$HTML_ROOT/images/home.gif" WIDTH="86" HEIGHT="55" ALIGN="BOTTOM" ALT="SAINT Corporation"
			BORDER="0"></A></TD>
		</TR>
		<TR>
		    <TD WIDTH="86"><A HREF="$HTML_ROOT/saint.html"><IMG SRC="$HTML_ROOT/images/home_button.gif" WIDTH="86" HEIGHT="46"
			ALIGN="BOTTOM" ALT="SAINT Home" BORDER="0" STYLE="Background-Image : none"></A></TD>
		</TR>
		<TR>
		    <TD WIDTH="86"><IMG SRC="$HTML_ROOT/images/data_mgmt_button.gif" WIDTH="86"
			HEIGHT="46" ALIGN="BOTTOM" ALT="Data Management" BORDER="0"></TD>
		</TR>
		<TR>
		    <TD WIDTH="86"><A HREF="$HTML_SERVER/running/saint_run_form.pl"><IMG SRC="$HTML_ROOT/images/target_selection_button.gif"
			WIDTH="86" HEIGHT="46" ALIGN="BOTTOM" ALT="Target Selection" BORDER="0"></A></TD>
		</TR>
		<TR>
		    <TD WIDTH="86"><A HREF="$HTML_SERVER/reporting/analysis.pl"><IMG SRC="$HTML_ROOT/images/data_analysis_button.gif" WIDTH="86"
			HEIGHT="46" ALIGN="BOTTOM" ALT="Data Analysis" BORDER="0"></A></TD>
		</TR>
		<TR>
		    <TD WIDTH="86"><A HREF="$HTML_SERVER/admin/saint_cf_form.pl"><IMG SRC="$HTML_ROOT/images/config_mgmt_button.gif" WIDTH="86"
			HEIGHT="46" ALIGN="BOTTOM" ALT="Configuration Management" BORDER="0"></A></TD>
		</TR>
		<TR>
		    <TD WIDTH="86"><A HREF="$HTML_ROOT/saint_documentation.html"><IMG SRC="$HTML_ROOT/images/documentation_button.gif"
			WIDTH="86" HEIGHT="46" ALIGN="BOTTOM" ALT="SAINT Documentation" BORDER="0"></A></TD>
		</TR>
		<TR>
		    <TD WIDTH="86" HEIGHT="46"><A HREF="$HTML_ROOT/docs/FAQ.html#trouble"><IMG SRC="$HTML_ROOT/images/troubleshooting_button.gif" WIDTH="86"
			HEIGHT="46" ALIGN="BOTTOM" ALT="Troubleshooting" BORDER="0"></A></TD>
		</TR>
		<TR>
		    <TD WIDTH="86" HEIGHT="65"><IMG SRC="$HTML_ROOT/images/bottom_border.gif" WIDTH="86" HEIGHT="75" ALIGN="BOTTOM" ALT="--------" BORDER="0"></TD>
		</TR>
	    </TABLE>
	  </TD>
	  <TD VALIGN="TOP">
		<DL>
			<P>
		</DL>

<FORM METHOD=POST ACTION="saint_open_action.pl">

<a name="open-or-create"><h3>Open existing or create new SAINT data base</h3>

<h3>
<INPUT TYPE="reset" VALUE=" Reset ">
<INPUT SIZE="28" NAME="_saint_dir" Value="$saint_data">
<INPUT TYPE="submit" VALUE=" Open or create ">
</h3>

</FORM>

EOF

if (@_results) {
	print CLIENT <<EOF;
	<h3>Existing data bases...</h3>
EOF
}

print CLIENT <<EOF;
<ul>
EOF
for (@_results) {
	if (-d "results/$_") {
		print CLIENT <<EOF;
		<li> <a href="saint_open_action.pl,$_,">$_</a>
EOF
	}
}

print CLIENT <<EOF;
</ul>

<hr>

<FORM METHOD=POST ACTION="saint_merge_action.pl">

<a name="merge"><h3>Merge with existing SAINT data base</h3>

<h3>
<INPUT TYPE="reset" VALUE=" Reset ">
<INPUT SIZE="28" NAME="_saint_dir" Value="">
<INPUT TYPE="submit" VALUE=" Merge ">
</h3>

</FORM>

EOF

if (@_results) {
	print CLIENT <<EOF;
	<h3>Existing data bases...</h3>
EOF
}

print CLIENT <<EOF;
<ul>
EOF

for (@_results) {
	if (-d "results/$_") {
		print CLIENT <<EOF;
		<li> <a href="saint_merge_action.pl,$_,">$_</a>
EOF
	}
}

print CLIENT <<EOF;
</ul>
<hr>
</UL></UL>
	  </TD>
	</TR>
</TABLE>
</BODY>
</HTML>
EOF
