--- loncom/build/lpml_parse.pl 2001/09/17 20:44:38 1.11 +++ loncom/build/lpml_parse.pl 2001/10/30 22:27:32 1.13 @@ -229,6 +229,9 @@ my @links; my %categoryhash; my @buildall; +my @buildinfo; + +my @configall; # Make new parser with distribution specific input undef $parser; @@ -648,6 +651,11 @@ sub format_files { return "\n".'files:'."\n".$text. "\n".'links:'."\n".join('',@links); } + elsif ($mode eq 'configinstall') { + return "\n".'configfiles: '. + join(' ',@configall). + "\n\n".$text; + } elsif ($mode eq 'build') { my $binfo; my $tword; @@ -724,6 +732,18 @@ sub format_file { '**** CVS source file does not exist: '.$sourceroot.'/'. $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) { push @buildall,$sourceroot.'/'.$source; push @buildinfo,$sourceroot.'/'.$source.';'.$build.';'. @@ -783,7 +803,7 @@ sub format_fileglob { elsif ($mode eq 'install') { return "\t".'install '. $categoryhash{$categoryname}.' '. - $sourceroot.'/'.$sourcedir.'[^CVS]'.$glob.' '. + $sourceroot.'/'.$sourcedir.'[^C][^V][^S]'.$glob.' '. $targetroot.'/'.$targetdir.'.'."\n"; } else {