diff options
Diffstat (limited to 'lib/DBInfoscreen/Controller/Static.pm')
| -rw-r--r-- | lib/DBInfoscreen/Controller/Static.pm | 41 |
1 files changed, 1 insertions, 40 deletions
diff --git a/lib/DBInfoscreen/Controller/Static.pm b/lib/DBInfoscreen/Controller/Static.pm index 16eeb9a..927bf6e 100644 --- a/lib/DBInfoscreen/Controller/Static.pm +++ b/lib/DBInfoscreen/Controller/Static.pm @@ -1,6 +1,6 @@ package DBInfoscreen::Controller::Static; -# Copyright (C) 2011-2020 Daniel Friesel +# Copyright (C) 2011-2020 Birte Kristina Friesel # # SPDX-License-Identifier: AGPL-3.0-or-later @@ -11,34 +11,6 @@ my %default = ( admode => 'deparr', ); -sub redirect { - my ($self) = @_; - my $input = $self->param('input'); - my $params = $self->req->params; - - $params->remove('input'); - - for my $param (qw(platforms mode admode via)) { - if ( - not $params->param($param) - or ( exists $default{$param} - and $params->param($param) eq $default{$param} ) - ) - { - $params->remove($param); - } - } - - $params = $params->to_string; - - if ( $input =~ m{ ^ [a-zA-Z]{1,5} \s+ \d+ $ }x ) { - $self->redirect_to("/z/${input}?${params}"); - } - else { - $self->redirect_to("/${input}?${params}"); - } -} - sub geostop { my ($self) = @_; @@ -49,23 +21,12 @@ sub geostop { ); } -sub geotrain { - my ($self) = @_; - - $self->render( - 'geotrain', - with_geotrain => 1, - hide_opts => 1 - ); -} - sub about { my ($self) = @_; $self->render( 'about', hide_opts => 1, - version => $self->config->{version} ); } |