[BACK]Return to Checksumming.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / configuration

Diff for /loncom/configuration/Checksumming.pm between versions 1.2 and 1.5

version 1.2, 2013/02/02 15:20:02 version 1.5, 2013/02/08 15:14:22
Line 85  sub get_checksums { Line 85  sub get_checksums {
     }      }
     if (@paths) {      if (@paths) {
         my $pathstr = join (' ',@paths);          my $pathstr = join (' ',@paths);
         if (open($dirh,"grep '$revtag' $pathstr |")) {          if (open($dirh,"grep '$revtag' $pathstr 2>&1 |")) {
             while (my $line=<$dirh>) {              while (my $line=<$dirh>) {
                 if ($line =~ m{^([^#]+):#\s\\s[\w.]+,v\s([\d.]+)\s}) {                  if ($line =~ m{^([^#]+):#\s\\s[\w.]+,v\s([\d.]+)\s}) {
                     $versions{$1} = $2;                      $versions{$1} = $2;
Line 125  sub get_checksums { Line 125  sub get_checksums {
 sub compare_checksums {  sub compare_checksums {
     my ($target,$lonhost,$version,$serversums,$serverversions) = @_;      my ($target,$lonhost,$version,$serversums,$serverversions) = @_;
     my ($message,$numchg,$linefeed);      my ($message,$numchg,$linefeed);
     if ($target = 'web') {      if ($target eq 'web') {
         $linefeed = '<br />';          $linefeed = '<br />';
     } else {      } else {
         $linefeed = "\n";          $linefeed = "\n";
     }      }
       if (!$Apache::lonlocal::lh) {
           &Apache::lonlocal::get_language_handle();
       }
     if ((ref($serversums) eq 'HASH') && (keys(%{$serversums}))) {      if ((ref($serversums) eq 'HASH') && (keys(%{$serversums}))) {
         my $checksums = &Apache::lonnet::fetch_dns_checksums();          my $checksums = &Apache::lonnet::fetch_dns_checksums();
         my (%extra,%missing,%diffs,%stdsums,%stdversions);          my (%extra,%missing,%diffs,%stdsums,%stdversions);
Line 148  sub compare_checksums { Line 151  sub compare_checksums {
                             $numchg ++;                              $numchg ++;
                         }                          }
                     } else {                      } else {
                         $missing{$key} = 1;                          unless ((-e $key) && (-B $key)) {
                         $numchg ++;                              $missing{$key} = 1;
                               $numchg ++;
                           }
                     }                      }
                 }                  }
                 foreach my $key (keys(%{$serversums})) {                  foreach my $key (keys(%{$serversums})) {
Removed from v.1.2  
changed lines
  Added in v.1.5

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