X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/2645cbf6f7364951ad8dc72649361844181c2b20..9e77d528b81a90babfcc565609030fa01712b4a1:/sc.plp diff --git a/sc.plp b/sc.plp index 19149cf..b3c27fc 100644 --- a/sc.plp +++ b/sc.plp @@ -20,13 +20,20 @@ my %scvers = ( game => 'StarCraft II LotV', major => 2, }, + index => 'bw', + 1 => 'bw', + 2 => 'lotv', ); -$Request ||= 'bw'; -$Request = 'lotv' if $Request eq '2'; -my %scver = %{ $scvers{$Request} // {} } +my $requestver = $scvers{$Request ||= 'index'} or Html(), Abort("Requested version $Request not available", '404 request not found'); +if (ref $requestver ne 'HASH') { + $header{Location} = $requestver; + Abort("Canonical URL for $Request is at $requestver", '302 subpage alias'); +} + +my %scver = %{$requestver}; my $datafile = "sc-units-$Request.inc.pl"; Html({