#!/usr/bin/perl
##################################################################
# 诗歌报文章管理系统 编写:小鱼儿(诗歌报) #
# ============================================================== #
# Copyright (c) 2001-2002 Xiaoran Studio - All Rights Reserved. #
##################################################################
BEGIN {
$CGIPATH = '.';
my $pgm = $0;
$pgm =~ s/\\/\//g;
$pgm =~ s/^.*\/([^\/]+)$/$1/g;
unless (-e $CGIPATH . '/' . $pgm) {
foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
if (-e $_ . '/' . $pgm) { $CGIPATH = $_; last; }
}
}
unshift (@INC, "$CGIPATH");
}
use XRBASE;
require 'config/settings.cgi';
require 'config/variables.cgi';
require "config/style.cgi";
require 'sources/subs.cgi';
require 'sources/ad_subs.cgi';
require 'data/order.cgi';
$| ++;
my $BUFFER;
my @DATAPAIRS;
my $PAIR;
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $BUFFER, $ENV{'CONTENT_LENGTH'});
@DATAPAIRS = split(/\&/, $BUFFER);
} else {
$BUFFER = $ENV{'QUERY_STRING'};
@DATAPAIRS = split(/\;/, $BUFFER);
}
foreach $PAIR (@DATAPAIRS) {
my ($name, $value) = split(/=/, $PAIR);
$value =~tr/+/ /;
$value =~s/%([a-fA-f0-9][a-fA-f0-9])/pack('C', hex($1))/eg;
$form{"$name"} = $value;
push(@select, $value) if($name eq 'select');
}
require 'sources/ad_login.cgi';
&checklogin;
&header;
$VERSION = 'V3.0.4 注册版';
my $act = $form{'act'};
my $actfind = substr($act, 0, 1);
if ($act eq 'remove') {
my $fileopen = $path_cgi . "/install.cgi";
unlink "$fileopen";
$fileopen = $path_cgi . "/convert.cgi";
unlink "$fileopen";
require 'sources/ad_login.cgi'; &login;
}
if ((-e "$path_cgi/install.cgi") or (-e "$path_cgi/convert.cgi")) {
&error('系统检测到在CGI程序目录中,文件install.cgi或convert.cgi仍然存在,请立即通过FTP删除这些文件。
您也可以点击这里删除。');
}
if ($actfind eq 'a') {
if ($act eq 'add') { require 'sources/ad_add.cgi'; &add_main; }
elsif ($act eq 'add-do') { require 'sources/ad_add.cgi'; &add_article; }
elsif ($act eq 'a&f') { require 'sources/ad_aufr.cgi'; &main; }
elsif ($act eq 'a&f-do') { require 'sources/ad_aufr.cgi'; &update; }
elsif ($act eq 'admin_log') { require 'sources/ad_log.cgi'; &admin_log; }
elsif ($act eq 'admin_log_reset') { require 'sources/ad_log.cgi'; &admin_log_reset; }
} elsif ($actfind eq 'b') {
if ($act eq 'body') { require 'sources/ad_main.cgi'; &body; }
elsif ($act eq 'backup') { require 'sources/ad_backup.cgi'; &backup_main; }
elsif ($act eq 'bak_backup') { require 'sources/ad_backup.cgi'; &backup; }
elsif ($act eq 'bak_restore') { require 'sources/ad_backup.cgi'; &restore; }
elsif ($act eq 'bak_delete') { require 'sources/ad_backup.cgi'; &delete; }
} elsif ($actfind eq 'c') {
if ($act eq 'categories') { require 'sources/ad_cate.cgi'; &cate; }
elsif ($act eq 'cate-new') { require 'sources/ad_cate.cgi'; &new; }
elsif ($act eq 'cate-donew') { require 'sources/ad_cate.cgi'; &donew; }
elsif ($act eq 'cate-up') { require 'sources/ad_cate.cgi'; &up; }
elsif ($act eq 'cate-edit') { require 'sources/ad_cate.cgi'; &edit; }
elsif ($act eq 'cate-doedit') { require 'sources/ad_cate.cgi'; &doedit; }
elsif ($act eq 'cate-del') { require 'sources/ad_cate.cgi'; &del; }
elsif ($act eq 'classes') { require 'sources/ad_class.cgi'; &class; }
elsif ($act eq 'class-new') { require 'sources/ad_class.cgi'; &new; }
elsif ($act eq 'class-donew') { require 'sources/ad_class.cgi'; &donew; }
elsif ($act eq 'class-up') { require 'sources/ad_class.cgi'; &up; }
elsif ($act eq 'class-edit') { require 'sources/ad_class.cgi'; &edit; }
elsif ($act eq 'class-doedit') { require 'sources/ad_class.cgi'; &doedit; }
elsif ($act eq 'class-del') { require 'sources/ad_class.cgi'; &del; }
elsif ($act eq 'class-update') { require 'sources/ad_update.cgi'; &update_class_set; }
elsif ($act eq 'class-updateall') { require 'sources/ad_update.cgi'; &update_class_all; }
elsif ($act eq 'code') { require 'sources/ad_code.cgi'; &code; }
elsif ($act eq 'customjs') { require 'sources/ad_custom.cgi'; &main; }
elsif ($act eq 'customjs-new') { require 'sources/ad_custom.cgi'; &add; }
elsif ($act eq 'customjs-edit') { require 'sources/ad_custom.cgi'; &edit; }
elsif ($act eq 'customjs-del') { require 'sources/ad_custom.cgi'; &del; }
elsif ($act eq 'customjs-additem') { require 'sources/ad_custom.cgi'; &additem; }
elsif ($act eq 'checklist') { require 'sources/ad_check.cgi'; &checklist; }
elsif ($act eq 'checkpass') { require 'sources/ad_check.cgi'; &checkpass; }
elsif ($act eq 'checkdel') { require 'sources/ad_check.cgi'; &checkdel; }
elsif ($act eq 'checkview') { require 'sources/ad_check.cgi'; &checkview; }
elsif ($act eq 'css') { require 'sources/ad_css.cgi'; &css; }
elsif ($act eq 'css_update') { require 'sources/ad_css.cgi'; &css_update; }
} elsif ($actfind eq 'd') {
if ($act eq 'del') { require 'sources/ad_del.cgi'; &del; }
if ($act eq 'delreview') { require 'sources/ad_del.cgi'; &delreview; }
} elsif ($actfind eq 'e') {
if ($act eq 'edit') { require 'sources/ad_edit.cgi'; &edit_main; }
elsif ($act eq 'edit-do') { require 'sources/ad_edit.cgi'; &edit_article; }
} elsif ($actfind eq 'h') {
if ($act eq 'headfoot') { require 'sources/ad_hdft.cgi'; &head_foot; }
elsif ($act eq 'h&f-edit') { require 'sources/ad_hdft.cgi'; &edit; }
elsif ($act eq 'h&f-update') { require 'sources/ad_hdft.cgi'; &update; }
} elsif ($actfind eq 'j') {
if ($act eq 'jsadd') { require 'sources/ad_jsadd.cgi'; &main; }
elsif ($act eq 'jsadd-do') { require 'sources/ad_jsadd.cgi'; &add; }
} elsif ($actfind eq 'l') {
if ($act eq 'label') { require 'sources/ad_label.cgi'; &label; }
elsif ($act eq 'label-do') { require 'sources/ad_label.cgi'; &update; }
elsif ($act eq 'list') { require 'sources/ad_list.cgi'; &list; }
elsif ($act eq 'login') { require 'sources/ad_login.cgi'; &login; }
elsif ($act eq 'logout') { require 'sources/ad_login.cgi'; &logout; }
elsif ($act eq 'link') { require 'sources/ad_link.cgi'; &link; }
elsif ($act eq 'linkcate-new') { require 'sources/ad_link.cgi'; &newcate; }
elsif ($act eq 'linkclass-new') { require 'sources/ad_link.cgi'; &newclass; }
elsif ($act eq 'linkcate-edit') { require 'sources/ad_link.cgi'; &editcate; }
elsif ($act eq 'linkclass-edit') { require 'sources/ad_link.cgi'; &editclass; }
elsif ($act eq 'linkcate-del') { require 'sources/ad_link.cgi'; &delcate; }
elsif ($act eq 'linkclass-del') { require 'sources/ad_link.cgi'; &delclass; }
} elsif ($actfind eq 'm') {
if ($act eq 'menu') { require 'sources/ad_main.cgi'; &menu; }
elsif ($act eq 'move') { require 'sources/ad_move.cgi'; &main; }
elsif ($act eq 'move-do') { require 'sources/ad_move.cgi'; &domove; }
elsif ($act eq 'mylist') { require 'sources/ad_mylist.cgi'; &mylist; }
} elsif ($actfind eq 'r') {
if ($act eq 'reginfo') { require 'sources/ad_reginfo.cgi'; ®info; }
elsif ($act eq 'reginfo-do') { require 'sources/ad_reginfo.cgi'; &doreginfo; }
elsif ($act eq 'resetcookie') { require 'sources/list.cgi'; &resetcookie; }
elsif ($act eq 'reset_total') { require 'sources/ad_retotal.cgi'; &reset_total; }
elsif ($act eq 'reset_total_do') { require 'sources/ad_retotal.cgi'; &doreset; }
elsif ($act eq 'reset_total_doall') { require 'sources/ad_retotal.cgi'; &doresetall; }
} elsif ($actfind eq 's') {
if ($act eq 'style') { require 'sources/ad_style.cgi'; &style; }
elsif ($act eq 'style_apply') { require 'sources/ad_style.cgi'; &style_apply; }
elsif ($act eq 'search') { require 'sources/search.cgi'; &main; }
elsif ($act eq 'settings') { require 'sources/ad_set.cgi'; &settings; }
elsif ($act eq 'settings-read') { require 'sources/ad_set.cgi'; &read_settings; }
elsif ($act eq 'settings-update') { require 'sources/ad_set.cgi'; &update_settings; }
elsif ($act eq 'spejs') { require 'sources/ad_spejs.cgi'; &main; }
elsif ($act eq 'spejs-newjs') { require 'sources/ad_spejs.cgi'; &newjs; }
elsif ($act eq 'spejs-donew') { require 'sources/ad_spejs.cgi'; &donew; }
elsif ($act eq 'spejs-deljs') { require 'sources/ad_spejs.cgi'; &deljs; }
elsif ($act eq 'spejs-editjs') { require 'sources/ad_spejs.cgi'; &editjs; }
} elsif ($actfind eq 'p') {
if ($act eq 'plugins') { require 'sources/ad_plug.cgi'; &plugins; }
elsif ($act eq 'plug-new') { require 'sources/ad_plug.cgi'; &new; }
elsif ($act eq 'plug-edit') { require 'sources/ad_plug.cgi'; &edit; }
elsif ($act eq 'plug-doedit') { require 'sources/ad_plug.cgi'; &doedit; }
elsif ($act eq 'plug-del') { require 'sources/ad_plug.cgi'; &del; }
elsif ($act eq 'preview') { require 'sources/ad_check.cgi'; &preview; }
} elsif ($actfind eq 'u') {
if ($act eq 'update') { require 'sources/ad_update.cgi'; &main; }
elsif ($act eq 'update-do') { require 'sources/ad_update.cgi'; &update; }
elsif ($act eq 'updatejs') { require 'sources/ad_upjs.cgi'; &main; }
elsif ($act eq 'updatejs-new') { require 'sources/ad_upjs.cgi'; &new; }
elsif ($act eq 'updatejs-top') { require 'sources/ad_upjs.cgi'; ⊤ }
elsif ($act eq 'updatejs-all') { require 'sources/ad_upjs.cgi'; &upall; }
elsif ($act eq 'updatejs-search') { require 'sources/ad_upjs.cgi'; &search; }
elsif ($act eq 'updatejs-menux') { require 'sources/ad_upjs.cgi'; &updatemenux; }
elsif ($act eq 'updatejs-menu') { require 'sources/ad_upjs.cgi'; &updatemenu; }
elsif ($act eq 'upload-list') { require 'sources/ad_upload.cgi'; &list; }
elsif ($act eq 'upload-add-view') { require 'sources/ad_upload.cgi'; &add_list; }
elsif ($act eq 'upload') { require 'sources/ad_upload.cgi'; &upload; }
elsif ($act eq 'upload-do') { require 'sources/ad_upload.cgi'; &doupload; }
elsif ($act eq 'upload-chmod') { require 'sources/ad_upload.cgi'; &chmod; }
elsif ($act eq 'upload-dochmod') { require 'sources/ad_upload.cgi'; &dochmod; }
elsif ($act eq 'upload-rename') { require 'sources/ad_upload.cgi'; &rename; }
elsif ($act eq 'upload-dorename') { require 'sources/ad_upload.cgi'; &dorename; }
elsif ($act eq 'upload-del') { require 'sources/ad_upload.cgi'; &del; }
elsif ($act eq 'userlist') { require 'sources/ad_member.cgi'; &list; }
elsif ($act eq 'user-new') { require 'sources/ad_member.cgi'; &new; }
elsif ($act eq 'user-new-do') { require 'sources/ad_member.cgi'; &donew; }
elsif ($act eq 'user-edit') { require 'sources/ad_member.cgi'; &edit; }
elsif ($act eq 'user-edit-do') { require 'sources/ad_member.cgi'; &doedit; }
elsif ($act eq 'user-del') { require 'sources/ad_member.cgi'; &del; }
elsif ($act eq 'user-checklist') { require 'sources/ad_member.cgi'; &checklist; }
elsif ($act eq 'user-check-new') { require 'sources/ad_member.cgi'; &check_pass; }
elsif ($act eq 'user-check-del') { require 'sources/ad_member.cgi'; &check_del; }
} else { require 'sources/ad_main.cgi'; &main; }
exit;