home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1997 March / PCWK0397.iso / novell / webserv3 / nws30.exe / DISK1 / WEB / SCRIPTS / PERL / ECHO.PL < prev    next >
Text File  |  1995-09-27  |  568b  |  22 lines
  1. require("cgi-lib.pl");
  2. print &PrintHeader;
  3. #print http header
  4. &ReadParse;
  5.  
  6. #print html header
  7. print "<html>";
  8. print "<BODY TEXT=\"#000000\" LINK=\"#FF0000\">";
  9. print "<BODY BACKGROUND=/images/blue_pap.gif>";
  10. print "<html><head><title>Echo Script</title></head>\n";
  11. print "<body><h1>Echo Script</h1>\n";
  12. print "<H2>Here is the form information that you entered...</H2><p>\n";
  13. print "<hr>";
  14.  
  15. foreach $key (sort keys(%in)) {
  16.     print "Value of variable ", $key, " = ", $in{$key}, "<p>\n";
  17. }
  18.  
  19. #print tail of html
  20. print "<hr>";
  21. print "</body></html>\n";
  22.