in reply to Re: LWP::Useragent - why doesn't this code work? :/
in thread LWP::Useragent - why doesn't this code work? :/
# if we have an @ in the URL, they will be giving us something lik +e ftp://someone:somewhere@doamin.com .. so we need to process this ap +propriatly.. my $request; if ($url_to_get =~ /\@/) { my @split = split /\@/, $url_to_get; # [ftp://user:pass] @ [do +main.com] # ok, lets try and get the bit after //, so we have the user/p +ass combo... if ($split[0] =~ m|(.*)//(.*)|) { my $URI = qq|$1//$split[1]|; print $IN->header; #print qq|Got user/pass combo of: $2 \n|; my ($user,$pass) = split /\:/, $2; $request = HTTP::Request->new(GET => $URI); $request->authorization_basic($user, $pass); print qq|Bla, got URL of: "$URI" <br />user: $user <br />p +ass: $pass <br /><br />|; #exit; } } else { $request = HTTP::Request->new(GET => $url_to_get); }
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^3: LWP::Useragent - why doesn't this code work? :/
by almut (Canon) on Jun 14, 2010 at 15:08 UTC |