# 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); }
In reply to Re^2: LWP::Useragent - why doesn't this code work? :/
by ultranerds
in thread LWP::Useragent - why doesn't this code work? :/
by ultranerds
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |