X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/0272c8638bb34d479a27f30f43a6db5e372b79b3..881b4a69e47004c59f35979620b65fd3d4aaaf16:/starcraft.plp diff --git a/starcraft.plp b/starcraft.plp index 8279df3..7da0ed2 100644 --- a/starcraft.plp +++ b/starcraft.plp @@ -9,7 +9,7 @@ use Shiar_Sheet::KeySigns qw(%sign); our $VERSION = 'v1.0'; -$header{content_type} = "text/html; charset=$sign{charset}"; +$header{content_type} = "text/html; charset=utf-8"; :> @@ -50,8 +50,10 @@ $header{content_type} = "text/html; charset=$sign{charset}"; <: -use Shiar_Sheet::Keyboard; -my $keys = Shiar_Sheet::Keyboard->new({do 'starcraft.inc.pl'}); +use Shiar_Sheet::Keyboard 2; +my $info = do 'starcraft.eng.inc.pl' or die $@; +$info->{def} = do 'starcraft.inc.pl'; +my $keys = Shiar_Sheet::Keyboard->new($info); $keys->map($get{map}) or undef $get{map}; $keys->print_rows($get{rows} || '1 =P1 Z1', [0]); :> @@ -94,9 +96,6 @@ $keys->print_rows($get{rows} || '1 =P1 Z1', [0]);