--- loncom/debugging_tools/get_version.pl	2006/08/14 19:53:02	1.1
+++ loncom/debugging_tools/get_version.pl	2006/10/17 15:00:07	1.2
@@ -9,7 +9,7 @@ while(my $line=<HOST>) {
     if (!$host || exists($done{$host})) { next; }
     $done{$host}=1;
     print($host." -> ");
-    my $ver=`curl --connect-timeout 5 -s http://$host/adm/roles | grep -- -200 | tr ">" "\n" | tail -1 `;
+    my $ver=`curl --max-time 15 --connect-timeout 5 -s http://$host/adm/login | grep -- -200 | tr ">" "\n" | tail -1 `;
     $ver=~s/&nbsp;//g;
     $ver=~s/ //g;
     if ($ver eq "") { print("\n"); }