--- loncom/build/lpml_parse.pl	2001/12/06 00:22:53	1.27
+++ loncom/build/lpml_parse.pl	2001/12/06 23:14:33	1.28
@@ -1,14 +1,42 @@
 #!/usr/bin/perl
 
-# Scott Harrison
+# The LearningOnline Network with CAPA
+# lpml_parse.pl - Linux Packaging Markup Language parser
+#
+# $Id: lpml_parse.pl,v 1.28 2001/12/06 23:14:33 harris41 Exp $
+#
+# Written by Scott Harrison, harris41@msu.edu
+#
+# Copyright Michigan State University Board of Trustees
+#
+# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+#
+# LON-CAPA is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# LON-CAPA is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with LON-CAPA; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+#
+# /home/httpd/html/adm/gpl.txt
+#
+# http://www.lon-capa.org/
+#
 # YEAR=2001
 # May 2001
 # 06/19/2001,06/20,06/24 - Scott Harrison
 # 9/5/2001,9/6,9/7,9/8 - Scott Harrison
 # 9/17,9/18 - Scott Harrison
 # 11/4,11/5,11/6,11/7,11/16,11/17 - Scott Harrison
-# 12/2,12/3,12/4,12/5 - Scott Harrison
-# $Id: lpml_parse.pl,v 1.27 2001/12/06 00:22:53 harris41 Exp $
+# 12/2,12/3,12/4,12/5,12/6 - Scott Harrison
+#
 ###
 
 ###############################################################################
@@ -371,8 +399,8 @@ END
 <font size='+2'>About this file</font>
 <p>
 This file is generated dynamically by <tt>lpml_parse.pl</tt> as
-part of a development compilation process.  Author: Scott
-Harrison (harris41\@msu.edu).
+part of a development compilation process.</p>
+<p>LPML written by Scott Harrison (harris41\@msu.edu).
 </p>
 END
     }
@@ -791,9 +819,10 @@ sub format_directory {
 	$dpathlength=$d if $d>$dpathlength;
 	my $thtml=$targetdir;
 	$thtml=~s/\//\<\/td\>\<td bgcolor='#ffffff'\>/g;
+	my ($chmod,$chown)=split(/\s/,$categoryhash{$categoryname});
 	return $directory="\n<tr><td rowspan='2' bgcolor='#ffffff'>".
 	    "$categoryname</td>".
-	    "<td rowspan='2' bgcolor='#ffffff'><!-- POSTEVAL: -->&nbsp;</td>".
+	    "<td rowspan='2' bgcolor='#ffffff'><!-- POSTEVAL2 verify.pl directory /$targetdir $categoryhash{$categoryname} -->&nbsp;</td>".
 	    "<td rowspan='2' bgcolor='#ffffff'>$chmod<br />$chown</td>".
 	    "<td bgcolor='#ffffff'>$thtml</td></tr>".
 	    "<tr><td bgcolor='#ffffff' colspan='[{{{{{DPATHLENGTH}}}}}]'>".
@@ -958,7 +987,10 @@ sub format_file {
 	if ($mode eq 'html') {
 	    return ($file="\n<!-- FILESORT:$target -->".
 		    "<tr>".
-		    "<td><!-- POSTEVAL -->&nbsp;</td><td>".
+		    "<td><!-- POSTEVAL2 verify.pl file '$sourcerootarg' ".
+		    "'$targetrootarg' ".
+		    "'$source' '$target' ".
+		    "$categoryhash{$categoryname} -->&nbsp;</td><td>".
 		    "<img src='$fab{$categoryname}.gif' ".
 		    "alt='$categoryname icon' /></td>".
 		    "<td>$categoryname<br /><font size='-1'>".
@@ -1083,7 +1115,9 @@ sub format_link {
 	    foreach my $tgt (@targets) {
 		push @links,("\n<!-- FILESORT:$tgt -->".
 		    "<tr>".
-		    "<td><!-- POSTEVAL -->&nbsp;</td><td>".
+		    "<td><!-- POSTEVAL2 verify.pl link ".
+		    "'/$targetrootarg$linkto' '/$targetrootarg$tgt' ".
+		    "$categoryhash{$categoryname} -->&nbsp;</td><td>".
 		    "<img src='$fab{$categoryname}.gif' ".
 		    "alt='$categoryname icon' /></td>".
 		    "<td><font size='-1'>$categoryname</font></td>".