${menuPageTitle} / ${thisPageTitle}

#!/usr/bin/perl # -*- tab-width: 4 -*- #$ontcgi_path = '/nasu/ns_list/nasu011/cgi/'; # アップロードできる画像ファイルの最大バイト数 $uploadFile_max = 100 * 1024; require "${ontcgi_path}jcode.pl"; use Fcntl; use AnyDBM_File; sub printAllTopics; # 案内を一覧表示する sub printAllPosts; # 詳細を一覧表示する sub printHeaderTree; # 詳細とその付記の見出しを表示する sub parseFormData; # フォームデータを解析する sub errorMessage; # エラーメッセージを表示する require "${ontcgi_path}ontenv.pl"; $menu_file = (($miniMenu_flag & 8) == 8) ? 'index.shtml' : 'index.html'; &parseFormData(); $job = $in{'job'}; # フォーム押したボタン $note_no = $in{'no'}; # 詳細する案内番号(undefなら新規に案内作成) $post_no = $in{'re'}; # 付記する詳細番号(0ならベース案内に詳細) if (-e "${ontcgi_path}data/ont_dmy") { open(DMYFILE, "${ontcgi_path}data/ont_dmy") or die "DMYFILE=${ontcgi_path}data/ont_dmy : $!"; flock(DMYFILE, 2); tie %DBMFILE, AnyDBM_File, "${ontcgi_path}data/ont_dbm", O_RDONLY, 0644 or die "DBMFILE=${ontcgi_path}data/ont_dbm : $!"; $postPass_crypt = $DBMFILE{'wripass'}; @notes_que = split(/&/, $DBMFILE{'queue'}); if ($note_no eq undef) { $note_no = 0; } else { ($userName, $email, $writeTime, $post_num, $lock_flag, $profile, $remoteHOST, $remoteADDR, $password_crypt, $title, $caption) = split(/"/, $DBMFILE{"${note_no}:0"}, 11); } untie %DBMFILE; flock(DMYFILE, 8); close(DMYFILE); } if ($note_no > 0 && grep($_ == $note_no, @notes_que) == 0) { &errorMessage('** 倉庫にある案内ではこの機能は使えません **'); exit(1); } if ($job =~ /^案内を一覧/) { &printAllTopics(); exit(0); } elsif ($job =~ /^詳細を/) { &printAllPosts($note_no); exit(0); } # 入力フォームを表示 $thisPageTitle = ($note_no == 0) ? '新しい案内を作る' : "${notes_name}${note_no}に詳細"; $cookieData = $ENV{'HTTP_COOKIE'}; if ($cookieData =~ /^ONT=NAME:[^"]*"EMAIL:[^"]*"PROFILE:[^"]*"PASSWD:[^"]*"WRIPASS/) { $cookieData =~ s/^ONT=//o; $cookieData =~ s/_sem_/;/go; # ↓クッキーが文字化けする時は先頭の#をはずす # $cookieData =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; @cookieData = split(/"/, $cookieData); for (@cookieData) { ($key, $value) = /^([^:]*):(.*)$/o; $cookie{$key} = $value; } } $textarea_rows = ($ENV{'HTTP_USER_AGENT'} =~ /lynx/i) ? 25 : 12; print < ${headTagOption} ${menuPageTitle} / ${thisPageTitle} END if ($note_no == 0 || $job eq '詳細') { &printHeader(STDOUT, MENU, "href=\"${onthtml_url}/${menu_file}\"", $thisPageTitle); } else { &printHeader(STDOUT, BACK, "href=\"${onthtml_url}/${note_no}.html\"", $thisPageTitle); } print < END if ($post_no ne undef) { print "\n"; } if ($job eq '詳細') { print "\n"; } if ($note_no == 0) { print "** この${notes_name}のために、新しい案内を作ります **

