#!/usr/bin/perl #↑は、プロバによって変わって来ますので、そちらのサーバーのパスに合わせて下さい。 #require 'member.cgi'; #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #+++　　[ annevote Ver0.78 ] 2001.01.18 update #+++ #+++ ・・・・・>>> All Created by Tacky #+++ #+++ ・・・・・>>> Copyright (c) 1999.6 Tacky's Room. All rights reserved.... #+++ #+++ Email >>> ayaki@spice.cs.ritsumei.ac.jp #+++ Homepage >>> http://www.spice.cs.ritsumei.ac.jp/~ayaki/ #+++ #+++ 設置方法構成(具体例) # #+++ public_html（ホームページディレクトリ） #+++ | #+++ |-- cgi-bin（任意のディレクトリ） #+++ | #+++ |-- jcode.pl (755)…(日本語ライブラリ) #+++ |-- annevote.cgi (755)…(スクリプト本体) #+++ |-- annevote.txt (666)…(ログファイル) #+++ |-- annevote.ini (666)…(ログファイル) #+++ |-- annevote.lock　　 …(ロックファイル)※スクリプト側で自動生成及び削除 #+++ #+++ ■( )内はパーミッッションの値です。 #+++ ■annevote.cgi：Perlのパス、その他の項目を修正、テキストモードでアップロード。 #+++ ■annevote.txt：空のファイルを作成（ＤＬファイルに同梱）し、テキストモードでアップロード。 #+++ ■annevote.ini：空のファイルを作成（ＤＬファイルに同梱）し、テキストモードでアップロード。 #+++ ■annevote.lock：各自で用意する必要ありません。 #+++ #+++ >>> Update-History... #+++ #+++ 2001.01.18 >> 出席者のトータル人数を表示するようにしました。 #+++ ログクリア機能を追加。 #+++ 2000.10.28 >> メール送信部分の「Email」箇所を若干修正 #+++ 2000.10.17 >> 投稿日を追加。※以前のログファイルと互換性がありませんのでご注意下さい!!!!!! #+++ >> Sendmailって本当に送られたかどうかって心配な人いません？僕がそう（笑）なので、mailtoリンク文の生成のみを行う設定を追加しました #+++ 2000.07.12 >> ファイルロックが解除されない場合がある不具合修正 #+++ 2000.06.20 >>　CSS追加・ロック処理見直し・フォントサイズ指定可・Apache+Netscape文字化け対応 #+++ メッセージ欄の桁数＆行数を指定可能にしました #+++ #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ require './jcode.pl'; #日本語コード変換 $script = "./annevote.cgi"; #このスクリプトの名前 $logfile = "./annevote.txt"; #メッセージのログファイル名 $inifile = "./annevote.ini"; #お知らせ内容保存ファイル名 $lockfile = "./annevote.lock"; #ロックファイル名（変更不要） $method = "POST"; #METHODの指定（POSTで動作しなかったら、GET) $title = '◆感性商品研究部会研究会のご案内◆'; #タイトルを指定 $titlelogo = ''; #タイトルロゴを指定。指定しない場合は''として下さい $backpicture = ""; #背景に画像を表示する場合、フルパスで指定。 $bgcolor = "#ffcc00"; #背景色 $tcolor = "#000000"; # 文字色 $linkcolor = "#cc6600"; # リンク色（未読リンク） $vlinkcolor = "#666666"; # リンク色（既読リンク） $alinkcolor = "#ff3300"; # リンク色（押した時） $hovercolor = '#ff0000'; #リンクをポイントした際のアンダーライン色(IEのみ) $pt = '10pt'; #全体のフォントサイズ（pt指定以外何があるのか、僕知らない。(^^ゞ） #i000331 $cellbgcolor1 = "#ffcc66"; #メッセージ表示部分のセル背景色１ $cellbgcolor2 = "#ffff66"; #メッセージ表示部分のセル背景色２（１と２で繰り返し表示される） $textcolor = "#990000"; #メッセージ表示部分のテキスト文字色 $url = "http://www.spice.ci.ritsumei.ac.jp/"; #戻り先のURL $password = "KamLab"; #管理者メンテナンス用パスワード（ログ編集用）） @sanka = ('研究会に参加','研究会と懇親会に参加','参加の可能性あり','参加できません'); #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # Sendmailが使える方のみ以下の項目を設定して下さい。 # ※Sendmailとは？ #　　　メールソフトを立ち上げないで、指定した相手にメールを送る事が出来る機能です。 #　　　自分のプロバイダーがSendmailに対応しているか、パスはどこ？等は、各自のプロバイダー #　　　のＨＰでご確認して下さいね。 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #メール送信する場合、sendmailのパスを指定 $sendmail = "kamei@ci.ritsumei.ac.jp"; #メール送信先アドレス。（管理者のアドレス）…「@」の前には「\」を必ずつけてね。「\」を付けないとInternalServererrorになるからね #※（Sendmailを使わない場合でも設定して下さい） $smail_address = "kamei\@ci.ritsumei.ac.jp"; $smail_name = "Rits_kamei" ; #管理人の名前を指定 $hiho = 0 ; #プロバイダーが「hi-ho」の人のみ「1」にして下さい。　※Sendmail使う場合 $sendflg1 = 0 ; #投稿時に管理人に登録内容をメール送信します？(0:しない 1:する) $sendflg2 = 0 ; #ブラウザ上から、登録メンバー宛にメッセージ送信を可能にします？(0:しない 1:する) $sendflg3 = 1 ; #Senamailは本当に届いているから心配なので、画面上に送信対象メンバーのアドレスをmailtoで表示するだけにしておく？(0: mailto 1:Sendmail ) #投稿時のパスワードをcrypt関数を使用する（暗号化） #crypt関数が利用出来ない場合もありますので、投稿時にエラーになる場合は、「0:使用しない」にして下さいね。 $ango = 1 ; #0:使用しない 1:使用する　（推奨：１：使用する） $col = 36 ; #メッセージ欄の桁数 $row = 4 ; #メッセージ欄の行数 #============================================================================================================================================================================================= #フォームＣＳＳ設定　※使用しない場合は、$css_style = "";とし、そこから２行(先頭がEOMの行までを)を削除して下さい。 $css_style = <<"EOM"; STYLE="font-size:$pt;color:#000000;border:1 dotted #666666;" onFocus="this.style.backgroundColor='#ffffcc'" onBlur="this.style.backgroundColor='#FFFFFF'" EOM #<<<　↓ここから下はいじらない方が身のためです。(^^ゞ ############################################################################### #### Main Process START ##################################################### ############################################################################### if ($ENV{'HTTP_USER_AGENT'} !~ /MSIE/i) { $css_style = "" ; } $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); #システム日時・時刻取得 $year = sprintf("%02d",$year + 1900);$month = sprintf("%02d",$mon + 1);$mday = sprintf("%02d",$mday); $hour = sprintf("%02d",$hour);$min = sprintf("%02d",$min); $week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday]; $today = "$month/$mday($week) $hour:$min"; #<<<フォームデコード＆変数代入 &decode ; if ( $FORM{'action'} eq "maintenance" ) { #<<<"処理"がメンテナンスの場合 if ( $FORM{'proc'} eq "mlform" ) { #<<<メンバー宛入力フォーム if ( $FORM{'pass'} eq "") { &error("パスワードを入力して下さい"); } if ( $FORM{'pass'} ne $password) { &error("管理者以外はこの機能\は使えません"); } &header ; #<</g; $value =~ s/\r|\n/\/g; $value =~ s/\,/，/g; &jcode'convert(*value,'euc'); $FORM{$name} = $value; } } ###<-------------------------------------------------------------- ###<--- HTMLヘッダー書き出し ###<-------------------------------------------------------------- sub header { print "Content-type: text/html; charset=euc-jp\n\n"; print "\n\n"; print "\n"; print "$title\n"; #<<>> print "\n"; #<<>> print "\n"; if ($backpicture) { $set = "background=\"$backpicture\""; if ( $bgcolor ) { $set .= " bgcolor=\"$bgcolor\"" ; } } elsif ($bgcolor ) { $set = "bgcolor=\"$bgcolor\""; } print "\n"; } ###<-------------------------------------------------------------- ###<--- HTMLフッダー書き出し ###<-------------------------------------------------------------- sub footer { #<<<　↓消さないでネ♪ print "

