loncom/build/lpml_html_posteval.pl - diff

Return to lpml_html_posteval.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.3, 2001/12/07 04:44:48	version 1.4, 2001/12/15 20:20:11
Line 34	Line 34

use strict;	use strict;

	my %chash;
while(<>) {	while(<>) {
my $line=$_;	my $line=$_;
my $arguments='';	my $arguments='';
if ($line=~/\<\!\-\- POSTEVAL (.*?) \-\-\>/) {	my $category='';
$arguments=$1;	if ($line=~/\<\!\-\- POSTEVAL \[(.+)\] (.*?) \-\-\>/) {
	$category=$1;
	$arguments=$2;
}	}
if ($arguments=~/^verify\.pl /) {	if ($arguments=~/^verify\.pl /) {
my @values=`perl $arguments`;	my @values=`perl $arguments`;
my $ret=join('',@values);	my $ret=join('',@values);
$ret='good' unless $ret;	unless ($ret) {
$line=~s/<\!\-\- POSTEVAL .*? \-\-\>/$ret/;	$ret='correct';
	}
	else {
	$chash{$category}++;
	$ret="<font color='#ff0000'><b>$ret</b></font>";
	}
	$line=~s/\<\!\-\- POSTEVAL .*? \-\-\>/$ret/;
}	}
elsif ($arguments=~/^byteandlinecount/) {	elsif ($arguments=~/^byteandlinecount/) {

}	}
	if ($line=~/\<\!\-\- POSTEVALINLINE (.*?) \-\-\>/) {
	my $count=$chash{$1}+0;
	$line=~s/<\!\-\- POSTEVALINLINE .*? \-\-\>/$count/;
	}
print $line;	print $line;
}	}