Changeset 431 for wiki-toolkit/trunk/lib/Wiki/Toolkit/Formatter/Default.pm

Timestamp:

05/11/08 17:04:41 (4 years ago)

Author:

dom

Message:

fix much tab/whitespace damage; no functional changes.

Files:

• wiki-toolkit/trunk/lib/Wiki/Toolkit/Formatter/Default.pm (modified) (6 diffs)

wiki-toolkit/trunk/lib/Wiki/Toolkit/Formatter/Default.pm

@@ -29 +29 @@
   my $formatter = Wiki::Toolkit::Formatter::Default->new( %config );
   my $wiki      = Wiki::Toolkit->new( store     => $store,
-                                  formatter => $formatter );
+                                      formatter => $formatter );
 
 =head1 METHODS
@@ -42 +42 @@
                  allowed_tags    => [qw(b i)],  # defaults to none
                  macros          => {},
-                 node_prefix     => 'wiki.cgi?node=' );
+                 node_prefix     => 'wiki.cgi?node=' );
 
 Parameters will default to the values shown above (apart from
@@ -58 +58 @@
 
   macros => { qr/(^|\b)\@SEARCHBOX(\b|$)/ =>
-                qq(<form action="wiki.cgi" method="get">
+              qq(<form action="wiki.cgi" method="get">
                    <input type="hidden" name="action" value="search">
                    <input type="text" size="20" name="terms">
@@ -78 +78 @@
     # Store the parameters or their defaults.
     my %defs = ( extended_links  => 0,
-                 implicit_links  => 1,
-                 allowed_tags    => [],
-                 macros          => {},
-                 node_prefix     => 'wiki.cgi?node=',
-               );
+                 implicit_links  => 1,
+                 allowed_tags    => [],
+                 macros          => {},
+                 node_prefix     => 'wiki.cgi?node=',
+               );
 
     my %collated = (%defs, %args);
@@ -111 +111 @@
     if (scalar keys %allowed) {
         # If we are allowing some HTML, parse and get rid of the nasties.
-        my $parser = HTML::PullParser->new(doc   => $raw,
-                                           start => '"TAG", tag, text',
-                                           end   => '"TAG", tag, text',
-                                           text  => '"TEXT", tag, text');
-        while (my $token = $parser->get_token) {
+        my $parser = HTML::PullParser->new(doc   => $raw,
+                                           start => '"TAG", tag, text',
+                                           end   => '"TAG", tag, text',
+                                           text  => '"TEXT", tag, text');
+        while (my $token = $parser->get_token) {
             my ($flag, $tag, $text) = @$token;
-            if ($flag eq "TAG" and !defined $allowed{lc($tag)}) {
-                $safe .= CGI::escapeHTML($text);
-            } else {
+            if ($flag eq "TAG" and !defined $allowed{lc($tag)}) {
+                $safe .= CGI::escapeHTML($text);
+            } else {
                 $safe .= $text;
             }
@@ -135 +135 @@
 
     return wikiformat($safe, {},
-                      { extended       => $self->{_extended_links},
-                        prefix         => $self->{_node_prefix},
-                        implicit_links => $self->{_implicit_links} } );
+              { extended       => $self->{_extended_links},
+                prefix         => $self->{_node_prefix},
+                implicit_links => $self->{_implicit_links} } );
 }