loncom/build/parse.pl - diff

Return to parse.pl CVS log

Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/Attic/parse.pl between versions 1.34 and 1.39

version 1.34, 2001/04/13 17:09:09	version 1.39, 2001/05/18 18:52:09
Line 2	Line 2

# Scott Harrison	# Scott Harrison
# November 2000	# November 2000
# ...	# 12/5/2000,12/7,12/8,12/9,12/10,12/11,12/12,12/13,12/14,12/21 Scott Harrison
# 04/10/2001	# 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	# Read in loncapa tags and metagroup tags. Output various
# useful files for viewing, compiling, monitoring, updating,	# useful files for viewing, compiling, monitoring, updating,
Line 189 ALL: ALL	Line 190 ALL: ALL
END	END
close OUT;	close OUT;

`install -o 500 -g 500 -m 0700 -d BinaryRoot/home/www`;	`install -o www -g users -m 0700 -d BinaryRoot/home/www`;
open OUT,">>setup_file_list.txt";	open OUT,">>setup_file_list.txt";
print OUT "BinaryRoot/home/www\n";	print OUT "BinaryRoot/home/www\n";
close OUT;	close OUT;
Line 603 sub make_files_build_segment {	Line 604 sub make_files_build_segment {
if ($build) {	if ($build) {
my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'};	my $dependencies=$info{'LOCATION'}{$distribution}{$filesfull[$i]}{'DEPENDENCIES'};
my $source2=$source;	my $source2=$source;
$source2=~s/^[^\/]+\///;	# $source2=~s/^[^\/]+\///;
$source2="../" . $source2;	$source2="../../" . $source2;
$sources.="$source2 ";	$sources.="$source2 ";
my $directory=$build;	my $directory=$build;
$directory=~s/^[^\/]+\///;	# $directory=~s/^[^\/]+\///;
$directory=~s/([^\/]+)$//;	$directory=~s/([^\/]+)$//;
$directory="../" . $directory;	$directory="../../" . $directory;
my $buildfile=$1;	my $buildfile=$1;
my $sdir=$source;	my $sdir=$source;
$sdir=~s/^[^\/]+\///;	# $sdir=~s/^[^\/]+\///;
$sdir=~s/([^\/]+)$//;	$sdir=~s/([^\/]+)$//;
$sdir="../" . $sdir;	$sdir="../../" . $sdir;
$dependencies=~s/\s+$//;	$dependencies=~s/\s+$//;
my $depstat="";	my $depstat="";
if ($dependencies=~s/\s+\[ALWAYS_RUN_BUILD_COMMAND\]//) {	if ($dependencies=~s/\s+\[ALWAYS_RUN_BUILD_COMMAND\]//) {
Line 702 END	Line 703 END
my $rot=$filesfull[$i];	my $rot=$filesfull[$i];
$rot=~s/[^\/]+$/\./ if $rot=~/\*/;	$rot=~s/[^\/]+$/\./ if $rot=~/\*/;
my ($owner,$group)=split(/\:/,$devchown);	my ($owner,$group)=split(/\:/,$devchown);
if ($category ne 'conf') {	if ($category ne 'conf' && $category ne 'symbolic link') {
$description.=<<END if $category ne 'symbolic link';	if ($source!~/\*/) {
\ttest '-e \$(SOURCE)/$source' \&\& install -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot \|\| echo "** LON-CAPA WARNING ** CVS source file does not exist: \$(SOURCE)/$source"	$description.=<<END;
	\ttest -e \$(SOURCE)/$source \&\& install -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot \|\| echo "** LON-CAPA WARNING ** CVS source file does not exist: \$(SOURCE)/$source"
	END
	}
	else {
	$description.=<<END;
	\tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
END	END
	}
}	}
}	}
}	}

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

Removed from v.1.34
changed lines
	Added in v.1.39