require "cgi-lib.pl"; &ReadParse(*input); $GraphTitle =$input{'GraphTitle'}; $Bar1 = $input{'Bar1'}; $Bar2 = $input{'Bar2'}; $Bar3 = $input{'Bar3'}; $Bar4 = $input{'Bar4'}; $Name1 = $input{'Name1'}; $Name2 = $input{'Name2'}; $Name3 = $input{'Name3'}; $Name4 = $input{'Name4'}; $number = $input{'number'}; print "HTTP/1.0 200 OK\n"; print "Content-type: text/html\n\n"; # This CGI program was created by Erica Andrews on Mov. 17, 1999 # as a simple example of the use of CGI as a business application. # No portion of this script may be copied, used, or reproduced # without the express written consent of the author # (cylikon@hotmail.com). ./IcedPinky/ # All rights reserved. This is a Perl/CGI bar graph that uses # the cgi-lib.pl library to process the info. # # -- tell Perl to write the graph # print "Perl/CGI Bar Graph By Erica
Perl/CGI Graph by Erica


"; # # --- tell Perl to replace Graph Title # print ""; # # -- tell Perl to replace bar names and values # print ""; # # --replacing bars with requested color and stretching bars to # --appropriate length # print "
"; print $GraphTitle; print"
".$Name1."
 ".$Bar1."
".$Name2."
 ".$Bar2."
".$Name3."
 ".$Bar3."
".$Name4."
 ".$Bar4."

This Bar Graph was originally scripted in
"; # # DONE # exit(0);