loncom/build/lpml_html_posteval.pl - diff

Return to lpml_html_posteval.pl CVS log

Up to [LON-CAPA] / loncom / build

version 1.2, 2001/12/06 23:14:33	version 1.3, 2001/12/07 04:44:48
Line 37 use strict;	Line 37 use strict;
while(<>) {	while(<>) {
my $line=$_;	my $line=$_;
my $arguments='';	my $arguments='';
if ($line=~/\<\!\-\- POSTEVAL2 (.*?) \-\-\>/) {	if ($line=~/\<\!\-\- POSTEVAL (.*?) \-\-\>/) {
$arguments=$1;	$arguments=$1;
}	}
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;	$ret='good' unless $ret;
$line=~s/<\!\-\- POSTEVAL2 .*? \-\-\>/$ret/;	$line=~s/<\!\-\- POSTEVAL .*? \-\-\>/$ret/;
	}
	elsif ($arguments=~/^byteandlinecount/) {

}	}
print $line;	print $line;
}	}