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

Diff for /loncom/misc/checkforupdates.pl between versions 1.1 and 1.3

version 1.1, 2013/02/02 00:22:39 version 1.3, 2013/10/02 23:47:17
Line 61  use LONCAPA::Configuration; Line 61  use LONCAPA::Configuration;
 use LONCAPA::Checksumming;  use LONCAPA::Checksumming;
 use Apache::loncommon();  use Apache::loncommon();
   
 my $tmpfile = '/tmp/checkLONCAPA.'.$$;  
 my $perlvar= LONCAPA::Configuration::read_conf('loncapa.conf');  my $perlvar= LONCAPA::Configuration::read_conf('loncapa.conf');
   
 my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost,$defdom,$origmail,  my ($londaemons,$lonlib,$lonincludes,$lontabdir,$lonhost,$defdom,$origmail,
Line 85  my ($distro,$send,$message); Line 84  my ($distro,$send,$message);
 my $loncaparev = &Apache::lonnet::get_server_loncaparev($defdom);  my $loncaparev = &Apache::lonnet::get_server_loncaparev($defdom);
 my ($version,$timestamp) = split(/\-/,$loncaparev);  my ($version,$timestamp) = split(/\-/,$loncaparev);
 if ($loncaparev =~ /CVS_HEAD/) {  if ($loncaparev =~ /CVS_HEAD/) {
     $message = &Apache::lonlocal::mt('Code checking unavailable for LON-CAPA CVS HEAD.')."\n";      $message = &Apache::lonlocal::mt('Code checking unavailable for LON-CAPA CVS HEAD')."\n";
 } else {  } else {
     # Get Linux distro      # Get Linux distro
     if (open(PIPE, "$londaemons/distprobe |")) {      if (open(PIPE, "$londaemons/distprobe |")) {
Line 164  if ($loncaparev =~ /CVS_HEAD/) { Line 163  if ($loncaparev =~ /CVS_HEAD/) {
                                   $production.'-'.$proddate,                                    $production.'-'.$proddate,
                                   "\n http://install.loncapa.org/\n");                                    "\n http://install.loncapa.org/\n");
     }      }
     if (open(my $tmpfh,">$tmpfile")) {  }
         print $tmpfh   
   if ($docroot ne '') {
       if (open(my $fh,">$docroot/lon-status/checkLCupdates.txt")) {
           print $fh
              &Apache::lonlocal::mt('Update check result -- [_1]',               &Apache::lonlocal::mt('Update check result -- [_1]',
                                    &Apache::lonlocal::locallocaltime(time)).                                     &Apache::lonlocal::locallocaltime(time)).
              "\n\n".               "\n\n".
              $message;               $message;
         close($tmpfh);          close($fh);
     }  
 }  
   
 if ($docroot ne '') {  
     system("cat $tmpfile > $docroot/lon-status/checkLCupdates.txt");  
     if ($< == 0) {  
         system("chown www:www $docroot/lon-status/checkLCupdates.txt");          system("chown www:www $docroot/lon-status/checkLCupdates.txt");
     }          chmod(0600,"$docroot/lon-status/checkLCupdates.txt");
     chmod(0600,"$docroot/lon-status/checkLCupdates.txt");  
 }  
   
 # Determine who receives the e-mail          if ($send) {
 my $emailto =              # Determine who receives the e-mail
     &Apache::loncommon::build_recipient_list(undef,'updatesmail',              my $emailto =
                                              $defdom,$origmail);                  &Apache::loncommon::build_recipient_list(undef,'updatesmail',
 if ($emailto) {                                                           $defdom,$origmail);
     if ($send) {              if ($emailto) {
         my $subj = "LON-CAPA module check -- $lonhost";                   my $subj = "LON-CAPA module check -- $lonhost";
         system(qq{mail -s '$subj' "$emailto" < $tmpfile});                  if (-e "$docroot/lon-status/checkLCupdates.txt") {
                       system(qq{mail -s '$subj' "$emailto" < $docroot/lon-status/checkLCupdates.txt});
                   }
               }
           }
     }      }
 }  }
   
Removed from v.1.1  
changed lines
  Added in v.1.3

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