loncom/build/make_rpm.pl - diff

Return to make_rpm.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.4, 2000/12/12 16:51:39	version 1.6, 2000/12/21 19:26:01
Line 201 close SPEC;	Line 201 close SPEC;

print `cd $currentdir/SOURCES; tar czvf LON-CAPA-$tag-$version.tar.gz LON-CAPA-$tag-$version`;	print `cd $currentdir/SOURCES; tar czvf LON-CAPA-$tag-$version.tar.gz LON-CAPA-$tag-$version`;
print `cd $currentdir/SPECS; rpm --rcfile=./rpmrc -ba LON-CAPA-$tag-$version.spec; cd ../RPMS/i386; cp LON-CAPA-$tag-$version-1.i386.rpm $invokingdir/.`;	print `cd $currentdir/SPECS; rpm --rcfile=./rpmrc -ba LON-CAPA-$tag-$version.spec; cd ../RPMS/i386; cp LON-CAPA-$tag-$version-1.i386.rpm $invokingdir/.`;
# print `cd $invokingdir; rm -Rf $tag`;	print `cd $invokingdir; rm -Rf $tag`;

sub find_info {	sub find_info {
# only look for	# only look for
Line 216 sub find_info {	Line 216 sub find_info {
return ("directories",split(/\t/,$line));	return ("directories",split(/\t/,$line));
}	}
elsif (($line=`find $file -type l -prune`)=~/^$file\n/) {	elsif (($line=`find $file -type l -prune`)=~/^$file\n/) {
$line=`find $file -type l -prune -printf "\%h/\%l\t\%m\t\%u\t\%g"`;	$line=`find $file -type l -prune -printf "\%l\t\%m\t\%u\t\%g"`;
return ("links",split(/\t/,$line));	return ("links",split(/\t/,$line));
}	}