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

Diff for /loncom/build/Attic/parse.pl between versions 1.27 and 1.28

version 1.27, 2001/01/23 16:26:38 version 1.28, 2001/02/26 21:21:47
Line 1329  END Line 1329  END
  my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};   my $category=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'CATEGORY'};
  my $fdescription=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DESCRIPTION'};   my $fdescription=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DESCRIPTION'};
  my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};   my $source=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
    my $source2=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'SOURCE'};
  my $note=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTE'};   my $note=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'NOTE'};
  $note.="<BR>" if $note;   $note.="<BR>" if $note;
  my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};   my $listing=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'FILES'};
Line 1361  END Line 1362  END
  $source="<FONT COLOR=#FF0000>$source</FONT>";   $source="<FONT COLOR=#FF0000>$source</FONT>";
     }      }
  }   }
    my $checksum;
    my $checksum_source;
    my $checksum_target;
  if ($mode eq 'status') {   if ($mode eq 'status') {
     $filestatus='';      $filestatus='';
     my $fs;      my $fs;
Line 1383  END Line 1387  END
     }      }
     else {      else {
  $fs=`find /$filesfull[$i] -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;   $fs=`find /$filesfull[$i] -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;
    if (-f "/$filesfull[$i]" && !(-l "/$filesfull[$i]")) {
       $checksum_source=`md5sum ../../$source2 | cut -d ' ' -f1`;
       chop $checksum_source;
       $checksum_target=`md5sum /$filesfull[$i] | cut -d ' ' -f1`;
       chop $checksum_target;
       warn ("CS: $checksum_source, CT: $checksum_target\n");
       unless ($checksum_source eq $checksum_target) {
    $checksum="<BR><B><U>CHECKSUM DIFFERENCE</U></B>";
       }
    }
     }      }
     my $fsl=`find /$filesfull[$i] -type l -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;      my $fsl=`find /$filesfull[$i] -type l -prune -printf "\%m\t\%u\t\%g" 2>/dev/null`;
     unless ($fs || $filestatus) {      unless ($fs || $filestatus) {
Line 1406  END Line 1420  END
     $s='';      $s='';
  }   }
  if ($fs eq "$chmod$s$chown" && $fs eq "$devchmod$s$devchown") {   if ($fs eq "$chmod$s$chown" && $fs eq "$devchmod$s$devchown") {
     $filestatus='<TD BGCOLOR=#FFFFFF>runtime+development</TD>';      $filestatus="<TD BGCOLOR=#FFFFFF>runtime+development$checksum</TD>";
  }   }
  elsif ($fs eq "$chmod$s$chown") {   elsif ($fs eq "$chmod$s$chown") {
     $filestatus='<TD BGCOLOR=#FFFFFF>runtime</TD>';      $filestatus="<TD BGCOLOR=#FFFFFF>runtime$checksum</TD>";
  }   }
  elsif ($fs eq "$devchmod$s$devchown") {   elsif ($fs eq "$devchmod$s$devchown") {
     $filestatus='<TD BGCOLOR=#FFFFFF>development</TD>';      $filestatus="<TD BGCOLOR=#FFFFFF>development$checksum</TD>";
  }   }
  else {   else {
     $filestatus="<TD BGCOLOR=#FFFFFF><B><U>ERROR</U></B><BR>$fs</TD>";      $filestatus="<TD BGCOLOR=#FFFFFF><B><U>ERROR</U></B><BR>$fs</TD>";
Removed from v.1.27  
changed lines
  Added in v.1.28

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