#!/usr/bin/perl

$data_path="./alog/";

&Main();

sub GetDate() {
	my ($second, $minute, $hour, $day, $month, $year) = localtime();
	$year = $year + 1900;
	$month = $month + 1;
	my $data = sprintf( "%04d年%02d月%02d日,%02d時%02d分%02d秒",
				$year, $month, $day, $hour, $minute, $second );
	return ( $data );
}

sub PutData( $ ) {
	my ($file_name) = @_;
	my $date_string = &GetDate();
	my $Remote_addr = $ENV{REMOTE_ADDR} || '-';
	my $User_agent = $ENV{HTTP_USER_AGENT} || '-';
open( DATA, ">>$data_path/$file_name" );
flock(DATA, 2 );
seek( DATA, 0, 0x02 );
print DATA "$date_string,$Remote_addr,$User_agent\n";
close( DATA );
}

sub Main() {
	my %parameter;

	foreach( split( /&/, $ENV{QUERY_STRING} ) ) {
	my ($key, $value) = split( '=', $_);
	$parameter{$key} = $value;
}

if( ($parameter{'name'} ne '') && ($parameter{'url'} ne '') ) {
	&PutData( "$parameter{'name'}.log" );
	print "Location: $parameter{'url'}\r\n\r\n";
	}
}