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

use strict;

my $myurl="saint_exclusion_save.pl";

generate_html_header(\*::CLIENT,"SAINT Exclusions Saved");

print ::CLIENT<<EOF;
<H1><Center>Exclusion Save Results Page</Center></H1>
<HR>
EOF

my $savefile=$Exclusions::tmpsavfil;
my $path=exclusion_file_path($savefile);
my $count=save_exclusions($path);

my $text;
if ( $count )
{	print ::CLIENT <<EOF;
<h3>Results</h3>
<ul>
<li> $count exclusions saved to file $savefile
</ul>
<hr>
EOF
} else
{	print ::CLIENT <<EOF;
<h3>Results</h3>
<ul>
<li> Error saving exclusions to file $savefile
<li> Read STDERR of SAINT httpd server for more info.
<li> <strong>SAVE FAILED</strong>
</ul>
<hr>
EOF
}

print ::CLIENT <<EOF;
<a href="saint_exclusion_manage_form.pl">Return to the Exclusion Management Form</a><br>
<a href="analysis.pl">Return to the Main Analysis Page</a><br>
<a href="../saint.html">Return to the Main SAINT Page</a><br>
EOF

&generate_html_footer(\*::CLIENT);
