|
version 1.4, 2002/02/05 01:29:22
|
version 1.5, 2002/02/05 01:49:39
|
|
Line 325 sub format_targetroot {
|
Line 325 sub format_targetroot {
|
| # -------------------------------------------------- Format perl script section |
# -------------------------------------------------- Format perl script section |
| sub format_perlscript { |
sub format_perlscript { |
| my (@tokeninfo)=@_; |
my (@tokeninfo)=@_; |
| $mode=$tokeninfo->[2]{'mode'}; |
$mode=$tokeninfo[2]->{'mode'}; |
| my $text=$parser->get_text('/perlscript'); |
my $text=$parser->get_text('/perlscript'); |
| $parser->get_tag('/perlscript'); |
$parser->get_tag('/perlscript'); |
| return $text; |
if ($mode eq 'bg') { |
| |
open OUT,">/tmp/piml$$.pl"; |
| |
print OUT $text; |
| |
close OUT; |
| |
return <<END; |
| |
# launch background process for $target |
| |
system("perl /tmp/piml$$.pl &"); |
| |
END |
| |
} |
| |
else { |
| |
return $text; |
| |
} |
| } |
} |
| # --------------------------------------------------------------- Format TARGET |
# --------------------------------------------------------------- Format TARGET |
| sub format_TARGET { |
sub format_TARGET { |
![[BACK]](/icons/back.gif){kind=icon}
Return to piml_parse.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / build