security « doc - ikiwiki-upstream - Unnamed repository; edit this file to name it for gitweb.

Mode	Name	Size
-rw-r--r--	discussion.mdwn	1374	log plain

id="n_5" class="hl"># It is particularly useful when the html plugin is used.

# by Faidon Liambotis

package IkiWiki::Plugin::htmltidy;

use warnings;

use strict;

use IkiWiki 2.00;

use IPC::Open2;

sub import { #{{{

    hook(type => "sanitize", id => "tidy", call => \&sanitize);

} # }}}

sub sanitize (@) { #{{{

    my %params=@_;

    my $pid;

    my $sigpipe=0;

    $SIG{PIPE}=sub { $sigpipe=1 };

    $pid=open2(*IN, *OUT, 'tidy -quiet -asxhtml -utf8 --show-body-only yes --show-warnings no --tidy-mark no --markup yes');

# open2 doesn't respect "use open ':utf8'"

    binmode (IN, ':utf8');

    binmode (OUT, ':utf8'); 

    print OUT $params{content};

close OUT;

    local $/ = undef;

    my $ret=<IN>;

close IN;

    waitpid $pid, 0;

    $SIG{PIPE}="DEFAULT";

    return $params{content} if $sigpipe;

    return $ret;

} # }}}