#!/usr/bin/perl
use warnings;
use strict 'vars';
use macro 'MAX_POST_LEN';

# some settings
our %perms = (
    'rebuild'     => 6,
    'd_thread'    => 6,
    'm_thread'    => 6,
    'make_index'  => 6,
    'rules'       => 6,
);

# request handler
use CGI::Simple;
my $cgi = CGI::Simple->new;
my %vars = $cgi->Vars;
my ($do) = $vars{'do'} || 'default';
print "Content-Type: text/html\n\n";
if ($cgi->content_length() > $macro::MAX_POST_LEN)
{ print "err: POST too big" ;__; exit 0 }

if (($perms{$do}) && ($perms{$do} == 6))
{ macro->$do(%vars) }
else { macro->make_index }

exit 0

　＋　　　　　ﾟ　　.　　　　　　　　　　☆　　.　＋　　　　　ﾟ　　.　＋
　　　．　.　　　ﾟ　　.　　　　ﾟ　　。　　.|　　．　.　　　ﾟ　　.　o　　　　ﾟ
　　　　　　　　　　　　　　　　　　　　☆　　.　　　　　
　　　．　.　　　ﾟ　　.　o　　　　　　／　★　←　tanasinn　　　　　　　　　　　　　　
　　　　　　　　　　　　　　。　　／　 .　　　　　ﾟ　　。　　.　
　　ﾟ　　　　☆　.　　　　　　☆.　　　,　　ﾟ　　　　　.　　。　　　.　　.　　　,
　ﾟ　,　　／　,＼　。 　.　／　　　　　　。　　　　　　　ﾟ　　.　＋　　　　
　　　／．　　 　＼ﾟ　.／　　　　　ﾟ　　。　　.　　　　　　　　　　　　　　　。
　 ☆　　　　　　　☆　　　　　　　　 　ﾟ　,　　　,　。　.　　　　　ﾟ　　　。　
ﾟ　│.　.　.　ﾟ　　.　　　　　　　　　　　　　　　　　。　　　　　 .　　　　　ﾟ　
.　│　　　　.　　。　　　.　　.　　　,　　　ﾟ　,　　　,　。　.　　　　　ﾟ　　　。
ﾟ`.☆ﾟ.　ﾟ.　.　ﾟ　　.　　ﾟ　　　　　　　　　　　　　　　。　　　　　 .　　　　　
　ﾟ　,　　　,　。　.　　　＋　　ﾟ　　　。　ﾟ　　o　　　.　　。　　 

FILTERS  => make_filters,