add a timeout when checking host availability

Author: fpusan

conda/meta.yaml

@@ -1,6 +1,6 @@
 package:
   name: squeezemeta
-  version: '1.5.0post1'
+  version: '1.5.0post2'
 
 source:
   git_url: https://github.com/jtamames/squeezemeta.git

lib/install_utils/get_host.pl

@@ -5,7 +5,7 @@ sub get_host {
 	my @hosts = ("http://silvani.cnb.csic.es", "http://andes.cnb.csic.es");
 	my @goodhosts;
 	for my $host (@hosts) {
-        	my $ecode = system("wget -O/dev/null -q $host/SqueezeMeta/SQMhere");
+		my $ecode = system("wget -T10 -t1 -O/dev/null -q $host/SqueezeMeta/SQMhere");
 	        if(!$ecode) { push(@goodhosts, $host); }
 	}
 	if(!@goodhosts) { die "No host could be reached!" }

utils/install_utils/configure_nodb.pl

@@ -6,7 +6,7 @@
 use Cwd 'abs_path';
 my $databasedir=abs_path($ARGV[0]);
 
-if(!$databasedir) { die "Usage: perl install_nodb.pl <database dir>\n"; }
+if(!$databasedir) { die "Usage: perl configure_nodb.pl <database dir>\n"; }
 print("Make sure that $databasedir contains all the database files (nr.dmnd, etc...)\n\n");
 
 

utils/install_utils/configure_nodb_alt.pl

@@ -6,7 +6,7 @@
 use Cwd 'abs_path';
 my $databasedir=abs_path($ARGV[0]);
 
-if(!$databasedir) { die "Usage: perl install_nodb.pl <database dir>\n"; }
+if(!$databasedir) { die "Usage: perl configure_nodb_alt.pl <database dir>\n"; }
 print("Make sure that $databasedir contains all the database files (nr.dmnd, etc...)\n\n");