\n"; } else { $nameNEmail = ($email eq undef) ? $userName : "${userName}"; print < ${notes_name}${note_no} | ■${title} ( 詳細 ${post_num} 件 )
END } print < 名前 (必須項目) E-mailアドレスタイトル END if ($post_no eq undef) { print <(必須項目) 内容
(内容に書かれたURLやメールアドレスは、自動的にリンクになります) END } else { open(DMYFILE, "${ontcgi_path}data/ont_dmy") or die "DMYFILE=${ontcgi_path}data/ont_dmy : $!"; flock(DMYFILE, 2); tie %DBMFILE, AnyDBM_File, "${ontcgi_path}data/ont_dbm", O_RDONLY, 0644 or die "DBMFILE=${ontcgi_path}data/ont_dbm : $!"; ($userName, $email, $writeTime, $reply_no, $del_flag, $profile, $remoteHOST, $remoteADDR, $password_crypt, $title, $caption) = split(/"/, $DBMFILE{"${note_no}:${post_no}"}, 11); @pos = split(/&/, $DBMFILE{"${note_no}:IDX"}); for ($idx_no = 1; $DBMFILE{"${note_no}:IDX${idx_no}"}; $idx_no++) { @pos = (@pos, split(/&/, $DBMFILE{"${note_no}:IDX${idx_no}"})); } $pos_num = @pos; untie %DBMFILE; flock(DMYFILE, 8); close(DMYFILE); $title =~ s/^(?:R[eE]\d*:)*/Re$post_no:/o; open(NOTFILE, "${onthtml_path}/${note_no}.html") or die "NOTFILE=${onthtml_path}/${note_no}.html : $!"; flock(NOTFILE, 2); if ($post_no > 0) { for ($i = 0; $i < ($pos_num - $post_no); $i++) { $pos += $pos[$i]; } seek(NOTFILE, $pos, 0); } while () { if (/^
/o) { $contents = $_; last; } elsif (/^

\n") { $contents = ''; } else { $contents =~ s/
/\n> /go; $contents =~ s!]*>([^<]*)!$1!go; if (($permitTag_flag & 1) == 1) { $contents =~ s!]*?>!!go; } if (($permitTag_flag & 2) == 2 || ($supportURL_flag & 2) == 2) { $contents =~ s!]*)>!<IMG$1>!go; } $contents = ($post_no == 0) ? "( ${userName}さんは${notes_name}${note_no}で書きました )" . $contents : "( ${userName}さんは詳細${post_no}で書きました )" . $contents; } print <(必須項目) 内容
(内容に書かれたURLやメールアドレスは、自動的にリンクになります) END } if ($uploadFile_max > 0) { print < 添付する画像ファイル END } print < 削除パスワード (英数字8文字以内/設定すると他人が削除できなくなります) END if ($postPass_crypt ne undef && ($lock_flag == 1 || $postPass_mode == 1 || ($postPass_mode == 2 && $note_no == 0))) { print < 詳細パスワード (英数字8文字以内/詳細するにはパスワードが必要です) END } print < END if ($note_no == 0 || $job eq '詳細') { &printFooter(STDOUT, MENU, "href=\"${onthtml_url}/${menu_file}\""); } else { &printFooter(STDOUT, BACK, "href=\"${onthtml_url}/${note_no}.html\""); } ### sub printAllTopics() :案内を一覧表示する # sub printAllTopics { my(@notes_que); my($userName, $email, $writeTime, $post_num, $lock_flag, $profile, $remoteHOST, $remoteADDR, $password_crypt, $title, $caption); print < ${headTagOption} ${menuPageTitle} / 案内を一覧/検索 END &printHeader(STDOUT, MENU, "href=\"${onthtml_url}/${menu_file}\"", '案内を一覧/検索'); print < キーワード
(絞込検索：半角空白に続けてキーワードを追加してください) END open(DMYFILE, "${ontcgi_path}data/ont_dmy") or die "DMYFILE=${ontcgi_path}data/ont_dmy : $!"; flock(DMYFILE, 2); tie %DBMFILE, AnyDBM_File, "${ontcgi_path}data/ont_dbm", O_RDONLY, 0644 or die "DBMFILE=${ontcgi_path}data/ont_dbm : $!"; @notes_que = split(/&/, $DBMFILE{'queue'}); foreach $i (@notes_que) { ($userName, $email, $writeTime, $post_num, $lock_flag, $profile, $remoteHOST, $remoteADDR, $password_crypt, $title, $caption) = split(/"/, $DBMFILE{"${i}:0"}, 11); print < END if ($caption ne undef && ($captions_flag & 1) == 1) { print < END } print < END } untie %DBMFILE; flock(DMYFILE, 8); close(DMYFILE); &printFooter(STDOUT, MENU, "href=\"${onthtml_url}/${menu_file}\""); } ### sub printAllPosts() :詳細をツリー表示する # # (IN) # $note_no :ツリー表示する案内番号 # sub printAllPosts { my($note_no) = @_; my($userName, $email, $writeTime, $post_num, $lock_flag, $profile, $remoteHOST, $remoteADDR, $password_crypt, $title, $caption); print < ${headTagOption} ${menuPageTitle} / 詳細をツリー表示 END &printHeader(STDOUT, BACK, "href=\"${onthtml_url}/${note_no}.html\"", '詳細をツリー表示'); print "
\n"; open(DMYFILE, "${ontcgi_path}data/ont_dmy") or die "DMYFILE=${ontcgi_path}data/ont_dmy : $!"; flock(DMYFILE, 2); tie %DBMFILE, AnyDBM_File, "${ontcgi_path}data/ont_dbm", O_RDONLY, 0644 or die "DBMFILE=${ontcgi_path}data/ont_dbm : $!"; ($userName, $email, $writeTime, $post_num, $lock_flag, $profile, $remoteHOST, $remoteADDR, $password_crypt, $title, $caption) = split(/"/, $DBMFILE{"${note_no}:0"}, 11); $post_sum = $post_num; @pos = split(/&/, $DBMFILE{"${note_no}:IDX"}); for ($idx_no = 1; $DBMFILE{"${note_no}:IDX${idx_no}"}; $idx_no++) { @pos = (@pos, split(/&/, $DBMFILE{"${note_no}:IDX${idx_no}"})); } foreach $pos (@pos) { if ($pos == 0) { $post_sum--; } } print "( 詳細総数 ${post_num} 件 / 詳細実数 ${post_sum} 件 )
"; print <

