_ TWF  _ Code Chap 17

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
HOME | BACK | NEXT | MENU | SEARCH | ORDER | COMMENT | HELPINFO -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

17code01.pl


#!/usr/tools/bin/perl

sleep(200);

print "Content-type: text/html\n\n";

print "<HTML><BODY><P>Print this</BODY></HTML>";

exit;




17code02.pl


#!/usr/tools/bin/perl

print "Content-type: text/html\n\n";

sleep(200);

print "<HTML><BODY><P>Print this</BODY></HTML>";

exit;




17code03.pl


# check text entered for nasties and unlawful acts

   if($In{'comments'} =~ /[ ]*(smeg|prat|nimnal)[ \t\n]/i) {

         print "<HTML><BODY><P>

         print "I'm sorry, those kinds of words aren't

                appropriate here. Thank you, drive through!";

         print "</BODY></HTML>";

         exit;

      }




-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
HOME | BACK | NEXT | MENU | SEARCH | ORDER | COMMENT | HELPINFO -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-

E-Mail: The Web Foundations at twf@lanw.com
URL: http://www.lanw.com/twf/codech17.htm
Text - Copyright © 1995, Ed Tittel, Mark Gaither, Sebastian Hassinger, & Mike Erwin.
Web Layout - Copyright © 1995, LANWrights & IMPACT Online.
Revised -- February 15th, 1996 [James Michael Stewart - WebMaster - IMPACT Online]

HTML 2.0 Checked!