[BACK]Return to lpml_parse.pl CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/lpml_parse.pl between versions 1.11 and 1.13

version 1.11, 2001/09/17 20:44:38 version 1.13, 2001/10/30 22:27:32
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.';'.
Line 783  sub format_fileglob { Line 803  sub format_fileglob {
  elsif ($mode eq 'install') {   elsif ($mode eq 'install') {
     return "\t".'install '.      return "\t".'install '.
  $categoryhash{$categoryname}.' '.   $categoryhash{$categoryname}.' '.
  $sourceroot.'/'.$sourcedir.'[^CVS]'.$glob.' '.   $sourceroot.'/'.$sourcedir.'[^C][^V][^S]'.$glob.' '.
  $targetroot.'/'.$targetdir.'.'."\n";   $targetroot.'/'.$targetdir.'.'."\n";
  }   }
  else {   else {
Removed from v.1.11  
changed lines
  Added in v.1.13

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>