<li><a href="/perl">perl versions</a>
<li><a href="/apl">apl symbols</a>
<li><a href="/termcol">terminal colours</a>
-<li><a href="/sc/2">starcraft 2 units</a>
- (<a href="/sc" title="StarCraft: Brood War">bw</a>)
+<li><a href="/sc/lotv">starcraft units</a>
<li><a href="/emoji">emoticons</a>
<li><a href="/dieren">dieren (Dutch animals)</a>
</ul>
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 <q>$Request</q> 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({
[qw( vi digraphs charset browser writing sc/lotv termcol dieren )],
[qw( readline latin unicode countries emoji perl )],
[qw( vimperator mutt nethack mplayer font codec )],
- [qw( apl less screen digits sc sc/hots termcol/legacy keyboard )],
+ [qw( apl less screen digits sc/bw sc/hots termcol/legacy keyboard )],
[qw( chars/table/html sample source plan )],
);