some initial instructions for publishing wikis on github

[git.ikiwiki.info.git] / IkiWiki / Plugin / htmlbalance.pm

diff --git a/IkiWiki/Plugin/htmlbalance.pm b/IkiWiki/Plugin/htmlbalance.pm
index 8f43d5daca4fa5b9561560f039eba1d1f5f22bcd..acbe40a5d6ea9f3e071c9e9199c677e1cbdbf6b7 100644 (file)
--- a/IkiWiki/Plugin/htmlbalance.pm
+++ b/IkiWiki/Plugin/htmlbalance.pm
@@ -11,26 +11,34 @@ use warnings;
 use strict;
 use IkiWiki 2.00;
 use HTML::TreeBuilder;
 use strict;
 use IkiWiki 2.00;
 use HTML::TreeBuilder;

-use XML::Atom::Util qw(encode_xml);
+use HTML::Entities;

 
 

-sub import { #{{{
+sub import {

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

-} # }}}
+}

 
 

-sub getsetup () { #{{{
+sub getsetup () {

        return
                plugin => {
                        safe => 1,
                        rebuild => undef,
                },
        return
                plugin => {
                        safe => 1,
                        rebuild => undef,
                },

-} #}}}
+}

 
 

-sub sanitize (@) { #{{{
+sub sanitize (@) {

        my %params=@_;
        my $ret = '';
 
        my %params=@_;
        my $ret = '';
 

-       my $tree = HTML::TreeBuilder->new_from_content($params{content});
+       my $tree = HTML::TreeBuilder->new();
+       $tree->ignore_unknown(0);
+       $tree->ignore_ignorable_whitespace(0);
+       $tree->no_space_compacting(1);
+       $tree->p_strict(1);
+       $tree->store_comments(0);
+       $tree->store_declarations(0);
+       $tree->store_pis(0);
+       $tree->parse_content($params{content});

        my @nodes = $tree->disembowel();
        foreach my $node (@nodes) {
                if (ref $node) {
        my @nodes = $tree->disembowel();
        foreach my $node (@nodes) {
                if (ref $node) {


@@ -39,11 +47,11 @@ sub sanitize (@) { #{{{
                        $node->delete();
                }
                else {
                        $node->delete();
                }
                else {

-                       $ret .= encode_xml($node);
+                       $ret .= encode_entities($node);

                }
        }
        $tree->delete();
        return $ret;
                }
        }
        $tree->delete();
        return $ret;

-} # }}}
+}

 
 1
 
 1