Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re^4: Insecure Dependency in Taint Mode

by Bod (Priest)
on Nov 05, 2022 at 22:47 UTC ( #11147999=note: print w/replies, xml ) Need Help??

in reply to Re^3: Insecure Dependency in Taint Mode
in thread Insecure Dependency in Taint Mode

Well - I'm feeling a little confused and even more stupid...
I identified that $ENV{'DOCUMENT_ROOT'} could be the problem and hardcoded them and still came up with the problem. But now I hardcode them again I cannot replicate the problem - in other words, it works!

Here is a working example, in case anyone stumbles along this path as much as anything else

#!/usr/bin/perl -T use strict; use warnings; use CGI::Carp qw(fatalsToBrowser); use FindBin qw($RealBin); my $safepath; BEGIN { if ($RealBin =~ m!^(/home/...path.../(test|uk)/www)!) { $safepath = "$1/../lib"; } else { die "Insecure access!"; } } use lib "$safepath"; use cPanelUserConfig; use PDF::API2; my $pdf = PDF::API2->open("/home/...path.../test/data/xmas/GiftSubscr +iption.pdf"); my $font = $pdf->font("/home/...path.../test/data/xmas/ +f"); my $page = $pdf->open_page(1); my $text = $page->text; $text->font($font, 36); $text->position(656, 403); $text->text('XXX'); print "Content-type: application/pdf\n\n"; print $pdf->to_string;

I can only assume that I hardcoded one environment variable but not the other but that seems pretty strange. I don't know what I did or didn't do to keep the problem whilst I thought I had got rid of $ENV{'DOCUMENT_ROOT'}.

Now I need to go back to the environment variables and untaint them with some sense checking.

Sorry for a bit of a wild goose chase
I'll go back to watching fireworks...

Log In?

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11147999]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2023-06-05 19:24 GMT
Find Nodes?
    Voting Booth?
    How often do you go to conferences?

    Results (25 votes). Check out past polls.