annevote Ver0.78 Created by Tacky

\n"; print "\n"; } ###<-------------------------------------------------------------- ###<--- 入力フォーム ###<-------------------------------------------------------------- sub Inputform { print "[HOME]\n"; print "
\n"; if ( $titlelogo ) { print "\n"; } else { print "$title\n"; } print "

\n"; if ( $FORM{'action'} ne 'maintenance' ) { print "\n"; } else { print "\n"; print "\n"; print "\n"; } print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
お名前\n"; if ( $FORM{'action'} ne 'maintenance' ) { print "\n"; } else { print "$c_name" ; } print "Email
参加の種類メッセージ
パスワード\n"; print "
※(英数字4〜8文字)		 \n"; print "  \n"; print "
\n"; print "
\n"; } ###<-------------------------------------------------------------- ###<--- メンバー宛フォーム ###<-------------------------------------------------------------- sub mailform { if ( !(open(IN,"$logfile"))) { &error("ログファイル($logfile)のオープンに失敗しました"); } @data = ; close(IN); print "[HOME]\n"; print "
\n"; if ( $titlelogo ) { print "\n"; } else { print "$title\n"; } print "
\n"; print "

\n"; print "\n"; print "\n"; if ( $sendflg3 == 1 ) { print "\n"; print "\n"; print "
▼ メールを送る人を選択して下さい
\n"; $no = 1 ; if ( @data > 0 ) { print "\n"; foreach ( @data ) { ($nm,$em,$sel,$cm,$p,$dt) = split(/,/,$_); $no = sprintf("%02d",$no) ; print "\n"; print ""; print ""; print "\n"; $no++; } print "
$nm           $sanka[$sel]
\n"; } print "
▼ メッセージ

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

     \n"; } else { print "
