Yup it prints valid HTML. Here's an example running it from the
command-line:
06:38pm ../ch06> perl -wT current_time.cgi
Content-type: text/html
<HTML>
<HEAD>
<TITLE>Current Time</TITLE>
</HEAD>
<BODY BGCOLOR="white">
<H1>Current Time</H1>
<P>Welcome. The current time is Fri Mar 1 18:38:18 2002.</P>
</BODY>
</HTML>
06:38pm ../ch06>
and here's the source (verbatim) for it from the O'Reilly CGI text that
won't run with the -T in the #! line, but will run if I remove the
"T"aint-checking:
#!/usr/bin/perl -wT
use strict;
use HTML::Template;
use constant TMPL_FILE => "$ENV{DOCUMENT_ROOT}/templates/current_time.tmpl";
my $tmpl = new HTML::Template( filename => TMPL_FILE );
my $time = localtime;
$tmpl->param( current_time => $time );
print "Content-type: text/html\n\n",
$tmpl->output;
--ted
----- Original Message -----
From: "W P" <[EMAIL PROTECTED]>
To: "Ted Markowitz" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Friday, March 01, 2002 6:27 PM
Subject: Re: Using -T (taint) in perl scripts on Win32
> Blank>> produces valid HTML with no errors.
>
>
> so you're saying it is printing a valid header? like this:
>
>
> Content-type: text/html
>
>
> HTML STUFF HERE
>
_________________________________________________________
Do You Yahoo!?
Get your free @yahoo.com address at http://mail.yahoo.com
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
