## ## wml::fmt::parsewiki - Parsewiki Format ## LEG22092004, cloned from: ## wml::fmt::pod - Plain Old Document (POD) Format ## Copyright (c) 1997-2001 Ralf S. Engelschall, All Rights Reserved. ## # The / tags with multiple arguments require WML 2.0.3 #use wml::mod::version #use wml::std::tags <: # the conversion function sub wml_fmt_parsewiki { my ($arg) = @_; my ($buf); local (*FP); # read the txt2html result open(FP, "parsewiki" . " $arg->{FILE}|"); local ($/) = undef; $buf = ; close(FP); # cut out the body $buf =~ s|^.*||is; $buf =~ s|.*$||is; return $buf; } :> { my $tmpfile = "$(WML_TMPDIR)/wml.parsewiki.$$.tmp"; my $buf; %body # there is no reason to nest tags, so the # statement is unnecessary open(PW, ">$tmpfile"); print PW $buf; close(PW); $tmpfile,})" /> unlink($tmpfile); } ##EOF##