#!/usr/bin/perl
BEGIN {
my $WMPATH="";
foreach ($0,$ENV{'PATH_TRANSLATED'},$ENV{'SCRIPT_FILENAME'})
{
$WMPATH = $_;
next if ($WMPATH eq '');
$WMPATH =~ s/\\/\//g; $WMPATH =~ s/\/[^\/]+$//o;
unshift(@INC,$WMPATH);
unshift(@INC,$WMPATH . "/extlib");
unshift(@INC,$WMPATH . "/config");
}
use CGI::Carp qw(fatalsToBrowser);
}
use strict;
use CGI;
use DBI;
use WMCGI;
use WMCGI::CATemplates;
use WMCGI::WMSessions;
use URI::Escape;
my $q = new CGI;
my $thisfilename = $WMCGI::AdminFile{'index'};
my $action = WMCGI::wminit();
my $dbh = WMCGI::dbconnect(\%WMCGI:B_cfg);
my $userdata = 0;
unless ($userdata = WMCGI::WMSessions::session_start($dbh))
{
print $q->redirect($WMCGI::AdminFile{'login'}.'?action=login&');
exit;
}
print CGI->header();
WMCGI::CATemplates::CHeader("管理中心", $userdata);
my @level = ();
$level[2] = '<span style="color: #FFFFFF; background-color: #FF00FF;padding:2px;">版主</span>';
$level[3] = '<span style="color: #00FFFF; background-color: #0000FF;padding:2px;">总版主</span>';
$level[9] = '<span style="color: #FFFF00; background-color: #FF0000;padding:2px;">站长</span>';
my $imlevel = '';
if (defined($level[$userdata->{'USER_LEVEL'}]))
{
$imlevel = $level[$userdata->{'USER_LEVEL'}];
}
print <<EOF;