--- loncom/build/rpmparse.pl 2001/04/03 13:25:39 1.2 +++ loncom/build/rpmparse.pl 2001/04/03 13:36:27 1.5 @@ -2,8 +2,8 @@ my ($standard,$current)=@ARGV; -$standard=~s/[^\/\w]//g; -$current=~s/[^\/\w]//g; +$standard=~s/[^\/\w\.]//g; +$current=~s/[^\/\w\.]//g; my %svhash; my %sbhash; @@ -12,7 +12,7 @@ my @badversionrpms; my @newrpms; my @externalrpms; -open IN, $standard; +open IN, "<$standard"; while() { chop; my ($name,$version,$buildtime)=split(/\s+/); @@ -21,7 +21,7 @@ while() { } close IN; -open IN, $current; +open IN, "<$current"; while() { chop; my ($name,$version,$buildtime)=split(/\s+/); @@ -30,10 +30,10 @@ while() { push @badversionrpms,"$name is version $version, should be $svhash{$name}\n"; } 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) { - 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 { @@ -43,7 +43,7 @@ while() { close IN; my $date=`date`; chop $date; -my $hostname=`hostname`; +my $hostname=`hostname`; chop $hostname; print < @@ -53,7 +53,7 @@ print <LON-CAPA Software RPM Status Page (done on $date for $hostname)
Michigan State University
Learning Online with CAPA -
Contact korte@lon-capa.org +
Contact korte\@lon-capa.org
  • About this file
  • Bad RPM Versions