3 if(/\[CALLPERL .*left\]/ ... /\[CALLPERL end\]/) {
4 $code .= $_ if(!/CALLPERL/);
5 $name = $1 if(/.flash.*name=([^&][^ ]*)/);
6 $name = $1 if(/.flash.*name="([^&]*)"/);
9 elsif(/\[CALLPERL .*right\]/ ... /\[CALLPERL end\]/) {
10 $highlight .= $_ if(!/CALLPERL/);
13 $code =~ s/"/"/g;
15 # print stderr "Warning: ttf->swf\n" if($code =~ s/Arial.ttf/Arial.swf/g);
17 open(fi, ">tmp.sc");print fi $code;close(fi);
18 print stderr "swfc tmp.sc ($name)\n";
19 system("../src/swfc tmp.sc >&2");
20 ($embed = `swfdump -e $name`) =~ /WIDTH="([^"]*)"/;
21 system("cp $name data");
23 print "<td bgcolor=\"#ffffff\" width=\"$width\">";
30 elsif ($highlight ne "") {
31 $highlight =~ s/^\n\s*//g;
32 $highlight =~ s/\s*\n$//g;
34 # todo: apply syntax highlighting.
35 print $highlight."\n";