${notes_name}${i} ${title}

( 詳細 ${post_num} 件 )

${caption}

END for ($i = $post_num; $i >= 0; $i--) { &printHeaderTree($i, 0); } untie %DBMFILE; flock(DMYFILE, 8); close(DMYFILE); print <

${notes_name}${note_no} ${title} ${userName} ${writeTime}

END &printFooter(STDOUT, BACK, "href=\"${onthtml_url}/${note_no}.html\""); } ### sub printHeaderTree() : 詳細とその付記の見出しを表示する # # (IN) # $post_no : 表示する詳細番号 # $depth: : 再帰の深さ # sub printHeaderTree { my($post_no, $depth) = @_; my(@reply_no, $j); my($userName, $email, $writeTime, $reply_no, $del_flag, $profile, $remoteHOST, $remoteADDR, $password_crypt, $title, $caption); ($userName, $email, $writeTime, $reply_no, $del_flag, $profile, $remoteHOST, $remoteADDR, $password_crypt, $title, $caption) = split(/"/, $DBMFILE{"${note_no}:${post_no}"}, 11); if ($depth == 0) { if ($post_no > 0 && $reply_no ne undef) { $replyStack[$reply_no] .= "${post_no}&"; return; } elsif ($title =~ /^Re:(\d+)/) { $replyStack[$1] .= "${post_no}&"; return; } } @reply_no = split(/&/, $replyStack[$post_no]); foreach $j (@reply_no) { &printHeaderTree($j, $depth + 1); } if ($post_no == 0) { return; } if ($depth > 0) { print '　' x ($depth - 1); print '⇒'; } if ($del_flag != 0) { print "(${post_no}) ( 削除 )
\n"; } else { print <${title}
END } if ($depth == 0) { $depth_num++; $bgcolor = ($depth_num % 2 == 0) ? $noteBodyColor : $postBodyColor; print < END } } ### sub parseFormData() :フォームデータを解析する # # (OUT) # %in :フォームデータの内容 # sub parseFormData { my($formData_buf, @formData); my($name, $value); if ($ENV{'REQUEST_METHOD'} eq 'POST') { read(STDIN, $formData_buf, $ENV{'CONTENT_LENGTH'}); } else { $formData_buf = $ENV{'QUERY_STRING'}; } @formData = split(/&/, $formData_buf); foreach (@formData) { ($name, $value) = split(/=/); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; &jcode'convert(*value, 'euc'); $in{$name} = $value; } } ### sub errorMessage() :エラーメッセージを表示する # # (IN) # $message :表示するエラーメッセージ # sub errorMessage { my($message) = @_; print < ${headTagOption} ${menuPageTitle} / エラーメッセージ END &printHeader(STDOUT, MENU, "href=\"${onthtml_url}/${menu_file}\"", 'エラーメッセージ'); print < ${message}

END &printFooter(STDOUT, MENU, "href=\"${onthtml_url}/${menu_file}\""); } # Open!NOTES 2.0a (C)1998-2002 NetComplex Inc. All rights reserved.