#!/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'; ;# ;; &main(); ;# ;# 初期ページ ;# sub main { # # データ多すぎ # &error(__LINE__,'???') if (length($ENV{'QUERY_STRING'}) > $sobig); # # 変数代入 # my ($bbs,$page) = split(/&/,$ENV{'QUERY_STRING'}); my ($cnt,%BBS) = &allBbsList(); my $plus = $pluspath.$bbs.'/'; my $read = $readcgi.'/'.$bbs; # # パス設定 # if (&checkBbs($bbs)) { &readsubset($pluspath.$bbs.'/'.$subsetcgi); } else { &error(__LINE__,'板が見つかりません'); } # # フォームチェック # if ($page and $page =~ /\D/) { &error(__LINE__,'不正なデータです。
数値以外が含まれています'); } # # データファイルから記事を読みこみます # open(DATA,$plus.$savefile) or &error(__LINE__,$plus.$savefile.'近辺をチェックしてください'); # # スレッド数 # my $threadcount; ++$threadcount while(); my $last = $threadcount > $pagemax ? $pagemax : $threadcount; seek(DATA,0,0); # # 変なデータを受信した場合 # if ($page >= $threadcount) { $page = $threadcount - $pagemax; } # # 先頭 # if ($page eq '' or $page < 0) { $page = 0; } # # 圧縮 # &encode(); print < $main_style $board_name EOF print $title; print '
'; print ''; # # 板一覧 # if ($allboard) { my $i = 0; print ''; } # # スレッドが無ければ飛ばす # if (!$threadcount) { close(DATA); print '
'; print $formcom; print 'ご利用ありがとうございました。引き続きこちらでお楽しみ下さい。
'; print 'スレッドを作成する '; print ''; print '  過去ログ '; print '  i-mode ' if ($usecell); print '  全検索 '; print '  戻る '; print '
'; while($i < $cnt) { my @TEMP = split(/<>/,$BBS{$i}); print ''.$TEMP[1].' ' if (!$TEMP[2]); print '【'.$TEMP[1].'】 ' if ($TEMP[2] == 2); ++$i; } close(BBS); print '
'; ©right; } # # タイトル一覧数 # my $view = $threadcount > $titlemax ? $titlemax : $threadcount; # # 整形表示対応 # my ($fst,$snd,$cols,$pause); if ($arrange) { if ($view <= 2) { $cols = ' valign=top colspan=3'; } else { my $no = $view/3; $fst = int($no) == $no ? $no : int($no+1); $no *= 2; $snd = int($no) == $no ? $no : int($no+1); $cols = ' valign=top'; } $pause = '
'; } else { $cols = ' colspan=3'; $pause = ' / '; } # # タイトル一覧先頭 # #print '' if ($view); print '' if ($view); my ($i,$an); while() { my @SUB = split(/<>/); my $key = $SUB[0]+0; ++$i; chop $SUB[1]; if ($i > $page and $i <= ($page+$pagemax)) { ++$anc; print ''.$i.': '; print ''; } else { print ''.$i.': '; } print $SUB[1].''.$pause; if ($i == $fst or $i == $snd) { print '' if ($arrange); } last if ($i >= $view); } print ''; # # ページ処理 # if ($page > 0) { my $back = $page-$pagemax > 0 ? $page-$pagemax : 0 ; if ($back == 0) { print '前のページ '; } else { print '前のページ '; } } if ($page+$pagemax < $threadcount) { my $next = $page+$pagemax; print '次のページ '; } my $lst = ($threadcount-1)/$pagemax; my $i; while ($i <= $lst) { my $temp = $i*$pagemax; ++$i; if ($temp == $page) { print $i.' '; } elsif ($i == 1) { print ''.$i.' '; } else { print ''.$i.' '; } } # # タイトル一覧末端 # print ''; print 'スレッド一覧['.$threadcount.']'; print '
'; # # 広告位置 # print $banner; # # とばす # my $i; seek(DATA,0,0); while($i++ < $page); # # 表示開始 # my $i; while () { # # ログファイル名指定 # last if (++$i > $pagemax); my @SUB = split(/<>/); my $key = $SUB[0]+0; my $file = $plus.$savedir.$SUB[0]; my $resno = 1; # # リンク用 # my $d = $i - 1; my $c = $i + 1; if ($c > $pagemax) { $c = 0; } # # 読み込み # my $count; open (LOG,$file) or &printingerror(__LINE__,$file.'を開けませんでした',); $count++ while(); seek(LOG,0,0); # # タイトル用 # my @TEMP = split(/<>/,scalar()); # # ストップ判断用 # my $stop = $TEMP[9]; my $j = $page + $i; # # 記事表示部 # print '
'; print ''; print ''; print '
'; print '
'; print '
'; print '全部読む '; print 'リロード '; print '
【'.$j.':'.$count.'】'.$TEMP[4].''; # # データを指定した形式に変換 # &convertData(\@TEMP,'return'=>$pluspath,'link'=>$read.'/'.$key.'/','resno'=>$resno,'color'=>$main_nameclr,'count'=>$count,'omit' => 1); # # ログ数チェック # my $v = $count > $viewres ? $count - $viewres : 0; $resno += $v; # # 早送り # while ($v--) { ; } # # ログ表示 # while() { ++$resno; my @TEMP = split(/<>/); print '

'; # # Mail/URL/DATE処理 # &convertData(\@TEMP,'return'=>$pluspath,'link'=>$read.'/'.$key.'/','resno'=>$resno,'color'=>$main_nameclr,'count'=>$count,'omit' => 1); } close(LOG); # # レスフォーム # print '
'; # # スレッドストップのチェック # ファイルサイズとレス数のチェック # my $volume = -s $file; $volume = int($volume/1024)+1; if ($stop) { print 'このスレッドは停止されています。'; } else { &cv_check($count,$volume); } #print ' '; #print ''; #print '
'; #print ''; #print ''; #print ''; #print ''; #print ''; #print ''; #print ''; #print ''; #print '
'; #print 'name： '; #print 'mail： '; #print '
message：
ＵＲＬ：
password：  
'; #print 'スレッドのトップ '; print '
'; } # # 著作権と終端 # ©right; } ;# ;# ページ生成中エラー ;# sub printingerror { my $line = shift; my $com = shift; print '
'; print '
'; print 'ページの生成中にエラーが発生しました。
'; print 'こちらを押して再描画してください。
'; print '症状が改善しない場合は管理者に連絡してください。
'; print $com; print '
CALL POINT：'.$line.'
'; ©right; }