diff options
Diffstat (limited to 'lib/MasterWebInterface/Util')
| -rwxr-xr-x | lib/MasterWebInterface/Util/Layout.pm | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/lib/MasterWebInterface/Util/Layout.pm b/lib/MasterWebInterface/Util/Layout.pm index 536aad7..20647fa 100755 --- a/lib/MasterWebInterface/Util/Layout.pm +++ b/lib/MasterWebInterface/Util/Layout.pm @@ -15,12 +15,24 @@ sub htmlHeader # CSS override: allow passing of style from GET --> ?style=classic my $style = $self->{style}; + + # rotate styles for different occasions. + my @dt = localtime(time); + # specify dates [m/d] = styles + if ($dt[4] == 2 && $dt[3] == 31) {$style = "april";} # 31 mar and 1 apr + if ($dt[4] == 3 && $dt[3] == 1) {$style = "april";} + if ($dt[4] == 9 && $dt[3] >= 1) {$style = "halloween";} + if ($dt[4] == 11 && $dt[3] >= 7) {$style = "xmas";} + if (my $overrideStyle = $self->reqParam("style") ) { # default to custom style if specified option doesn't exist - $style = ( -e "$self->{root}/s/style/$overrideStyle" ) ? $overrideStyle : $self->{style}; + $style = $overrideStyle; } + # default to default style if specified option does not exist + $style = ( -e "$self->{root}/s/style/$style" ) ? $style : $self->{style}; + html lang => "en"; head; title "$o{title} :: $self->{site_name} masterserver"; |