[LON-CAPA-cvs] cvs: loncom /cgi lonmodulecheck.pl

[raeburn]

raeburn		Fri Feb  8 14:51:47 2013 EDT

  Modified files:              
    /loncom/cgi	lonmodulecheck.pl 
  Log:
  - Use LONCAPA:distro() to get Linux distro.
  - Eliminate duplicate LON-CAPA from title
  - Less prominent header lines.  
  
  
Index: loncom/cgi/lonmodulecheck.pl
diff -u loncom/cgi/lonmodulecheck.pl:1.1 loncom/cgi/lonmodulecheck.pl:1.2
--- loncom/cgi/lonmodulecheck.pl:1.1	Sat Feb  2 00:22:34 2013
+++ loncom/cgi/lonmodulecheck.pl	Fri Feb  8 14:51:47 2013
@@ -3,7 +3,7 @@
 # Compares checksums for most installed files with expected values
 # and reports discrepancies.
 #
-# $Id: lonmodulecheck.pl,v 1.1 2013/02/02 00:22:34 raeburn Exp $
+# $Id: lonmodulecheck.pl,v 1.2 2013/02/08 14:51:47 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -37,6 +37,7 @@
 use LONCAPA::loncgi();
 use LONCAPA::lonauthcgi();
 use LONCAPA::Checksumming();
+use LONCAPA;
 
 my $perlvar=&LONCAPA::Configuration::read_conf('loncapa.conf');
 my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost);
@@ -71,7 +72,6 @@
         }
     }
 
-    &Apache::lonlocal::get_language_handle();
     &print_differences($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost);
     return;
 }
@@ -81,20 +81,18 @@
     my $machine_dom = &Apache::lonnet::host_domain($lonhost);
     my $loncaparev = &Apache::lonnet::get_server_loncaparev($machine_dom);
     my ($version,$timestamp) = split(/\-/,$loncaparev);
-    print(&Apache::loncommon::start_page('LON-CAPA code integrity checking'));
+    &Apache::lonlocal::get_language_handle();
+    print(&Apache::loncommon::start_page('Code integrity check'));
     if ($loncaparev =~ /CVS_HEAD/) {
-        print(&Apache::lonlocal::mt('Code checking unavailable for LON-CAPA CVS HEAD').
-              "\n");
+        print('<h3>'.
+              &Apache::lonlocal::mt('Code checking unavailable for LON-CAPA CVS HEAD').
+              '</h3>');
     } else {
-        print('<h2>'.
+        print('<h3>'.
               &Apache::lonlocal::mt('Code integrity check -- LONCAPA version: [_1]',
                                     $version).
-              '</h2>');
-        my $distro;
-        if (open(my $disth,"$londaemons/distprobe |")) {
-            $distro = <$disth>;
-            close($disth);
-        }
+              '</h3>');
+        my $distro = &LONCAPA::distro();
         if ($distro) {
             my ($serversums,$serverversions) =
                 &LONCAPA::Checksumming::get_checksums($distro,$londaemons,$lonlib,