Return to lpml_html_posteval.pl CVS log

Up to [LON-CAPA] / loncom / build

file for lpml postevaluation

#!/usr/bin/perl

use strict;

while(<>) {
    my $line=$_;
    my $arguments='';
    if (/\<\!\-\- POSTEVAL2 (.*?) \-\-\>/) {
	$arguments=$1;
    }
    if ($arguments=~/^verify\.pl fileglob/) {
	print "perl $arguments\n";
    }
}