diff options
author | Daniel Friesel <derf@finalrewind.org> | 2012-08-14 06:31:14 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2012-08-14 06:31:14 +0200 |
commit | 8a9daae5bcef9d4cda5cdf6b3cc61f30068c179e (patch) | |
tree | 64a40441a6ffbed7cf132c383f56bd2904b86ef3 /cgi | |
parent | 6f008b7f56ee44f0149ca59cf3d3fec90cc28f76 (diff) |
code cleanup derp
Diffstat (limited to 'cgi')
-rw-r--r-- | cgi/index.pl | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/cgi/index.pl b/cgi/index.pl index 10f6880..e46933b 100644 --- a/cgi/index.pl +++ b/cgi/index.pl @@ -30,14 +30,14 @@ sub handle_request { my $station = $self->stash('station'); my $via = $self->stash('via'); - my @platforms = split(/,/, $self->param('platforms') // q{}); + my @platforms = split( /,/, $self->param('platforms') // q{} ); my $template = $self->param('mode') // 'multi'; $self->stash( departures => [] ); $self->stash( title => 'db-fakedisplay' ); $self->stash( version => $VERSION ); - if (not($template ~~ [qw[multi single]])) { + if ( not( $template ~~ [qw[multi single]] ) ) { $template = 'multi'; } @@ -54,17 +54,17 @@ sub handle_request { return; } - if ($template eq 'single') { - if (not @platforms) { + if ( $template eq 'single' ) { + if ( not @platforms ) { for my $result (@results) { - if (not ($result->platform ~~ \@platforms)) { - push(@platforms, $result->platform); + if ( not( $result->platform ~~ \@platforms ) ) { + push( @platforms, $result->platform ); } } @platforms = sort { $a <=> $b } @platforms; } my %pcnt; - @results = grep { $pcnt{$_->platform}++ < 1 } @results; + @results = grep { $pcnt{ $_->platform }++ < 1 } @results; @results = sort { $a->platform <=> $b->platform } @results; } @@ -72,11 +72,11 @@ sub handle_request { my $platform = ( split( / /, $result->platform ) )[0]; if ($via) { my @route = $result->route; - if (not( grep { $_ =~ m{$via}io } @route )) { + if ( not( grep { $_ =~ m{$via}io } @route ) ) { next; } } - if (@platforms and not grep { $_ eq $platform } @platforms) { + if ( @platforms and not grep { $_ eq $platform } @platforms ) { next; } push( @@ -110,10 +110,10 @@ get '/_redirect' => sub { $params->remove('via'); for my $param (qw(platforms)) { - if (not $params->param($param)) { + if ( not $params->param($param) ) { $params->remove($param); } - elsif ($param eq 'mode' and $params->param($param) eq 'multi') { + elsif ( $param eq 'mode' and $params->param($param) eq 'multi' ) { $params->remove($param); } } @@ -137,10 +137,10 @@ get '/multi/:station' => \&handle_request; app->config( hypnotoad => { - accepts => 10, - listen => ['http://*:8092'], + accepts => 10, + listen => ['http://*:8092'], pid_file => '/tmp/db-fake.pid', - workers => 2, + workers => 2, }, ); |