From b3c9a0a17c1049d3ec6130239d85f00ff80be9e6 Mon Sep 17 00:00:00 2001
From: dms <dms@c11ca15a-4712-0410-83d8-924469b57eb5>
Date: Sun, 19 Nov 2000 14:55:41 +0000
Subject: [PATCH] Reduced timeout by 10x

git-svn-id: https://svn.code.sf.net/p/infobot/code/trunk/blootbot@161 c11ca15a-4712-0410-83d8-924469b57eb5
---
 src/Net.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Net.pl b/src/Net.pl
index 79967da..5a4f0a5 100644
--- 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;
     }
 
-- 
2.39.2