root/lang/ruby/misc/tp-antispam.rb @ 15032

# tp-antispam.rb $Revision: 1 $
# Copyright (C) 2008 Michitaka Ohno <elpeo@mars.dti.ne.jp>
# You can redistribute it and/or modify it under GPL2.

require 'cgi'
require 'net/http'

TYPEPADANTISPAM_VERSION  = '1.0'
TYPEPADANTISPAM_API_VERSION  = '1.1'
TYPEPADANTISPAM_SIG = %w|blog user_ip user_agent article_date permalink comment_type comment_author comment_author_email comment_author_url comment_content|

class TypePadAntiSpam < Struct.new( *TYPEPADANTISPAM_SIG.map{|i| i.to_sym} )
        def initialize( key, charset = 'UTF-8' )
                @key = key
                @charset = charset
                self.blog = 'http://blog.example.com/'                   # ブログのURL
      self.permalink = 'http://blog.example.com/entry-1.html'  # エントリのURL
      self.article_date = '2008-05-31 01:24:00'                # エントリの日付
      self.user_ip = '192.168.0.1'                             # コメント投稿者のIPアドレス
      self.comment_type = 'comment'                            # commentまたはtrackback
      self.comment_author = 'foo'                              # コメント投稿者の名前
      self.comment_author_email = 'foo@bar.com'                # コメント投稿者のメールアドレス
      self.comment_author_url = 'http://blog.bar.com/'         # コメント投稿者のURL
      self.comment_content  = 'Hello!'                         # コメントの内容
        end

        def check
                header = {
                        'User-Agent' => "TypePad AntiSpam Ruby Library/#{TYPEPADANTISPAM_VERSION}",
                        'Content-Type' => "application/x-www-form-urlencoded; charset=#{@charset}"
                }
                data = []
                each_pair do |member, value| 
                        data << "#{member}=#{CGI::escape( value )}" if value
                end
                r = nil
                Net::HTTP.version_1_2
                Net::HTTP.start( "#{@key}.api.antispam.typepad.com" ) do |http|
                        response, = http.post( "/#{TYPEPADANTISPAM_API_VERSION}/comment-check", data*'&', header )
                        case response.body
                        when /false/i
                                r = true
                        when /true/i
                                r = false
                        end
                end
                r
        end
end