#!/usr/bin/perl require './getlog.cgi'; print "content-type:text/html\n\n"; print <<"HTML"; <HTML><HEAD><TITLE>ログゲッターサンプル動作テスト用CGI</TITLE></HEAD> <BODY> HTML &decode; if($Fm{'mode'} eq 'cmd'){&cmd;} else {&main;} sub main { &getlog("サンプル","アクセス","--"); print "メインページです。<BR>"; print "コマンド「アクセス」が登録されました。\n"; print "<form action=test.cgi method=post><input type=hidden name=mode value=cmd>\n"; print "名前：<input type=text name=namae><input type=submit value=\"送信\">\n"; print "</form><BR><A href=index.html>戻る</A>\n"; } sub cmd { &getlog("サンプル","書き込み","$Fm{'namae'}"); print "「$Fm{'namae'}」が送信されてきました。<BR>\n"; print "ログに書き込みました。<BR><A href=test.cgi>戻る</A>\n"; } print "</BODY></HTML>"; sub decode { if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @pairs = split(/&/, $buffer); } else { @pairs = split(/&/, $ENV{'QUERY_STRING'}); } foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ tr/+/ /; $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if(!$tag) {$value =~ s/</</g; $value =~ s/>/>/g;} $value =~ s/<>/<>/g; $value =~ s/\,/，/g; $value =~ s/\r\n/<br>/g; $value =~ s/\n/<br>/g; $Fm{$name} = $value; } return; }