[LON-CAPA-cvs] cvs: loncom /debugging_tools get_version.pl

[albertel]

albertel		Tue Oct 17 11:00:07 2006 EDT

  Modified files:              
    /loncom/debugging_tools	get_version.pl 
  Log:
  i- don't wiat forever for the page to come
  
  
Index: loncom/debugging_tools/get_version.pl
diff -u loncom/debugging_tools/get_version.pl:1.1 loncom/debugging_tools/get_version.pl:1.2
--- loncom/debugging_tools/get_version.pl:1.1	Mon Aug 14 15:53:02 2006
+++ loncom/debugging_tools/get_version.pl	Tue Oct 17 11:00:07 2006
@@ -9,7 +9,7 @@
     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/ //g;
     $ver=~s/ //g;
     if ($ver eq "") { print("\n"); }