loncom/build/rpmparse.pl - diff

Return to rpmparse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.3, 2001/04/03 13:27:41	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+/);