--- loncom/build/lpml_parse.pl 2001/12/13 23:41:26 1.31 +++ loncom/build/lpml_parse.pl 2001/12/29 18:52:08 1.34 @@ -3,7 +3,7 @@ # The LearningOnline Network with CAPA # lpml_parse.pl - Linux Packaging Markup Language parser # -# $Id: lpml_parse.pl,v 1.31 2001/12/13 23:41:26 harris41 Exp $ +# $Id: lpml_parse.pl,v 1.34 2001/12/29 18:52:08 harris41 Exp $ # # Written by Scott Harrison, harris41@msu.edu # @@ -401,9 +401,12 @@ sub end { "". "". "". + "". + "". join("\n",(map {"". - ""} + "". + ""} @categorynamelist)). "
File Category Count
IconNameNumber of OccurrencesNumber of Incorrect Counts
$_$categorycount{$_}
$_$categorycount{$_}
". "\n"; @@ -889,7 +892,7 @@ sub format_directory { my ($chmod,$chown)=split(/\s/,$categoryhash{$categoryname}); return $directory="\n". "$categoryname". - " ". + " ". "$chmod
$chown". "$thtml". "". @@ -982,8 +985,14 @@ sub format_files { foreach my $bi (@buildinfo) { my ($target,$source,$command,$trigger,@deps)=split(/\;/,$bi); $tword=''; $tword=' alwaysrun' if $trigger eq 'always run'; - $command=~s/\/([^\/]*)$//; - $command2="cd $command; sh ./$1;\\"; + if ($command!~/\s/) { + $command=~s/\/([^\/]*)$//; + $command2="cd $command; sh ./$1;\\"; + } + else { + $command=~s/(.*?\/)([^\/]+\s+.*)$/$1/; + $command2="cd $command; sh ./$2;\\"; + } my $depstring; my $depstring2="\t\t\@echo '';\\\n"; my $olddep; @@ -1063,7 +1072,7 @@ sub format_file { if ($mode eq 'html') { return ($file="\n". "". - " ". @@ -1092,10 +1101,10 @@ sub format_file { foreach my $dep (@deps) { $depstring.=<". "". - " ". "get_tag('/fileglob'); if ($mode eq 'html') { return $fileglob="\n". - " ".