my ( $host, $dir, $file, $lfile ) = @_;
my $verbose_ftp = 1;
- return unless &loadPerlModule("Net::FTP");
+ return unless &loadPerlModule('Net::FTP');
&status("FTP: opening connection to $host.") if ($verbose_ftp);
my $ftp = Net::FTP->new(
# login.
if ( $ftp->login() ) {
- &status("FTP: logged in successfully.") if ($verbose_ftp);
+ &status('FTP: logged in successfully.') if ($verbose_ftp);
}
else {
- &status("FTP: login failed.");
+ &status('FTP: login failed.');
$ftp->quit();
return 0;
}
if ($verbose_ftp);
}
else {
- &status("FTP: same size; skipping.");
+ &status('FTP: same size; skipping.');
system("touch $thisfile"); # lame hack.
$ftp->quit();
return 1;
}
}
else {
- &status("FTP: file does not exist.");
+ &status('FTP: file does not exist.');
$ftp->quit();
return 0;
}
if ( defined $lsize ) {
&DEBUG("FTP: locsize => '$lsize'.");
if ( $size != $lsize ) {
- &FIXME("FTP: downloaded file seems truncated.");
+ &FIXME('FTP: downloaded file seems truncated.');
}
}
my $delta_time = &timedelta($start_time);
if ( $delta_time > 0 and $verbose_ftp ) {
- &status( sprintf( "FTP: %.02f sec to complete.", $delta_time ) );
+ &status( sprintf( 'FTP: %.02f sec to complete.', $delta_time ) );
my ( $rateunit, $rate ) = ( 'B', $size / $delta_time );
if ( $rate > 1024 ) {
$rate /= 1024;
my ( $host, $dir ) = @_;
my $verbose_ftp = 1;
- return unless &loadPerlModule("Net::FTP");
+ return unless &loadPerlModule('Net::FTP');
&status("FTP: opening connection to $host.") if ($verbose_ftp);
my $ftp = Net::FTP->new( $host, 'Timeout' => 60 );
# login.
if ( $ftp->login() ) {
- &status("FTP: logged in successfully.") if ($verbose_ftp);
+ &status('FTP: logged in successfully.') if ($verbose_ftp);
}
else {
- &status("FTP: login failed.");
+ &status('FTP: login failed.');
$ftp->quit();
return;
}
return;
}
- &status("FTP: doing ls.") if ($verbose_ftp);
+ &status('FTP: doing ls.') if ($verbose_ftp);
foreach ( $ftp->dir() ) {
# modes d uid gid size month day time file.
&DEBUG("FTP: UNKNOWN => '$_'.");
}
}
- &status( "FTP: ls done. " . scalar( keys %ftp ) . " entries." );
+ &status( 'FTP: ls done. ' . scalar( keys %ftp ) . ' entries.' );
$ftp->quit();
return %ftp;
my ( $url, $post ) = @_;
my ( $ua, $res, $req );
- return unless &loadPerlModule("LWP::UserAgent");
+ return unless &loadPerlModule('LWP::UserAgent');
$ua = new LWP::UserAgent;
$ua->proxy( 'http', $param{'httpProxy'} ) if &IsParam('httpProxy');
my $size = length( $res->content );
if ( $size and time - $time ) {
my $rate = int( $size / 1000 / ( time - $time ) );
- &status("getURL: Done (took "
+ &status('getURL: Done (took '
. &Time2String( time - $time )
. ", $rate k/sec)" );
}