use strict; BEGIN { require "wakautils.pl" } use constant NORMAL_HEAD_INCLUDE => q{ <if $title><var $title> - </if><const TITLE> }.include("include/header.html").q{
[] - [] []
}; use constant NORMAL_FOOT_INCLUDE => include("include/footer.html").q{ }; use constant PAGE_TEMPLATE => compile_template(NORMAL_HEAD_INCLUDE.q{ []
[
}.include("include/rules.html").q{
-( B, x)
<var $size>
No. No.   []
>> No. No.  
-( B, x)
<var $size>

[]
 		[] []

}.NORMAL_FOOT_INCLUDE); use constant ERROR_TEMPLATE => compile_template(NORMAL_HEAD_INCLUDE.q{





}.NORMAL_FOOT_INCLUDE); # # Admin pages # use constant MANAGER_HEAD_INCLUDE => NORMAL_HEAD_INCLUDE.q{ [] [] [] [] [] [] [] [] [] []

}; use constant ADMIN_LOGIN_TEMPLATE => compile_template(MANAGER_HEAD_INCLUDE.q{


}.NORMAL_FOOT_INCLUDE); use constant POST_PANEL_TEMPLATE => compile_template(MANAGER_HEAD_INCLUDE.q{
[]
[] []
( B, x)  MD5:
[]


}.NORMAL_FOOT_INCLUDE); use constant BAN_PANEL_TEMPLATE => compile_template(MANAGER_HEAD_INCLUDE.q{
      
      
      

IP / Word NoCap Whitelist /

}.NORMAL_FOOT_INCLUDE); use constant PROXY_PANEL_TEMPLATE => compile_template(MANAGER_HEAD_INCLUDE.q{


White Black

}.NORMAL_FOOT_INCLUDE); use constant SPAM_PANEL_TEMPLATE => compile_template(MANAGER_HEAD_INCLUDE.q{

}.NORMAL_FOOT_INCLUDE); use constant SQL_DUMP_TEMPLATE => compile_template(MANAGER_HEAD_INCLUDE.q{
}.NORMAL_FOOT_INCLUDE); use constant SQL_INTERFACE_TEMPLATE => compile_template(MANAGER_HEAD_INCLUDE.q{
}.NORMAL_FOOT_INCLUDE); use constant ADMIN_POST_TEMPLATE => compile_template(MANAGER_HEAD_INCLUDE.q{
[
}.NORMAL_FOOT_INCLUDE); no strict; $stylesheets=get_stylesheets(); # make stylesheets visible to the templates use strict; sub get_filename($) { my $path=shift; $path=~m!([^/]+)$!; clean_string($1) } sub get_stylesheets() { my $found=0; my @stylesheets=map { my %sheet; $sheet{filename}=$_; ($sheet{title})=m!([^/]+)\.css$!i; $sheet{title}=ucfirst $sheet{title}; $sheet{title}=~s/_/ /g; $sheet{title}=~s/ ([a-z])/ \u$1/g; $sheet{title}=~s/([a-z])([A-Z])/$1 $2/g; if($sheet{title} eq DEFAULT_STYLE) { $sheet{default}=1; $found=1; } else { $sheet{default}=0; } \%sheet; } glob(CSS_DIR."*.css"); $stylesheets[0]{default}=1 if(@stylesheets and !$found); return \@stylesheets; } 1;