プログラムスレッド

15：女傑 ◆nDpXSJz8i.：2012/03/19(月) 01:45:46 ID:hQMLjY7Y0: #! /usr/local/bin/perl

$act = $ENV{'QUERY_STRING'};
$ENV{'QUERY_STRING'} =~ s/\.//g; # 安全対策
$ENV{'QUERY_STRING'} =~ s/\///g;
($i,$q) = split(/=/,$buffer);
print "Location: http://www.geocoding.jp/" . "?$act\n\n";

if ($act eq "") { &error("引数が不正です"); }
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
# タグ処理
$q =~ s/&/&/g;
$q =~ s/"/"/g;
$q =~ s/</</g;
$q =~ s/>/>/g;

# 改行処理
$q =~ s/\r\n/<br>/g;
$q =~ s/\r/<br>/g;
$q =~ s/\n/<br>/g;

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$time = time;
@mon_array = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');
@wday_array = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat');
$date_now = sprintf("%s, %02d %s %04d %02d:%02d:%02d +0900 (JST)",$wday_array[$wday],$mday,$mon_array[$mon],$year +1900,$hour,$min,$sec);

if (length($FORM{'q'}) > 2) { &error("引数が不正です"); }
# ログファイルに記録する
$log = "./data/acclog.cgi";
$addr = $ENV{'REMOTE_ADDR'};
$useragent = $ENV{"HTTP_USER_AGENT"};

open(OUT,">> $log");
print OUT "$addr<>$act\n";
close(OUT);

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板