--- parse_df.pl	2002/07/18 10:23:24	1.7
+++ parse_df.pl	2002/09/12 14:58:44	1.10
@@ -5,13 +5,14 @@
 # filesystems in same order always)
 #
 # Dobrica Pavlinusic <dpavlin@rot13.org>
+# http://www.rot13.org/~dpavlin/sysadm.html
 #
 # Usage:
 #
-# 	parse_df.pl "ssh -i ~cricket/.ssh/df host.dom" /mount_point
+# 	parse_df.pl "ssh -i ~cricket/.ssh/df target.host" /mount_point
 #		ssh into remote host and get data for /mount_point
 #
-# 	parse_df.pl "ssh -i ~cricket/.ssh/df --config"
+# 	parse_df.pl "ssh -i ~cricket/.ssh/df target.host" --config
 # 		dump configuration file to stdout
 #
 
@@ -38,8 +39,14 @@
 		return if (defined $df);
 		print STDERR " [cache miss] ";
 	}
-	open(DF,"$ssh df -klP |") || die "$ssh df: $!";
+	eval {
+		local $SIG{ALRM} = sub { die "ssh timeout\n"; };
+		alarm 10;	# wait for ssh to connect and return first line
+		open(DF,"$ssh df -klP |") || die "$ssh df: $!";
+	};
+	print STDERR " read DF eof=",eof(DF);
 	while(<DF>) {
+		alarm 0;	# turn alarm off
 		chomp;
 		my ($node,$total,$used,$aval,$use_pcnt,$mount) = split(/\s+/,$_,6);
 		if ($use_pcnt && $use_pcnt =~ s/(\d+)%/$1/) {