[BACK]Return to lonmodulecheck.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / cgi

Diff for /loncom/cgi/lonmodulecheck.pl between versions 1.2 and 1.5

version 1.2, 2013/02/08 14:51:47 version 1.5, 2014/05/10 13:58:15
Line 58  if ($londaemons ne '' && $lonlib ne '' & Line 58  if ($londaemons ne '' && $lonlib ne '' &
   
 sub main {  sub main {
     my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;      my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;
     if (!&LONCAPA::lonauthcgi::check_ipbased_access('checksums')) {      if (&LONCAPA::lonauthcgi::check_ipbased_access('checksums')) {
           &LONCAPA::loncgi::check_cookie_and_load_env();
       } else {
         if (!&LONCAPA::loncgi::check_cookie_and_load_env()) {          if (!&LONCAPA::loncgi::check_cookie_and_load_env()) {
             &Apache::lonlocal::get_language_handle();              &Apache::lonlocal::get_language_handle();
             print(&LONCAPA::loncgi::missing_cookie_msg());              print(&LONCAPA::loncgi::missing_cookie_msg());
Line 79  sub main { Line 81  sub main {
 sub print_differences {  sub print_differences {
     my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;      my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost) = @_;
     my $machine_dom = &Apache::lonnet::host_domain($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);      my ($version,$timestamp) = split(/\-/,$loncaparev);
     &Apache::lonlocal::get_language_handle();      &Apache::lonlocal::get_language_handle();
     print(&Apache::loncommon::start_page('Code integrity check'));      print(&Apache::loncommon::start_page('Code integrity check'));
Line 89  sub print_differences { Line 91  sub print_differences {
               '</h3>');                '</h3>');
     } else {      } else {
         print('<h3>'.          print('<h3>'.
               &Apache::lonlocal::mt('Code integrity check -- LONCAPA version: [_1]',                &Apache::lonlocal::mt('Code integrity check -- LON-CAPA version: [_1]',
                                     $version).                                      $version).
               '</h3>');                '</h3>');
         my $distro = &LONCAPA::distro();          my $distro = &LONCAPA::distro();
Removed from v.1.2  
changed lines
  Added in v.1.5

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>