loncom/build/parse.pl - diff

Return to parse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.33, 2001/04/11 03:06:00	version 1.36, 2001/04/17 14:09:51
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 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!~/\*/) {
	$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	\tinstall -o $owner -g $group -m $devchmod \$(SOURCE)/$source \$(TARGET)/$rot
END	END
	}
}	}
}	}
}	}