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.29 and 1.32

version 1.29, 2001/12/07 04:45:16	version 1.32, 2001/12/15 20:20:11
Line 35	Line 35
# 9/5/2001,9/6,9/7,9/8 - Scott Harrison	# 9/5/2001,9/6,9/7,9/8 - Scott Harrison
# 9/17,9/18 - Scott Harrison	# 9/17,9/18 - Scott Harrison
# 11/4,11/5,11/6,11/7,11/16,11/17 - Scott Harrison	# 11/4,11/5,11/6,11/7,11/16,11/17 - Scott Harrison
# 12/2,12/3,12/4,12/5,12/6 - Scott Harrison	# 12/2,12/3,12/4,12/5,12/6,12/13 - Scott Harrison
#	#
###	###

Line 298 $parser->xml_mode('1');	Line 298 $parser->xml_mode('1');
# Define handling methods for mode-dependent text rendering	# Define handling methods for mode-dependent text rendering

$parser->{textify}={	$parser->{textify}={
	specialnotices => \&format_specialnotices,
	specialnotice => \&format_specialnotice,
targetroot => \&format_targetroot,	targetroot => \&format_targetroot,
sourceroot => \&format_sourceroot,	sourceroot => \&format_sourceroot,
categories => \&format_categories,	categories => \&format_categories,
Line 399 sub end {	Line 401 sub end {
"<table border='1' cellpadding='5'>".	"<table border='1' cellpadding='5'>".
"<caption>File Category Count</caption>".	"<caption>File Category Count</caption>".
"<tr><th>Icon</th><th>Name</th><th>Number of Occurrences</th>".	"<tr><th>Icon</th><th>Name</th><th>Number of Occurrences</th>".
	"<th>Number of Incorrect Counts</th>".
	"</tr>".
join("\n",(map {"<tr><td><img src='$fab{$_}.gif' ".	join("\n",(map {"<tr><td><img src='$fab{$_}.gif' ".
"alt='$_ icon' /></td>".	"alt='$_ icon' /></td>".
"<td>$_</td><td>$categorycount{$_}</td></tr>"}	"<td>$_</td><td>$categorycount{$_}</td>".
	"<td><!-- POSTEVALINLINE $_ --></td></tr>"}
@categorynamelist)).	@categorynamelist)).
"</table>".	"</table>".
"</body></html>\n";	"</body></html>\n";
Line 887 sub format_directory {	Line 892 sub format_directory {
my ($chmod,$chown)=split(/\s/,$categoryhash{$categoryname});	my ($chmod,$chown)=split(/\s/,$categoryhash{$categoryname});
return $directory="\n<tr><td rowspan='2' bgcolor='#ffffff'>".	return $directory="\n<tr><td rowspan='2' bgcolor='#ffffff'>".
"$categoryname</td>".	"$categoryname</td>".
"<td rowspan='2' bgcolor='#ffffff'><!-- POSTEVAL verify.pl directory /$targetdir $categoryhash{$categoryname} --> </td>".	"<td rowspan='2' bgcolor='#ffffff'><!-- POSTEVAL [$categoryname] verify.pl directory /$targetdir $categoryhash{$categoryname} --> </td>".
"<td rowspan='2' bgcolor='#ffffff'>$chmod<br />$chown</td>".	"<td rowspan='2' bgcolor='#ffffff'>$chmod<br />$chown</td>".
"<td bgcolor='#ffffff'>$thtml</td></tr>".	"<td bgcolor='#ffffff'>$thtml</td></tr>".
"<tr><td bgcolor='#ffffff' colspan='[{{{{{DPATHLENGTH}}}}}]'>".	"<tr><td bgcolor='#ffffff' colspan='[{{{{{DPATHLENGTH}}}}}]'>".
Line 1061 sub format_file {	Line 1066 sub format_file {
if ($mode eq 'html') {	if ($mode eq 'html') {
return ($file="\n<!-- FILESORT:$target -->".	return ($file="\n<!-- FILESORT:$target -->".
"<tr>".	"<tr>".
"<td><!-- POSTEVAL verify.pl file '$sourcerootarg' ".	"<td><!-- POSTEVAL [$categoryname] verify.pl file '$sourcerootarg' ".
"'$targetrootarg' ".	"'$targetrootarg' ".
"'$source' '$target' ".	"'$source' '$target' ".
"$categoryhash{$categoryname} --> </td><td>".	"$categoryhash{$categoryname} --> </td><td>".
Line 1192 sub format_link {	Line 1197 sub format_link {
$categorycount{$categoryname}++;	$categorycount{$categoryname}++;
push @links,("\n<!-- FILESORT:$tgt -->".	push @links,("\n<!-- FILESORT:$tgt -->".
"<tr>".	"<tr>".
"<td><!-- POSTEVAL verify.pl link ".	"<td><!-- POSTEVAL [$categoryname] verify.pl link ".
"'/$targetrootarg$linkto' '/$targetrootarg$tgt' ".	"'/$targetrootarg$linkto' '/$targetrootarg$tgt' ".
"$categoryhash{$categoryname} --> </td><td>".	"$categoryhash{$categoryname} --> </td><td>".
"<img src='$fab{$categoryname}.gif' ".	"<img src='$fab{$categoryname}.gif' ".
Line 1263 sub format_fileglob {	Line 1268 sub format_fileglob {
$parser->get_tag('/fileglob');	$parser->get_tag('/fileglob');
if ($mode eq 'html') {	if ($mode eq 'html') {
return $fileglob="\n<tr>".	return $fileglob="\n<tr>".
"<td><!-- POSTEVAL verify.pl fileglob '$sourcerootarg' ".	"<td><!-- POSTEVAL [$categoryname] verify.pl fileglob '$sourcerootarg' ".
"'$targetrootarg' ".	"'$targetrootarg' ".
"'$glob' '$sourcedir' '$filenames2' '$targetdir' ".	"'$glob' '$sourcedir' '$filenames2' '$targetdir' ".
"$categoryhash{$categoryname} --> </td>".	"$categoryhash{$categoryname} --> </td>".
Line 1285 sub format_fileglob {	Line 1290 sub format_fileglob {
# "\nEND FILEGLOB</td></tr>";	# "\nEND FILEGLOB</td></tr>";
}	}
elsif ($mode eq 'install') {	elsif ($mode eq 'install') {
	my $eglob=$glob;
	if ($glob eq '*') {
	$eglob='[^C][^V][^S]'.$glob;
	}
return "\t".'install '.	return "\t".'install '.
$categoryhash{$categoryname}.' '.	$categoryhash{$categoryname}.' '.
$sourceroot.'/'.$sourcedir.'[^C][^V][^S]'.$glob.' '.	$sourceroot.'/'.$sourcedir.$eglob.' '.
$targetroot.'/'.$targetdir.'.'."\n";	$targetroot.'/'.$targetdir.'.'."\n";
}	}
else {	else {
Line 1423 sub format_filenames {	Line 1432 sub format_filenames {
}	}
return '';	return '';
}	}
	# ------------------------------------------------ Format specialnotice section
	sub format_specialnotices {
	$parser->get_tag('/specialnotices');
	return '';
	}
	# ------------------------------------------------ Format specialnotice section
	sub format_specialnotice {
	$parser->get_tag('/specialnotice');
	return '';
	}
# ------------------------------------------------------- Format linkto section	# ------------------------------------------------------- Format linkto section
sub format_linkto {	sub format_linkto {
my @tokeninfo=@_;	my @tokeninfo=@_;

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

Removed from v.1.29
changed lines
	Added in v.1.32