Ignore:
Timestamp:
Dec 14, 2004, 6:46:00 PM (17 years ago)
Author:
kake
Message:

Encapsulate config data in OpenGuides::Config.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/lib/OpenGuides.pm

    r586 r587  
    3535=item B<new>
    3636
     37  my $config = OpenGuides::Config->new( file => "wiki.conf" );
    3738  my $guide = OpenGuides->new( config => $config );
    3839
     
    4647    $self->{wiki} = $wiki;
    4748    $self->{config} = $args{config};
    48     # Default to British National Grid for historical reasons.
    49     my $geo_handler = $self->config->{_}{geo_handler} || 1;
     49    my $geo_handler = $self->config->geo_handler;
    5050    my $locator;
    5151    if ( $geo_handler == 1 ) {
     
    8080=item B<config>
    8181
    82 An accessor, returns the underlying L<Config::Tiny> object.
     82An accessor, returns the underlying L<OpenGuides::Config> object.
    8383
    8484=cut
     
    140140    my $return_output = $args{return_output} || 0;
    141141    my $version = $args{version};
    142     my $id = $args{id} || $self->config->{_}->{home_name};
     142    my $id = $args{id} || $self->config->home_name;
    143143    my $wiki = $self->wiki;
    144144    my $config = $self->config;
     
    152152        $tt_vars{index_value} = $2;
    153153        $tt_vars{"rss_".lc($type)."_url"} =
    154                            $config->{_}{script_name} . "?action=rss;"
     154                           $config->script_name . "?action=rss;"
    155155                           . lc($type) . "=" . lc(CGI->escape($2));
    156156    }
     
    193193                 version       => $node_data{version},
    194194                 node          => $id,
    195                  language      => $config->{_}->{default_language},
     195                 language      => $config->default_language,
    196196               );
    197197
     
    223223                  username_param => CGI->escape($_->{metadata}{username}[0]),
    224224                  edit_type   => CGI->escapeHTML($_->{metadata}{edit_type}[0]),
    225                   url         => "$config->{_}->{script_name}?"
     225                  url         => $config->script_name . "?"
    226226          . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})),
    227227                }
     
    247247                  username_param => CGI->escape($_->{metadata}{username}[0]),
    248248                  edit_type   => CGI->escapeHTML($_->{metadata}{edit_type}[0]),
    249                   url         => "$config->{_}->{script_name}?"
     249                  url         => $config->script_name . "?"
    250250          . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})),
    251251                }
     
    272272        return $output if $return_output;
    273273        print $output;
    274     } elsif ( $id eq $self->config->{_}->{home_name} ) {
     274    } elsif ( $id eq $self->config->home_name ) {
    275275        my @recent = $wiki->list_recent_changes(
    276276            last_n_changes => 10,
     
    281281                         comment       => CGI->escapeHTML($_->{metadata}{comment}[0]),
    282282                         username      => CGI->escapeHTML($_->{metadata}{username}[0]),
    283                          url           => "$config->{_}->{script_name}?"
     283                         url           => $config->script_name . "?"
    284284          . CGI->escape($wiki->formatter->node_name_to_node_param($_->{name})) }
    285285                       } @recent;
     
    368368    my $lat = $data{metadata}{latitude}[0];
    369369    my $long = $data{metadata}{longitude}[0];
    370     my $script_url = $self->config->{_}{script_url};
     370    my $script_url = $self->config->script_url;
    371371    print CGI->redirect( $script_url . "supersearch.cgi?lat=$lat;long=$long;distance_in_metres=$metres" );
    372372}
     
    456456            );
    457457            my $name = ucfirst($args{type}) . " $args{value}" ;
    458             my $url = $self->config->{_}->{script_name}
     458            my $url = $self->config->script_name
    459459                      . "?"
    460460                      . ucfirst( $args{type} )
     
    782782
    783783    if ($password) {
    784         if ($password ne $self->config->{_}->{admin_pass}) {
     784        if ($password ne $self->config->admin_pass) {
    785785            return %tt_vars if $return_tt_vars;
    786786            my $output = $self->process_template(
     
    840840sub redirect_to_node {
    841841    my ($self, $node) = @_;
    842     my $script_url = $self->config->{_}->{script_url};
    843     my $script_name = $self->config->{_}->{script_name};
     842    my $script_url = $self->config->script_url;
     843    my $script_name = $self->config->script_name;
    844844    my $formatter = $self->wiki->formatter;
    845845    my $param = $formatter->node_name_to_node_param( $node );
Note: See TracChangeset for help on using the changeset viewer.