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

Diff for /loncom/build/rpmparse.pl between versions 1.3 and 1.5

version 1.3, 2001/04/03 13:27:41 version 1.5, 2001/04/03 13:36:27
Line 2 Line 2
   
 my ($standard,$current)=@ARGV;  my ($standard,$current)=@ARGV;
   
 $standard=~s/[^\/\w]//g;  $standard=~s/[^\/\w\.]//g;
 $current=~s/[^\/\w]//g;  $current=~s/[^\/\w\.]//g;
 my %svhash;  my %svhash;
 my %sbhash;  my %sbhash;
   
Line 12  my @badversionrpms; Line 12  my @badversionrpms;
 my @newrpms;  my @newrpms;
 my @externalrpms;  my @externalrpms;
   
 open IN, $standard;  open IN, "<$standard";
 while(<IN>) {  while(<IN>) {
     chop;      chop;
     my ($name,$version,$buildtime)=split(/\s+/);      my ($name,$version,$buildtime)=split(/\s+/);
Line 21  while(<IN>) { Line 21  while(<IN>) {
 }  }
 close IN;  close IN;
   
 open IN, $current;  open IN, "<$current";
 while(<IN>) {  while(<IN>) {
     chop;      chop;
     my ($name,$version,$buildtime)=split(/\s+/);      my ($name,$version,$buildtime)=split(/\s+/);
Line 30  while(<IN>) { Line 30  while(<IN>) {
     push @badversionrpms,"$name is version $version, should be $svhash{$name}\n";      push @badversionrpms,"$name is version $version, should be $svhash{$name}\n";
  }   }
  if ($sbhash{$name}<$buildtime) {   if ($sbhash{$name}<$buildtime) {
     push @newrpms,"$name was built ".localtime($buildtime)." when the expected build time was ".localtime($sbhash{$name})."\n";      push @oldrpms,"$name was built ".localtime($buildtime)." when the expected build time was ".localtime($sbhash{$name})."\n";
  }   }
  if ($sbhash{$name}>$buildtime) {   if ($sbhash{$name}>$buildtime) {
     push @newrpms,"$name was built ".localtime($sbhash{$name})." when the expected build time was ".localtime($buildtime)."\n";      push @newrpms,"$name was built ".localtime($buildtime)." when the expected build time was ".localtime($sbhash{$name})."\n";
  }   }
     }      }
     else {      else {
Removed from v.1.3  
changed lines
  Added in v.1.5

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