loncom/build/lpml_parse.pl - diff

Return to lpml_parse.pl CVS log

Up to [LON-CAPA] / loncom / build

Diff for /loncom/build/lpml_parse.pl between versions 1.49 and 1.51

version 1.49, 2002/05/23 16:55:20	version 1.51, 2002/10/13 17:27:49
Line 47	Line 47
# 12/2,12/3,12/4,12/5,12/6,12/13,12/19,12/29 - Scott Harrison	# 12/2,12/3,12/4,12/5,12/6,12/13,12/19,12/29 - Scott Harrison
# YEAR=2002	# YEAR=2002
# 1/8,1/9,1/29,1/31,2/5,3/21,4/8,4/12 - Scott Harrison	# 1/8,1/9,1/29,1/31,2/5,3/21,4/8,4/12 - Scott Harrison
	# 4/21,4/26,5/19,5/23,10/13 - Scott Harrison
#	#
###	###

Line 298 my $directories;	Line 299 my $directories;
my $directory;	my $directory;
my $targetdirs;	my $targetdirs;
my $targetdir;	my $targetdir;
	my $protectionlevel;
my $categoryname;	my $categoryname;
my $description;	my $description;
my $files;	my $files;
Line 351 $parser->{textify}={	Line 353 $parser->{textify}={
category => \&format_category,	category => \&format_category,
abbreviation => \&format_abbreviation,	abbreviation => \&format_abbreviation,
targetdir => \&format_targetdir,	targetdir => \&format_targetdir,
	protectionlevel => \&format_protectionlevel,
chown => \&format_chown,	chown => \&format_chown,
chmod => \&format_chmod,	chmod => \&format_chmod,
rpm => \&format_rpm,	rpm => \&format_rpm,
Line 974 sub format_directories {	Line 977 sub format_directories {
elsif ($mode eq 'rpm_file_list') {	elsif ($mode eq 'rpm_file_list') {
return $text;	return $text;
}	}
	elsif ($mode eq 'uninstall_shell_commands') {
	return $text;
	}
else {	else {
return '';	return '';
}	}
Line 981 sub format_directories {	Line 987 sub format_directories {
# ---------------------------------------------------- Format directory section	# ---------------------------------------------------- Format directory section
sub format_directory {	sub format_directory {
my (@tokeninfo)=@_;	my (@tokeninfo)=@_;
$targetdir='';$categoryname='';$description='';	$targetdir='';$categoryname='';$description='';$protectionlevel='';
$parser->get_text('/directory');	$parser->get_text('/directory');
$parser->get_tag('/directory');	$parser->get_tag('/directory');
$directory_count++;	$directory_count++;
Line 1015 sub format_directory {	Line 1021 sub format_directory {
elsif ($mode eq 'rpm_file_list') {	elsif ($mode eq 'rpm_file_list') {
return $targetroot.'/'.$targetdir."\n";	return $targetroot.'/'.$targetdir."\n";
}	}
	elsif ($mode eq 'uninstall_shell_commands') {
	if ($protectionlevel eq 'never_delete') {
	return 'echo "LEAVING BEHIND '.$targetroot.'/'.$targetdir.
	' which may have important data worth saving"'."\n";
	}
	elsif ($protectionlevel eq 'weak_delete') {
	if ($targetdir!~/\w/) {
	die("targetdir=\"$targetdir\"! NEVER EVER DELETE THE WHOLE ".
	"FILESYSTEM"."\n");
	}
	return 'rm -Rvf -i '.$targetroot.'/'.$targetdir."\n";
	}
	elsif ($protectionlevel =~ /never/) {
	die("CONFUSING PROTECTION LEVEL \"$protectionlevel\" FOUND ".
	"FOR directory $targetdir"."\n");
	}
	elsif ($protectionlevel !~
	/^never_delete\|weak_delete\|modest_delete\|strong_delete\|absolute_delete$/) {
	die("CONFUSING OR MISSING PROTECTION LEVEL \"$protectionlevel\" ".
	"FOUND FOR directory $targetdir\n");
	}
	else {
	if ($targetdir!~/\w/) {
	die("targetdir=\"$targetdir\"! NEVER EVER DELETE THE WHOLE ".
	"FILESYSTEM"."\n");
	}
	return 'rm -Rvf '.$targetroot.'/'.$targetdir.
	"\| grep 'removed directory'"."\n";
	}
	}
else {	else {
return '';	return '';
}	}
Line 1030 sub format_targetdir {	Line 1066 sub format_targetdir {
}	}
return '';	return '';
}	}
	# ---------------------------------------------- Format protectionlevel section
	sub format_protectionlevel {
	my @tokeninfo=@_;
	$protectionlevel='';
	my $text=&trim($parser->get_text('/protectionlevel'));
	if ($text) {
	$parser->get_tag('/protectionlevel');
	$protectionlevel=$text;
	}
	return '';
	}
# ------------------------------------------------- Format categoryname section	# ------------------------------------------------- Format categoryname section
sub format_categoryname {	sub format_categoryname {
my @tokeninfo=@_;	my @tokeninfo=@_;
Line 1296 END	Line 1343 END
$targetroot.'/'.$target."\\\n\t\t".	$targetroot.'/'.$target."\\\n\t\t".
' && echo "** WARNING: NEW CONFIGURATION FILE ADDED **"'.	' && echo "** WARNING: NEW CONFIGURATION FILE ADDED **"'.
"\\\n\t\t".$logcmd.' && '."\\\n\t\t".	"\\\n\t\t".$logcmd.' && '."\\\n\t\t".
'&& echo -n "'.	'echo -n "'.
'You likely need to review the contents of "'."\\\n\t\t\t".	'You likely need to review the contents of "'."\\\n\t\t\t".
'&& echo -n "'.	'&& echo -n "'.
$targetroot.'/'.$target.'"'."\\\n\t\t\t".	$targetroot.'/'.$target.'"'."\\\n\t\t\t".
Line 1310 END	Line 1357 END
'{ [ $$ECODE != "1" ] \|\| ('."\\\n\t\t".	'{ [ $$ECODE != "1" ] \|\| ('."\\\n\t\t".
'echo "** ERROR **"'.$logcmd.' && '."\\\n\t\t".'echo -n "'.	'echo "** ERROR **"'.$logcmd.' && '."\\\n\t\t".'echo -n "'.
'Configuration source file does not exist "'."\\\n\t\t".	'Configuration source file does not exist "'."\\\n\t\t".
'echo -n "'.$sourceroot.'/'.$source.'"'."\\\n\t\t".	'&& echo -n "'.$sourceroot.'/'.$source.'"'."\\\n\t\t".
"$logcmd); } && "."\\\n\t\t".	"$logcmd); } && "."\\\n\t\t".
"perl verifymodown.pl ${targetroot}/${target} "."\\\n\t\t\t".	"perl verifymodown.pl ${targetroot}/${target} "."\\\n\t\t\t".
"\"$categoryhash{$categoryname}\""."\\\n\t\t\t".	"\"$categoryhash{$categoryname}\""."\\\n\t\t\t".

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

Removed from v.1.49
changed lines
	Added in v.1.51