Re: Too late for "-T"?


Keep It Simple, Stupid
	PerlMonks

Re: Too late for "-T"?

by Maclir (Curate)

on Feb 07, 2001 at 04:25 UTC ( [id://56848]=note: print w/replies, xml )

Need Help??

in reply to Too late for "-T"?
in thread Is this safe??

Is your web server running mod_perl? If so, check out this node Re: Confused about Taint.

Comment on Re: Too late for "-T"?

Replies are listed 'Best First'.

Thanks all!
by SilverB1rd (Scribe) on Feb 07, 2001 at 21:14 UTC

#!/usr/bin/perl -Tw

#warnings and taint mode now enabled 

use CGI; 
use strict; 

#you may now use the CGI methods. 

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

print "<html><body>";
my ($query) = new CGI;
my (@values, $key);

foreach $key ($query->param) {
@values = $query->param($key);
print "$key = @values\n";
}

print "</body></html>";
[download]

[reply]
[d/l]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://56848]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others rifling through the Monastery: (10)

As of 2024-04-24 09:46 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found