HTML-WikiConverter-MoinMoin-0.54/0000755000076500000240000000000011107757236016036 5ustar diberristaffHTML-WikiConverter-MoinMoin-0.54/Changes0000644000076500000240000000122611107756652017333 0ustar diberristaff# Change log for HTML::WikiConverter::MoinMoin version: 0.54 date: 2008-10-16 changes: - (bug #40114) fix '=' counts in section headings - (bug #29347) support anchors with content - require H::WC 0.63, latest version: 0.53 date: 2006-07-20 changes: - add attribute types - require Params::Validate - require HTML::WikiConverter 0.60 version: 0.52 date: 2006-07-07 changes: - (bug #17813) implement anchors version: 0.51 date: 2006-03-21 changes: - (bug #18083) fix tests that used 'strip_comments' attribute, which no longer exists version: 0.50 date: 2006-01-10 changes: - branched from main HTML::WikiConverter codebase. HTML-WikiConverter-MoinMoin-0.54/lib/0000755000076500000240000000000011107757236016604 5ustar diberristaffHTML-WikiConverter-MoinMoin-0.54/lib/HTML/0000755000076500000240000000000011107757236017350 5ustar diberristaffHTML-WikiConverter-MoinMoin-0.54/lib/HTML/WikiConverter/0000755000076500000240000000000011107757236022143 5ustar diberristaffHTML-WikiConverter-MoinMoin-0.54/lib/HTML/WikiConverter/MoinMoin.pm0000644000076500000240000001676411107757066024245 0ustar diberristaffpackage HTML::WikiConverter::MoinMoin; use warnings; use strict; use base 'HTML::WikiConverter'; our $VERSION = '0.54'; use Params::Validate ':types'; use URI; =head1 NAME HTML::WikiConverter::MoinMoin - Convert HTML to MoinMoin markup =head1 SYNOPSIS use HTML::WikiConverter; my $wc = new HTML::WikiConverter( dialect => 'MoinMoin' ); print $wc->html2wiki( $html ); =head1 DESCRIPTION This module contains rules for converting HTML into MoinMoin markup. See L for additional usage details. =cut sub rules { my %rules = ( p => { block => 1, trim => 'both', line_format => 'multi' }, pre => { block => 1, start => "{{{\n", end => "\n}}}" }, i => { start => "''", end => "''", line_format => 'single' }, em => { alias => 'i' }, b => { start => "'''", end => "'''", line_format => 'single' }, strong => { alias => 'b' }, u => { start => '__', end => '__', line_format => 'single' }, sup => { start => '^', end => '^', line_format => 'single' }, sub => { start => ',,', end => ',,', line_format => 'single' }, code => { start => '`', end => '`', line_format => 'single' }, tt => { alias => 'code' }, small => { start => '~-', end => '-~', line_format => 'single' }, big => { start => '~+', end => '+~', line_format => 'single' }, a => { replace => \&_link }, img => { replace => \&_image }, ul => { line_format => 'multi', block => 1, line_prefix => ' ' }, ol => { alias => 'ul' }, li => { start => \&_li_start, trim => 'leading' }, dl => { line_format => 'multi' }, dt => { trim => 'both', end => ':: ' }, dd => { trim => 'both' }, hr => { replace => "\n----\n" }, br => { replace => '[[BR]]' }, table => { block => 1, line_format => 'multi' }, tr => { end => "||\n", line_format => 'single' }, td => { start => \&_td_start, end => ' ', trim => 'both' }, th => { alias => 'td' }, # (bug #40114) http://moinmo.in/HelpOnHeadlines h1 => { start => '= ', end => ' =', block => 1, trim => 'both', line_format => 'single' }, h2 => { start => '== ', end => ' ==', block => 1, trim => 'both', line_format => 'single' }, h3 => { start => '=== ', end => ' ===', block => 1, trim => 'both', line_format => 'single' }, h4 => { start => '==== ', end => ' ====', block => 1, trim => 'both', line_format => 'single' }, h5 => { start => '===== ', end => ' =====', block => 1, trim => 'both', line_format => 'single' }, h6 => { start => '====== ', end => ' ======', block => 1, trim => 'both', line_format => 'single' }, ); return \%rules; } =head1 ATTRIBUTES In addition to the regular set of attributes recognized by the L constructor, this dialect also accepts the following attributes that can be passed into the C constructor. See L for usage details. =head2 enable_anchor_macro Possible values: C<0>, C<1>. Enables C<[[Anchor(s)]]> formatting. See L for details. =cut sub attributes { { enable_anchor_macro => { default => 0, type => BOOLEAN } } } my %att2prop = ( width => 'width', bgcolor => 'background-color', ); sub _td_start { my( $self, $td, $rules ) = @_; my $prefix = '||'; my @style = ( ); push @style, '|'.$td->attr('rowspan') if $td->attr('rowspan'); push @style, '-'.$td->attr('colspan') if $td->attr('colspan'); # If we're the first td in the table, then include table settings if( ! $td->parent->left && ! $td->left ) { my $table = $td->look_up( _tag => 'table' ); my $attstr = _attrs2style( $table, qw/ width bgcolor / ); push @style, "tablestyle=\"$attstr\"" if $attstr; } # If we're the first td in this tr, then include tr settings if( ! $td->left ) { my $attstr = $td->parent->attr('style'); push @style, "rowstyle=\"$attstr\"" if $attstr; } # Include td settings my $attstr = join ' ', map { "$_=\"".$td->attr($_)."\"" } grep $td->attr($_), qw/ id class style /; push @style, $attstr if $attstr; my $opts = @style ? '<'.join(' ',@style).'>' : ''; return $prefix.$opts.' '; } sub _attrs2style { my( $node, @attrs ) = @_; return unless $node; my %attrs = map { $_ => $node->attr($_) } grep $node->attr($_), @attrs; my $attstr = join '; ', map "$att2prop{$_}:$attrs{$_}", keys %attrs; return $attstr || ''; } sub _li_start { my( $self, $node, $rules ) = @_; my $bullet = ''; $bullet = '*' if $node->parent->tag eq 'ul'; $bullet = '1.' if $node->parent->tag eq 'ol'; return "\n$bullet "; } sub _link { my( $self, $node, $rules ) = @_; # bug #17813 requests anchors; MoinMoin:HelpOnMacros gives new # "<>" syntax for anchors and other macros (this was # previously "[[Anchor(name)]]" sometime prior to 2008-10-01) # bug #29347 requests 'id' be favored over 'name' my $anchor_name = $node->attr('id') || $node->attr('name'); return sprintf( "<>\n", $anchor_name ) if $self->enable_anchor_macro and $anchor_name; my $url = $node->attr('href') || ''; my $text = $self->get_elem_contents($node) || ''; # bug #17813 if( $self->_abs2rel($url) =~ /^#/ ) { $url = $self->_abs2rel($url); } return $url if $url eq $text; return "[[$url|$text]]"; } sub _abs2rel { my( $self, $uri ) = @_; return $uri unless $self->base_uri; return URI->new($uri)->rel($self->base_uri)->as_string; } sub _image { my( $self, $node, $rules ) = @_; return $node->attr('src') || ''; } sub preprocess_node { my( $self, $node ) = @_; my $tag = $node->tag || ''; $self->caption2para($node) if $tag eq 'caption'; # Find something like and content here if( $node->tag eq 'a' and ( $node->attr('name') or $node->attr('id') ) and !$node->attr('href') and $self->get_elem_contents($node) ) { my $anchor_name = $node->attr('id') || $node->attr('name'); $node->preinsert( new HTML::Element('a', name => $anchor_name) ); $node->replace_with_content->delete(); } } my @protocols = qw( http https mailto ); my $urls = '(' . join('|', @protocols) . ')'; my $ltrs = '\w'; my $gunk = '\/\#\~\:\.\?\+\=\&\%\@\!\-'; my $punc = '\.\:\?\-\{\(\)\}'; my $any = "${ltrs}${gunk}${punc}"; my $url_re = "\\b($urls:\[$any\]+?)(?=\[$punc\]*\[^$any\])"; sub postprocess_output { my( $self, $outref ) = @_; $$outref =~ s/($url_re)\[\[BR\]\]/$1 [[BR]]/go; } =head1 AUTHOR David J. Iberri, C<< >> =head1 BUGS Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes. =head1 SUPPORT You can find documentation for this module with the perldoc command. perldoc HTML::WikiConverter::MoinMoin You can also look for information at: =over 4 =item * AnnoCPAN: Annotated CPAN documentation L =item * CPAN Ratings L =item * RT: CPAN's request tracker L =item * Search CPAN L =back =head1 COPYRIGHT & LICENSE Copyright (c) David J. Iberri, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; HTML-WikiConverter-MoinMoin-0.54/Makefile.PL0000644000076500000240000000125111107756637020013 0ustar diberristaffuse strict; use warnings; use ExtUtils::MakeMaker; WriteMakefile( NAME => 'HTML::WikiConverter::MoinMoin', AUTHOR => 'David J. Iberri ', LICENSE => 'perl', VERSION_FROM => 'lib/HTML/WikiConverter/MoinMoin.pm', ABSTRACT_FROM => 'lib/HTML/WikiConverter/MoinMoin.pm', PL_FILES => {}, PREREQ_PM => { 'Test::More' => 0, 'HTML::WikiConverter' => 0.63, 'Params::Validate' => 0, 'URI' => 0, }, dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', }, clean => { FILES => 'HTML-WikiConverter-MoinMoin-*' }, ); HTML-WikiConverter-MoinMoin-0.54/MANIFEST0000644000076500000240000000030110361006611017142 0ustar diberristaffChanges MANIFEST META.yml # Will be created by "make dist" Makefile.PL README lib/HTML/WikiConverter/MoinMoin.pm t/00-load.t t/boilerplate.t t/moinmoin.t t/pod-coverage.t t/pod.t t/runtests.pl HTML-WikiConverter-MoinMoin-0.54/META.yml0000644000076500000240000000115011107757236017304 0ustar diberristaff--- #YAML:1.0 name: HTML-WikiConverter-MoinMoin version: 0.54 abstract: Convert HTML to MoinMoin markup author: - David J. Iberri license: perl distribution_type: module configure_requires: ExtUtils::MakeMaker: 0 requires: HTML::WikiConverter: 0.63 Params::Validate: 0 Test::More: 0 URI: 0 no_index: directory: - t - inc generated_by: ExtUtils::MakeMaker version 6.48 meta-spec: url: http://module-build.sourceforge.net/META-spec-v1.4.html version: 1.4 HTML-WikiConverter-MoinMoin-0.54/README0000644000076500000240000000241311107757115016712 0ustar diberristaffHTML::WikiConverter::MoinMoin ============================= HTML::WikiConverter::MoinMoin adds the MoinMoin dialect to HTML::WikiConverter allowing the conversion of HTML to MoinMoin markup. SYNOPSIS Converting HTML to wiki markup is easy: use HTML::WikiConverter; my $wc = new HTML::WikiConverter( dialect => 'MoinMoin' ); print $wc->html2wiki( $html ); Or from the command line: % html2wiki --dialect MoinMoin input.html > output.wiki There's also a web interface if you're so inclined: http://diberri.dyndns.org/wikipedia/html2wiki/ SUPPORT AND DOCUMENTATION After installing, you can find documentation for this module with the perldoc command. perldoc HTML::WikiConverter::MoinMoin You can also look for information at: Search CPAN http://search.cpan.org/dist/HTML-WikiConverter-MoinMoin CPAN Request Tracker: http://rt.cpan.org/NoAuth/Bugs.html?Dist=HTML-WikiConverter-MoinMoin AnnoCPAN, annotated CPAN documentation: http://annocpan.org/dist/HTML-WikiConverter-MoinMoin CPAN Ratings: http://cpanratings.perl.org/d/HTML-WikiConverter-MoinMoin COPYRIGHT AND LICENCE Copyright (c) David J. Iberri This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. HTML-WikiConverter-MoinMoin-0.54/t/0000755000076500000240000000000011107757236016301 5ustar diberristaffHTML-WikiConverter-MoinMoin-0.54/t/00-load.t0000644000076500000240000000030510360764017017613 0ustar diberristaff#!perl -T use Test::More tests => 1; BEGIN { use_ok( 'HTML::WikiConverter::MoinMoin' ); } diag( "Testing HTML::WikiConverter::MoinMoin $HTML::WikiConverter::MoinMoin::VERSION, Perl $], $^X" ); HTML-WikiConverter-MoinMoin-0.54/t/boilerplate.t0000644000076500000240000000234210360764017020764 0ustar diberristaff#!perl -T use strict; use warnings; use Test::More tests => 3; sub not_in_file_ok { my ($filename, %regex) = @_; open my $fh, "<", $filename or die "couldn't open $filename for reading: $!"; my %violated; while (my $line = <$fh>) { while (my ($desc, $regex) = each %regex) { if ($line =~ $regex) { push @{$violated{$desc}||=[]}, $.; } } } if (%violated) { fail("$filename contains boilerplate text"); diag "$_ appears on lines @{$violated{$_}}" for keys %violated; } else { pass("$filename contains no boilerplate text"); } } not_in_file_ok(README => "The README is used..." => qr/The README is used/, "'version information here'" => qr/to provide version information/, ); not_in_file_ok(Changes => "placeholder date/time" => qr(Date/time) ); sub module_boilerplate_ok { my ($module) = @_; not_in_file_ok($module => 'the great new $MODULENAME' => qr/ - The great new /, 'boilerplate description' => qr/Quick summary of what the module/, 'stub function definition' => qr/function[12]/, ); } module_boilerplate_ok('lib/HTML/WikiConverter/MoinMoin.pm'); HTML-WikiConverter-MoinMoin-0.54/t/moinmoin.t0000644000076500000240000000723411107755726020323 0ustar diberristafflocal $/; require 't/runtests.pl'; runtests( data => , dialect => 'MoinMoin' ); close DATA; __DATA__ add space between [[BR]] and URL __H__ http://example.com
__W__ http://example.com [[BR]] __NEXT__ wrap in html __H__ GOOGLE
NewLine __W__ [[http://google.com|GOOGLE]][[BR]] NewLine __NEXT__ bold __H__ bold __W__ '''bold''' __NEXT__ italics __H__ italics __W__ ''italics'' __NEXT__ bold and italics __H__ bold and italics __W__ '''bold''' and ''italics'' __NEXT__ bold-italics nested __H__ bold-italics nested __W__ '''''bold-italics''' nested'' __NEXT__ strong __H__ strong __W__ '''strong''' __NEXT__ emphasized __H__ emphasized __W__ ''emphasized'' __NEXT__ underlined __H__ text __W__ __text__ __NEXT__ one-line phrasals __H__ phrasals in one line __W__ ''phrasals in one line'' __NEXT__ sup __H__ x2 __W__ x^2^ __NEXT__ sub __H__ H2O __W__ H,,2,,O __NEXT__ code __H__ $name = 'stan'; __W__ `$name = 'stan';` __NEXT__ tt __H__ tt text __W__ `tt text` __NEXT__ small __H__ some small text __W__ some ~-small-~ text __NEXT__ big __H__ some big text __W__ some ~+big+~ text __NEXT__ paragraph blocking __H__

p1

p2

__W__ p1 p2 __NEXT__ lists __H__
  • 1
  • 2
__W__ * 1 * 2 __NEXT__ nested lists __H__
  • 1
    • 1a
    • 1b
  • 2
__W__ * 1 * 1a * 1b * 2 __NEXT__ nested lists (different types) __H__
  • 1
    • a
      1. i
    • b
  • 2
__W__ * 1 * a 1. i * b * 2 __NEXT__ hr __H__
__W__ ---- __NEXT__ pre __H__ 
this
  is
    preformatted
      text
__W__ {{{ this is preformatted text }}} __NEXT__ h1 __H__

h1

__W__ = h1 = __NEXT__ h2 __H__

h2

__W__ == h2 == __NEXT__ h3 __H__

h3

__W__ === h3 === __NEXT__ h4 __H__

h4

__W__ ==== h4 ==== __NEXT__ h5 __H__
h5
__W__ ===== h5 ===== __NEXT__ h6 __H__
h6
__W__ ====== h6 ====== __NEXT__ img __H__ __W__ http://www.test.com/thing.gif __NEXT__ external links __H__ thing __W__ [[http://www.test.com/test.html|thing]] __NEXT__ external link (plain) __H__ http://www.test.com __W__ http://www.test.com __NEXT__ definition list __H__
cookies
delicious delicacies
__W__ cookies:: delicious delicacies __NEXT__ simple table __H__
namedavid
__W__ || name || david || __NEXT__ table w/ attrs __H__
thing
next crazy
__W__ ||<-2 tablestyle="width:100%; background-color:white" id="thing"> thing || || next || crazy || __NEXT__ anchors with content (bug #29347) ::enable_anchor_macro(1) __H__ This is the top of the page __W__ <> This is the top of the page __NEXT__ anchors (bug #17813) ::enable_anchor_macro(1) __H__

Top of page

__W__ <> [[#href-top|Top of page]] HTML-WikiConverter-MoinMoin-0.54/t/pod-coverage.t0000644000076500000240000000105510462243114021026 0ustar diberristaff#!perl -T use Test::More; eval "use Test::Pod::Coverage 1.04"; plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; all_pod_coverage_ok( { also_private => [ # These methods are documented in HTML::WikiConverter::Dialects qr/ get_elem_contents |get_wiki_page |get_attr_str |elem_within_block |is_camel_case |rule |rules |attribute |attributes |preprocess_tree |preprocess_node |postprocess_output |caption2para |strip_aname |base_url |wiki_url /x ] } ); HTML-WikiConverter-MoinMoin-0.54/t/pod.t0000644000076500000240000000021410360764017017240 0ustar diberristaff#!perl -T use Test::More; eval "use Test::Pod 1.14"; plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; all_pod_files_ok(); HTML-WikiConverter-MoinMoin-0.54/t/runtests.pl0000644000076500000240000000662511041414201020511 0ustar diberristaff#!/usr/bin/perl use warnings; use strict; use Test::More; use File::Spec; use HTML::Entities; use HTML::WikiConverter; *e = \&encode_entities; my $more_tests = < comment __W__ A comment __NEXT__ strip head __H__ fun stuff

Crazy stuff here

__W__ Crazy stuff here __NEXT__ strip scripts __H__

benevolent text

__W__ benevolent text END_TESTS sub runtests { my %arg = @_; $arg{wrap_in_html} = 1; $arg{base_uri} ||= 'http://www.test.com'; my $minimal = $arg{minimal} || 0; my $data = $arg{data} || ''; $data .= entity_tests() . $more_tests unless $minimal; my @tests = split /__NEXT__\n/, $data; my $numtests = @tests; #$numtests += 1 unless $minimal; # file test plan tests => $numtests; # Delete unrecognized HTML::WikiConverter options delete $arg{$_} for qw/ data minimal /; my $wc = new HTML::WikiConverter(%arg); foreach my $test ( @tests ) { $test =~ s/^(.*?)\n//; my $name = $1; my( $html, $wiki ) = split /__W__\n/, $test; $html =~ s/__H__\n//; # $name =~ s{\s*\:\:(\w+\([^\)]*?\))}{ # my $method_call = $1; # eval "\$wc->$method_call;"; # die "Failed test call ($name): $@" if $@; # ''; # }ge; my( $todo, $todo_reason ); $name =~ s{\s*\:\:(\w+\([^\)]*?\))}{ my $keyword = $1; if( $keyword =~ /TODO\((\"|\')(.*?)\1/ ) { $todo = 1; $todo_reason = $2; } else { my $method_call = $keyword; eval "\$wc->$method_call;"; die "Failed test call ($name): $@" if $@; } ''; }ge; for( $html, $wiki ) { s/^\n+//; s/\n+$// } if( $todo ) { TODO: { local $TODO = $todo_reason; is( $wc->html2wiki($html), $wiki, $name ); } } else { is( $wc->html2wiki($html), $wiki, $name ); } } #file_test($wc) unless $minimal; } sub entity_tests { my $tmpl = "__NEXT__\n%s\n__H__\n%s\n__W__\n%s\n"; # test-name, html-input, expected-wiki-output my $data = ''; my @chars = ( '<', '>', '&' ); foreach my $char ( @chars ) { ( my $charname = e($char) ) =~ s/[&;]//g; $data .= sprintf $tmpl, "literal ($charname)", $char, e($char) . sprintf $tmpl, "encode ($charname)", e($char), e($char) . sprintf $tmpl, "meta ($charname)", e(e($char)), e(e($char)); } return $data; } sub _slurp { my $path = shift; open H, $path or die "couldn't open $path: $!"; local $/; my $c = ; close H; return $c; } sub file_test { my $wc = shift; my $lc_dialect = lc $wc->dialect; my $infile = File::Spec->catfile( 't', 'complete.html' ); my $outfile = File::Spec->catfile( 't', "complete.$lc_dialect" ); SKIP: { skip "Couldn't find $infile (ignore this)", 1 unless -e $infile; skip "Couldn't find $outfile (ignore this)", 1 unless -e $outfile; my( $got, $expect ) = ( $wc->html2wiki( file => $infile, slurp => 1 ), _slurp($outfile) ); for( $got, $expect ) { s/^\n+//; s/\n+$// } is( $got, $expect, 'read from file' ); }; } 1;