#!/usr/bin/perl # 最終修正：2000.06.15 # 上のライン: perlパス(サーバー環境が異なる場合修正) # 下のライン: 'config.cgi'のパス(全体パスを入力する環境でのみ全体パスに修正) require './config.cgi' ; # このファイルは'テクノート2000'内の各ボードにリンクするファイルです。 # 各ボートの中で'案内'ボタンを押した時に基本的に表示されます。 # 下のHTMLタグを直接修正して自分の好みに合わせてください。 # BOARDのリンク追加、削除は基本構成を参照して直接下記のHTMLを修正してください。 # 参考: 'myboard'という名前のBOARDがあると仮定 # このBOARDの掲示記事数を表示するためには" $MANY{'myboard'} "を入力します。 # このファイルは'テクノート2000'運営に必ずしも必要なファイルではありません。 # 必要な場合だけご使用下さい。 # 各BOARDの'案内'ボタンのリンクURLは各BOARDの'設定'ページで # 他のURLに再指定できます。 # 修正項目確認 # [1] BOARDの名前の前のBALLアイコン $boardicon = ""; # [2] ホームボタンリンクのURL $homeiconlink = 'http://www.ink.or.jp'; # [3] メモ記事全体保存ライン数(ファイル) $MemoSave = '200' ; # [4] メモ記事ページ当たり出力ライン数(画面) $MemoPrint = '15'; # [5] メモ記事へのHTMLタグ許可 'Y' or 'N' $HtmlMemo = 'N'; # [6] メモ記事連続書込み制限 $Writecut = '5'; # [7]テクノート全体検索時検索から除外するBOARDの指定 # BOARDの名前の間は'/'で区分すること # 例、$NoSearchBoard = 'abcboard/memberboard/xxboard'; $NoSearchBoard = ''; # [8] 掲示記事数を読み込むか否かの指定 # 各BOARDの登録された掲示記事の個数を表示する必要がない時は # 下の'N'を指定して必要でない動作を遮断する。 $CountMany = 'Y'; &parse; &ReadBoardIndex; &WriteExplian; &CheckBrowser; &ExplianOpenWindows; &ReadMemoText; # 下のHTMLタグを直接修正して自分の好みにデザインしてください。 print "Content-type: text/html\n\n"; print < インターネット鹿角掲示板　ＩＮＤＥＸ
Your title image

BOARD INDEX
$boardicon 自由掲示板$MANY{'FREE_BOARD'} $boardicon 質問返事$MANY{'qaboard'} $boardicon 売ります・譲ります$MANY{'sail'}
$boardicon 投票、討論の部屋$MANY{'vote'} $boardicon 公開資料室$MANY{'pds'} $boardicon 買います・譲ってください$MANY{'buy'}
$boardicon アイコンバンク$MANY{'iconbank'} $boardicon 会員専用の部屋$MANY{'members'} $boardicon 自由広告$MANY{'guestpr'}
$boardicon メッセージ$MANY{'masage'} $boardicon ゲストブック$MANY{'guestbook'} $boardicon 管理者独り言$MANY{'mastermemo'}

(↑)複数検索語は(英数)スペースまたはコンマで区分
BOARD MAP
$ErrorMsg END # textファイルに保存される内容を表示 &ExplianPrint; # 管理者書込みツール if($FORM{'ADMpass'} && (&ch_pass("$FORM{'ADMpass'}") eq &ReadMpass)){ @mprint = @memo; foreach $key (@mprint) { $key =~ s/\r//g; $key =~ s/\n+//; $memobody .= "$key\n"; } $textbody =~ s/\ \;/\&\;nbsp\;/g; print <
[管理者ツール] - 上の記事(BOARD EXPLAIN)を再作成します。]

password:    
[管理者ツール] - 下の記事(GUEST MEMO)を修正します。]

