summaryrefslogtreecommitdiff
path: root/util/skingen.pl
diff options
context:
space:
mode:
Diffstat (limited to 'util/skingen.pl')
-rwxr-xr-xutil/skingen.pl8
1 files changed, 8 insertions, 0 deletions
diff --git a/util/skingen.pl b/util/skingen.pl
index 343c5922..834578cb 100755
--- a/util/skingen.pl
+++ b/util/skingen.pl
@@ -18,10 +18,18 @@ use SkinFile;
require $ROOT.'/data/global.pl';
+my $iconcss = do {
+ open my $F, '<', "$ROOT/data/icons/icons.css" or die $!;
+ local $/=undef;
+ <$F>;
+};
+
+
sub writeskin { # $name
my $name = shift;
my $skin = SkinFile->new("$ROOT/static/s", $name);
my %o = map +($_ => $skin->get($_)), $skin->get;
+ $o{iconcss} = $iconcss;
# get the right top image
if($o{imgrighttop}) {