summaryrefslogtreecommitdiff
path: root/util/skingen.pl
diff options
context:
space:
mode:
Diffstat (limited to 'util/skingen.pl')
-rwxr-xr-xutil/skingen.pl5
1 files changed, 4 insertions, 1 deletions
diff --git a/util/skingen.pl b/util/skingen.pl
index 9c06b077..e27ea4a1 100755
--- a/util/skingen.pl
+++ b/util/skingen.pl
@@ -27,6 +27,7 @@ sub readskin { # skin name
open my $F, '<', $ROOT.'/static/s/'.$name.'/conf' or die $!;
while(<$F>) {
chomp;
+ s/\r//g;
s{[\t\s]*//.+$}{};
next if !/^([a-z0-9]+)[\t\s]+(.+)$/;
$o{$1} = $2;
@@ -60,6 +61,8 @@ sub writeskin { # $obj
$o->{_bodybg} = "background: $o->{bodybg} url($o->{imglefttop}) no-repeat";
}
+ # main title
+ $o->{_maintitle} = $o->{maintitle} ? "color: $o->{maintitle}" : 'display: none';
# create boxbg.png
my $img = Image::Magick->new(size => '1x1');
@@ -74,7 +77,7 @@ sub writeskin { # $obj
$o->{_blendbg} = '#'.join '', map sprintf('%02x', $_*255), $img->GetPixel(x=>1,y=>1);
# write the CSS
- open my $CSS, '<', "$ROOT/data/skingen/style.css" or die $!;
+ open my $CSS, '<', "$ROOT/data/style.css" or die $!;
open my $SKIN, '>', "$ROOT/static/s/$o->{_name}/style.css" or die $!;
while((my $d = <$CSS>)) {
if($O{debug}) {