\n"; print "

     \n"; } print "\n"; print "
\n"; } ###<-------------------------------------------------------------- ###<--- お知らせ内容の変更 ###<-------------------------------------------------------------- sub infoform { if ( !(open(IN,"$inifile"))) { &error("ログファイル($inifile)のオープンに失敗しました"); } $com = ; close(IN); $com =~ s/
/\n/g; print "[HOME]\n"; print "
\n"; if ( $titlelogo ) { print "\n"; } else { print "$title\n"; } print "
\n"; print "
\n"; print "▼ オフ会・イベント等のお知らせメッセージをご記入下さい。
\n"; print "
\n"; print "\n"; print "     \n"; print "   \n"; print "
\n"; } ###<-------------------------------------------------------------- ###<--- ログ表示 ###<-------------------------------------------------------------- sub disp { if ( !(open(IN,"$logfile"))) { &error("ログファイル($logfile)のオープンに失敗しました"); } @data = ; close(IN); print "[HOME]\n"; print "
\n"; if ( $titlelogo ) { print "

\n"; } else { print "$title

\n"; } &setumei; #<<<「メッセージ」の表示 print "
\n"; print "

\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; foreach $buf ( @data ) { ($nm,$em,$sele,$cm,$pass,$dt) = split(/,/,$buf); $dt =~ s/\n//g; if ( $bg eq $cellbgcolor1 ) { $bg = $cellbgcolor2; } else { $bg = $cellbgcolor1; } print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; $SAN[$sele]++ ; } print "
お名前参加の種類メッセージ登録日
\n"; print "$nm$sanka[$sele]$cm$dt

\n"; print "
\n"; print "
"; print ""; foreach ( 0..$#sanka ) { if ( $SAN[$_] ) { $wk = $SAN[$_] ; } else { $wk = 0 ; } print "\n"; } print "
▼▼現在の参加状況▼▼
$sanka[$_]$wk人

\n"; print "
\n"; print "
\n"; print "編集・削除は、「お名前＋パスワード」を入力して、「編集か削除」を選択して、ボタンを押してね
\n"; print "「メール送信」及び「お知らせ内容の変更」は管理者のみの機能\です。
\n"; print " PASS:\n"; print "\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; } ###<-------------------------------------------------------------- ###<--- ログ出力 ###<-------------------------------------------------------------- sub regist { if ( $FORM{'name'} eq "" ) { &error("名前は省略出来ません"); } if ( $FORM{'email'} eq "" ) { &error("emailは省略出来ません"); } if ($email && $email !~ /(.*)\@(.*)\.(.*)/) { &error("メールアドレスが不正です。"); } &filelock ; #ファイルロック if ( !(open(IN,"$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } @data = ; close (IN); foreach ( @data ) { ($nm,$em,$sel,$cm,$p,$dt) = split(/,/,$_); if ( $FORM{'name'} eq $nm ) { &fileunlock ; &error("あなたは既に登録されています"); } } # パスワードの暗号化（crypt関数使用）） if ($FORM{'pass'} ne "") { &pass_enc($FORM{'pass'}); } else { $pass = '' ; } unshift(@data,"$FORM{'name'},$FORM{'email'},$FORM{'sel'},$FORM{'com'},$pass,$today\n"); if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } print OUT @data; close(OUT); &fileunlock ; #ファイルロック解除 if ( $sendmail && $sendflg1 == 1 ) { &SMail ; } print "Location: $script?\n\n"; #メインCGIに戻る } ###<-------------------------------------------------------------- ###<--- メンテナンスモード ###<-------------------------------------------------------------- sub Maintenance { if ( $FORM{'pass'} eq "") { &error("パスワードを入力して下さい"); } if ( !(open(IN,"$logfile"))) { &error("ログファイル($logfile)のオープンに失敗しました"); } @data = ; close(IN); $found = 0 ; foreach ( @data ) { ($c_name,$c_email,$c_sel,$c_comment,$pass,$dt) = split(/,/,$_); if ( $FORM{'name'} eq $c_name ) { $found = 1 ; if ($FORM{'pass'} ne $password && (&pass_dec($pass))) { &error("パスワードが違います。"); } if ( $FORM{'proc'} eq "delete" ) { &update ; exit; } &header ; $c_pass = $FORM{'pass'} ; $c_comment =~ s/
/\n/g; &Inputform ; last; } } if ( $found == 0 ) { &error("該当する記事Noのデータは存在していません。"); } &footer ; } ###<-------------------------------------------------------------- ###<--- ログファイル更新 ###<-------------------------------------------------------------- sub update { &filelock ; #ファイルロック if ( !(open(IN,"$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } @data = ; close(IN); @new = (); foreach $buf (@data) { ($n,$e,$s,$c,$pass,$dt) = split(/,/,$buf); if ( $FORM{'name'} eq $n) { #<<<メンテ対象者の場合 if ( $FORM{'proc'} eq "edit" ) { # パスワードの暗号化（crypt関数使用）） if ($FORM{'pass'} ne "") { &pass_enc($FORM{'pass'}); } else { $pass = '' ; } push(@new,"$FORM{'name'},$FORM{'email'},$FORM{'sel'},$FORM{'com'},$pass,$today\n"); } } else { push(@new,$buf); #<<<そのまま出力 } } if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } print OUT @new; close(OUT); &fileunlock ; #ファイルロック解除 print "Location: $script?\n\n"; #メインCGIに戻る } ###<-------------------------------------------------------------- ###<--- 設定ファイル更新 ###<-------------------------------------------------------------- sub update2 { &filelock ; #ファイルロック if ( !(open(OUT,">$inifile"))) { &fileunlock ; &error("ログファイル($inifile)のオープンに失敗しました"); } print OUT $FORM{'com'}; close(OUT); &fileunlock ; #ファイルロック解除 print "Location: $script?\n\n"; #メインCGIに戻る } ##<-------------------------------------------------------------- ###<--- SendMail(投稿時のメール送信）) ###<-------------------------------------------------------------- sub SMail { $ttl = $title; if ( $hiho == 1 ) { &jcode'convert(*ttl,'euc'); open(MAIL,"| $sendmail -s \"$ttl\" -f $FORM{'email'} $smail_address ") || &error("Sendmail Error!!"); } else { open(MAIL,"| $sendmail -t") || &error("Sendmail Error!!"); $mailbuf = "To: $smail_address\n"; $mailbuf .= "Reply-to: $FORM{'email'}\n"; $mailbuf .= "Subject: $ttl\n"; $mailbuf .= "Content-Transfer-Encoding: 7bit\n"; $mailbuf .= "Content-type: text/plain\n"; $mailbuf .= "\n\n"; } $mailbuf .= "============================================================\n"; $mailbuf .= "■---『$FORM{'name'}』さんから投稿がありました---■\n\n"; $mailbuf .= "投稿日時：$today\n"; $mailbuf .= "投稿者のお名前：$FORM{'name'}\n"; $mailbuf .= "投稿者のメールアドレス： $FORM{'email'}\n"; $mailbuf .= "============================================================\n\n"; $mailbuf .= "■参加：$sanka[$FORM{'sel'}]\n\n"; $mailbuf .= "■コメント\n"; $mailbuf .= "$FORM{'com'}\n\n"; $mailbuf .= "============================================================\n"; #漢字コードＪＩＳ変換＆改行コードLF変換。 $mailbuf =~ s/\r\n/\n/g; $mailbuf =~ s/\r/\n/g; $mailbuf =~ s/
/\n/g; &jcode'convert(*mailbuf,'euc'); print MAIL $mailbuf ; close(MAIL); } ###<-------------------------------------------------------------- ###<--- SendMail2(管理者からのメール送信）) ###<-------------------------------------------------------------- sub SMail2 { if ( !(open(IN,"$logfile"))) { &error("ログファイル($logfile)のオープンに失敗しました"); } @data = ; close(IN); $ttl = $title; $no = 1 ; foreach ( @data ) { ($nm,$em,$sel,$cm,$p,$dt) = split(/,/,$_); if ($em =~ /(.*)\@(.*)\.(.*)/) { $no = sprintf("%02d",$no); $wk = "send$no"; if ( $FORM{$wk} eq "on" ) { if ( $sendflg3 == 1 ) { $mailbuf = ""; if ( $hiho == 1 ) { &jcode'convert(*ttl,'euc'); open(MAIL,"| $sendmail -s \"$ttl\" -f $smail_address $em") || &error("Sendmail Error!!"); } else { open(MAIL,"| $sendmail -t") || &error("Sendmail Error!!"); $mailbuf .= "To: $em\n"; $mailbuf .= "From: $smail_address\n"; $mailbuf .= "Subject: $ttl\n"; $mailbuf .= "Content-Transfer-Encoding: 7bit\n"; $mailbuf .= "Content-type: text/plain\n"; $mailbuf .= "\n\n"; } $mailbuf .= "============================================================\n"; $mailbuf .= "■---　管理人からのお知らせです　---■\n\n"; $mailbuf .= "投稿日時：$today\n"; $mailbuf .= "投稿者のお名前：$smail_name\n"; $mailbuf .= "投稿者のメールアドレス： $smail_address\n"; $mailbuf .= "============================================================\n\n"; $mailbuf .= "■連絡事項\n"; $mailbuf .= "$FORM{'com'}\n\n"; $mailbuf .= "============================================================\n"; #漢字コードＪＩＳ変換＆改行コードLF変換。 $mailbuf =~ s/\r\n/\n/g; $mailbuf =~ s/\r/\n/g; $mailbuf =~ s/
/\n/g; &jcode'convert(*mailbuf,'euc'); print MAIL $mailbuf ; close(MAIL); } else { $mailbuf .= $em . ";" ; } } } $no++; } if ( $sendflg3 == 0 ) { print "




