#!/usr/local/bin/perl # #記事一覧表示 info.cgi #Programmed by Bepsu:bepsu@jan.ne.jp ########################################以下設定項目 #このＣＧＩのURL $cgiurl = "./nikki.cgi"; $logfile= "./nikki.log"; #戻り先URL $returl="http://www.z-lsy.co.jp/"; #ページ色設定 $bgcolor="FFFFFF"; #背景色 $textcolor="333333"; #文字色 $linkcolor="999000"; #未訪問リンク $vlinkcolor="0000CC"; #訪問済リンク $alinkcolor="CC0000"; #アクティブリンク $simbol_color="3300cc"; #■や▲の記号の色 $bgimg_use=0; #背景画像を使用 (0=使用しない、1=使用する) $bgimg_url="nikki_bg.gif"; #背景画像 # @teachers=('みゅう','たかよし','とく','ゆりぽん'); #掲示板タイトル #$bbstitle='***講師の日記***'; #タイトルのフォント色 $bbstitle_color="#ff0000"; #記事タイトルテーブル背景色 $subject_tbcolor="#FFFFFF"; #記事タイトル文字色 $subject_fncolor="666666"; #一度に表示する数 $displine=5; $maxline=1000; #管理パスワード $adminpass="melsa0816"; #HTMLタグを有効にするか(1=タグを有効、0=タグを無効) $htmltag=1; #CopyRight #$copyright="Copyright 1993-2002 Japan Arcadia Network Corporation.
All right reserved."; #日本語変換ライブラリ require 'jcode.pl'; ########################################設定項目ここまで if($bgimg_use){ $body_setting=""; }else{ $body_setting=""; } #入力された文字列を分割して解析する if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN,$str,$ENV{'CONTENT_LENGTH'}); } else { $str = $ENV{'QUERY_STRING'}; } @terms=split('&',$str); foreach $pair (@terms) { ($name,$value)=split('=',$pair); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C",hex($1))/eg; if(!$htmltag){ $value =~ s//>/g; } $value =~ s/\r/
/g; $value =~ s/\n//g; &jcode'convert(*value,'sjis'); #削除番号のみは重複するので通常配列へpush、その他は連想配列へ if($name eq "delnum"){ push(@delnum,$value); }else{ $QUERY{$name} = $value; } } $mode=$QUERY{'mode'}; if($mode eq "login"){&login;} elsif($mode eq "write"){&write;} elsif($mode eq "editlist"){&editlist;} elsif($mode eq "delete"){&delete;} elsif($mode eq "edit"){&edit;} else{&normal_disp;} exit; ########## 通常表示 ########## sub normal_disp { #データ読み込み if(!open(LOG,"$logfile")) { &error('Log file open error!!'); } while(){ #(非表示の記事は読み込まない) next unless /^\d+<>1/; push(@log,$_); } close(LOG); $maxline = @log; &html_header("$windowtitle"); # print "▲Home"; # print " ■Search"; # print "
\n"; # print "
"; # print "$bbstitle

\n"; # print "ここは私たちが講習の様子やポイントなどを徒然なるままに？
書いている講師の日記ページ。ぜひご覧ください♪"; # print "
\n"; ###### 開始番号と終了番号計算 $startnum=$QUERY{'startnum'}-1; if($startnum <= 0 || $startnum eq ""){$startnum=0; $topflag=1;} $endnum=$startnum+$displine; if($endnum>=$maxline){$endnum=$maxline;$endflag=1;} # print "
開始番号:$startnum 終了番号:$endnum 表\示記事数：$displine

\n"; for($i=$startnum; $i<$endnum; $i++){ ($num,$dispflag,$date,$title,$teacher,$comment,$host)=split(/<>/,$log[$i]); if(!$htmltag){ $comment =~ s/(http)\:([\w|\:\!\#\$\%\=\&\-\^\`\\\|\@\~\[\{\]\}\;\+\*\,\.\?\/]+)/$1\:$2<\/a>/ig; } print ""; print ""; print "
"; print "■$title
【$date】
$comment
"; } print "
\n"; ##### ページ下部(ページ番号表示) print "\n"; if(!$topflag){ $fwnum=$startnum-$displine; print ""; } if(!$endflag){ $fwnum=$endnum+1; print "\n"; } print "
\n"; print "\n"; } ########## パスワード入力画面 ########## sub login { &html_header("パスワード入力"); print <<"_EOT_";







_EOT_ } ########## 管理画面(編集･削除リスト) ########## sub editlist { &checkpass; &html_header("記事管理画面"); #データ読み込み if(!open(LOG,"$logfile")) { &error('Log file open error!!'); } @log=; close(LOG); $maxline=@log; print ""; print "
"; print "
"; print "

新規書込みは以下のフォームから

"; print "
\n"; print ""; print ""; print "


管理パスワードを入力してください


　

"; $today=&get_date; print "\n"; print "\n"; print "\n"; print "
掲載日付　\表\示する　　
タイトル "; # print "
内容
\n"; print "\n"; print "

"; print "
\n"; print ""; print ""; print "

記事の編集・削除

"; print "
"; print "１．\表\示/\非\表\示の切替や再編集を行う場合はタイトルをクリックして編集画面へ。
"; print "２．削除を行う場合は、チェックを入れて削除実行ボタンをクリック。

