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 | |
| parent | 6f008b7f56ee44f0149ca59cf3d3fec90cc28f76 (diff) | |
code cleanup derp
| -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,  	},  ); | 
