#
# Report all versions of the specified operating system class.
#
&make_hosttype_exclusion_info();

($_class) = split(/,/, $html_script_args);
$_class =~ tr /?!/ \//;

my $myurl="saint_info_OSclass.pl,$html_script_args";

generate_html_header(\*::CLIENT,"System type - $_class");

my $txtstr="vulnerable/total";
if ( $Exclusions::display_ignored ) { $txtstr="vulnerable[ignored]/total"; }

print CLIENT <<EOF
<CENTER><H1>System type - $_class</H1></CENTER>
<hr><UL><UL>
<h3>Number of hosts per operating system version ($txtstr).</h3>
<ul>
EOF
;

for (sort split(/\n/, $systypes_by_class{$_class})) {
	# Mask possible blanks and slashes in the system type names.
	($_type = $_) =~ tr / \//?!/;
	$_dot = $systype_severities{$_} ? "reddot" : "blackdot";
	$_alt = $systype_severities{$_} ? "*" : "-";
	print CLIENT <<EOF;
	<dt><IMG SRC=$HTML_ROOT/dots/$_dot.gif ALT="$_alt"> 
	<a href="saint_info_OStype.pl,$_type,"> $_</a>
	($systype_severities{$_}/$systype_counts{$_})
EOF
}
print CLIENT <<EOF
</ul>
<hr> <a href=$HTML_STARTPAGE> Back to the SAINT start page </a> |
<a href=analysis.pl> Back to SAINT Reporting and Analysis </a>
</UL></UL>
EOF
;

&print_show_hide_html_message(\*::CLIENT,$myurl);
&generate_html_footer(\*::CLIENT);
