#!/usr/bin/perl #↑は、プロバによって変わって来ますので、そちらのサーバーのパスに合わせて下さい。 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #+++　　[ annevote Ver0.78 ] 2001.01.18 update #+++ #+++ ･････>>> All Created by Tacky #+++ #+++ ･････>>> Copyright (c) 1999.6 Tacky's Room. All rights reserved.... #+++ #+++ Email >>> tacky2@ops.dti.ne.jp #+++ Homepage >>> http://tackysroom.com/ #+++ #+++ 設置方法構成(具体例) # #+++ 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) require './config.txt'; #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ # Sendmailが使える方のみ以下の項目を設定して下さい。 # ※Sendmailとは？ #　　　メールソフトを立ち上げないで、指定した相手にメールを送る事が出来る機能です。 #　　　自分のプロバイダーがSendmailに対応しているか、パスはどこ？等は、各自のプロバイダー #　　　のＨＰでご確認して下さいね。 #+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #メール送信する場合、sendmailのパスを指定 $sendmail = ""; #メール送信先アドレス。（管理者のアドレス）…「@」の前には「\」を必ずつけてね。「\」を付けないとInternalServererrorになるからね #※（Sendmailを使わない場合でも設定して下さい） $smail_address = ""; $smail_name = "webmaster" ; #管理人の名前を指定 $hiho = 0 ; #プロバイダーが「hi-ho」の人のみ「1」にして下さい。　※Sendmail使う場合 $sendflg1 = 1 ; #投稿時に管理人に登録内容をメール送信します？(0:しない 1:する) $sendflg2 = 1 ; #ブラウザ上から、登録メンバー宛にメッセージ送信を可能にします？(0:しない 1:する) $sendflg3 = 1 ; #Senamailは本当に届いているから心配なので、画面上に送信対象メンバーのアドレスをmailtoで表示するだけにしておく？(0: mailto 1:Sendmail ) #投稿時のパスワードをcrypt関数を使用する（暗号化） #crypt関数が利用出来ない場合もありますので、投稿時にエラーになる場合は、「0:使用しない」にして下さいね。 $ango = 0 ; #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='#FFFFFF'" 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,'sjis'); $FORM{$name} = $value; } } ###<-------------------------------------------------------------- ###<--- HTMLヘッダー書き出し ###<-------------------------------------------------------------- sub header { print "Content-type: text/html; charset=Shift_JIS\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
Type-B Ver1.3 Powered by Hand in Hand Inc.

\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"; print "\n"; # print "
※(英数字4〜8文字,訂正・削除の時使用)\n"; print "\n"; print "
お名前\n"; if ( $FORM{'action'} ne 'maintenance' ) { print "\n"; } else { print "$c_name" ; } print "Email（省略可）
出欠メッセージ
登録コード
パスワード
\n"; print "
※($c_code\と入力)		 \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"; 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 "
\n"; print "
\n"; print "管理者専用　\n"; print " 管理者パスワード　\n"; print "\n"; print "\n"; print "
\n"; print "
\n"; } ###<-------------------------------------------------------------- ###<--- ログ出力（登録処理−ゲストの新規登録の場合） ###<-------------------------------------------------------------- sub regist { if ( $FORM{'name'} eq "" ) {&error("名前は省略出来ません。ブラウザの戻るボタンで再入力して下さい。");} if ( $FORM{'code'} ne $c_code ) {&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 #= '' ; } $pass = $FORM{'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{'pass'} ne $password) && ($FORM{'pass'} ne $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 { if ( $FORM{'proc'} ne "delete" ) { if ( $FORM{'code'} ne $c_code ) {&error("登録コードが間違っています。ブラウザの戻るボタンで再入力して下さい。");}; } &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 ; #ファイルロック解除 if ( $sendmail && $sendflg1 == 1 ) { &SMail ; } 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,'jis'); 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,'jis'); 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"; print "お名前を選択し出欠を登録して下さい。ゲストの方は画面下部より登録して下さい。

\n"; print "\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 ; } ###<-------------------------------------------------------------- ###<--- ログファイルクリア（membersをコピー） ###<-------------------------------------------------------------- sub clear2 { if ( !(open(IN,"$members"))) { &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 #= '' ; } # $pass = $FORM{'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 ; #ファイルロック解除 &header ; print "

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

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


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