\n"; print "

\n"; print "\n"; print "\n"; for($count=0;$count<$maxline;$count++){ chomp($log[$count]); ($num,$dispflag,$date,$title,$teacher,$comment,$host)=split(/<>/,$log[$count]); print ""; print ""; print ""; if($dispflag){ print ""; }else{ print ""; } print ""; print ""; print ""; print "\n"; } print "\n"; print "
番号削除\表\示タイトル掲載日付書込元ホスト
$num
○×$title$teacher$date$host
番号削除\表\示タイトル掲載日付書込元ホスト

\n"; print ""; print "
"; print "

このウインドウを閉じる

"; print "\n"; } ########## 記事編集 ########## sub edit { &checkpass; if( $QUERY{'num'} ne ""){ #編集する記事の読み込み if(!open(LOG,"$logfile")) { &error('Log file open error!!'); } while(){ next unless /^$QUERY{'num'}<>/; ($rnum,$rdispflag,$rdate,$rtitle,$rteacher,$rcomment,$rhost)=split(/<>/,$_); } close(LOG); &html_header("記事の修正"); if(!$htmltag){ $rcomment =~ s/<//g; } $rcomment =~ s/
/\r/g; print "

記事の修正

"; print "
\n"; print ""; print ""; print ""; print ""; print "\n"; print "\n"; print "\n"; print "
掲載日付　"; if($rdispflag){ print "\表\示する"; }else{ print "\表\示する"; } print "　　
タイトル　講師：
内容
\n"; print "\n"; } } ########## 削除実行 ########## sub delete { &checkpass; if( @delnum>0 ){ if(!open(LOG,"$logfile")) { &error('Log file open error!!'); } while(){ $delflag=0; $readline=$_; ($rnum,$rdispflag,$rdate,$rtitle,$rteacher,$rcomment,$rhost)=split(/<>/,$readline); foreach (@delnum){ if( $rnum == $_){ $delflag++; } } #$delflagaが0のままなら削除対象ではないので配列に保存 if(!$delflag){ push(@log,$readline); } } close(LOG); if(!open(LOG,">$logfile")) { &error('Log file open error!!'); } print LOG @log; close(LOG); } &editlist; } ########## 書込み ########## sub write { &checkpass; $host=&ip_host; if( ($QUERY{'date'} ne "") && ($QUERY{'title'} ne "") && ($QUERY{'comment'} ne "") ){ if( $QUERY{'dispflag'} eq ""){ $QUERY{'dispflag'}=0; } ##### 過去ログを読み込み if(!open(LOG,"$logfile")) { &error('Log file open error!!'); } @log=; close(LOG); ##### 番号 num の指定が無かったら新規書込みとして先頭に書き出す if( $QUERY{'num'} eq ""){ #現在の最初の行から新しい記事番号を算出 ($rnum,$rdispflag,$rdate,$rtitle,$rteacher,$rcomment,$rhost)=split(/<>/,$log[0]); $newline="$rnum<>$QUERY{'dispflag'}<>$QUERY{'date'}<>$QUERY{'title'}<>$QUERY{'teacher'}<>$QUERY{'comment'}<>$host<>\n"; ##### 二重投稿のチェック if($log[0] ne $newline){ $rnum++; $newline="$rnum<>$QUERY{'dispflag'}<>$QUERY{'date'}<>$QUERY{'title'}<>$QUERY{'teacher'}<>$QUERY{'comment'}<>$host<>\n"; unshift(@log,$newline); }else{ &error("二重投稿です"); } ##### 番号 num の指定があったら修正の書込みとして既存の同番号記事と入れ替える }else{ $maxline=@log; $newline="$QUERY{'num'}<>$QUERY{'dispflag'}<>$QUERY{'date'}<>$QUERY{'title'}<>$QUERY{'teacher'}<>$QUERY{'comment'}<>$host<>\n"; for( $i=0; $i<$maxline; $i++ ){ if( $log[$i] =~ /^$QUERY{'num'}<>/ ){ $log[$i]=$newline; } } } if(!open(LOG,">$logfile")) { &error('Log file open error!!'); } print LOG @log; close(LOG); &editlist; }else{ &error("書込みに必要な情報が足りません"); } } ########## パスワード確認ルーチン ########## sub checkpass { if($QUERY{'pass'} ne $adminpass){&normal_disp;exit;} } ########## 日付作成 ########## sub get_date{ local($time,$sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst); $ENV{'TZ'} = "JST-9"; $time = time; ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($time); $year +=1900; #西暦 $mon ++; #月 @week = ("日曜日","月曜日","火曜日","水曜日","木曜日","金曜日","土曜日"); #曜日 $retvalue="$year年$mon月$mday日[$week[$wday]]"; return $retvalue; } ########## エラー表示画面 sub error{ $msg = $_[0]; &html_header("$msg"); print "$msg"; print "\n"; exit; } ########## HTMLヘッダー＆ページ設定部分表示 sub html_header{ $title = $_[0]; print "Content-type: text/html\n\n"; print ""; print "$title"; print ""; print "$body_setting\n"; } ########## IPアドレスの特定 sub ip_host{ $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; # if ($host eq $addr) { $host = gethostbyaddr(pack('C4',split(/\./,$host)),2) || $addr; } return $host; }