diff options
Diffstat (limited to 'util')
| -rwxr-xr-x | util/skingen.pl | 182 |
1 files changed, 182 insertions, 0 deletions
diff --git a/util/skingen.pl b/util/skingen.pl new file mode 100755 index 0000000..4304b88 --- /dev/null +++ b/util/skingen.pl @@ -0,0 +1,182 @@ +#!/usr/bin/perl +use strict; +use warnings; +use Image::Size; +use Cwd 'abs_path'; + +################################################################################ +# CSS "Skin" generator for 333networks web interfaces +# +# Every skin is built in the following way. The SKIN AUTHOR needs to make a +# config file at $ROOT/s/style/SKINNAME/conf +# Here, SKINNAME is a lowercase folder and conf a plaintext file. In this folder +# you can opt to place textures, logos and other pictures used in your skin. +# +# In the conf file you describe the following color codes or textures: +# +# Options: +# +# name example description +# ------------------------------------------------------------------------------ +# name stylename description of the style/name of the style +# author Darkelarious style author (commented in style.css for credits) +# +#// backgrounds +# bodybg #222 body.gif body background (texture) +# boxbg1 #333 box background (texture) +# boxbg2 #111 menu backgrounds, buttons, thumbnail/image boxes (texture) +# boxbg3 #222 odd row accents (texture) +# shadow #222 shadow color (color) +# +# // text +# textcol1 #ccc main text color +# textcol2 #0af primary color for borders, links (color) +# textcol3 #ff0 secondary color for link:hover, actions (color) +# textcol4 #666 accent color for complementing main text color (color) +# +# // logos +# bglogo 333networks.png logo in background (recommended 75 px high max) +# +# ------------------------------------------------------------------------------ +# NOTE: some parameters can be colors, textures or both. (texture) can be both +# images and colors, such as #0af, #0af box.png, box.png, but (color) implies +# color ONLY. +# +# To compile a skin, run the command "./skingen.pl SKINNAME" where skinname is +# the lowercase folder name of your skin. The output is a style.css file in your +# folder. This style name can now be used in your webinterface config file under +# the "style => " option. +# +################################################################################ + +our($ROOT, %S); +BEGIN { ($ROOT = abs_path $0) =~ s{/util/skingen\.pl$}{}; } +use lib "$ROOT/lib"; +use SkinFile; + +# read styles to be compiled from commandline +if (scalar @ARGV) +{ + # for every style name/folder provided + for my $conf (@ARGV) + { + print "Parsing $conf\n"; + writeskin($conf); + } +} +else +{ + # minimalistic help command + print "Use: ./skingen.pl themename\n"; + print "\t themename is a folder like /s/style/themename\n"; + print "\t and contains a conf file with color codes. See\n"; + print "\t also comments in this script for more info.\n"; +} + +# args: theme name +sub writeskin +{ + my $name = shift; + my $skin = SkinFile->new("$ROOT/s/style", $name); + my %o = map +($_ => $skin->get($_)), $skin->get; + + # body background color / image + my @bg = split ' ', $o{bodybg}; + if (substr($bg[0], 0, 1) eq '#') + { + # col + img? + if ($bg[1] && $bg[1] =~ m/^\w+\.(gif|jpeg|jpg|png)$/i) + { + $o{_bodybg} .= "background: $bg[0] url(/style/$name/$bg[1]) repeat center top fixed;"; + } + else + { + $o{_bodybg} = "background: $bg[0];"; + } + } # only img + elsif ($bg[0] =~ m/^\w+\.(gif|jpeg|jpg|png)$/i) + { + $o{_bodybg} = "background: url(/style/$name/$bg[0]) repeat center top fixed;"; + } + + # box background color / image + @bg = split ' ', $o{boxbg1}; + + if (substr($bg[0], 0, 1) eq '#') + { + # col + img? + if ($bg[1] && $bg[1] =~ m/^\w+\.(gif|jpeg|jpg|png)$/i) + { + $o{_boxbg1} .= "background: $bg[0] url(/style/$name/$bg[1]) repeat center top;"; + } + else + { + $o{_boxbg1} = "background: $bg[0];"; + } + } # only img + elsif ($bg[0] =~ m/^\w+\.(gif|jpeg|jpg|png)$/i) + { + $o{_boxbg1} = "background: url(/style/$name/$bg[0]) repeat center top;"; + } + + # box background color / image boxtype 2 + @bg = split ' ', $o{boxbg2}; + if (substr($bg[0], 0, 1) eq '#') + { + # col + img? + if ($bg[1] && $bg[1] =~ m/^\w+\.(gif|jpeg|jpg|png)$/i) + { + $o{_boxbg2} .= "background: $bg[0] url(/style/$name/$bg[1]) repeat center top;"; + } + else + { + $o{_boxbg2} = "background: $bg[0];"; + } + } # only img + elsif ($bg[0] =~ m/^\w+\.(gif|jpeg|jpg|png)$/i) + { + $o{_boxbg2} = "background: url(/style/$name/$bg[0]) repeat center top;"; + } + + # box background color / image boxtype 3 + @bg = split ' ', $o{boxbg3}; + + if (substr($bg[0], 0, 1) eq '#') + { + # col + img? + if ($bg[1] && $bg[1] =~ m/^\w+\.(gif|jpeg|jpg|png)$/i) + { + $o{_boxbg3} .= "background: $bg[0] url(/style/$name/$bg[1]) repeat center top;"; + } + else + { + $o{_boxbg3} = "background: $bg[0];"; + } + } # only img + elsif ($bg[0] =~ m/^\w+\.(gif|jpeg|jpg|png)$/i) + { + $o{_boxbg3} = "background: url(/style/$name/$bg[0]) repeat center top;"; + } + + # site logo (overlay on background) + $o{_bglogo} = ""; + if (-e "$ROOT/s/style/$name/$o{bglogo}") + { + # get height + my ($w, $h) = imgsize("$ROOT/s/style/$name/$o{bglogo}") or die $!; + $o{_bglogo} = "background: url(/style/$name/$o{bglogo}) no-repeat center 10px fixed;"; + $o{_bgpadd} = "padding-top: " . int(500/$w*$h+20) . "px;"; + } + + # write the CSS + open my $CSS, '<', "$ROOT/data/style.css" or die "$ROOT/util/skingen/style.css $!"; + my $css = join '', <$CSS>; + close $CSS; + $css =~ s/\$$_\$/$o{$_}/g for (keys %o); + + my $f = "$ROOT/s/style/$name/style.css"; + open my $SKIN, '>', "$f~" or die $!; + print $SKIN $css; + close $SKIN; + rename "$f~", $f; +} |