loncom/build/rpmparse.pl - diff

Return to rpmparse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.8, 2001/05/03 15:18:06	version 1.9, 2001/05/03 15:19:34
Line 55 while(<IN>) {	Line 55 while(<IN>) {
my $type=$1;	my $type=$1;
my $package=$2;	my $package=$2;
$package=~s/\-[^\-]\-[^\-]$//;	$package=~s/\-[^\-]\-[^\-]$//;
print "<br>$type $package\n";
if (!$chash{$package}) {	if (!$chash{$package}) {
push @barerpms,"$package is missing and is of basic necessity to a LON-CAPA system\n" if $type eq 'Y';	push @barerpms,"$package is missing and is of basic necessity to a LON-CAPA system\n" if $type eq 'Y';
push @developrpms,"$package is missing and may be useful for a LON-CAPA system\n" if $type eq 'N';	push @developrpms,"$package is missing and may be useful for a LON-CAPA system\n" if $type eq 'N';