if (defined $lsize) {
&DEBUG("FTP: locsize => '$lsize'.");
if ($size != $lsize) {
- &WARN("FTP: downloaded file seems truncated. FIXME.");
+ &FIXME("FTP: downloaded file seems truncated.");
}
}
### LWP.
# Usage: &getURL($url, [$post]);
-# todo: rename this to getHTTP
+# TODO: rename this to getHTTP
sub getURL {
my ($url,$post) = @_;
my ($ua,$res,$req);
my ($ua,$res,$req);
my $time = time();
- return unless &loadPerlModule("LWP::UserAgent");
+ unless (&loadPerlModule('LWP::UserAgent')) {
+ &::DEBUG('getURLAsFile: LWP::UserAgent not installed');
+ return;
+ }
$ua = new LWP::UserAgent;
$ua->proxy('http', $param{'httpProxy'}) if &IsParam("httpProxy");