# Created: 20000309
#
-if (&IsParam("useStrict")) { use strict; }
+use strict;
-use vars qw(%ftp);
+use vars qw(%ftp %param);
# Usage: &ftpGet($host,$dir,$file,[$lfile]);
sub ftpGet {
return 0;
}
- my $start_time = &gettimeofday();
+ my $start_time = &timeget();
if (defined $lfile) {
&status("FTP: getting $file as $lfile.") if ($verbose_ftp);
$ftp->get($file,$lfile);
}
}
- my $delta_time = &gettimeofday() - $start_time;
+ my $delta_time = &timedelta($start_time);
if ($delta_time > 0 and $verbose_ftp) {
&status(sprintf("FTP: %.02f sec to complete.", $delta_time));
my ($rateunit,$rate) = ("B", $size / $delta_time);
### LWP.
# Usage: &getURL($url, [$post]);
+# todo: rename this to getHTTP
sub getURL {
my ($url,$post) = @_;
my ($ua,$res,$req);