--- loncom/build/Attic/parse.pl 2001/04/11 03:06:00 1.33 +++ loncom/build/Attic/parse.pl 2001/04/27 15:57:31 1.38 @@ -2,9 +2,10 @@ # Scott Harrison # November 2000 -# ... -# 04/10/2001 - +# 12/5/2000,12/7,12/8,12/9,12/10,12/11,12/12,12/13,12/14,12/21 Scott Harrison +# 1/8/2001,1/10/2001,1/13/2001,1/16/2001,1/18/2001,1/23/2001 Scott Harrison +# 2/26/2001,2/27/2001,3/5/2001,4/10/2001,4/11,2001,4/13,2001 Scott Harrison +# 4/17/2001 Scott Harrison # Read in loncapa tags and metagroup tags. Output various # useful files for viewing, compiling, monitoring, updating, @@ -603,18 +604,18 @@ sub make_files_build_segment { if ($build) { my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'}; my $source2=$source; - $source2=~s/^[^\/]+\///; - $source2="../" . $source2; +# $source2=~s/^[^\/]+\///; + $source2="../../" . $source2; $sources.="$source2 "; my $directory=$build; - $directory=~s/^[^\/]+\///; +# $directory=~s/^[^\/]+\///; $directory=~s/([^\/]+)$//; - $directory="../" . $directory; + $directory="../../" . $directory; my $buildfile=$1; my $sdir=$source; - $sdir=~s/^[^\/]+\///; +# $sdir=~s/^[^\/]+\///; $sdir=~s/([^\/]+)$//; - $sdir="../" . $sdir; + $sdir="../../" . $sdir; $dependencies=~s/\s+$//; my $depstat=""; if ($dependencies=~s/\s+\[ALWAYS_RUN_BUILD_COMMAND\]//) { @@ -702,10 +703,17 @@ END my $rot=$filesfull[$i]; $rot=~s/[^\/]+$/\./ if $rot=~/\*/; my ($owner,$group)=split(/\:/,$devchown); - if ($category ne 'conf') { - $description.=<