loncom/build/lpml_parse.pl - diff

Return to lpml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.7, 2001/09/08 22:47:38	version 1.8, 2001/09/08 22:51:26
Line 579 sub format_directory {	Line 579 sub format_directory {
return $directory="\nDIRECTORY $targetdir $categoryname $description";	return $directory="\nDIRECTORY $targetdir $categoryname $description";
}	}
elsif ($mode eq 'install') {	elsif ($mode eq 'install') {
return "\t".'install '.$categoryhash{$categoryname}.' -d /'.	return "\t".'install '.$categoryhash{$categoryname}.' -d '.
$targetroot.$targetdir."\n";	$targetroot.'/'.$targetdir."\n";
}	}
else {	else {
return '';	return '';
Line 668 sub format_file {	Line 668 sub format_file {
"\nEND FILE");	"\nEND FILE");
}	}
elsif ($mode eq 'install' && $categoryname ne 'conf') {	elsif ($mode eq 'install' && $categoryname ne 'conf') {
return "\t".'@test -e '.$sourceroot.$source.	return "\t".'@test -e '.$sourceroot.'/'.$source.
' && install '.	' && install '.
$categoryhash{$categoryname}.' '.	$categoryhash{$categoryname}.' '.
$sourceroot.$source.' '.	$sourceroot.'/'.$source.' '.
$targetroot.$target.	$targetroot.'/'.$target.
' \|\| echo "**** LON-CAPA WARNING '.	' \|\| echo "**** LON-CAPA WARNING '.
'**** CVS source file does not exist: '.$sourceroot.'/'.	'**** CVS source file does not exist: '.$sourceroot.'/'.
$source.'"'."\n";	$source.'"'."\n";