X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/3978c7991a5172d9753094770f24b56cca85d91b..e7d0872468d9ff54c39ac8a7e64f283ba093c7aa:/sc.plp diff --git a/sc.plp b/sc.plp index 3252cf3..13248fb 100644 --- a/sc.plp +++ b/sc.plp @@ -3,7 +3,6 @@ my %scver = ( id => 'bw', name => 'Brood War', - patch => 'version≥1.08', title => 'starcraft', game => 'StarCraft', major => 1, @@ -13,7 +12,6 @@ if ($ENV{PATH_INFO} and $ENV{PATH_INFO} eq '/2') { %scver = ( id => 'hots', name => 'Heart of the Swarm', - patch => 'patch 2.1.3 BU', title => 'starcraft2', game => 'StarCraft II', major => 2, @@ -42,7 +40,13 @@ Html({ }); print "

$scver{game} units

\n\n"; -print "

Unit properties as seen or measured in $scver{name}\n$scver{patch}.\n

\n\n"; + +my $units = do $datafile; +die "Cannot open unit data: $_\n" for $@ || $! || (); +my $patch = shift @{$units} + or die "Cannot open unit data: metadata not found\n"; + +print "

Unit properties as seen or measured in $scver{name}\n$patch.\n

\n\n"; sub coltoggle { my ($name, $id) = @_; @@ -213,8 +217,6 @@ sub showval { ); } - my $units = do $datafile; - die "Cannot open unit data: $_\n" for $@ || $! || (); my $grouped = 1; # race headers if (exists $get{order}) { $grouped = 0;