Return to lpml_html_posteval.pl CVS log

Up to [LON-CAPA] / loncom / build

file for lpml postevaluation

    1: #!/usr/bin/perl
    2: 
    3: use strict;
    4: 
    5: while(<>) {
    6:     my $line=$_;
    7:     my $arguments='';
    8:     if (/\<\!\-\- POSTEVAL2 (.*?) \-\-\>/) {
    9: 	$arguments=$1;
   10:     }
   11:     if ($arguments=~/^verify\.pl fileglob/) {
   12: 	print "perl $arguments\n";
   13:     }
   14: }