[this is not a question - it is just a small follow-up] This code only gives me 404 File Not found -- which is correct behaviour -
#!/usr/bin/perl use strict; use warnings; use HTTP::Response; use LWP::Simple 'getstore'; my $url = 'http://insecurity.org/test.doc'; my $remote_user = $ENV{REMOTE_USER} || 'unknown_user'; my $response = HTTP::Response->new( getstore( $url, "/$remote_user/test.doc" ) ); print "Content-type: text/html\n\n", $response->status_line(); __END__ NOTES -- the /$remote_user/test.doc section collapses into: //test.doc -- because the User is not set -- and the // is evaluated (at least on my server) as $WWW_DOC_ROOT/path/to/file So, AFAIC, it is working. cheers; -Sx- ===== -Sx- seeking employment: http://youve-reached-the.endoftheinternet.org/ __________________________________________________ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] <http://learn.perl.org/> <http://learn.perl.org/first-response>
