Changeset 431 for wiki-toolkit/trunk/lib/Wiki/Toolkit.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.pm (modified) (17 diffs)

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

@@ -15 +15 @@
 my $CAN_USE_ENCODE;
 BEGIN {
-  eval " use Encode ";
-  $CAN_USE_ENCODE = $@ ? 0 : 1;
-}
-
+    eval " use Encode ";
+    $CAN_USE_ENCODE = $@ ? 0 : 1;
+}
 
 =head1 NAME
@@ -45 +44 @@
 
   my $wiki      = Wiki::Toolkit->new( store     => $store,
-                                  search    => $search );
+                                      search    => $search );
 
   # Do all the CGI stuff.
@@ -56 +55 @@
       my $cooked = $wiki->format($raw);
       print_page(node    => $node,
-                 content => $cooked);
+                 content => $cooked);
   } elsif ($action eq 'preview') {
       my $submitted_content = $q->param("content");
       my $preview_html      = $wiki->format($submitted_content);
       print_editform(node    => $node,
-                     content => $submitted_content,
-                     preview => $preview_html);
+                     content => $submitted_content,
+                     preview => $preview_html);
   } elsif ($action eq 'commit') {
       my $submitted_content = $q->param("content");
@@ -142 +141 @@
            . "of Wiki::Toolkit - the $obsolete_param parameter is no longer used. "
            . "Please read the documentation with 'perldoc Wiki::Toolkit'"
-          if $args{$obsolete_param};
+            if $args{$obsolete_param};
     }
 
@@ -158 +157 @@
         my %config;
         foreach ( qw( extended_links implicit_links allowed_tags
-                    macros node_prefix ) ) {
+            macros node_prefix ) ) {
             $config{$_} = $args{$_} if defined $args{$_};
-        }
+    }
         $self->{_formatter} = Wiki::Toolkit::Formatter::Default->new( %config );
     }
@@ -219 +218 @@
     my ($self, @rawargs) = @_;
 
-        my %args = scalar @rawargs == 1 ? ( name => $rawargs[0] ) : @rawargs;
+    my %args = scalar @rawargs == 1 ? ( name => $rawargs[0] ) : @rawargs;
 
     my @plugins = $self->get_registered_plugins;
@@ -243 +242 @@
 
     my $ret = $self->store->moderate_node( %args );
-        if($ret == -1) { return $ret; }
-        return 1;
+    if($ret == -1) { return $ret; }
+    return 1;
 }
 
@@ -278 +277 @@
 sub rename_node {
     my ($self, @argsarray) = @_;
-        my %args = @argsarray;
-        if((scalar @argsarray) == 2 || (scalar @argsarray) == 3) {
-                # Missing keys
-                %args = (
-                        old_name => $argsarray[0],
-                        new_name => $argsarray[1],
-                        create_new_versions => $argsarray[2]
-                );
-        }
+    my %args = @argsarray;
+    if ((scalar @argsarray) == 2 || (scalar @argsarray) == 3) {
+        # Missing keys
+        %args = (
+            old_name => $argsarray[0],
+            new_name => $argsarray[1],
+            create_new_versions => $argsarray[2]
+        );
+    }
 
     my @plugins = $self->get_registered_plugins;
     $args{plugins} = \@plugins if scalar @plugins;
-        $args{wiki} = $self;
+    $args{wiki} = $self;
 
     my $ret = $self->store->rename_node( %args );
 
-        if($ret && $ret == -1) { return $ret; }
-        return 1;
+    if ($ret && $ret == -1) {
+        return $ret;
+    }
+    return 1;
 }
 
@@ -450 +451 @@
   my @nodes = $wiki->list_unmoderated_nodes();
   my @nodes = $wiki->list_unmoderated_nodes(
-                                                                                                only_where_latest => 1
-                                                                                        );
+                                                only_where_latest => 1
+                                            );
 
   $nodes[0]->{'name'}              # The name of the node
@@ -502 +503 @@
 
 =item B<list_last_version_before>
-        List the last version of every node before a given date.
-        If no version existed before that date, will return undef for version.
-        Returns a hash of id, name, version and date
-
-        my @nv = $wiki->list_last_version_before('2007-01-02 10:34:11')
-        foreach my $data (@nv) {
-                
-        }
+    List the last version of every node before a given date.
+    If no version existed before that date, will return undef for version.
+    Returns a hash of id, name, version and date
+
+    my @nv = $wiki->list_last_version_before('2007-01-02 10:34:11')
+    foreach my $data (@nv) {
+        
+    }
 
 =cut
@@ -515 +516 @@
 sub list_last_version_before {
     my ($self,@argsarray) = @_;
-
     return $self->store->list_last_version_before(@argsarray);
 }
@@ -557 +557 @@
 
     # Return false if it doesn't exist
-    unless(%node) { return 0; }
-    unless($node{node_requires_moderation}) { return 0; }
+    unless(%node) {
+        return 0;
+    }
+    unless($node{node_requires_moderation}) {
+        return 0;
+    }
 
     # Otherwise return the state of the flag
@@ -587 +591 @@
 
     my @plugins = $self->get_registered_plugins;
-        my $plugins_ref = \@plugins if scalar @plugins;
+    my $plugins_ref = \@plugins if scalar @plugins;
 
     return 1 unless $self->node_exists( $args{name} );
@@ -604 +608 @@
         if ( $new_current_content ) {
             $search->index_node( $args{name}, $new_current_content );
-        }
+        }
     }
 
@@ -831 +835 @@
 
     my %data = ( node     => $node,
-                 content  => $content,
-                 checksum => $checksum,
-                 metadata => $metadata,
-                 requires_moderation => $requires_moderation );
+         content  => $content,
+         checksum => $checksum,
+         metadata => $metadata,
+         requires_moderation => $requires_moderation );
     $data{links_to} = \@links_to if scalar @links_to;
     my @plugins = $self->get_registered_plugins;
@@ -841 +845 @@
     my $store = $self->store;
     my $ret = $store->check_and_write_node( %data ) or return 0;
-        if($ret == -1) { return -1; }
+    if($ret == -1) {
+        return -1;
+    }
 
     my $search = $self->{_search};
@@ -871 +877 @@
     # see http://rt.cpan.org/NoAuth/Bug.html?id=7014
     if ($CAN_USE_ENCODE) {
-      if (Encode::is_utf8($raw)) {
-        Encode::_utf8_on( $result );
-      }
+        if (Encode::is_utf8($raw)) {
+            Encode::_utf8_on( $result );
+        }
     }