# if we have an @ in the URL, they will be giving us something like ftp://someone:somewhere@doamin.com .. so we need to process this appropriatly..
my $request;
if ($url_to_get =~ /\@/) {
my @split = split /\@/, $url_to_get; # [ftp://user:pass] @ [domain.com]
# ok, lets try and get the bit after //, so we have the user/pass 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"
user: $user
pass: $pass
|;
#exit;
}
} else {
$request = HTTP::Request->new(GET => $url_to_get);
}