[BACK]Return to get_version.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / debugging_tools
File:  [LON-CAPA] / loncom / debugging_tools / get_version.pl
Revision 1.3: download - view: text, annotated - select for diffs
Wed Jun 6 20:04:47 2007 UTC (16 years, 10 months ago) by albertel
Branches: MAIN
CVS tags: version_2_9_X, version_2_9_99_0, version_2_9_1, version_2_9_0, version_2_8_X, version_2_8_99_1, version_2_8_99_0, version_2_8_2, version_2_8_1, version_2_8_0, version_2_7_X, version_2_7_99_1, version_2_7_99_0, version_2_7_1, version_2_7_0, version_2_6_X, version_2_6_99_1, version_2_6_99_0, version_2_6_3, version_2_6_2, version_2_6_1, version_2_6_0, version_2_5_X, version_2_5_99_1, version_2_5_99_0, version_2_5_2, version_2_5_1, version_2_5_0, version_2_4_X, version_2_4_99_0, version_2_4_2, version_2_4_1, version_2_12_X, version_2_11_X, version_2_11_4_uiuc, version_2_11_4_msu, version_2_11_4, version_2_11_3_uiuc, version_2_11_3_msu, version_2_11_3, version_2_11_2_uiuc, version_2_11_2_msu, version_2_11_2_educog, version_2_11_2, version_2_11_1, version_2_11_0_RC3, version_2_11_0_RC2, version_2_11_0_RC1, version_2_11_0, version_2_10_X, version_2_10_1, version_2_10_0_RC2, version_2_10_0_RC1, version_2_10_0, loncapaMITrelate_1, language_hyphenation_merge, language_hyphenation, bz6209-base, bz6209, bz5969, bz2851, PRINT_INCOMPLETE_base, PRINT_INCOMPLETE, HEAD, GCI_3, GCI_2, GCI_1, BZ5971-printing-apage, BZ5434-fox, BZ4492-merge, BZ4492-feature_horizontal_radioresponse, BZ4492-feature_Support_horizontal_radioresponse, BZ4492-Support_horizontal_radioresponse
- added distprobe gather, and 64bitedness gathering, and some other reporting modes

    1: open(HOST,"<$ARGV[0]");
    2: 
    3: if (!-e 'secure_args') {
    4:     die("Unable to find security arguments for grabbing lon-status");
    5: }
    6: 
    7: my $secure_args = `cat secure_args`;
    8: $secure_args =~ s/^\s*//x;
    9: $secure_args =~ s/\s*$//x;
   10: my $i++;
   11: my %vers;
   12: my %distvers;
   13: my %arch;
   14: my %done;
   15: my %combo1;
   16: my %combo2;
   17: while(my $line=<HOST>) {
   18:     if ($line=~/^\#/) { next; }
   19:     my $host=(split(':',$line))[3];
   20:     chomp($host);
   21:     if (!$host || exists($done{$host})) { next; }
   22:     $done{$host}=1;
   23: 
   24: 
   25:     my $roles=`curl --max-time 15 --connect-timeout 5 -s http://$host/adm/login  `;
   26:     if ($roles eq '') {
   27:         $roles=`curl --insecure --max-time 15 --connect-timeout 5 -s https://$host/adm/login `;
   28:     }
   29: 
   30: #-- lon-capa version
   31:     print($host." -> ");
   32:     my $ver=`curl --max-time 15 --connect-timeout 5 -s http://$host/adm/login | grep -- -200 | tr ">" "\n" | tail -1 `;
   33:     $ver=~s/&nbsp;//g;
   34:     $ver=~s/ //g;
   35:     if ($ver eq "") {
   36: 	print(" https -> ");
   37:         $ver=`curl --insecure --max-time 15 --connect-timeout 5 -s https://$host/adm/login | grep -- -200 | tr ">" "\n" | tail -1 `;
   38:     }
   39:     $ver=~s/&nbsp;//g;
   40:     $ver=~s/ //g;
   41:     if ($ver eq "") {
   42: 	if ($roles eq '') { $ver="dead\n"; } else { $ver = "old\n" }
   43:     }
   44:     print($ver);
   45:     $ver=~s/\s//g;
   46:     push(@{$vers{$ver}},$host);
   47: 
   48:     print(' 'x(length($host)).' -> ');
   49:     my $lonstatus=`curl $secure_args --max-time 15 --connect-timeout 5 -s http://$host/lon-status/ `;
   50:     if ($lonstatus !~ /LON Status Report/) {
   51: 	print(" https -> ");
   52:         $lonstatus=`curl --insecure $secure_args --max-time 15 --connect-timeout 5 -s https://$host/lon-status/  `;
   53:     }
   54:     if ($lonstatus =~ /LON Status Report/) {
   55: 	print(" lon-status \n");
   56:     }
   57: 
   58: #-- OS 
   59:     my $dist = $lonstatus;
   60:     print(' 'x(length($host)).' -> ');
   61:     my $re = '.*distprobe.*?<pre>(.*?)</pre>.*';
   62: #    my $re = '.*?<h1>.*?</h1>.*?<h2>(.*?)</h2>.*';
   63:     if ($dist =~ m{$re}sx) {
   64: 	$dist=~s{$re}{$1}sx;
   65: 	print($dist);
   66:     } else {
   67: 	undef($dist);
   68:     }
   69: 
   70:     print("\n");
   71:     push(@{$distvers{$dist}},$host);
   72: 
   73: #-- arch
   74:     my $arch = $lonstatus;
   75:     print(' 'x(length($host)).' -> ');
   76:     my $re = '.*?Detected\s+64bit\s+platform\s*\((\d*)\).*';
   77:     if ($arch =~ m{$re}sx) {
   78: 	$arch=~s{$re}{$1}sx;
   79: 	print($arch);
   80:     } else {
   81: 	undef($arch);
   82:     }
   83:     print("\n");
   84:     push(@{$arch{$arch}},$host);
   85: 
   86:     $combo1{"$ver,$dist,$arch"}++;#.=$host.', ';
   87:     $combo2{"$dist,$arch"}++;#.=$host.', ';
   88: 
   89: #    if ($i++==14) { last; }
   90: }
   91: print("LON-CAPA Versions\n");
   92: foreach my $key (sort(keys(%vers))) {
   93:     print($key." -> ".scalar(@{$vers{$key}})." machines\n");
   94:     print("     ".join("\n     ",sort(@{$vers{$key}}))."\n");
   95: }
   96: print("OS Versions\n");
   97: foreach my $key (sort(keys(%distvers))) {
   98:     print($key." -> ".scalar(@{$distvers{$key}})." machines\n");
   99:     print("     ".join("\n     ",sort(@{$distvers{$key}}))."\n");
  100: }
  101: print("64bit?\n");
  102: foreach my $key (sort(keys(%arch))) {
  103:     print($key." -> ".scalar(@{$arch{$key}})." machines\n");
  104:     print("     ".join("\n     ",sort(@{$arch{$key}}))."\n");
  105: }
  106: print("Combo 1?\n");
  107: foreach my $key (sort(keys(%combo1))) {
  108:     print($key." -> ".$combo1{$key}." machines\n");
  109: }
  110: print("Combo 2?\n");
  111: foreach my $key (sort(keys(%combo2))) {
  112:     print($key." -> ".$combo2{$key}." machines\n");
  113: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>