#!/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 { # # 局所変数 # my ($bbs,$QUERY_DATA); # # 引数を受け取ります # if ($ENV{'PATH_INFO'} ne '') { $QUERY_DATA = $ENV{'PATH_INFO'}; $QUERY_DATA = substr($QUERY_DATA,0,(length($QUERY_DATA)/2)) if ($xrea); # XREA } else { $QUERY_DATA = $ENV{'QUERY_STRING'}; } if($QUERY_DATA =~ /$readcgi/) { $QUERY_DATA = $'; #' } # # サイズチェック # &error(__LINE__,'送信データが大きすぎます') if (length($QUERY_DATA) > $sobig); # # ごみ箱閲覧 # if ($QUERY_DATA eq '/trash') { require 'file.pl'; &trashTitle($QUERY_DATA); } elsif ($QUERY_DATA =~ m|^/delc/|) { require 'file.pl'; &deleteCookie($QUERY_DATA); } elsif ($QUERY_DATA eq '/path') { require 'file.pl'; &pathTest; } # # 板 # $QUERY_DATA =~ s|^/([-a-zA-Z0-9]+)/|/|; $bbs = $1; if (&checkBbs($bbs)) { &readsubset($pluspath.$bbs.'/'.$subsetcgi); } else { &error(__LINE__,'そんな板ありません'); } # # 処理分岐 # if ($QUERY_DATA eq '/submit') { require 'file.pl'; &submit($bbs); } elsif ($QUERY_DATA eq '/cap') { require 'file.pl'; &cap($bbs); } elsif ($QUERY_DATA =~ m|^/past/?|) { require 'file.pl'; &pasttitle($QUERY_DATA,$bbs); } else { &look($QUERY_DATA,$bbs); } } ;# ;# レス表示 ;# sub look { # # 変数取得 # my $data= shift; my $bbs = shift; my ($key,$order,$from,$to,$want,@resNo); my ($goget,$goback); my $plus = $pluspath.$bbs.'/'; my $diswant = 5; # # 汚染チェック # if ($data =~ m|^/([0-9]+)/(l?[-+0-9]*n?)$|) { $key = $1; $order = $2; } else { &error(__LINE__,'不正なデータを受信しました'); } # # 変数取得 # if ($order =~ /^([+0-9]+)n?$/) { @resNo = split(/\+/,$1); } elsif ($order =~ /^([0-9]*)-?([0-9]*)(n?)$/) { $from = $1 ? $1 : 1; $to = $2; $resNo[0] = 1 if (!$3); } elsif ($order =~ /^l([0-9]+)(n?)$/) { $want = $1; $resNo[0] = 1 if (!$2); } else { &error(__LINE__,'データを取得できません'); } # # get用 # if ($getmethod) { $goget = $readcgi.'/'.$bbs.'/'.$key.'/'; } else { $goback = '../../../'; } # # ファイルチェック # my $file = $plus.$savedir.$key.'.dat'; unless (-e $file) { require 'file.pl'; &search($data,$bbs,$key,$goback); } # # データファイルから記事を読みこみます # open(LOG,$file) or &error(__LINE__,'データを開けません'); my $stop = (split(/<>/,scalar()))[9]; seek(LOG,0,0); # # レス数 # my $count; ++$count while(); # # 続いたレスを表示する場合 # if ($from) { if ($from > $count) { if ($count - $someres > 0) { $from = $count - $someres + 1; } else { $from = 1; } } if (!$to or $to > $count) { $to = $count; } $want = $to - $from + 1; pop @resNo if ($from == $resNo[0]); } # # 最新xx件という指定の場合 # elsif ($want) { $from = $count - $want + 1; $from = 1 if ($from<0); $to = $count; $want = $count if ($want > $count); pop @resNo if ($from == $resNo[0]); } # # タイトル取得 # seek(LOG,0,0); my @TEMP = split(/<>/,scalar()); # # 圧縮 # &encode(); # # Header # print ''; print ''; print ''; print $read_style; print ''.$TEMP[4].''; if (!$stop) { print < EOF } print ''; print ''; print '■掲示板に戻る■ '; print '全部 '; print '
'; print ''; print ''; print ''.$TEMP[4].'
'; # # スレッドストップのチェック # ファイルサイズとレス数のチェック # my $volume = -s $file; $volume = int($volume/1024)+1; my $on; if ($stop) { print 'このスレッドは停止されています。'; } else { $on = &cv_check($count,$volume); } print '
'; # # ひとつずつ表示させていく # my $com; foreach $resno (@resNo) { # # 指定の位置からログを取得 # next if ($resno == 0 or $resno > $count); seek(LOG,0,0); my $j = $resno; while(--$j > 0) { ; } my @TEMP = split(/<>/,scalar()); # # リプライ用 # $com = $TEMP[3] if (@resNo == 1); # # データを指定した形式に変換 # &convertData(\@TEMP,'return'=>$goback.$pluspath,'link'=>$goget,'resno'=>$resno,'color'=>$read_nameclr,'count'=>$count); print '

'; } # # ここからは連続したレス # if ($from) { seek(LOG,0,0); my $j = $from; my $no = --$j; my $sbt = $want; # # 早送り # while($j--) { ; } # # 出力開始 # while () { last if ($sbt-- <= 0); ++$no; # # 分割 # my @TEMP = split(/<>/); # # データを指定した形式に変換 # &convertData(\@TEMP,'return'=>$goback.$pluspath,'link'=>$goget,'resno'=>$no,'color'=>$read_nameclr,'count'=>$count); print '

'; } } close(LOG); # # FORM # print '
'; #print ' '; #print '
'; # # 記事が少ない場合は省略 # if ($from and $want > $diswant) { print '■掲示板に戻る■ '; print '全部 '; # # 前のページ # if ($from > 1) { my $t = $from - 1; my $f = $from - $someres; $f = 1 if ($f < 0); print '前'.$someres.' '; } # # 次のページ # if ($to < $count) { my $f = $to + 1; my $t = $to + $someres; print '次'.$someres.' '; } # # リンク表示 # my $part = int(($count - 1)/$someres)+1; my $i; while ($part--) { my $st = $i * $someres + 1; my $lt = $i * $someres + $someres; print ''.$st.'- '; ++$i; } print '最新'.$newest.' '; print '新着レス
'; } print '
'; if ($stop eq '' and !$on) { #print '
'; #print ''; #print ''; #print ''; #print ''; #print ''; #print ''; #print ''; #print ''; #print ''; #print '
name： mail： '; #print '
Profile：性別: 年齢: '; #print '住所: '; #print '交通手段:
message：
ＵＲＬ：
'; #print 'password：  '; # チェックボックス # #print '
'; } # # 著作と終端 # ©right; }