X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/f8c9c002006dbbaa51bd90d234e43561a9d09eff..66131b7283ba2567b886d4a6d0846d1df78770ae:/index.plp diff --git a/index.plp b/index.plp index adc573d..592d5d5 100644 --- a/index.plp +++ b/index.plp @@ -5,13 +5,7 @@ use warnings; no warnings "qw"; # you know what you doing no warnings "uninitialized"; # save some useless checks for more legible code -# 2006-03-29 ~20:00 started work -# 2006-03-30 11:58 html version -# 2006-05-20 03:44 perl version -# 2007-02-07 07:34 cleaned up -# 2007-02-25 04:00 v1.0: git repository - -our $VERSION = "1.0"; +our $VERSION = "1.1"; our $ascii = 0; if (exists $get{ascii}) { @@ -37,7 +31,7 @@ $header{content_type} = $ctype; <: - my %styles = map {$_ => $_} qw(dark circus mono); + my %styles = map {$_ => $_} qw(dark circus mono terse); our $style = exists $get{style} && $styles{$get{style}} || "light"; printf(qq{\n}, $_ eq $style ? "stylesheet" : "alternate stylesheet", "$_.css", $_ @@ -240,9 +234,12 @@ for (my $row = 0; $row <= $#$keyrows; $row++) {