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"; } }