Return to lpml_html_posteval.pl CVS log

Up to [LON-CAPA] / loncom / build

Annotation of loncom/build/lpml_html_posteval.pl, revision 1.1

1.1     ! harris41    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: }