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

Diff for /loncom/build/rpmparse.pl between versions 1.1 and 1.4

version 1.1, 2001/04/03 13:23:06 version 1.4, 2001/04/03 13:33:22
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 43  while(<IN>) { Line 43  while(<IN>) {
 close IN;  close IN;
   
 my $date=`date`; chop $date;  my $date=`date`; chop $date;
 my $hostname=hostname;  my $hostname=`hostname`; chop $hostname;
 print <<END;  print <<END;
 <HTML>  <HTML>
 <HEAD>  <HEAD>
Line 53  print <<END; Line 53  print <<END;
 <FONT SIZE=+2>LON-CAPA Software RPM Status Page (done on $date for $hostname)</FONT>  <FONT SIZE=+2>LON-CAPA Software RPM Status Page (done on $date for $hostname)</FONT>
 <BR>Michigan State University  <BR>Michigan State University
 <BR>Learning Online with CAPA  <BR>Learning Online with CAPA
 <BR>Contact korte@lon-capa.org  <BR>Contact korte\@lon-capa.org
 <UL>  <UL>
 <LI>About this file</LI>  <LI>About this file</LI>
 <LI>Bad RPM Versions</LI>  <LI>Bad RPM Versions</LI>
Removed from v.1.1  
changed lines
  Added in v.1.4

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