訪問者の情報をゲット！
掲示板では時に、訪問者がどんなプラウザを使って見ているのかとか、どんなドメインやIPアドレスからアクセスして来ているのか、と言う事が非常に気になる事がありますよね(^｡^)今回はCGIの環境変数を使ってこれらを書き込み記事と一緒に表示する機能を追加して見たいと思います。
変更部分
まず環境変数から訪問者の情報を呼び出し、格納する変数が必要です。訪問者のブラウザ情報は$softagentに、そしてドメイン名又はIPアドレスは$hostaddrに格納します。そしてこれらを記事の書き込み処理の中でデータファイルに保存して行く訳ですが、データファイルからの読み出しの場合には変数名を変えて、それぞれ$agent、$hostとします。
更には今回、「15.各種定型サブルーチン」でご紹介した、訪問者のホスト名を取得する為のサブルーチンも追加します。ホスト名が得られなかった場合は、IPアドレスを返します。
では実際のソースを見てみましょう。該当の変更箇所は色を変えて示しています。よく注意してご覧になって下さい。
#!/usr/bin/perl
# ↑あなたが加入しているプロバイダの｢perl｣言語が使用できるパスを指定します。
# 一般的には｢#!/usr/local/bin/perl｣か「#!/user/bin/perl」で大丈夫。
require '../jcode.pl';
$bbs_title = '簡単掲示板プラス';
$datafile = 'keijiban3.txt';
$cgi_name = 'keijiban3.cgi'; #ここで使うCGIスクリプトの名前
$max = 50;
$passwd = '****'; #管理者用パスワード#==============初期設定が必要なのはここまでです=================================
($sec,$min,$hour,$day,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year += 1900;
$mon = sprintf("%02d", $mon + 1);
$day = sprintf("%02d", $day);
$hour = sprintf("%02d", $hour);
$min = sprintf("%02d", $min);
$date_now = "$year年$mon月$day日 $hour時$min分";
$softagent = $ENV{'HTTP_USER_AGENT'}; #訪問者のブラウザを取得
$hostaddr = &domain_name; #訪問者のホスト名を取得
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $QUERY_DATA, $ENV{'CONTENT_LENGTH'});
} else { $QUERY_DATA = $ENV{'QUERY_STRING'}; }
@pairs = split(/&/,$QUERY_DATA);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/\n//g;
$value =~ s/\,//g;
&jcode'convert(*value,'sjis');
$FORM{$name} = $value;
}
if (!open(NOTE,"$datafile")) { &error(bad_file); }
@DATA = <NOTE>;
close(NOTE);*訪問者の情報を得る為に環境変数を使って、それぞれの情報を変数に格納します。「$hostaddr=&domain_name」は、サブルーチンを呼び出しています。当然サブルーチン内で環境変数を使っています。 if ($FORM{'action'} eq 'delete') {
if ($FORM{'password'} eq '') { &error(not_pass); }
if ($FORM{'code'} < 1) { &error(bad_code); }
$i = 0; $match = 0;
foreach $line (@DATA) {
($date,$code,$name,$email,$HP,$subject,$comment,$pass,$host,$agent) = split(/\,/,$line);
if ($FORM{'code'} == $code) {
if ($FORM{'password'} eq $pass || $FORM{'password'} eq $passwd) {
splice(@DATA,$i,1);
$match = 1; last;
}
}
$i++;
}
if ($match) {
if (!open(NOTE,">$datafile")) { &error(bad_file); }
print NOTE @DATA;
close(NOTE);
}*データファイルからそれぞれの情報を読み出す時は、別の変数名（$host,$agent）を使います。 } elsif ($FORM{'action'} eq 'regist') {
if ($FORM{'name'} eq '') { &error(bad_name); }
if ($FORM{'comment'} eq '') { &error(bad_comment); }
$count = @DATA;
if ($count > $max) { pop (@DATA); }
if ($count < 1) {
$new_code = 1;
} else {
($date,$code,$name,$email,$HP,$subject,$comment,$pass,$host,$agent) = split(/\,/,$DATA[0]);
$new_code = $code + 1;
}
$value = "$date_now\,$new_code,$FORM{'name'}\,$FORM{'email'}\,$FORM{'HP'}\,$FORM{'subject'}\,$FORM{'comment'}\,$FORM{'pass'}\,$hostaddr,$softagent\n";
unshift(@DATA,$value);
if (!open(NOTE,">$datafile")) { &error(bad_file); }
print NOTE @DATA;
close(NOTE);
}*データファイルにフォームから送られて来たデータと一緒に訪問者の情報を書き込む時は、当然元の変数（$hostaddr,$softagent）を使います。この中に、訪問者が掲示板にアクセスした時の情報が格納されている訳ですから。 print "Content-type: text/html\n\n";
print "<html><head>\n";
print "<title>" . $bbs_title . "</title></head>\n";
print "<body bgcolor=#FFFFDD text=#000000 link=#FF0000 vlink=#FF0000>\n";
print "<form action=$cgi_name method=POST>\n";
print "<input type=hidden name=action value=regist>\n";
print "<center><font size=6>" . $bbs_title . "</font></center>\n";
print "<center><font color='red'>お名前とコメントは、必ずご記入下さい。尚、記事の最大記録数は50件です。</font></center>\n";
print "<table border=0 cellspacing=1>\n";
print "<tr><td align=right>お名前</td>\n";
print "<td><input type=text size=29 name=name></td></tr>\n";
print "<tr><td align=right>E-mail</td>\n";
print "<td><input type=text size=29 name=email></td></tr>\n";
print "<tr><td align=right>HomePage</td>\n";
print "<td><input type=text size=50 name=HP></td></tr>\n";
print "<tr><td align=right>題名</td>\n";
print "<td><input type=text size=50 name=subject></td></tr>\n";
print "<tr><td align=right>コメント</td>\n";
print "<td><textarea name=comment rows=4 cols=60></textarea></td></tr>\n";
print "<tr><td align=right>削除キー</td>\n";
print "<td><input type=password size=10 name=pass>\n";
print "<font size=-1 color='red'> *英数8文字以上推奨</font></td></tr>\n";
print "<tr><td></td><td><input type=submit value=書き込み>";
print " <input type=reset value=取り消し></td></tr>\n";
print "</table></form>\n";print "<form action=$cgi_name method=POST>\n";
print "<input type=hidden name=action value=delete>\n";
foreach $line (@DATA) {
($date,$code,$name,$email,$HP,$subject,$comment,$pass,$host,$agent) = split(/\,/,$line);
$comment =~ s/\r/<br>/g;
print "<hr>\n";
print "<input type=radio name=code value=$code>\n";
print "<font color='blue' size=4><b>$subject</b></font>\n";
if ($email ne "") {
print "<a href=mailto:$email><strong> $name</strong></a>\n";
} else { print "<strong> $name</strong>\n"; }
if ($HP ne "") {
print "<a href=$HP target=_top> HomePage</a>\n";
}
print "<font size=-1> $date</font>\n";
print "<blockquote>$comment</blockquote>\n";
print "<font size=-1>[$host] $agent</font>\n";
}
print "<hr>\n";
print "削除用パスワード：<input type=password size=10 name=password>";
print "<input type=submit value=削除>\n";
print "</form></body></html>\n";
exit;*書き込み記事を一覧表示する場所に、ゲットした訪問者の情報を載せます。ここではコメントの下にしています。 #====================訪問者のホスト名を取得するサブルーチン======================
sub domain_name {
local($addr) = $ENV{'REMOTE_ADDR'};
local($_) = gethostbyaddr(pack("C4",split(/\./,$addr)),2);
if ($_ eq '') { $_ = $addr; }
$_;
}*新たに追加したサブルーチンです。ここでの具体的な関数機能などについては、余り追求しないでね(^｡^)定型処理とお考え下さい。・・・僕の持ってる参考書に載ってない関数がある(>_<) #================================エラー処理ルーチン=============================
sub error {
$error = $_[0];
if ($error eq "bad_file") { $msg = 'ファイルのオープン、入出力に失敗しました。'; }
elsif ($error eq "bad_name") { $msg = 'お名前が記入されていません。'; }
elsif ($error eq "bad_comment") { $msg = 'コメントが記入されていません。'; }
elsif ($error eq "not_pass") { $msg = 'パスワードが記入されていません。'; }
elsif ($error eq "bad_code") { $msg = '削除記事番号が不正です。'; }
else { $msg = '原因不明のエラーで処理を継続できません。'; }
print "Content-type: text/html\n\n";
print "<html><head><title>" . $bbs_title . "</title></head>\n";
print "<body bgcolor=#FFFFDD text=#000000 link=#FF0000 vlink=#FF0000>\n";
print "<center><h2>エラーです！</h2>\n";
print "やり直して下さい。<hr>\n";
print "<b>" . $msg . "</b></center>\n";
print "</body></html>\n";
exit;
}
|
記事削除機能の実装 前へ |
次へ 1頁の記事表示数を指定！ |