version 1.11, 2001/09/17 20:44:38
|
version 1.12, 2001/09/18 13:18:33
|
Line 229 my @links;
|
Line 229 my @links;
|
my %categoryhash; |
my %categoryhash; |
|
|
my @buildall; |
my @buildall; |
|
my @buildinfo; |
|
|
|
my @configall; |
|
|
# Make new parser with distribution specific input |
# Make new parser with distribution specific input |
undef $parser; |
undef $parser; |
Line 648 sub format_files {
|
Line 651 sub format_files {
|
return "\n".'files:'."\n".$text. |
return "\n".'files:'."\n".$text. |
"\n".'links:'."\n".join('',@links); |
"\n".'links:'."\n".join('',@links); |
} |
} |
|
elsif ($mode eq 'configinstall') { |
|
return "\n".'configfiles: '. |
|
join(' ',@configall). |
|
"\n\n".$text; |
|
} |
elsif ($mode eq 'build') { |
elsif ($mode eq 'build') { |
my $binfo; |
my $binfo; |
my $tword; |
my $tword; |
Line 724 sub format_file {
|
Line 732 sub format_file {
|
'**** CVS source file does not exist: '.$sourceroot.'/'. |
'**** CVS source file does not exist: '.$sourceroot.'/'. |
$source.'"'."\n"; |
$source.'"'."\n"; |
} |
} |
|
elsif ($mode eq 'configinstall' && $categoryname eq 'conf') { |
|
push @configall,$targetroot.'/'.$target; |
|
return $targetroot.'/'.$target.':'."\n". |
|
"\t".'@install '.$categoryhash{$categoryname}.' '. |
|
$sourceroot.'/'.$source.' '. |
|
$targetroot.'/'.$target.'.lpmlnewconf'. |
|
' && echo "*** CONFIGURATION FILE CHANGE ***" && echo "'. |
|
'You likely need to compare contents of "'. |
|
"$targetroot/$target with the new ". |
|
"$targetroot/$target.lpmlnewconf". |
|
"\n\n"; |
|
} |
elsif ($mode eq 'build' && $build) { |
elsif ($mode eq 'build' && $build) { |
push @buildall,$sourceroot.'/'.$source; |
push @buildall,$sourceroot.'/'.$source; |
push @buildinfo,$sourceroot.'/'.$source.';'.$build.';'. |
push @buildinfo,$sourceroot.'/'.$source.';'.$build.';'. |