password:    
[管理者ログイン]
password:     Admin総合管理(root) END } else{ # 鉛筆アイコン、管理者パスワード入力フィールド print "       "; print ""; print " Admin "; } print <
 
END # textファイルに保存する内容表示 # 書込み入力フィールド表示 &GusetMemoPrint; print <
GUEST MEMO


END exit; # ----------------------- HTML END --------------------------------------------# # ------------------------memo print-----------------------------# sub GusetMemoPrint{ chop(@memo); $Size = @memo; $ManyPage = ($Size/$MemoPrint) + 1; $ManyPage += 1 if(($ManyPage*$MemoPrint) < $size); $StartLine = $FORM{'memonum'} ? $FORM{'memonum'} : '0' ; $j = $StartLine+($MemoPrint-1) ; for($StartLine..$j){ next if(!$memo[$_]); @Memoarr = split(/\|/,$memo[$_]); $txtnum = $Size - $_; print " "; # 順序変更、追加挿入、テーブル自体の変更もできます。 # $Memoarr[0] : Date # $Memoarr[1] : Name # $Memoarr[2] : Text body # $Memoarr[3] : IP address number # $txtnum : Text number # Name print "   $Memoarr[1] "; # Body print " \"$Memoarr[3]\" $Memoarr[2] "; # Date print "  $Memoarr[0]"; # Number print "$txtnum "; print "\n"; } print "
"; for(1..$ManyPage){ $tnum = ($_ - 1) * $MemoPrint; if($StartLine != $tnum){ print "[$_]"; } else{ print "[$_]"; } } $GsWrName = $FORM{'name'} if($FORM{'name'}); $GsWrName = 'Name' if(!$GsWrName); print "\n"; # メモ記事入力フォーム print "
"; print ""; print "\n"; print "\n"; print "
"; } sub parse{ $_ = $ENV{'REQUEST_METHOD'}; if (/POST/) {read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); $ENV{'QUERY_STRING'} = $buffer; }else {$buffer = $ENV{'QUERY_STRING'};} @pairs = split(/&/, $buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $FORM{$name} = $value;} } sub ch_pass{local($inpass_x,)=@_; $inpass_x =~ s/\s//g; $inpass=$inpass_x; $chop1=chop($inpass); $chop2=chop($inpass); $chop3=chop($inpass); $chop4=chop($inpass); $cryptword=$chop1.$chop2.$chop3.$chop4; $firstcrypt= crypt($cryptword,"$chop2$chop3"); $chop1=chop($firstcrypt); $chop2=chop($firstcrypt); return crypt($inpass_x,"$chop1$chop2"); } sub ReadBoardIndex{ @timeday =localtime(time); $cc = ($timeday[4]+1)."$timeday[3]"; if($CountMany ne 'N'){ opendir(DIR,$board_dir_path); @BoardDir = grep((!/\./), readdir(DIR)); closedir(DIR); foreach $key (@BoardDir) { open(TODAY,"$board_dir_path/$key/today.cgi"); @todayRT = ; close(TODAY); chop(@todayRT); if($todayRT[0] eq $cc){ $zz = "/$todayRT[1]"; }else{ $zz = ''; } open(BOARD,"$board_dir_path/$key/$indexfile"); @temparr = ; close(BOARD); $MANY{$key} = '['.(@temparr + 0).$zz.']' ; undef @temparr ; undef @todayRT ; } } } sub WriteExplian{ if($FORM{'comment'} && $FORM{'pass'} && $FORM{'where'}){ if(&ReadMpass eq &ch_pass("$FORM{'pass'}")){ open(Write,">$config_dir_path/infortext/$FORM{'where'}"); print Write $FORM{'comment'}; close(Write); &permission("$config_dir_path/infortext/$FORM{'where'}"); } else{ $ErrorMsg = '    " ERROR - Wrong password ! "

'; } } } sub ReadMpass{ open(PASS,"$login_file_path"); $readpass = ; $readpass =~ s/\n//g; $readpass =~ s/\r//g; close(PASS); $readpass = &ch_pass('technote') if(!$readpass); return ($readpass); } sub CheckBrowser{ if($ENV{'HTTP_USER_AGENT'} =~ /MSIE/i){ $FormStyle = 'style="BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #333388 1px solid; BORDER-LEFT: #333388 1px solid; BORDER-RIGHT: #333388 1px solid; BORDER-TOP: #333388 1px solid; FONT-SIZE: 10pt"'; $FormStyle1 = 'style="BACKGROUND-COLOR: #dddddd; BORDER-BOTTOM: #333388 1px solid; BORDER-LEFT: #333388 1px solid; BORDER-RIGHT: #333388 1px solid; BORDER-TOP: #333388 1px solid; FONT-SIZE: 9pt"'; } } sub ExplianOpenWindows{ $OpenWin1 = "target=\"aa\" onClick=\"NewWindows('1')\""; $OpenWin2 = "target=\"bb\" onClick=\"NewWindows('2')\""; } sub ExplianPrint{ open(READ,"$config_dir_path/infortext/information.cgi"); @read = ; close(READ); foreach $key (@read){ $textbody .= $key; if($key =~ /openwin-1/i){$key =~ s/$&/ $OpenWin1/;} if($key =~ /openwin-2/i){$key =~ s/$&/ $OpenWin2/;} print "$key\n"; } $textbody =~ s/\r\n/\n/g; } sub ReadMemoText{ $cooname = $scripimport.'GsMmo'; &lock; open(READ,"$config_dir_path/infortext/guestmemo.cgi"); @memo = ; close(READ); $FORM{'memo'} =~ s/\s+//; $FORM{'name'} =~ s/\s+//; $CooDay = $timeday[3].$timeday[2]; &GetCooKie; if(($Wnum < $Writecut) && $FORM{'memo'} && $FORM{'name'} && ($FORM{'memo'} ne 'Comments') && ($FORM{'name'} ne 'Name')){ if(((length($FORM{'memo'})) < 80) && ((length($FORM{'name'})) < 15)){ $mon = $timeday[4]+1 ; @week = ('日','月','火','水','木','金','土','日'); $timeday[2] = '0'.$timeday[2] if($timeday[2] < 10); $timeday[1] = '0'.$timeday[1] if($timeday[1] < 10); $readdate = "$mon/$timeday[3]\[$week[$timeday[6]]\] $timeday[2]:$timeday[1]"; foreach $key (@del_x_word) { $FORM{'memo'} =~ s/$key/xx/g; $FORM{'name'} =~ s/$key/xx/g; } if($HtmlMemo eq 'Y'){ $FORM{'memo'} =~ s/script//gi; $FORM{'name'}=~ s/script//gi; } else{ $FORM{'memo'} =~ s/$config_dir_path/infortext/guestmemo.cgi"); print PRINT @memo2; close(PRINT); &permission("$config_dir_path/infortext/guestmemo.cgi"); } print "Set-Cookie: $cooname=$FORM{'name'}|$Wnum|$CooDay; expires=$expDate; path=$expPath; \n"; } } &unlock; } sub GetCooKie{ @cookies = split(/; /, $ENV{'HTTP_COOKIE'}); foreach (@cookies) { ($m_name, $m_value) = split(/=/, $_); $COOKIE{$m_name} = $m_value; } ($GsWrName,$Wnum,$NotWr) = split(/\|/,"$COOKIE{$cooname}"); if($CooDay == $NotWr){ $Wnum += '1'; }else{ $Wnum = '0'; } } sub lock{ $Nowtime = time+20; while (-e "$config_dir_path/infortext/lock" && (time < $Nowtime)) { sleep(1); } open(LOCK, ">$config_dir_path/infortext/lock"); close(LOCK); } sub unlock{ unlink("$config_dir_path/infortext/lock"); } 1;