--- loncom/build/rpmparse.pl 2001/04/03 13:23:06 1.1 +++ loncom/build/rpmparse.pl 2001/04/04 12:48:55 1.7 @@ -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+/); @@ -33,7 +33,7 @@ while() { push @newrpms,"$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 @oldrpms,"$name was built ".localtime($buildtime)." when the expected build time was ".localtime($sbhash{$name})."\n"; } } else { @@ -43,67 +43,68 @@ while() { close IN; my $date=`date`; chop $date; -my $hostname=hostname; +my $hostname=`hostname`; chop $hostname; print < - -LON-CAPA Software RPM Status Page - - -LON-CAPA Software RPM Status Page (done on $date for $hostname) -
Michigan State University -
Learning Online with CAPA -
Contact korte@lon-capa.org -
    -
  • About this file
    • -
  • Bad RPM Versions
    • -
  • Out-of-date RPMS
    • -
  • Newer than expected RPMS
    • -
  • RPMS external to LON-CAPA
    • -
-About this file -

+ + +LON-CAPA Software RPM Status Page + + +LON-CAPA Software RPM Status Page +(done on $date for $hostname) +
Michigan State University +
Learning Online with CAPA +
Contact korte\@lon-capa.org +

    +
  • About this file
    • +
  • Bad RPM Versions
    • +
  • Out-of-date RPMS
    • +
  • Newer than expected RPMS
    • +
  • RPMS external to LON-CAPA
    • +
+About this file +

This file is generated dynamically by make rpmstatuspost when this command is entered in the CVS:loncom/build directory. -

+

END print <Bad RPM Versions -
+Differing RPM Versions
+
 END
 foreach my $rpminfo (@badversionrpms) {
     print $rpminfo;
 }
 print <
+

 END
 print <Out-of-date RPMS
-
+Out-of-date RPMS
+
 END
 foreach my $rpminfo (@oldrpms) {
     print $rpminfo;
 }
 print <
+

 END
 print <Newer than expected RPMS
-
+Newer than expected RPMS
+
 END
 foreach my $rpminfo (@newrpms) {
     print $rpminfo;
 }
 print <
+

 END
 print <RPMS external to LON-CAPA
-
+RPMS external to LON-CAPA
+
 END
 foreach my $rpminfo (@externalrpms) {
     print $rpminfo;
 }
 print <
+

 END