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

[raeburn]

raeburn		Sat May 10 14:00:04 2014 EDT

  Modified files:              
    /loncom/cgi	lonmodulecheck.pl 
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  - Servers in a single domain might have a different LON-CAPA version
    installed from the primary library server in the domain.
  
  
Index: loncom/cgi/lonmodulecheck.pl
diff -u loncom/cgi/lonmodulecheck.pl:1.4 loncom/cgi/lonmodulecheck.pl:1.5
--- loncom/cgi/lonmodulecheck.pl:1.4	Tue Sep 10 17:44:01 2013
+++ loncom/cgi/lonmodulecheck.pl	Sat May 10 13:58:15 2014
@@ -3,7 +3,7 @@
 # Compares checksums for most installed files with expected values
 # and reports discrepancies.
 #
-# $Id: lonmodulecheck.pl,v 1.4 2013/09/10 17:44:01 bisitz Exp $
+# $Id: lonmodulecheck.pl,v 1.5 2014/05/10 13:58:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -81,7 +81,7 @@
 sub print_differences {
     my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;
     my $machine_dom = &Apache::lonnet::host_domain($lonhost);
-    my $loncaparev = &Apache::lonnet::get_server_loncaparev($machine_dom);
+    my $loncaparev = &Apache::lonnet::get_server_loncaparev($machine_dom,$lonhost);
     my ($version,$timestamp) = split(/\-/,$loncaparev);
     &Apache::lonlocal::get_language_handle();
     print(&Apache::loncommon::start_page('Code integrity check'));
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1259 loncom/lonnet/perl/lonnet.pm:1.1260
--- loncom/lonnet/perl/lonnet.pm:1.1259	Mon May  5 03:24:40 2014
+++ loncom/lonnet/perl/lonnet.pm	Sat May 10 14:00:04 2014
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1259 2014/05/05 03:24:40 raeburn Exp $
+# $Id: lonnet.pm,v 1.1260 2014/05/10 14:00:04 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -11853,7 +11853,7 @@
 sub fetch_dns_checksums {
     my %checksums;
     my $machine_dom = &Apache::lonnet::host_domain($perlvar{'lonHostID'});
-    my $loncaparev = &get_server_loncaparev($machine_dom);
+    my $loncaparev = &get_server_loncaparev($machine_dom,$perlvar{'lonHostID'});
     my ($release,$timestamp) = split(/\-/,$loncaparev);
     &get_dns("/adm/dns/checksums/$release",\&parse_dns_checksums_tab,1,1,
              \%checksums);