[LON-CAPA-cvs] cvs: modules /gerd/python convert.pl

[www]

www		Thu Feb  9 01:47:38 2012 EDT

  Added files:                 
    /modules/gerd/python	convert.pl 
  Log:
  Work on converter
  
  

Index: modules/gerd/python/convert.pl
+++ modules/gerd/python/convert.pl
use strict;
my $filename=shift;
open(IN,$filename) or die "No such problem $filename\n";
my $input=join('',<IN>);
close(IN);
$input=~s/\{\% processor/\n\{\% processor/gs;
$input=~s/\"\"\"\"\"\"/\"\"\"\n\"\"\"/gs;
my @lines=split(/\n/,$input);

my $output="<problem>\n<startouttext />\n";
my $mode='outtext';
foreach my $line (@lines) {
   if ($mode eq 'outtext') {
      $line=~s/<br>/<br \/>\n/gs;
      $line=~s/\{\% math eq=\"([^\"]+)\".*\}/ <m>\$$1\$<\/m>/gs;
      $output.=$line."\n";
   }
}
$output.="</problem>\n";
print $output;