git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
terse stylesheet
[sheet.git]
/
index.plp
diff --git
a/index.plp
b/index.plp
index adc573df58b1a5461c52b574b8500655fa37984c..2b1d3e28b4b3b7794f08bb33ae481695a0669152 100644
(file)
--- a/
index.plp
+++ b/
index.plp
@@
-5,12
+5,6
@@
use warnings;
no warnings "qw"; # you know what you doing
no warnings "uninitialized"; # save some useless checks for more legible code
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 $ascii = 0;
our $VERSION = "1.0";
our $ascii = 0;
@@
-37,7
+31,7
@@
$header{content_type} = $ctype;
<link rel="stylesheet" type="text/css" media="all" href="base.css">
<!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->
<!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]--><:
<link rel="stylesheet" type="text/css" media="all" href="base.css">
<!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->
<!--[if lte IE 7]><style> .help dl.legend dd {float:none} </style><![endif]--><:
- 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<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
$_ eq $style ? "stylesheet" : "alternate stylesheet", "$_.css", $_
our $style = exists $get{style} && $styles{$get{style}} || "light";
printf(qq{\n<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
$_ eq $style ? "stylesheet" : "alternate stylesheet", "$_.css", $_