[メールを送る]



\n"; } } ###<-------------------------------------------------------------- ###<--- 使い方の説明部分 ###<-------------------------------------------------------------- sub setumei { if ( !(open(IN,"$inifile"))) { &error("ログファイル($inifile)のオープンに失敗しました"); } $com = ; close(IN); print "\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "■　お知らせ   \n"; print "━━━━━    お問合せは  こちら
\n"; print "$com\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; print "
\n"; } ###<------------------------------------------------------------- ###<--- パスワード暗号化 ###<-------------------------------------------------------------- sub pass_enc { if ( $ango == 1 ) { $pass = crypt($_[0], $_[0]); } else { $pass = $_[0]; } } ###<------------------------------------------------------------- ###<--- パスワードチェック ###<-------------------------------------------------------------- sub pass_dec { if ( $ango == 1 ) { if ($_[0] ne '' && ( crypt($FORM{'pass'}, $_[0]) eq $_[0]) ) { return 0 ; } } else { if ($FORM{'pass'} eq $_[0]) { return 0 ; } } return 1; } ###<-------------------------------------------------------------- ###<--- ファイルロック設定 ###<-------------------------------------------------------------- sub filelock { foreach (1 .. 5) { if (-e $lockfile) { sleep(1); } else { open(LOCK,">$lockfile"); close(LOCK); return; } } &error("只今他の方が書き込み中です。ブラウザの「戻る」で戻って再度登録を行って下さい。"); } ###<-------------------------------------------------------------- ###<--- ファイルロック解除 ###<-------------------------------------------------------------- sub fileunlock { if (-e $lockfile) { unlink($lockfile); } } ###<-------------------------------------------------------------- ###<--- エラー処理 ###<-------------------------------------------------------------- sub error { &header ; print "


$_[0]


"; &footer; exit; } ###<-------------------------------------------------------------- ###<--- ログファイルクリア ###<-------------------------------------------------------------- sub clear { &filelock ; #ファイルロック if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } close(OUT); &fileunlock ; #ファイルロック解除 &header ; print "

ログの初期化が終了しました。

"; print "[BACK]" ; print "   [HOMEに戻る]" ; print "


\n"; print "
\n"; exit ; }