#!C:/perl/bin/perl.exe
use CGI;
$query = new CGI;

$m1= $query->param('m1');
$m2= $query->param('m2');
$m3= $query->param('m3');
$m4= $query->param('m4');

$heightconstant=25;
#---------------------------
 
print $query->header;
print $query->start_html(-title=>'Bargraph demo');
print "<FONT FACE = 'arial' SIZE = '2'>";
print "<BR>";

# Create legend
print "<TABLE><TR>";
print "<TR><TD><FONT FACE = 'arial' SIZE = '2'> <B>Factor 2</B></TD></TR>";
print "<TD><FONT FACE = 'arial' SIZE = '2'><IMG SRC='/images/bargray.jpg' WIDTH='10' HEIGHT= '10'> Level 1 </TD></TR>";
print "<TD><FONT FACE = 'arial' SIZE = '2'><IMG SRC='/images/barblack.jpg' WIDTH='10' HEIGHT= '10'> Level 2 </TD></TR>";
print "</TABLE>";

# Create bars
print "<TABLE><TR>";
$tall= $m1*$heightconstant;
print "<TD VALIGN='bottom' ALIGN='center' BGCOLOR='#F8F8F8'>
<FONT FACE = 'arial' SIZE = '2'>$m1 <BR>
<IMG SRC='/images/bargray.jpg' WIDTH='40' HEIGHT= $tall></TD>";

$tall= $m2*$heightconstant;
print "<TD VALIGN='bottom' ALIGN='center' BGCOLOR='#F8F8F8'>
<FONT FACE = 'arial' SIZE = '2'>$m2 <BR>
<IMG SRC='/images/barblack.jpg' WIDTH='40' HEIGHT= $tall></TD>";

$tall= $m3*$heightconstant;
print "<TD VALIGN='bottom' ALIGN='center' BGCOLOR='#F8F8F8'>
<FONT FACE = 'arial' SIZE = '2'>$m3 <BR>
<IMG SRC='/images/bargray.jpg' WIDTH='40' HEIGHT= $tall></TD>";

$tall= $m4*$heightconstant;
print "<TD VALIGN='bottom' ALIGN='center' BGCOLOR='#F8F8F8'>
<FONT FACE = 'arial' SIZE = '2'>$m4 <BR>
<IMG SRC='/images/barblack.jpg' WIDTH='40' HEIGHT=$tall></TD>";
print "</TR>";


print "<TR>
<TD COLSPAN=2  BGCOLOR='#F8F8F8' ALIGN='center'><FONT FACE = 'arial' SIZE = '2'> Level 1 </TD>
<TD COLSPAN=2  BGCOLOR='#F8F8F8' ALIGN='center'><FONT FACE = 'arial' SIZE = '2'> Level 2 </TD>
</TR>";
print "<TR>
<TD COLSPAN=4  BGCOLOR='330066' ALIGN='center'><FONT FACE = 'arial' SIZE = '2' COLOR='white'> <B>Factor 1</B> </TD>
</TR>";
print "</TABLE>";
  
print $query->end_html;