Changeset 681


Ignore:
Timestamp:
Oct 9, 2005, 10:25:24 PM (16 years ago)
Author:
Earle Martin
Message:

fix lots of whitespace issues in this file too

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides.pm

    r680 r681  
    115115  # Print node to STDOUT.
    116116  $guide->display_node(
    117                         id      => "Calthorpe Arms",
    118                         version => 2,
     117                          id      => "Calthorpe Arms",
     118                          version => 2,
    119119                      );
    120120
    121121  # Or return output as a string (useful for writing tests).
    122122  $guide->display_node(
    123                         id            => "Calthorpe Arms",
    124                         return_output => 1,
     123                          id            => "Calthorpe Arms",
     124                          return_output => 1,
    125125                      );
    126126
     
    128128  # (not including those set additionally by OpenGuides::Template).
    129129  $guide->display_node(
    130                         id             => "Calthorpe Arms",
    131                         return_tt_vars => 1,
     130                          id             => "Calthorpe Arms",
     131                          return_tt_vars => 1,
    132132                      );
    133133
     
    174174                            wiki     => $wiki,
    175175                            config   => $config,
    176                             metadata => $node_data{metadata} );
     176                            metadata => $node_data{metadata}
     177                        );
    177178
    178179    %tt_vars = (
    179                  %tt_vars,
    180                  %metadata_vars,
    181                  content       => $content,
    182                  last_modified => $modified,
    183                  version       => $node_data{version},
    184                  node          => $id,
    185                  language      => $config->default_language,
    186                  oldid         => $oldid,
     180                   %tt_vars,
     181                   %metadata_vars,
     182                   content       => $content,
     183                   last_modified => $modified,
     184                   version       => $node_data{version},
     185                   node          => $id,
     186                   language      => $config->default_language,
     187                   oldid         => $oldid,
    187188               );
    188189
     
    232233            @rc = map {
    233234                {
    234                   name        => CGI->escapeHTML($_->{name}),
    235                   last_modified => CGI->escapeHTML($_->{last_modified}),
    236                   version     => CGI->escapeHTML($_->{version}),
    237                   comment     => CGI->escapeHTML($_->{metadata}{comment}[0]),
    238                   username    => CGI->escapeHTML($_->{metadata}{username}[0]),
    239                   host        => CGI->escapeHTML($_->{metadata}{host}[0]),
    240                   username_param => CGI->escape($_->{metadata}{username}[0]),
    241                   edit_type   => CGI->escapeHTML($_->{metadata}{edit_type}[0]),
    242                   url         => $config->script_name . "?"
    243           . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})),
    244             }
    245                        } @rc;
     235                    name           => CGI->escapeHTML($_->{name}),
     236                    last_modified => CGI->escapeHTML($_->{last_modified}),
     237                    version        => CGI->escapeHTML($_->{version}),
     238                    comment        => CGI->escapeHTML($_->{metadata}{comment}[0]),
     239                    username       => CGI->escapeHTML($_->{metadata}{username}[0]),
     240                    host           => CGI->escapeHTML($_->{metadata}{host}[0]),
     241                    username_param => CGI->escape($_->{metadata}{username}[0]),
     242                    edit_type      => CGI->escapeHTML($_->{metadata}{edit_type}[0]),
     243                    url            => $config->script_name . "?"
     244                                   . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})),
     245                }
     246            } @rc;
    246247            if ( scalar @rc ) {
    247248                $recent_changes{since} = \@rc;
     
    255256
    256257                @rc = map {
    257                 {
    258                   name        => CGI->escapeHTML($_->{name}),
    259                   last_modified => CGI->escapeHTML($_->{last_modified}),
    260                   version     => CGI->escapeHTML($_->{version}),
    261                   comment     => CGI->escapeHTML($_->{metadata}{comment}[0]),
    262                   username    => CGI->escapeHTML($_->{metadata}{username}[0]),
    263                   host        => CGI->escapeHTML($_->{metadata}{host}[0]),
    264                   username_param => CGI->escape($_->{metadata}{username}[0]),
    265                   edit_type   => CGI->escapeHTML($_->{metadata}{edit_type}[0]),
    266                   url         => $config->script_name . "?"
    267           . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})),
    268             }
    269                            } @rc;
     258                    {
     259                        name           => CGI->escapeHTML($_->{name}),
     260                        last_modified => CGI->escapeHTML($_->{last_modified}),
     261                        version        => CGI->escapeHTML($_->{version}),
     262                        comment        => CGI->escapeHTML($_->{metadata}{comment}[0]),
     263                        username       => CGI->escapeHTML($_->{metadata}{username}[0]),
     264                        host           => CGI->escapeHTML($_->{metadata}{host}[0]),
     265                        username_param => CGI->escape($_->{metadata}{username}[0]),
     266                        edit_type      => CGI->escapeHTML($_->{metadata}{edit_type}[0]),
     267                        url            => $config->script_name . "?"
     268                                          . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})),
     269                    }
     270                } @rc;
    270271                if ( scalar @rc ) {
    271272                    $recent_changes{$days->[1]} = \@rc;
    272             }
     273                }
    273274            }
    274275        }
    275276        $tt_vars{recent_changes} = \%recent_changes;
    276277        my %processing_args = (
    277                                 id            => $id,
    278                                 template      => "recent_changes.tt",
    279                                 tt_vars       => \%tt_vars,
    280                                );
     278                                  id            => $id,
     279                                  template      => "recent_changes.tt",
     280                                  tt_vars       => \%tt_vars,
     281                              );
    281282        if ( !$since && $self->get_cookie("track_recent_changes_views") ) {
    282         my $cookie =
    283                OpenGuides::CGI->make_recent_changes_cookie(config => $config );
     283            my $cookie = OpenGuides::CGI->make_recent_changes_cookie(config => $config );
    284284            $processing_args{cookies} = $cookie;
    285285            $tt_vars{last_viewed} = OpenGuides::CGI->get_last_recent_changes_visit_from_cookie( config => $config );
     
    294294            metadata_was   => { edit_type => "Normal edit" },
    295295        );
    296         @recent = map { {name          => CGI->escapeHTML($_->{name}),
    297                          last_modified => CGI->escapeHTML($_->{last_modified}),
    298                          version       => CGI->escapeHTML($_->{version}),
    299                          comment       => CGI->escapeHTML($_->{metadata}{comment}[0]),
    300                          username      => CGI->escapeHTML($_->{metadata}{username}[0]),
    301                          url           => $config->script_name . "?"
    302           . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})) }
    303                        } @recent;
     296        @recent = map {
     297                          {
     298                              name          => CGI->escapeHTML($_->{name}),
     299                              last_modified => CGI->escapeHTML($_->{last_modified}),
     300                              version       => CGI->escapeHTML($_->{version}),
     301                              comment       => CGI->escapeHTML($_->{metadata}{comment}[0]),
     302                              username      => CGI->escapeHTML($_->{metadata}{username}[0]),
     303                              url           => $config->script_name . "?"
     304                                               . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name}))
     305                          }
     306                      } @recent;
    304307        $tt_vars{recent_changes} = \@recent;
    305308        return %tt_vars if $args{return_tt_vars};
    306309        my $output = $self->process_template(
    307                                               id            => $id,
    308                                               template      => "home_node.tt",
    309                                               tt_vars       => \%tt_vars,
     310                                                id            => $id,
     311                                                template      => "home_node.tt",
     312                                                tt_vars       => \%tt_vars,
    310313                                            );
    311314        return $output if $return_output;
     
    314317        return %tt_vars if $args{return_tt_vars};
    315318        my $output = $self->process_template(
    316                                               id            => $id,
    317                                               template      => "node.tt",
    318                                               tt_vars       => \%tt_vars,
     319                                                id            => $id,
     320                                                template      => "node.tt",
     321                                                tt_vars       => \%tt_vars,
    319322                                            );
    320323        return $output if $return_output;
     
    326329
    327330  $guide->display_diffs(
    328                          id            => "Home Page",
    329                          version       => 6,
    330                          other_version => 5,
     331                           id            => "Home Page",
     332                           version       => 6,
     333                           other_version => 5,
    331334                       );
    332335
    333336  # Or return output as a string (useful for writing tests).
    334337  my $output = $guide->display_diffs(
    335                                       id            => "Home Page",
    336                                       version       => 6,
    337                                       other_version => 5,
    338                                       return_output => 1,
     338                                        id            => "Home Page",
     339                                        version       => 6,
     340                                        other_version => 5,
     341                                        return_output => 1,
    339342                                    );
    340343
     
    342345  # (not including those set additionally by OpenGuides::Template).
    343346  my %vars = $guide->display_diffs(
    344                                     id             => "Home Page",
    345                                     version        => 6,
    346                                     other_version  => 5,
    347                                     return_tt_vars => 1,
     347                                      id             => "Home Page",
     348                                      version        => 6,
     349                                      other_version  => 5,
     350                                      return_tt_vars => 1,
    348351                                  );
    349352
     
    353356    my ($self, %args) = @_;
    354357    my %diff_vars = $self->differ->differences(
    355                                         node          => $args{id},
    356                                         left_version  => $args{version},
    357                                    right_version => $args{other_version},
     358                                                  node          => $args{id},
     359                                                  left_version  => $args{version},
     360                                                  right_version => $args{other_version},
    358361                                              );
    359362    $diff_vars{not_deletable} = 1;
    360     $diff_vars{not_editable} = 1;
    361     $diff_vars{deter_robots} = 1;
     363    $diff_vars{not_editable}  = 1;
     364    $diff_vars{deter_robots}  = 1;
    362365    return %diff_vars if $args{return_tt_vars};
    363366    my $output = $self->process_template(
    364                                           id       => $args{id},
    365                                           template => "differences.tt",
    366                                           tt_vars  => \%diff_vars
     367                                            id       => $args{id},
     368                                            template => "differences.tt",
     369                                            tt_vars  => \%diff_vars
    367370                                        );
    368371    return $output if $args{return_output};
     
    373376
    374377  $guide->find_within_distance(
    375                                 id => $node,
    376                                 metres => $q->param("distance_in_metres")
     378                                  id => $node,
     379                                  metres => $q->param("distance_in_metres")
    377380                              );
    378381
     
    407410    my @backlinks = $wiki->list_backlinks( node => $args{id} );
    408411    my @results = map {
    409         { url   => CGI->escape($formatter->node_name_to_node_param($_)),
    410       title => CGI->escapeHTML($_)
    411         }             } sort @backlinks;
     412                          {
     413                              url   => CGI->escape($formatter->node_name_to_node_param($_)),
     414                              title => CGI->escapeHTML($_)
     415                          }
     416                      } sort @backlinks;
    412417    my %tt_vars = ( results       => \@results,
    413418                    num_results   => scalar @results,
     
    417422    return %tt_vars if $args{return_tt_vars};
    418423    my $output = OpenGuides::Template->output(
    419                                                node    => $args{id},
    420                                                wiki    => $wiki,
    421                                                config  => $self->config,
    422                                                template=>"backlink_results.tt",
    423                                                vars    => \%tt_vars,
     424                                                 node    => $args{id},
     425                                                 wiki    => $wiki,
     426                                                 config  => $self->config,
     427                                                 template=>"backlink_results.tt",
     428                                                 vars    => \%tt_vars,
    424429                                             );
    425430    return $output if $args{return_output};
     
    430435
    431436  $guide->show_index(
    432                       type   => "category",
    433                       value  => "pubs",
     437                        type   => "category",
     438                        value  => "pubs",
    434439                    );
    435440
    436441  # RDF version.
    437442  $guide->show_index(
    438                       type   => "locale",
    439                       value  => "Holborn",
    440                       format => "rdf",
     443                        type   => "locale",
     444                        value  => "Holborn",
     445                        format => "rdf",
    441446                    );
    442447
    443448  # Or return output as a string (useful for writing tests).
    444449  $guide->show_index(
    445                       type          => "category",
    446                       value         => "pubs",
    447                       return_output => 1,
     450                        type          => "category",
     451                        value         => "pubs",
     452                        return_output => 1,
    448453                    );
    449454
     
    465470                value => $args{value}, # for RDF version
    466471                name  => CGI->escapeHTML("Fuzzy Title Match on '$args{value}'")
    467         };
    468         $tt_vars{not_editable} = 1;
     472            };
     473            $tt_vars{not_editable} = 1;
    469474        } else {
    470475            @selnodes = $wiki->list_nodes_by_metadata(
    471476                metadata_type  => $args{type},
    472             metadata_value => $args{value},
     477                metadata_value => $args{value},
    473478                ignore_case    => 1
    474479            );
    475             my $name = ucfirst($args{type}) . " $args{value}" ;
     480            my $name = ucfirst($args{type}) . " $args{value}";
    476481            my $url = $self->config->script_name
    477482                      . "?"
     
    479484                      . "_"
    480485                      . uri_escape(
    481                               $formatter->node_name_to_node_param($args{value})
     486                                      $formatter->node_name_to_node_param($args{value})
    482487                                  );
    483488            $tt_vars{criterion} = {
     
    485490                value => $args{value}, # for RDF version
    486491                name  => CGI->escapeHTML( $name ),
    487             url   => $url
     492                url   => $url
    488493            };
    489         $tt_vars{not_editable} = 1;
     494            $tt_vars{not_editable} = 1;
    490495        }
    491496    } else {
     
    493498    }
    494499
    495     my @nodes = map { { name      => $_,
    496                         node_data => { $wiki->retrieve_node( name => $_ ) },
    497             param     => $formatter->node_name_to_node_param($_) }
    498             } sort @selnodes;
     500    my @nodes = map {
     501                        {
     502                            name      => $_,
     503                            node_data => { $wiki->retrieve_node( name => $_ ) },
     504                            param     => $formatter->node_name_to_node_param($_) }
     505                        } sort @selnodes;
    499506
    500507    $tt_vars{nodes} = \@nodes;
     
    502509    my ($template, %conf);
    503510
    504     if ( $args{format} )
    505     {
    506       if ( $args{format} eq "rdf" )
    507       {
    508     $template = "rdf_index.tt";
    509         $conf{content_type} = "text/plain";
    510       }
    511       elsif ( $args{format} eq "plain" )
    512       {
    513         $template = "plain_index.tt";
    514         $conf{content_type} = "text/plain";
    515       }
    516     }
    517     else
    518     {
    519       $template = "site_index.tt";
     511    if ( $args{format} ) {
     512        if ( $args{format} eq "rdf" ) {
     513            $template = "rdf_index.tt";
     514            $conf{content_type} = "text/plain";
     515        }
     516        elsif ( $args{format} eq "plain" ) {
     517            $template = "plain_index.tt";
     518            $conf{content_type} = "text/plain";
     519        }
     520    } else {
     521        $template = "site_index.tt";
    520522    }
    521523
    522524    %conf = (
    523               %conf,
    524               node        => "$args{type} index", # KLUDGE
    525               template    => $template,
    526               tt_vars     => \%tt_vars,
    527     );
     525                %conf,
     526                node        => "$args{type} index", # KLUDGE
     527                template    => $template,
     528                tt_vars     => \%tt_vars,
     529            );
    528530
    529531    my $output = $self->process_template( %conf );
     
    538540  # Or return output as a string (useful for writing tests).
    539541  $guide->list_all_versions (
    540                               id            => "Home Page",
    541                               return_output => 1,
     542                                id            => "Home Page",
     543                                return_output => 1,
    542544                            );
    543545
     
    545547  # (not including those set additionally by OpenGuides::Template).
    546548  $guide->list_all_versions (
    547                               id             => "Home Page",
    548                               return_tt_vars => 1,
     549                                id             => "Home Page",
     550                                return_tt_vars => 1,
    549551                            );
    550552
     
    560562    for my $version ( 1 .. $curr_version ) {
    561563        my %node_data = $self->wiki->retrieve_node( name    => $node,
    562                                   version => $version );
     564                                                    version => $version );
    563565        # $node_data{version} will be zero if this version was deleted.
    564     push @history, {
     566        push @history, {
    565567            version  => CGI->escapeHTML( $version ),
    566         modified => CGI->escapeHTML( $node_data{last_modified} ),
     568            modified => CGI->escapeHTML( $node_data{last_modified} ),
    567569            username => CGI->escapeHTML( $node_data{metadata}{username}[0] ),
    568570            comment  => CGI->escapeHTML( $node_data{metadata}{comment}[0] ),
     
    570572    }
    571573    @history = reverse @history;
    572     my %tt_vars = ( node          => $node,
    573             version       => $curr_version,
    574                     not_deletable => 1,
    575                     not_editable  => 1,
    576                     deter_robots  => 1,
    577             history       => \@history );
     574    my %tt_vars = (
     575                      node          => $node,
     576                      version       => $curr_version,
     577                      not_deletable => 1,
     578                      not_editable  => 1,
     579                      deter_robots  => 1,
     580                      history       => \@history
     581                  );
    578582    return %tt_vars if $args{return_tt_vars};
    579583    my $output = $self->process_template(
    580                                           id       => $node,
    581                                           template => "node_history.tt",
    582                                           tt_vars  => \%tt_vars,
     584                                            id       => $node,
     585                                            template => "node_history.tt",
     586                                            tt_vars  => \%tt_vars,
    583587                                        );
    584588    return $output if $return_output;
     
    590594  # Last ten non-minor edits to Hammersmith pages.
    591595  $guide->display_rss(
    592                        items              => 10,
    593                        ignore_minor_edits => 1,
    594                        locale             => "Hammersmith",
     596                         items              => 10,
     597                         ignore_minor_edits => 1,
     598                         locale             => "Hammersmith",
    595599                     );
    596600
    597601  # All edits bob has made to pub pages in the last week.
    598602  $guide->display_rss(
    599                        days     => 7,
    600                        username => "bob",
    601                        category => "Pubs",
     603                         days     => 7,
     604                         username => "bob",
     605                         category => "Pubs",
    602606                     );
    603607
     
    619623    my $locale   = $args{locale}   || "";
    620624    my %criteria = (
    621                      items              => $items,
    622                      days               => $days,
    623                      ignore_minor_edits => $ignore_minor_edits,
     625                       items              => $items,
     626                       days               => $days,
     627                       ignore_minor_edits => $ignore_minor_edits,
    624628                   );
    625629    my %filter;
     
    631635    }
    632636
    633     my $rdf_writer = OpenGuides::RDF->new( wiki   => $self->wiki,
    634                        config => $self->config );
     637    my $rdf_writer = OpenGuides::RDF->new(
     638                                             wiki   => $self->wiki,
     639                                             config => $self->config
     640                                         );
    635641    my $output = "Content-Type: text/plain\n";
    636642    $output .= "Last-Modified: " . $rdf_writer->rss_timestamp( %criteria ) . "\n\n";
     
    643649
    644650  $guide->commit_node(
    645                        id      => $node,
    646                        cgi_obj => $q,
     651                         id      => $node,
     652                         cgi_obj => $q,
    647653                     );
    648654
     
    708714        my $lctype = lc($type);
    709715        foreach my $index (@{$metadata{$lctype}}) {
    710         $index =~ s/(.*)/\u$1/;
    711         my $node = $type . " " . $index;
    712         # Uppercase the node name before checking for existence
    713         $node =~ s/ (\S+)/ \u$1/g;
    714         unless ( $wiki->node_exists($node) ) {
    715             my $category = $type eq "Category" ? "Category" : "Locales";
    716         $wiki->write_node( $node,
    717                            "\@INDEX_LINK [[$node]]",
    718                    undef,
    719                    { username => "Auto Create",
    720                      comment  => "Auto created $lctype stub page",
    721                      category => $category
    722                    }
    723         );
     716            $index =~ s/(.*)/\u$1/;
     717            my $node = $type . " " . $index;
     718            # Uppercase the node name before checking for existence
     719            $node =~ s/ (\S+)/ \u$1/g;
     720            unless ( $wiki->node_exists($node) ) {
     721                my $category = $type eq "Category" ? "Category" : "Locales";
     722                $wiki->write_node(
     723                                     $node,
     724                                     "\@INDEX_LINK [[$node]]",
     725                                     undef,
     726                                     {
     727                                         username => "Auto Create",
     728                                         comment  => "Auto created $lctype stub page",
     729                                         category => $category
     730                                     }
     731                                 );
     732            }
    724733        }
    725     }
    726734    }
    727735   
     
    777785
    778786  $guide->delete_node(
    779                        id       => "FAQ",
    780                        version  => 15,
    781                        password => "beer",
     787                         id       => "FAQ",
     788                         version  => 15,
     789                         password => "beer",
    782790                     );
    783791
     
    802810
    803811    my %tt_vars = (
    804                     not_editable  => 1,
    805                     not_deletable => 1,
    806                     deter_robots  => 1,
     812                      not_editable  => 1,
     813                      not_deletable => 1,
     814                      deter_robots  => 1,
    807815                  );
    808816    $tt_vars{delete_version} = $args{version} || "";
     
    814822            return %tt_vars if $return_tt_vars;
    815823            my $output = $self->process_template(
    816                                      id       => $node,
    817                                      template => "delete_password_wrong.tt",
    818                                      tt_vars  => \%tt_vars,
    819                                    );
     824                                                    id       => $node,
     825                                                    template => "delete_password_wrong.tt",
     826                                                    tt_vars  => \%tt_vars,
     827                                                );
    820828            return $output if $return_output;
    821829            print $output;
    822830        } else {
    823831            $self->wiki->delete_node(
    824                                       name    => $node,
    825                                       version => $args{version},
     832                                        name    => $node,
     833                                        version => $args{version},
    826834                                    );
    827835            # Check whether any versions of this node remain.
     
    830838            return %tt_vars if $return_tt_vars;
    831839            my $output = $self->process_template(
    832                                      id       => $node,
    833                                      template => "delete_done.tt",
    834                                      tt_vars  => \%tt_vars,
    835                                    );
     840                                                    id       => $node,
     841                                                    template => "delete_done.tt",
     842                                                    tt_vars  => \%tt_vars,
     843                                                );
    836844            return $output if $return_output;
    837845            print $output;
     
    840848        return %tt_vars if $return_tt_vars;
    841849        my $output = $self->process_template(
    842                                  id       => $node,
    843                                  template => "delete_confirm.tt",
    844                                  tt_vars  => \%tt_vars,
    845                                );
     850                                                id       => $node,
     851                                                template => "delete_confirm.tt",
     852                                                tt_vars  => \%tt_vars,
     853                                            );
    846854        return $output if $return_output;
    847855        print $output;
     
    852860    my ($self, %args) = @_;
    853861    my %output_conf = (
    854             wiki     => $self->wiki,
    855             config   => $self->config,
    856             node     => $args{id},
    857             template => $args{template},
    858             vars     => $args{tt_vars},
    859             cookies  => $args{cookies},
    860     );
     862                          wiki     => $self->wiki,
     863                          config   => $self->config,
     864                          node     => $args{id},
     865                          template => $args{template},
     866                          vars     => $args{tt_vars},
     867                          cookies  => $args{cookies},
     868                      );
    861869    if ( $args{content_type} ) {
    862870        $output_conf{content_type} = "";
Note: See TracChangeset for help on using the changeset viewer.