--- loncom/build/lpml_parse.pl 2002/04/13 19:29:32 1.45 +++ loncom/build/lpml_parse.pl 2002/05/23 19:24:33 1.50 @@ -12,7 +12,7 @@ # The LearningOnline Network with CAPA # lpml_parse.pl - Linux Packaging Markup Language parser # -# $Id: lpml_parse.pl,v 1.45 2002/04/13 19:29:32 harris41 Exp $ +# $Id: lpml_parse.pl,v 1.50 2002/05/23 19:24:33 harris41 Exp $ # # Written by Scott Harrison, codeharrison@yahoo.com # @@ -1056,7 +1056,10 @@ sub format_description { sub format_files { my $text=$parser->get_text('/files'); $parser->get_tag('/files'); - if ($mode eq 'html') { + if ($mode eq 'MANIFEST') { + return $text; + } + elsif ($mode eq 'html') { return $directories="\n
 
". "". "Files
 
". @@ -1174,7 +1177,21 @@ sub format_file { $categorycount{$categoryname}++; if ($source) { $parser->get_tag('/file'); - if ($mode eq 'html') { + if ($mode eq 'MANIFEST') { + my $command=$build; + if ($command!~/\s/) { + $command=~s/\/([^\/]*)$//; + } + else { + $command=~s/(.*?\/)([^\/]+\s+.*)$/$1/; + } + $command=~s/^$sourceroot\///; + my (@deps)=split(/\;/,$dependencies); + my $retval=join("\n",($source, + (map {"$command$_"} @deps))); + return $retval."\n"; + } + elsif ($mode eq 'html') { return ($file="\n". "". "