version 1.3, 2000/12/11 19:03:01
|
version 1.4, 2000/12/12 16:51:39
|
Line 144 END
|
Line 144 END
|
|
|
foreach $file (<>) { |
foreach $file (<>) { |
chop $file; |
chop $file; |
|
my $comment=""; |
|
if ($file=~/\s+\#(.*)$/) { |
|
$file=~s/\s+\#(.*)$//; |
|
$comment=$1; |
|
} |
|
my $config=""; |
|
if ($comment=~/config/i) { |
|
$config="\%config "; |
|
} |
if (($type,$size,$octalmode,$user,$group)=find_info($file)) { |
if (($type,$size,$octalmode,$user,$group)=find_info($file)) { |
$octalmode="0" . $octalmode if length($octalmode)<4; |
$octalmode="0" . $octalmode if length($octalmode)<4; |
if ($pathprefix) { |
if ($pathprefix) { |
Line 152 foreach $file (<>) {
|
Line 161 foreach $file (<>) {
|
if ($type eq "files") { |
if ($type eq "files") { |
push @{$BinaryRootMakefile{$type}},"\tinstall -D -m $octalmode $pathprefix$file $binaryroot$file\n"; |
push @{$BinaryRootMakefile{$type}},"\tinstall -D -m $octalmode $pathprefix$file $binaryroot$file\n"; |
push @{$Makefile{$type}},"\tinstall -D -m $octalmode \$(SOURCE)$file \$(ROOT)$file\n"; |
push @{$Makefile{$type}},"\tinstall -D -m $octalmode \$(SOURCE)$file \$(ROOT)$file\n"; |
push @{$dotspecfile{$type}},"\%attr($octalmode,$user,$group) $file\n"; |
push @{$dotspecfile{$type}},"$config\%attr($octalmode,$user,$group) $file\n"; |
} |
} |
elsif ($type eq "directories") { |
elsif ($type eq "directories") { |
push @{$BinaryRootMakefile{$type}},"\tinstall -m $octalmode -d $binaryroot$file\n"; |
push @{$BinaryRootMakefile{$type}},"\tinstall -m $octalmode -d $binaryroot$file\n"; |
Line 192 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 |