[prg]アクセスログを書き込む

#!/usr/local/bin/ruby
require 'cgi'
require "yaml/store"
require 'kconv'






#################################################
### Access_data classここから                 ###
#################################################
class Access_data
	 
	 ################################################
	 ## 使い方:                                    ##
	 ## -Access_data#new("str")                    ##
	 ##  logfileの名前をわたし                     ##
	 ##  インスタンスを作成                        ##
	 ##  cgiの読み込みを行う                       ##
	 ## -Append#write                              ##
	 ##  yaml形式でlogfileに書き込む。             ##
	 ################################################
	def initialize( logfilename, cgi)
		@cgi = cgi
		@logfilename = logfilename
		
		@date
		@url
		@remote_address
		@remote_host
		get_data
	rescue
		raise "access_data class initialize error {#$@}"
	end
	def write
		 data = [@date.to_s, @url, @remote_address, @remote_host, @referer]
		 db = YAML::Store.new( @logfilename )
		 db.transaction do
                 db["log"] = [] unless db.root?("log")
                 size = db["log"].size
                 data.insert 0, size
		     db["log"] << data
		 end
	rescue
		 raise "method write error in #{$@} type:#{$!}"	
	end
	
	 ################################################
	 ## -- private methods ----------------------- ##
	 ################################################
		def get_data
		      @now = Time.now
		      @date = @now.year.to_s + "/" + @now.month.to_s + "/" + @now.day.to_s + "(" + @now.strftime('%a') + ") " + @now.hour.to_s + ":" + @now.strftime('%M')
			@url = @cgi.referer
			@remote_address = @cgi.remote_addr
			@remote_host = @cgi.remote_host	
			if !(/^http:\/\/www\.at-akada\.org*/ =~ @cgi.query_string) & !(@cgi.query_string == "")
				@referer = @cgi.query_string
			else
				@referer = nil
			end
		end	
end
#################################################
### Main                                      ###
#################################################


cgi = CGI.new
logfilename = "access_log.yml"
begin
    access = Access_data.new(logfilename, cgi)
    access.write
rescue
    raise "cannot make Access_data  \n type#{$!}\n caller: #{caller}\n".tosjis
end
#print "Location: http://www.at-akada.org/images/dot.gif\n\n"
print "Content-type: text/html\n\n ロードしました\n"