Reduced timeout by 10x

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@161 c11ca15a-4712-0410-83d8-924469b57eb5

diff --git a/src/Net.pl b/src/Net.pl
index 79967da2d5328bb133ec9934d2e6ab79cd460da2..5a4f0a5774d9d938966593ef8762d7cbbd9b231e 100644 (file)
--- a/src/Net.pl
+++ b/src/Net.pl
@@ -18,8 +18,8 @@ sub ftpGet {
 
     &status("FTP: opening connection to $host.") if ($verbose_ftp);
     my $ftp = Net::FTP->new($host,
-       'Timeout'       => 600,
-       'BlockSize'     => 1024,
+       'Timeout'       => 1*60,
+###    'BlockSize'     => 1024,        # ???
     );
 
     if ($@) {
@@ -108,10 +108,10 @@ sub ftpList {
     return unless &loadPerlModule("Net::FTP");
 
     &status("FTP: opening connection to $host.") if ($verbose_ftp);
-    my $ftp = Net::FTP->new($host,'Timeout'=>600);
+    my $ftp = Net::FTP->new($host,'Timeout'=>60);
 
     if ($@) {
-       &ERROR("FTP: $@.");
+###    &ERROR("FTP: $@.");
        return;
     }