Re: include statement in perl?

This is not specific to CGI.pm

sub include {
    my $file = shift;
    open my $fh, '<', $ENV{'DOCUMENT_ROOT'}.$file
        or return;
    while (<$fh>) { print }
    close $fh or return;
    return 1;
}
[download]

Taint mode will require that you set $ENV{'DOCUMENT_ROOT'} for yourself.

After Compline,
Zaxo

Comment on Re: include statement in perl? Download Code

Replies are listed 'Best First'.
Re^2: include statement in perl? (DOCUMENT_ROOT trustworthy) by Aristotle (Chancellor) on May 31, 2003 at 03:15 UTC
It should be noted that as DOCUMENT_ROOT is set by the webserver and not subject to user input, it's safe to trust. Makeshifts last the longest.	[reply]
Re: Re^2: include statement in perl? by Beatnik (Parson) on May 31, 2003 at 13:35 UTC
'safe to trust' ne 'untainted' :) Greetz Beatnik ... I'm belgian but I don't play one on TV.	[reply]
Re^4: include statement in perl? (no care needed) by Aristotle (Chancellor) on May 31, 2003 at 13:38 UTC
Of course; I just mean you don't need to set it yourself. It'll suffice to simply do something like `my ($doc_root) = $ENV{DOCUMENT_ROOT} =~ /(.)/;` [download] Makeshifts last the longest.*	[reply] [d/l]
Re: Re: include statement in perl? by stonecolddevin (Parson) on May 31, 2003 at 03:42 UTC
Ohhh, so you basically just open up the file, read it, and then print it out? That sounds easy enough.	[reply]