loncom/debugging_tools/get_version.pl - diff

Return to get_version.pl CVS log

Up to [LON-CAPA] / loncom / debugging_tools

version 1.1, 2006/08/14 19:53:02	version 1.2, 2006/10/17 15:00:07
Line 9 while(my $line=<HOST>) {	Line 9 while(my $line=<HOST>) {
if (!$host \|\| exists($done{$host})) { next; }	if (!$host \|\| exists($done{$host})) { next; }
$done{$host}=1;	$done{$host}=1;
print($host." -> ");	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;
$ver=~s/ //g;	$ver=~s/ //g;
if ($ver eq "") { print("\n"); }	if ($ver eq "") { print("\n"); }