#!/usr/bin/perl
;# -------------------------------------------------------------------
;# Copyright
;#
;# Script : Mini Thread
;# Homepage : Flash CGI
;# URL : http://www.flashcgi.net/
;# Mail : webmaster@flashcgi.net
;# Type : Free Ware(May Convert)
;# -------------------------------------------------------------------
;#
;# 設定ファイル名
;; require 'config.cgi';
;#
;# 変数の局所化
;; my ($method,$accesskey);
;#
;; &main;
;#
;# 初期ページ
;#
sub main {
#
# 送られたデータを変数に入れる
#
if ($ENV{'REQUEST_METHOD'} eq 'POST') {
read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'});
} else { $QUERY_DATA = $ENV{'QUERY_STRING'}; }
#
# サイズチェック
#
&error(__LINE__,'コメントを短くして再度投稿してください') if (length($QUERY_DATA) > $sobig);
#
# デコード
#
my @pairs = split(/&/,$QUERY_DATA);
foreach $pair (@pairs) {
my ($name, $value) = split(/=/,$pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/[\x00-\x0d\x10-\x1a\x1c-\x1f]+//g;
$FORM{$name} = $value;
}
#
# 板
#
if ($FORM{'bbs'} eq '') { &look($QUERY_DATA); }
#
# パスの設定
#
if (&checkBbs($FORM{'bbs'})) {
&readsubset($pluspath.$FORM{'bbs'}.'/'.$subsetcgi);
} else {
&error(__LINE__,'板が見つかりません');
}
#
# J-PHONEとi-modeで変化
#
if ($host =~ /\.jp-[a-z]\.ne\.jp$/i or $ENV{'HTTP_USER_AGENT'} =~ /^J-PHONE/i) {
$method = 'get';
$accesskey = 'directkey';
} else {
$method = 'post';
$accesskey = 'accesskey';
}
#
# 条件分岐
#
if ($FORM{'ac'} eq 'th') { &thread(); }
elsif ($FORM{'ac'} eq 'rf') { &resform(); }
elsif ($FORM{'ac'} eq 'del') { &delform(); }
else { &page(); }
}
;#
;# タイトル一覧
;#
sub page {
#
# 変数代入
#
my $bbs = $FORM{'bbs'};
my $page = $FORM{'pg'};
$FORM{'stay'} = $scripturl.'?bbs='.$bbs.'&page='.$page;
$page = 0 if ($page eq '' or $page < 0);
#
# フォームチェック
#
if ($page and $page !~ /^[-0-9]+$/) {
&error(__LINE__,'不正なデータです');
}
#
# データファイルから記事を読みこみます
#
open(DATA,$pluspath.$bbs.'/'.$savefile) or &error(__LINE__,'題名一覧ファイルのオープンに失敗しました');
#
# HTML
#
&encode(1);
print ''.$board_name.'';
print '';
print '-+■COME TOGETHER■+-
仲間探し掲示板
';
#print '※2/1(火)RSR2011 OFFICIAL SITE ﾘﾆｭｰｱﾙUPに伴い､1/27(木)AM10:00~1/31(月)PM23:59までｻｰﾋﾞｽを一時停止させていただきます｡大変ご迷惑をおかけ致しますが､ご理解とご協を頂きます様お願い申し上げます｡
';
print '※個人､団体への中傷､他者に不快を与える書込み､ﾁｹｯﾄ等の交換･売買､RSRFESに関係がない書込みは管理者の判断により削除させていただきます｡
';
print $cellcom;
#
# スレッド数
#
my $count;
$count++ while();
#
# スレッドが無ければ飛ばす
#
if (!$count) {
print 'Flash CGI';
exit;
}
#
# 大きすぎ
#
$page = $count-$cellthread if ($page >= $count);
#
# 末端が大きい場合
#
$readline = ($page+$cellthread) > $count ? $count-$page : $cellthread;
#
# 飛ばす
#
seek(DATA,0,0);
while($page--);
#
# 表示開始
#
my $i;
while ($readline--) {
++$i;
#
# ログファイル名指定
#
my @SUB = split(/<>/,scalar());
my $key = substr($SUB[0],0,-4);
my $no;
chomp($SUB[1]);
if ($SUBJ_LENGTH and length($SUB[1]) > $SUBJ_LENGTH) {
$SUB[1] =~ /(\s\([0-9]+\)$)/;
$no = $1;
÷(\$SUB[1],$SUBJ_LENGTH-length($no));
}
#
# 表示
#
print '['.$i.'] '.$SUB[1].$no.'
';
}
print '
';
#
# ページ処理
#
if () {
my $next = $FORM{'pg'} + $cellthread;
print '[#] 次のページ
';
}
if ($FORM{'pg'} > 0) {
my $back = $FORM{'pg'} - $cellthread;
print '[*] 前のページ
';
}
#
# ファイル閉じる
#
close(DATA);
print '[0] スレッド作成';
#
# 著作と終端
#
print 'Flash CGI