net-irc 0.0.8 → 0.0.9

data/examples/lingr.rb

@@ -0,0 +1,327 @@
+# Ruby client for the Lingr[http://www.lingr.com] API.  For more details and tutorials, see the 
+# {Lingr API Reference}[http://wiki.lingr.com/dev/show/API+Reference] pages on the {Lingr Developer Wiki}[http://wiki.lingr.com].
+#
+# All methods return a hash with two keys:
+# * :succeeded - <tt>true</tt> if the method succeeded, <tt>false</tt> otherwise
+# * :response - a Hash version of the response document received from the server
+#
+# = api_client.rb
+#
+# Lingr API client
+#
+#
+# Original written by Lingr.
+# Modified by cho45 <cho45@lowreal.net>
+#  * Use json gem instead of gsub/eval.
+#  * Raise APIError when api fails.
+#  * Rename class name to Lingr::Client.
+
+$KCODE = 'u' # used by json
+require "rubygems"
+require "net/http"
+require "json"
+require "uri"
+require "timeout"
+
+module Lingr
+	class Client
+		class ClientError < StandardError; end
+		class APIError < ClientError
+			def initialize(error)
+				@error = error || {
+					"message" => "socket error",
+					"code"    => 0,
+				}
+				super(@error["message"])
+			end
+
+			def code
+				@error["code"]
+			end
+		end
+
+		attr_accessor :api_key
+		# 0 = quiet, 1 = some debug info, 2 = more debug info
+		attr_accessor :verbosity
+		attr_accessor :session
+		attr_accessor :timeout
+
+		def initialize(api_key, verbosity=0, hostname='www.lingr.com')
+			@api_key   = api_key
+			@host      = hostname
+			@verbosity = verbosity
+			@timeout   = 60
+		end
+
+		# Create a new API session
+		#
+		def create_session(client_type='automaton')
+			if @session
+				@error_info = nil
+				raise ClientError, "already in a session"
+			end
+
+			ret = do_api :post, 'session/create', { :api_key => @api_key, :client_type => client_type }, false
+			@session = ret["session"]
+			ret
+		end
+
+		# Verify a session id.  If no session id is passed, verifies the current session id for this ApiClient
+		#
+		def verify_session(session_id=nil)
+			do_api :get, 'session/verify', { :session => session_id || @session }, false
+		end
+
+		# Destroy the current API session
+		# 
+		def destroy_session
+			ret = do_api :post, 'session/destroy', { :session => @session }
+			@session = nil
+			ret
+		end
+
+		# Get a list of the currently hot rooms
+		#
+		def get_hot_rooms(count=nil)
+			do_api :get, 'explore/get_hot_rooms', { :api_key => @api_key }.merge(count ? { :count => count} : {}), false
+		end
+
+		# Get a list of the newest rooms
+		#
+		def get_new_rooms(count=nil)
+			do_api :get, 'explore/get_new_rooms', { :api_key => @api_key }.merge(count ? { :count => count} : {}), false
+		end
+
+		# Get a list of the currently hot tags
+		#
+		def get_hot_tags(count=nil)
+			do_api :get, 'explore/get_hot_tags', { :api_key => @api_key }.merge(count ? { :count => count} : {}), false
+		end
+
+		# Get a list of all tags 
+		#
+		def get_all_tags(count=nil)
+			do_api :get, 'explore/get_all_tags', { :api_key => @api_key }.merge(count ? { :count => count} : {}), false
+		end
+
+		# Search room name, description, and tags for keywords.  Keywords can be a String or an Array.
+		#
+		def search(keywords)
+			do_api :get, 'explore/search', { :api_key => @api_key, :q => keywords.is_a?(Array) ? keywords.join(',') : keywords }, false
+		end
+
+		# Search room tags. Tagnames can be a String or an Array.
+		#
+		def search_tags(tagnames)
+			do_api :get, 'explore/search_tags', { :api_key => @api_key, :q => tagnames.is_a?(Array) ? tagnames.join(',') : tagnames }, false
+		end
+
+		# Search archives. If room_id is non-nil, the search is limited to the archives of that room.
+		#
+		def search_archives(query, room_id=nil)
+			params = { :api_key => @api_key, :q => query }
+			params.merge!({ :id => room_id }) if room_id
+			do_api :get, 'explore/search_archives', params, false
+		end
+
+		# Authenticate a user within the current API session
+		#
+		def login(email, password)
+			do_api :post, 'auth/login', { :session => @session, :email => email, :password => password }
+		end
+
+		# Log out the currently-authenticated user in the session, if any
+		#
+		def logout
+			do_api :post, 'auth/logout', { :session => @session }
+		end
+
+		# Get information about the currently-authenticated user
+		#
+		def get_user_info
+			do_api :get, 'user/get_info', { :session => @session }
+		end
+
+		# Start observing the currently-authenticated user
+		#
+		def start_observing_user
+			do_api :post, 'user/start_observing', { :session => @session }
+		end
+
+		# Observe the currently-authenticated user, watching for profile changes
+		#
+		def observe_user(ticket, counter)
+			do_api :get, 'user/observe', { :session => @session, :ticket => ticket, :counter => counter }
+		end
+
+		# Stop observing the currently-authenticated user
+		#
+		def stop_observing_user(ticket)
+			do_api :post, 'user/stop_observing', { :session => @session, :ticket =>ticket }
+		end
+
+		# Get information about a chatroom, including room description, current occupants, recent messages, etc.
+		# 
+		def get_room_info(room_id, counter=nil, password=nil)
+			params = { :api_key => @api_key, :id => room_id }
+			params.merge!({ :counter => counter }) if counter
+			params.merge!({ :password => password }) if password
+			do_api :get, 'room/get_info', params, false
+		end
+
+		# Create a chatroom
+		#
+		# options is a Hash containing any of the parameters allowed for room.create.  If the :image key is present 
+		# in options, its value must be a hash with the keys :filename, :mime_type, and :io
+		#
+		def create_room(options)
+			do_api :post, 'room/create', options.merge({ :session => @session })
+		end
+
+		# Change the settings for a chatroom
+		#
+		# options is a Hash containing any of the parameters allowed for room.create.  If the :image key is present 
+		# in options, its value must be a hash with the keys :filename, :mime_type, and :io.  To change the id for 
+		# a room, use the key :new_id
+		#
+		def change_settings(room_id, options)
+			do_api :post, 'room/change_settings', options.merge({ :session => @session })
+		end
+
+		# Delete a chatroom
+		#
+		def delete_room(room_id)
+			do_api :post, 'room/delete', { :id => room_id, :session => @session }
+		end
+
+		# Enter a chatroom
+		#
+		def enter_room(room_id, nickname=nil, password=nil, idempotent=false)
+			params = { :session => @session, :id => room_id }
+			params.merge!({ :nickname => nickname }) if nickname
+			params.merge!({ :password => password }) if password
+			params.merge!({ :idempotent => 'true' }) if idempotent
+			do_api :post, 'room/enter', params
+		end
+
+		# Poll for messages in a chatroom
+		#
+		def get_messages(ticket, counter, user_messages_only=false)
+			do_api :get, 'room/get_messages', { :session => @session, :ticket => ticket, :counter => counter, :user_messages_only => user_messages_only }
+		end
+
+		# Observe a chatroom, waiting for events to occur in the room
+		#
+		def observe_room(ticket, counter)
+			do_api :get, 'room/observe', { :session => @session, :ticket => ticket, :counter => counter }
+		end
+
+		# Set your nickname in a chatroom
+		#
+		def set_nickname(ticket, nickname)
+			do_api :post, 'room/set_nickname', { :session => @session, :ticket => ticket, :nickname => nickname }
+		end
+
+		# Say something in a chatroom.  If target_occupant_id is not nil, a private message
+		# is sent to the indicated occupant.
+		#
+		def say(ticket, msg, target_occupant_id = nil)
+			params = { :session => @session, :ticket => ticket, :message => msg }
+			params.merge!({ :occupant_id => target_occupant_id}) if target_occupant_id
+			do_api :post, 'room/say', params
+		end
+
+		# Exit a chatroom
+		#
+		def exit_room(ticket)
+			do_api :post, 'room/exit', { :session => @session, :ticket => ticket }
+		end
+
+		private
+
+		def do_api(method, path, parameters, require_session=true)
+			if require_session and !@session
+				raise ClientError, "not in a session"
+			end
+
+			response = Timeout.timeout(@timeout) {
+				JSON.parse(self.send(method, url_for(path), parameters.merge({ :format => 'json' })))
+			}
+
+			unless success?(response)
+				raise APIError, response["error"]
+			end
+
+			response
+		end
+
+		def url_for(method)
+			"http://#{@host}/#{@@PATH_BASE}#{method}"
+		end
+
+		def get(url, params)
+			uri = URI.parse(url)
+			path = uri.path
+			q = params.inject("?") {|s, p| s << "#{p[0].to_s}=#{URI.encode(p[1].to_s, /./)}&"}.chop
+			path << q if q.length > 0
+
+			Net::HTTP.start(uri.host, uri.port) do |http|
+				http.read_timeout = @timeout
+				req = Net::HTTP::Get.new(path)
+				req.basic_auth(uri.user, uri.password) if uri.user
+				parse_result http.request(req)
+			end
+		end
+
+		def post(url, params)
+			if !params.find {|p| p[1].is_a?(Hash)}
+				params = params.inject({}){|hash,(k,v)| hash[k.to_s] = v; hash}
+				parse_result Net::HTTP.post_form(URI.parse(url), params)
+			else
+				boundary = 'lingr-api-client' + (0x1000000 + rand(0x1000000).to_s(16))
+
+				query = params.collect { |p|
+					ret = ["--#{boundary}"]
+
+					if p[1].is_a?(Hash)
+						ret << "Content-Disposition: form-data; name=\"#{URI.encode(p[0].to_s)}\"; filename=\"#{p[1][:filename]}\""
+						ret << "Content-Transfer-Encoding: binary"
+						ret << "Content-Type: #{p[1][:mime_type]}"
+						ret << ""
+						ret << p[1][:io].read
+					else
+						ret << "Content-Disposition: form-data; name=\"#{URI.encode(p[0].to_s)}\""
+						ret << ""
+						ret << p[1]
+					end
+
+					ret.join("\r\n")
+				}.join('') + "--#{boundary}--\r\n"
+
+				uri = URI.parse(url)
+				Net::HTTP.start(uri.host, uri.port) do |http|
+					http.read_timeout = @timeout
+					parse_result http.post2(uri.path, query, "Content-Type" => "multipart/form-data; boundary=#{boundary}")
+				end
+			end
+		end
+
+		def parse_result(result)
+			return nil if !result || result.code != '200' || (!result['Content-Type'] || result['Content-Type'].index('text/javascript') != 0)
+#			puts
+#			puts
+#			puts result.body
+#			puts
+#			puts
+			result.body
+		end
+
+		def success?(response)
+			return false if !response
+			response["status"] and response["status"] == 'ok'
+		end
+
+
+		@@PATH_BASE = 'api/'
+	end
+end

data/examples/mixi.rb

@@ -1,5 +1,5 @@
 #!/usr/bin/env ruby
-# vim:fileencoding=UTF-8:
+# vim:encoding=UTF-8:
 =begin
 
 
@@ -12,7 +12,7 @@ Ruby's by cho45
 $LOAD_PATH << "lib"
 $LOAD_PATH << "../lib"
 
-$KCODE = "u" if RUBY_VERSION < "1.9" # json use this
+$KCODE = "u" unless defined? ::Encoding # json use this
 
 require "rubygems"
 require "json"

data/examples/sig.rb

@@ -1,5 +1,5 @@
 #!/usr/bin/env ruby
-# vim:fileencoding=UTF-8:
+# vim:encoding=UTF-8:
 =begin
 # sig.rb
 
@@ -17,7 +17,7 @@ ServerLog IRC Gateway
 $LOAD_PATH << "lib"
 $LOAD_PATH << "../lib"
 
-$KCODE = "u" if RUBY_VERSION < "1.9" # json use this
+$KCODE = "u" unless defined? ::Encoding
 
 require "rubygems"
 require "net/irc"

data/examples/tig.rb

@@ -1,6 +1,6 @@
 #!/usr/bin/env ruby
-# vim:fileencoding=UTF-8:
-$KCODE = "u" if RUBY_VERSION < "1.9" # json use this
+# vim:encoding=UTF-8:
+$KCODE = "u" unless defined? ::Encoding # json use this
 =begin
 
 # tig.rb
@@ -145,8 +145,6 @@ Use IM instead of any APIs (e.g. post)
 
 ### api_source=<source>
 
-### max_params_count=<number:3>
-
 ### check_friends_interval=<seconds:3600>
 
 ### check_updates_interval=<seconds:86400>
@@ -167,6 +165,10 @@ Set 0 to disable checking.
 
 ### shuffled_tmap
 
+### ll=<lat>,<long>
+
+### with_retweets
+
 ## Extended commands through the CTCP ACTION
 
 ### list (ls)
@@ -180,7 +182,7 @@ Set 0 to disable checking.
 	/me fav! [ID...]
 	/me fav NICK
 
-### link (ln)
+### link (ln, url, u)
 
 	/me link ID [ID...]
 
@@ -197,7 +199,7 @@ Set 0 to disable checking.
 	/me reply ID blah, blah...
 
 ### retweet (rt)
-		
+
 	/me retweet ID (blah, blah...)
 
 ### utf7 (utf-7)
@@ -232,9 +234,10 @@ Ruby's by cho45
 
 =end
 
-if File.directory? "lib"
+case
+when File.directory?("lib")
 	$LOAD_PATH << "lib"
-elsif File.directory? File.expand_path("lib", "..")
+when File.directory?(File.expand_path("lib", ".."))
 	$LOAD_PATH << File.expand_path("lib", "..")
 end
 
@@ -258,14 +261,25 @@ end
 module Net::IRC::Constants; RPL_WHOISBOT = "335"; RPL_CREATEONTIME = "329"; end
 
 class TwitterIrcGateway < Net::IRC::Server::Session
+	@@ctcp_action_commands = []
+
+	class << self
+		def ctcp_action(*commands, &block)
+			name = "+ctcp_action_#{commands.inspect}"
+			define_method(name, block)
+			commands.each do |command|
+				@@ctcp_action_commands << [command, name]
+			end
+		end
+	end
+
 	def server_name
 		"twittergw"
 	end
 
 	def server_version
-		rev = %q$Revision: 34381 $.split[1]
-		rev &&= "+r#{rev}"
-		"0.0.0#{rev}"
+		head = `git rev-parse HEAD 2>/dev/null`
+		head.empty?? "unknown" : head
 	end
 
 	def available_user_modes
@@ -298,13 +312,16 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 
 	class APIFailed < StandardError; end
 
+	MAX_MODE_PARAMS = 3
+	WSP_REGEX       = Regexp.new("\\r\\n|[\\r\\n\\t#{"\\u00A0\\u1680\\u180E\\u2002-\\u200D\\u202F\\u205F\\u2060\\uFEFF" if "\u0000" == "\000"}]")
+
 	def initialize(*args)
 		super
 		@groups        = {}
 		@channels      = [] # joined channels (groups)
 		@nicknames     = {}
 		@drones        = []
-		@config        = Pathname.new(ENV["HOME"]) + ".tig"
+		@config        = Pathname.new(ENV["HOME"]) + ".tig" ### TODO マルチユーザに対応してない
 		@etags         = {}
 		@consums       = []
 		@limit         = hourly_limit
@@ -362,6 +379,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		post server_name, MODE, @nick, "+o"
 		post @prefix, JOIN, main_channel
 		post server_name, MODE, main_channel, "+mto", @nick
+		post server_name, MODE, main_channel, "+q", @nick
 		if @me.status
 			@me.status.user = @me
 			post @prefix, TOPIC, main_channel, generate_status_message(@me.status.text)
@@ -425,14 +443,20 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 
 		@timeline = TypableMap.new(@opts.tmap_size     || 10_404,
 		                           @opts.shuffled_tmap || false)
-		@sources  = @opts.clientspoofing ? fetch_sources : [[api_source, "tig.rb"]]
+
+		if @opts.clientspoofing
+			update_sources
+		else
+			@sources = [api_source]
+		end
 
 		update_redundant_suffix
 		@check_updates_thread = Thread.start do
-			sleep @opts.check_updates_interval || 86400
+			sleep 30
 
 			loop do
 				begin
+					@log.info "check_updates"
 					check_updates
 				rescue Exception => e
 					@log.error e.inspect
@@ -443,7 +467,9 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 				sleep 0.01 * (90 + rand(21)) *
 				      (@opts.check_updates_interval || 86400) # 0.9 ... 1.1 day
 			end
-		end if @opts.check_updates_interval != 0
+
+			sleep @opts.check_updates_interval || 86400
+		end
 
 		@check_timeline_thread = Thread.start do
 			sleep 2 * (@me.friends_count / 100.0).ceil
@@ -511,7 +537,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 	def on_privmsg(m)
 		target, mesg = *m.params
 
-		m.ctcps.each {|ctcp| on_ctcp target, ctcp } if m.ctcp?
+		m.ctcps.each {|ctcp| on_ctcp(target, ctcp) } if m.ctcp?
 
 		return if mesg.empty?
 		return on_ctcp_action(target, mesg) if mesg.sub!(/\A +/, "") #and @opts.direct_action
@@ -563,29 +589,32 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 						return
 					end
 
-					in_reply_to = nil
+					q = { :status => mesg, :source => source }
+
 					if @opts.old_style_reply and mesg[/\A@(?>([A-Za-z0-9_]{1,15}))[^A-Za-z0-9_]/]
-						screen_name = $1
-						unless user = friend(screen_name)
-							user = api("users/show/#{screen_name}")
-						end
-						if user and user.status
-							in_reply_to = user.status.id
-						elsif user
-							user = api("users/show/#{user.id}", {}, { :authenticate => user.protected })
-							in_reply_to = user.status.id if user.status
+						if user = friend($1) || api("users/show/#{$1}")
+							unless user.status
+								user = api("users/show/#{user.id}", {},
+								           { :authenticate => user.protected })
+							end
+							if user.status
+								q.update :in_reply_to_status_id => user.status.id
+							end
 						end
 					end
+					if @opts.ll
+						lat, long = @opts.ll.split(",", 2)
+						q.update :lat  => lat.to_f
+						q.update :long => long.to_f
+					end
 
-					q = { :status => mesg, :source => source }
-					q.update(:in_reply_to_status_id => in_reply_to) if in_reply_to
 					ret = api("statuses/update", q)
 					log oops(ret) if ret.truncated
 					ret.user.status = ret
 					@me = ret.user
 					log "Status updated"
 				end
-			when target.nick? # Direct message
+			when target.screen_name? # Direct message
 				ret = api("direct_messages/new", { :screen_name => target, :text => mesg })
 				post server_name, NOTICE, @nick, "Your direct message has been sent to #{target}."
 			else
@@ -604,7 +633,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 
 	def on_whois(m)
 		nick = m.params[0]
-		unless nick.nick?
+		unless nick.screen_name?
 			post server_name, ERR_NOSUCHNICK, nick, "No such nick/channel"
 			return
 		end
@@ -635,16 +664,33 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 	end
 
 	def on_who(m)
-		channel = m.params[0]
+		channel  = m.params[0]
+		whoreply = Proc.new do |ch, user|
+			#     "<channel> <user> <host> <server> <nick>
+			#         ( "H" / "G" > ["*"] [ ( "@" / "+" ) ]
+			#             :<hopcount> <real name>"
+			prefix = prefix(user)
+			server = api_base.host
+			mode   = case prefix.nick
+				when @nick                     then "~"
+				#when @drones.include?(user.id) then "%" # FIXME
+				else                                "+"
+			end
+			hop  = prefix.host.count("/")
+			real = user.name
+			post server_name, RPL_WHOREPLY, @nick,
+			     ch, prefix.user, prefix.host, server, prefix.nick, "H*#{mode}", "#{hop} #{real}"
+		end
+
 		case
 		when channel.casecmp(main_channel).zero?
 			users = [@me]
 			users.concat @friends.reverse if @friends
-			users.each {|friend| whoreply channel, friend }
+			users.each {|friend| whoreply.call channel, friend }
 			post server_name, RPL_ENDOFWHO, @nick, channel
 		when (@groups.key?(channel) and @friends)
 			@groups[channel].each do |nick|
-				whoreply channel, friend(nick)
+				whoreply.call channel, friend(nick)
 			end
 			post server_name, RPL_ENDOFWHO, @nick, channel
 		else
@@ -662,6 +708,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 			@channels.uniq!
 			post @prefix, JOIN, channel
 			post server_name, MODE, channel, "+mtio", @nick
+			post server_name, MODE, channel, "+q", @nick
 			save_config
 		end
 	end
@@ -676,7 +723,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 
 	def on_invite(m)
 		nick, channel = *m.params
-		if not nick.nick? or @nick.casecmp(nick).zero?
+		if not nick.screen_name? or @nick.casecmp(nick).zero?
 			post server_name, ERR_NOSUCHNICK, nick, "No such nick/channel" # or yourself
 			return
 		end
@@ -737,6 +784,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		channel = m.params[0]
 		return if not channel.casecmp(main_channel).zero? or @me.status.nil?
 
+		return if not @opts.mesautofix
 		begin
 			require "levenshtein"
 			topic    = m.params[1]
@@ -754,7 +802,8 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 			if distance < 0.5
 				deleted = api("statuses/destroy/#{previous.id}")
 				@timeline.delete_if {|tid, s| s.id == deleted.id }
-				log "Fixed: #{status.text}"
+				log "Similar update in previous. Conclude that it has error."
+				log "And overwrite previous as new status: #{status.text}"
 			else
 				log "Status updated"
 			end
@@ -766,12 +815,13 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		channel = m.params[0]
 
 		unless m.params[1]
-			if channel.ch?
+			case
+			when channel.ch?
 				mode = "+mt"
 				mode += "i" unless channel.casecmp(main_channel).zero?
 				post server_name, RPL_CHANNELMODEIS, @nick, channel, mode
 				#post server_name, RPL_CREATEONTIME, @nick, channel, 0
-			elsif channel.casecmp(@nick).zero?
+			when channel.casecmp(@nick).zero?
 				post server_name, RPL_UMODEIS, @nick, @nick, "+o"
 			end
 		end
@@ -787,303 +837,390 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 	def on_ctcp_action(target, mesg)
 		#return unless main_channel.casecmp(target).zero?
 		command, *args = mesg.split(" ")
-		case command.downcase
-		when "call"
-			if args.size < 2
-				log "/me call <Twitter_screen_name> as <IRC_nickname>"
-				return
+		if command
+			command.downcase!
+
+			@@ctcp_action_commands.each do |define, name|
+				if define === command
+					send(name, target, mesg, Regexp.last_match || command, args)
+					break
+				end
+			end
+		else
+			commands = @@ctcp_action_commands.map {|define, name|
+				define
+			}.select {|define|
+				define.is_a? String
+			}
+
+			log "[tig.rb] CTCP ACTION COMMANDS:"
+			commands.each_slice(5) do |c|
+				log c.join(" ")
 			end
-			screen_name = args[0]
-			nickname    = args[2] || args[1] # allow omitting "as"
-			if nickname == "is" and
-			   deleted_nick = @nicknames.delete(screen_name)
-				log %Q{Removed the nickname "#{deleted_nick}" for #{screen_name}}
+		end
+
+	rescue APIFailed => e
+		log e.inspect
+	rescue Exception => e
+		log e.inspect
+		e.backtrace.each do |l|
+			@log.error "\t#{l}"
+		end
+	end
+
+	ctcp_action "call" do |target, mesg, command, args|
+		if args.size < 2
+			log "/me call <Twitter_screen_name> as <IRC_nickname>"
+			return
+		end
+		screen_name = args[0]
+		nickname    = args[2] || args[1] # allow omitting "as"
+		if nickname == "is" and
+		   deleted_nick = @nicknames.delete(screen_name)
+			log %Q{Removed the nickname "#{deleted_nick}" for #{screen_name}}
+		else
+			@nicknames[screen_name] = nickname
+			log "Call #{screen_name} as #{nickname}"
+		end
+		#save_config
+	end
+
+	ctcp_action "debug" do |target, mesg, command, args|
+		code = args.join(" ")
+		begin
+			log instance_eval(code).inspect
+		rescue Exception => e
+			log e.inspect
+		end
+	end
+
+	ctcp_action "utf-7", "utf7" do |target, mesg, command, args|
+		unless defined? ::Iconv
+			log "Can't load iconv."
+			return
+		end
+		@utf7 = !@utf7
+		log "UTF-7 mode: #{@utf7 ? 'on' : 'off'}"
+	end
+
+	ctcp_action "list", "ls" do |target, mesg, command, args|
+		if args.empty?
+			log "/me list <NICK> [<NUM>]"
+			return
+		end
+		nick = args.first
+		if not nick.screen_name? or
+		   api("users/username_available", { :username => nick }).valid
+			post server_name, ERR_NOSUCHNICK, nick, "No such nick/channel"
+			return
+		end
+		id           = nick
+		authenticate = false
+		if user = friend(nick)
+			id           = user.id
+			nick         = user.screen_name
+			authenticate = user.protected
+		end
+		unless (1..200).include?(count = args[1].to_i)
+			count = 20
+		end
+		begin
+			res = api("statuses/user_timeline/#{id}",
+					  { :count => count }, { :authenticate => authenticate })
+		rescue APIFailed
+			#log "#{nick} has protected their updates."
+			return
+		end
+		res.reverse_each do |s|
+			message(s, target, nil, nil, NOTICE)
+		end
+	end
+
+	ctcp_action %r/\A(un)?fav(?:ou?rite)?(!)?\z/ do |target, mesg, command, args|
+		# fav, unfav, favorite, unfavorite, favourite, unfavourite
+		method   = command[1].nil? ? "create" : "destroy"
+		force    = !!command[2]
+		entered  = command[0].capitalize
+		statuses = []
+		if args.empty?
+			if method == "create"
+				if status = @timeline.last
+					statuses << status
+				else
+					#log ""
+					return
+				end
 			else
-				@nicknames[screen_name] = nickname
-				log "Call #{screen_name} as #{nickname}"
+				@favorites ||= api("favorites").reverse
+				if @favorites.empty?
+					log "You've never favorite yet. No favorites to unfavorite."
+					return
+				end
+				statuses.push @favorites.last
 			end
-			#save_config
-		when /\Autf-?7\z/
-			unless defined? ::Iconv
-				log "Can't load iconv."
-				return
+		else
+			args.each do |tid_or_nick|
+				case
+				when status = @timeline[tid = tid_or_nick]
+					statuses.push status
+				when friend = friend(nick = tid_or_nick)
+					if friend.status
+						statuses.push friend.status
+					else
+						log "#{tid_or_nick} has no status."
+					end
+				else
+					# PRIVMSG: fav nick
+					log "No such ID/NICK #{@opts.tid % tid_or_nick}"
+				end
 			end
-			@utf7 = !@utf7
-			log "UTF-7 mode: #{@utf7 ? 'on' : 'off'}"
-		when "list", "ls"
-			if args.empty?
-				log "/me list <NICK> [<NUM>]"
-				return
+		end
+		@favorites ||= []
+		statuses.each do |s|
+			if not force and method == "create" and
+			   @favorites.find {|i| i.id == s.id }
+				log "The status is already favorited! <#{permalink(s)}>"
+				next
 			end
-			nick = args.first
-			if not nick.nick? or
-			   api("users/username_available", { :username => nick }).valid
-				post server_name, ERR_NOSUCHNICK, nick, "No such nick/channel"
-				return
+			res = api("favorites/#{method}/#{s.id}")
+			log "#{entered}: #{res.user.screen_name}: #{generate_status_message(res.text)}"
+			if method == "create"
+				@favorites.push res
+			else
+				@favorites.delete_if {|i| i.id == res.id }
 			end
-			id           = nick
-			authenticate = false
-			if user = friend(nick)
-				id           = user.id
-				nick         = user.screen_name
-				authenticate = user.protected
+		end
+	end
+
+	ctcp_action "link", "ln", /\Au(?:rl)?\z/ do |target, mesg, command, args|
+		args.each do |tid|
+			if status = @timeline[tid]
+				log "#{@opts.tid % tid}: #{permalink(status)}"
+			else
+				log "No such ID #{@opts.tid % tid}"
 			end
-			unless (1..200).include?(count = args[1].to_i)
-				count = 20
+		end
+	end
+
+	ctcp_action "ratio", "ratios" do |target, mesg, command, args|
+		unless args.empty?
+			args = args.first.split(":") if args.size == 1
+			case
+			when @opts.dm && @opts.mentions && args.size < 3
+				log "/me ratios <timeline> <dm> <mentions>"
+				return
+			when @opts.dm && args.size < 2
+				log "/me ratios <timeline> <dm>"
+				return
+			when @opts.mentions && args.size < 2
+				log "/me ratios <timeline> <mentions>"
+				return
 			end
-			begin
-				res = api("statuses/user_timeline/#{id}",
-				          { :count => count }, { :authenticate => authenticate })
-			rescue APIFailed
-				#log "#{nick} has protected their updates."
+			ratios = args.map {|ratio| ratio.to_f }
+			if ratios.any? {|ratio| ratio <= 0.0 }
+				log "Ratios must be greater than 0.0 and fractional values are permitted."
 				return
 			end
-			res.reverse_each do |s|
-				message(s, target, nil, nil, NOTICE)
+			@ratio.timeline = ratios[0]
+
+			case
+			when @opts.dm
+				@ratio.dm       = ratios[1]
+				@ratio.mentions = ratios[2] if @opts.mentions
+			when @opts.mentions
+				@ratio.mentions = ratios[1]
 			end
-		when /\A(un)?fav(?:ou?rite)?(!)?\z/
-		# fav, unfav, favorite, unfavorite, favourite, unfavourite
-			method   = $1.nil? ? "create" : "destroy"
-			force    = !!$2
-			entered  = $&.capitalize
-			statuses = []
-			if args.empty?
-				if method == "create"
-					if status = @timeline.last
-						statuses << status
-					else
-						#log ""
-						return
-					end
-				else
-					@favorites ||= api("favorites").reverse
-					if @favorites.empty?
-						log "You've never favorite yet. No favorites to unfavorite."
-						return
-					end
-					statuses.push @favorites.last
-				end
-			else
-				args.each do |tid_or_nick|
-					case
-					when status = @timeline[tid_or_nick]
+		end
+		log "Intervals: " + @ratio.zip([:timeline, :dm, :mentions]).map {|ratio, name| [name,  "#{interval(ratio).round}sec"] }.inspect
+	end
+
+	ctcp_action "rm", %r/\A(?:de(?:stroy|l(?:ete)?)|miss|oops|r(?:emove|m))\z/ do |target, mesg, command, args|
+	# destroy, delete, del, remove, rm, miss, oops
+		statuses = []
+		if args.empty? and @me.status
+			statuses.push @me.status
+		else
+			args.each do |tid|
+				if status = @timeline[tid]
+					if status.user.id == @me.id
 						statuses.push status
-					when friend = friend(tid_or_nick)
-						if friend.status
-							statuses.push friend.status
-						else
-							log "#{tid_or_nick} has no status."
-						end
 					else
-						# PRIVMSG: fav nick
-						log "No such ID/NICK #{@opts.tid % tid_or_nick}"
+						log "The status you specified by the ID #{@opts.tid % tid} is not yours."
 					end
-				end
-			end
-			@favorites ||= []
-			statuses.each do |s|
-				if not force and method == "create" and
-				   @favorites.find {|i| i.id == s.id }
-					log "The status is already favorited! <#{permalink(s)}>"
-					next
-				end
-				res = api("favorites/#{method}/#{s.id}")
-				log "#{entered}: #{res.user.screen_name}: #{generate_status_message(res.text)}"
-				if method == "create"
-					@favorites.push res
-				else
-					@favorites.delete_if {|i| i.id == res.id }
-				end
-			end
-		when "link", "ln"
-			args.each do |tid|
-				if status = @timeline[tid]
-					log "#{@opts.tid % tid}: #{permalink(status)}"
 				else
 					log "No such ID #{@opts.tid % tid}"
 				end
 			end
-		when /\Aratios?\z/
-			unless args.empty?
-				args = args.first.split(":") if args.size == 1
-				if @opts.dm and @opts.mentions and args.size < 3
-					log "/me ratios <timeline> <dm> <mentions>"
-					return
-				elsif @opts.dm and args.size < 2
-					log "/me ratios <timeline> <dm>"
-					return
-				elsif @opts.mentions and args.size < 2
-					log "/me ratios <timeline> <mentions>"
-					return
-				end
-				ratios = args.map {|ratio| ratio.to_f }
-				if ratios.any? {|ratio| ratio <= 0.0 }
-					log "Ratios must be greater than 0.0 and fractional values are permitted."
-					return
-				end
-				@ratio.timeline = ratios[0]
-				if @opts.dm
-					@ratio.dm       = ratios[1]
-					@ratio.mentions = ratios[2] if @opts.mentions
-				elsif @opts.mentions
-					@ratio.mentions = ratios[1]
-				end
-			end
-			log "Intervals: #{@ratio.map {|ratio| interval ratio }.inspect}"
-		when /\A(?:de(?:stroy|l(?:ete)?)|miss|oops|r(?:emove|m))\z/
-		# destroy, delete, del, remove, rm, miss, oops
-			statuses = []
-			if args.empty? and @me.status
-				statuses.push @me.status
-			else
-				args.each do |tid|
-					if status = @timeline[tid]
-						if status.user.id == @me.id
-							statuses.push status
-						else
-							log "The status you specified by the ID #{@opts.tid % tid} is not yours."
-						end
-					else
-						log "No such ID #{@opts.tid % tid}"
+		end
+		b = false
+		statuses.each do |st|
+			res = api("statuses/destroy/#{st.id}")
+			@timeline.delete_if {|tid, s| s.id == res.id }
+			b = @me.status && @me.status.id == res.id
+			log "Destroyed: #{res.text}"
+		end
+		Thread.start do
+			sleep 2
+			@me = api("account/update_profile") #api("account/verify_credentials")
+			if @me.status
+				@me.status.user = @me
+				msg = generate_status_message(@me.status.text)
+				@timeline.any? do |tid, s|
+					if s.id == @me.status.id
+						msg << " " << @opts.tid % tid
 					end
 				end
+				post @prefix, TOPIC, main_channel, msg
 			end
-			b = false
-			statuses.each do |st|
-				res = api("statuses/destroy/#{st.id}")
-				@timeline.delete_if {|tid, s| s.id == res.id }
-				b = @me.status && @me.status.id == res.id
-				log "Destroyed: #{res.text}"
-			end
-			Thread.start do
-				sleep 2
-				@me = api("account/update_profile") #api("account/verify_credentials")
-				if @me.status
-					@me.status.user = @me
-					msg = generate_status_message(@me.status.text)
-					@timeline.any? do |tid, s|
-						if s.id == @me.status.id
-							msg << " " << @opts.tid % tid
-						end
-					end
-					post @prefix, TOPIC, main_channel, msg
-				end
-			end if b
-		when "name"
-			name = mesg.split(" ", 2)[1]
-			unless name.nil?
-				@me = api("account/update_profile", { :name => name })
-				@me.status.user = @me if @me.status
-				log "You are named #{@me.name}."
-			end
-		when "email"
-			# FIXME
-			email = args.first
-			unless email.nil?
-				@me = api("account/update_profile", { :email => email })
-				@me.status.user = @me if @me.status
-			end
-		when "url"
-			# FIXME
-			url = args.first || ""
-			@me = api("account/update_profile", { :url => url })
-			@me.status.user = @me if @me.status
-		when "in", "location"
-			location = mesg.split(" ", 2)[1] || ""
-			@me = api("account/update_profile", { :location => location })
+		end if b
+	end
+
+	ctcp_action "name" do |target, mesg, command, args|
+		name = mesg.split(" ", 2)[1]
+		unless name.nil?
+			@me = api("account/update_profile", { :name => name })
 			@me.status.user = @me if @me.status
-			location = (@me.location and @me.location.empty?) ? "nowhere" : "in #{@me.location}"
-			log "You are #{location} now."
-		when /\Adesc(?:ription)?\z/
-			# FIXME
-			description = mesg.split(" ", 2)[1] || ""
-			@me = api("account/update_profile", { :description => description })
+			log "You are named #{@me.name}."
+		end
+	end
+
+	ctcp_action "email" do |target, mesg, command, args|
+		# FIXME
+		email = args.first
+		unless email.nil?
+			@me = api("account/update_profile", { :email => email })
 			@me.status.user = @me if @me.status
-		#when /\Acolou?rs?\z/ # TODO
-		#	# bg, text, link, fill and border
-		#when "image", "img" # TODO
-		#	url = args.first
-		#	# DCC SEND
-		#when "follow"# TODO
-		#when "leave" # TODO
-		when /\A(?:mention|re(?:ply)?)\z/ # reply, re, mention
-			tid = args.first
-			if status = @timeline[tid]
-				text = mesg.split(" ", 3)[2]
-				screen_name = "@#{status.user.screen_name}"
-				if text.nil? or not text.include?(screen_name)
-					text = "#{screen_name} #{text}"
-				end
-				ret = api("statuses/update", { :status => text, :source => source,
-				                               :in_reply_to_status_id => status.id })
-				log oops(ret) if ret.truncated
-				msg = generate_status_message(status.text)
-				url = permalink(status)
-				log "Status updated (In reply to #{@opts.tid % tid}: #{msg} <#{url}>)"
-				ret.user.status = ret
-				@me = ret.user
-			end
-		when /\Aspoo(o+)?f\z/
+		end
+	end
+
+	ctcp_action "url" do |target, mesg, command, args|
+		# FIXME
+		url = args.first || ""
+		@me = api("account/update_profile", { :url => url })
+		@me.status.user = @me if @me.status
+	end
+
+	ctcp_action "in", "location" do |target, mesg, command, args|
+		location = mesg.split(" ", 2)[1] || ""
+		@me = api("account/update_profile", { :location => location })
+		@me.status.user = @me if @me.status
+		location = (@me.location and @me.location.empty?) ? "nowhere" : "in #{@me.location}"
+		log "You are #{location} now."
+	end
+
+	ctcp_action %r/\Adesc(?:ription)?\z/ do |target, mesg, command, args|
+		# FIXME
+		description = mesg.split(" ", 2)[1] || ""
+		@me = api("account/update_profile", { :description => description })
+		@me.status.user = @me if @me.status
+	end
+
+	ctcp_action %r/\A(?:mention|re(?:ply)?)\z/ do |target, mesg, command, args|
+		# reply, re, mention
+		tid = args.first
+		if status = @timeline[tid]
+			text = mesg.split(" ", 3)[2]
+			screen_name = "@#{status.user.screen_name}"
+			if text.nil? or not text.include?(screen_name)
+				text = "#{screen_name} #{text}"
+			end
+			ret = api("statuses/update", { :status => text, :source => source,
+										   :in_reply_to_status_id => status.id })
+			log oops(ret) if ret.truncated
+			msg = generate_status_message(status.text)
+			url = permalink(status)
+			log "Status updated (In reply to #{@opts.tid % tid}: #{msg} <#{url}>)"
+			ret.user.status = ret
+			@me = ret.user
+		end
+	end
+
+	ctcp_action %r/\Aspoo(o+)?f\z/ do |target, mesg, command, args|
+		if args.empty?
 			Thread.start do
-				@sources = args.empty? \
-				         ? @sources.size == 1 || $1 ? fetch_sources($1 && $1.size) \
-				                                    : [[api_source, "tig.rb"]] \
-				         : args.map {|src| [src.upcase != "WEB" ? src : "", "=#{src}"] }
-				log @sources.map {|src| src[1] }.sort.join(", ")
-			end
-		when "bot", "drone"
-			if args.empty?
-				log "/me bot <NICK> [<NICK>...]"
-				return
+				update_sources(command[1].nil?? 0 : command[1].size)
 			end
-			args.each do |bot|
-				user = friend(bot)
-				unless user
-					post server_name, ERR_NOSUCHNICK, bot, "No such nick/channel"
-					next
-				end
-				if @drones.delete(user.id)
-					mode = "-#{mode}"
-					log "#{bot} is no longer a bot."
-				else
-					@drones << user.id
-					mode = "+#{mode}"
-					log "Marks #{bot} as a bot."
-				end
+			return
+		end
+		names = []
+		@sources = args.map do |arg|
+			names << "=#{arg}"
+			case arg.upcase
+			when "WEB" then ""
+			when "API" then nil
+			else            arg
 			end
-			save_config
-		when "home", "h"
-			if args.empty?
-				log "/me home <NICK>"
-				return
+		end
+		log(names.inject([]) do |r, name|
+			s = r.join(", ")
+			if s.size < 400
+				r << name
+			else
+				log s
+				[name]
 			end
-			nick = args.first
-			if not nick.nick? or
-			   api("users/username_available", { :username => nick }).valid
-				post server_name, ERR_NOSUCHNICK, nick, "No such nick/channel"
-				return
+		end.join(", "))
+	end
+
+	ctcp_action "bot", "drone" do |target, mesg, command, args|
+		if args.empty?
+			log "/me bot <NICK> [<NICK>...]"
+			return
+		end
+		args.each do |bot|
+			user = friend(bot)
+			unless user
+				post server_name, ERR_NOSUCHNICK, bot, "No such nick/channel"
+				next
 			end
-			log "http://twitter.com/#{nick}"
-		when "retweet", "rt"
-			tid = args.first
-			if status = @timeline[tid]
-				if args.size >= 2
-					comment = mesg.split(" ",3)[2] + " "
-				else
-					comment = ""
-				end
-				screen_name = "@#{status.user.screen_name}"
-				rt_message = generate_status_message(status.text)
-				text = "#{comment}RT #{screen_name}: #{rt_message}"
-				ret = api("statuses/update", { :status => text, :source => source })
-				log oops(ret) if ret.truncated
-				log "Status updated (RT to #{@opts.tid % tid}: #{text})"
-				ret.user.status = ret
-				@me = ret.user
+			if @drones.delete(user.id)
+				mode = "-#{mode}"
+				log "#{bot} is no longer a bot."
+			else
+				@drones << user.id
+				mode = "+#{mode}"
+				log "Marks #{bot} as a bot."
 			end
-		end unless command.nil?
-	rescue APIFailed => e
-		log e.inspect
+		end
+		save_config
+
+	end
+
+	ctcp_action "home", "h" do |target, mesg, command, args|
+		if args.empty?
+			log "/me home <NICK>"
+			return
+		end
+		nick = args.first
+		if not nick.screen_name? or
+		   api("users/username_available", { :username => nick }).valid
+			post server_name, ERR_NOSUCHNICK, nick, "No such nick/channel"
+			return
+		end
+		log "http://twitter.com/#{nick}"
+	end
+
+	ctcp_action "retweet", "rt" do |target, mesg, command, args|
+		if args.empty?
+			log "/me #{command} <ID> blah blah"
+			return
+		end
+		tid = args.first
+		if status = @timeline[tid]
+			if args.size >= 2
+				comment = mesg.split(" ", 3)[2] + " "
+			else
+				comment = ""
+			end
+			screen_name = "@#{status.user.screen_name}"
+			rt_message = generate_status_message(status.text)
+			text = "#{comment}RT #{screen_name}: #{rt_message}"
+			ret = api("statuses/update", { :status => text, :source => source })
+			log oops(ret) if ret.truncated
+			log "Status updated (RT to #{@opts.tid % tid}: #{text})"
+			ret.user.status = ret
+			@me = ret.user
+		end
 	end
 
 	def on_ctcp_clientinfo(target, msg)
@@ -1129,7 +1266,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 				rest = @friends.map do |i|
 					prefix = "+" #@drones.include?(i.id) ? "%" : "+" # FIXME ~&%
 					"#{prefix}#{i.screen_name}"
-				end.reverse.inject("@#{@nick}") do |r, nick|
+				end.reverse.inject("~#{@nick}") do |r, nick|
 					if r.size < 400
 						r << " " << nick
 					else
@@ -1166,15 +1303,20 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 	end
 
 	def check_timeline
-		cmd = PRIVMSG
-		q   = { :count => 200 }
-		if @latest_id ||= nil
+		cmd  = PRIVMSG
+		path = "statuses/#{@opts.with_retweets ? "home" : "friends"}_timeline"
+		q    = { :count => 200 }
+		@latest_id ||= nil
+
+		case 
+		when @latest_id
 			q.update(:since_id => @latest_id)
-		elsif not @me.statuses_count.zero? and not @me.friends_count.zero?
-			cmd = NOTICE
+		when is_first_retrieve = !@me.statuses_count.zero? && !@me.friends_count.zero?
+		#	cmd = NOTICE # デバッグするときめんどくさいので
+			q.update(:count => 20)
 		end
 
-		api("statuses/friends_timeline", q).reverse_each do |status|
+		api(path, q).reverse_each do |status|
 			id = @latest_id = status.id
 			next if @timeline.any? {|tid, s| s.id == id }
 
@@ -1196,6 +1338,9 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 					b = false
 					@friends.each_with_index do |friend, i|
 						if b = friend.id == user.id
+							if friend.screen_name != user.screen_name
+								post prefix(friend), NICK, user.screen_name
+							end
 							@friends[i] = user
 							break
 						end
@@ -1265,43 +1410,41 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 	def check_updates
 		update_redundant_suffix
 
-		return unless /\+r(\d+)\z/ === server_version
-		rev = $1.to_i
-		uri = URI("http://svn.coderepos.org/share/lang/ruby/net-irc/trunk/examples/tig.rb")
+		uri = URI("http://github.com/api/v1/json/cho45/net-irc/commits/master")
 		@log.debug uri.inspect
-		res = http(uri).request(http_req(:head, uri))
-		@etags[uri.to_s] = res["ETag"]
-		return unless not res.is_a?(Net::HTTPNotModified) and
-		              /\A"(\d+)/ === res["ETag"] and rev < $1.to_i
-		uri = URI("http://coderepos.org/share/log/lang/ruby/net-irc/trunk/examples/tig.rb")
-		uri.query = { :rev => $1, :stop_rev => rev, :verbose => "on" }.to_query_str(";")
-		log "\002New version is available.\017 <#{uri}>"
+		res = http(uri).request(http_req(:get, uri))
+
+		latest = JSON.parse(res.body)['commits'][0]['id']
+		unless server_version == latest
+			log "\002New version is available.\017 run 'git pull'."
+		end
 	rescue Errno::ECONNREFUSED, Timeout::Error => e
 		@log.error "Failed to get the latest revision of tig.rb from #{uri.host}: #{e.inspect}"
 	end
 
 	def interval(ratio)
 		now   = Time.now
-		max   = @opts.maxlimit
+		max   = @opts.maxlimit || 0
 		limit = 0.98 * @limit # 98% of the rate limit
 		i     = 3600.0        # an hour in seconds
 		i *= @ratio.inject {|sum, r| sum.to_f + r.to_f } +
 		     @consums.delete_if {|t| t < now }.size
 		i /= ratio.to_f
-		i /= (max and 0 < max and max < limit) ? max : limit
+		i /= (0 < max && max < limit) ? max : limit
+		i = 60 * 30 if i > 60 * 30 # 30分以上止まらないように。
+		i
 	rescue => e
 		@log.error e.inspect
 		100
 	end
 
 	def join(channel, users)
-		max_params_count = @opts.max_params_count || 3
 		params = []
 		users.each do |user|
 			prefix = prefix(user)
 			post prefix, JOIN, channel
-			params << prefix.nick
-			next if params.size < max_params_count
+			params << prefix.nick if user.protected
+			next if params.size < MAX_MODE_PARAMS
 
 			post server_name, MODE, channel, "+#{"v" * params.size}", *params
 			params = []
@@ -1347,22 +1490,6 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		end
 	end
 
-	def whoreply(channel, user)
-		#     "<channel> <user> <host> <server> <nick>
-		#         ( "H" / "G" > ["*"] [ ( "@" / "+" ) ]
-		#             :<hopcount> <real name>"
-		prefix = prefix(user)
-		server = api_base.host
-		real   = user.name
-		mode   = case prefix.nick
-			when @nick                     then "@"
-			#when @drones.include?(user.id) then "%" # FIXME
-			else                                "+"
-		end
-		post server_name, RPL_WHOREPLY, @nick, channel,
-		     prefix.user, prefix.host, server, prefix.nick, "H*#{mode}", "0 #{real}"
-	end
-
 	def save_config
 		config = {
 			:groups    => @groups,
@@ -1397,6 +1524,10 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		}x === path
 	end
 
+	#def require_put?(path)
+	#	%r{ \A status(?:es)?/retweet (?:/|\z) }x === path
+	#end
+
 	def api(path, query = {}, opts = {})
 		path.sub!(%r{\A/+}, "")
 		query = query.to_query_str
@@ -1407,7 +1538,6 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		uri.path += path
 		uri.path += ".json" if path != "users/username_available"
 		uri.query = query unless query.empty?
-		@log.debug uri.inspect
 
 		header      = {}
 		credentials = authenticate ? [@real, @pass] : nil
@@ -1416,15 +1546,19 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 				http_req :delete, uri, header, credentials
 			when require_post?(path)
 				http_req :post,   uri, header, credentials
+			#when require_put?(path)
+			#	http_req :put,    uri, header, credentials
 			else
 				http_req :get,    uri, header, credentials
 		end
 
+		@log.debug [req.method, uri.to_s]
 		ret = http(uri, 30, 30).request req
 
 		#@etags[uri.to_s] = ret["ETag"]
 
-		if authenticate
+		case
+		when authenticate
 			hourly_limit = ret["X-RateLimit-Limit"].to_i
 			unless hourly_limit.zero?
 				if @limit != hourly_limit
@@ -1445,7 +1579,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 					@consums << expired_on
 				end
 			end
-		elsif ret["X-RateLimit-Remaining"]
+		when ret["X-RateLimit-Remaining"]
 			@limit_remaining_for_ip = ret["X-RateLimit-Remaining"].to_i
 			@log.debug "IP based limit: #{@limit_remaining_for_ip}"
 		end
@@ -1470,8 +1604,10 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		when Net::HTTPBadRequest # 400: exceeded the rate limitation
 			if ret.key?("X-RateLimit-Reset")
 				s = ret["X-RateLimit-Reset"].to_i - Time.now.to_i
-				log "RateLimit: #{(s / 60.0).ceil} min remaining to get timeline"
-				sleep s
+				if s > 0
+					log "RateLimit: #{(s / 60.0).ceil} min remaining to get timeline"
+					sleep (s > 60 * 10) ? 60 * 10 : s # 10 分に一回はとってくるように
+				end
 			end
 			raise APIFailed, "#{ret.code}: #{ret.message}"
 		when Net::HTTPUnauthorized # 401
@@ -1503,8 +1639,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		mesg.delete!("\000\001")
 		mesg.gsub!("&gt;", ">")
 		mesg.gsub!("&lt;", "<")
-		#mesg.gsub!(/\r\n|[\r\n\t\u00A0\u1680\u180E\u2002-\u200D\u202F\u205F\u2060\uFEFF]/, " ")
-		mesg.gsub!(/\r\n|[\r\n\t]/, " ")
+		mesg.gsub!(WSP_REGEX, " ")
 		mesg = untinyurl(mesg)
 		mesg.sub!(@rsuffix_regex, "") if @rsuffix_regex
 		mesg.strip
@@ -1563,7 +1698,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 	end
 
 	def decode_utf7(str)
-		return str unless defined?(::Iconv) and str.include?("+")
+		return str unless defined? ::Iconv and str.include?("+")
 
 		str.sub!(/\A(?:.+ > |.+\z)/) { Iconv.iconv("UTF-8", "UTF-7", $&).join }
 		#FIXME str = "[utf7]: #{str}" if str =~ /[^a-z0-9\s]/i
@@ -1593,8 +1728,10 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		login, key, len = @opts.bitlify.split(":", 3) if @opts.bitlify
 		len      = (len || 20).to_i
 		longurls = URI.extract(text, %w[http https]).uniq.map do |url|
-			URI.rstrip_unpaired_paren(url)
-		end.reject {|url| url.size < len }
+			URI.rstrip url
+		end.reject do |url|
+			url.size < len
+		end
 		return text if longurls.empty?
 
 		bitly = URI("http://api.bit.ly/shorten")
@@ -1637,7 +1774,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		size    = unu_url.size
 
 		text.gsub(URI.regexp(%w[http https])) do |url|
-			url = URI.rstrip_unpaired_paren(url)
+			url = URI.rstrip url
 			if url.size < size + 5 or url[0, size] == unu_url
 				return url
 			end
@@ -1684,12 +1821,12 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		end
 
 		urls = []
-		(text.split(/[\s<>]+/) + [text]).each do |str|
+		text.split(/[\s<>]+/).each do |str|
 			next if /%[0-9A-Fa-f]{2}/ === str
 			# URI::UNSAFE + "#"
 			escaped_str = URI.escape(str, %r{[^-_.!~*'()a-zA-Z0-9;/?:@&=+$,\[\]#]})
 			URI.extract(escaped_str, %w[http https]).each do |url|
-				uri = URI(URI.rstrip_unpaired_paren(url))
+				uri = URI(URI.rstrip(url))
 				if not urls.include?(uri.to_s) and exist_uri?(uri)
 					urls << uri.to_s
 				end
@@ -1764,21 +1901,40 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 		uri
 	end
 
-	def fetch_sources(n = nil)
-		n    = n.to_i
-		uri  = URI("http://wedata.net/databases/TwitterSources/items.json")
+	def update_sources(n = 0)
+		if @sources and @sources.size > 1 and n.zero?
+			log "tig.rb"
+			@sources = [api_source]
+			return @sources
+		end
+
+		uri = URI("http://wedata.net/databases/TwitterSources/items.json")
 		@log.debug uri.inspect
-		json = http(uri).request(http_req(:get, uri)).body
+		json    = http(uri).request(http_req(:get, uri)).body
 		sources = JSON.parse json
-		sources.map! {|item| [item["data"]["source"], item["name"]] }.push ["", "web"]
-		if (1 ... sources.size).include?(n)
-			sources = Array.new(n) { sources.delete_at(rand(sources.size)) }.compact
-		end
-		sources
+		sources.map! {|item| [item["data"]["source"], item["name"]] }
+		sources.push ["", "web"]
+		sources.push [nil, "API"]
+
+		sources = Array.new(n) do
+			sources.delete_at(rand(sources.size))
+		end if (1 ... sources.size).include?(n)
+
+		log(sources.inject([]) do |r, src|
+			s = r.join(", ")
+			if s.size < 400
+				r << src[1]
+			else
+				log s
+				[src[1]]
+			end
+		end.join(", ")) if @sources
+
+		@sources = sources.map {|src| src[0] }
 	rescue => e
 		@log.error e.inspect
 		log "An error occured while loading #{uri.host}."
-		@sources || [[api_source, "tig.rb"]]
+		@sources ||= [api_source]
 	end
 
 	def update_redundant_suffix
@@ -1867,33 +2023,34 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 	end
 
 	def source
-		@sources[rand(@sources.size)].first
+		@sources[rand(@sources.size)]
 	end
 
 	def initial_message
 		super
 		post server_name, RPL_ISUPPORT, @nick,
+		     "PREFIX=(qov)~@%+", "CHANTYPES=#", "CHANMODES=#{available_channel_modes}",
+		     "MODES=#{MAX_MODE_PARAMS}", "NICKLEN=15", "TOPICLEN=420", "CHANNELLEN=50",
 		     "NETWORK=Twitter",
-		     "CHANTYPES=#", "CHANNELLEN=50", "CHANMODES=#{available_channel_modes}",
-		     "NICKLEN=15", "TOPICLEN=420", "PREFIX=(hov)%@+",
 		     "are supported by this server"
 	end
 
 	User   = Struct.new(:id, :name, :screen_name, :location, :description, :url,
 	                    :following, :notifications, :protected, :time_zone,
 	                    :utc_offset, :created_at, :friends_count, :followers_count,
-	                    :statuses_count, :favourites_count, :verified,
-	                    :verified_profile,
+	                    :statuses_count, :favourites_count, :verified, :geo_enabled,
 	                    :profile_image_url, :profile_background_color, :profile_text_color,
 	                    :profile_link_color, :profile_sidebar_fill_color,
 	                    :profile_sidebar_border_color, :profile_background_image_url,
 	                    :profile_background_tile, :status)
-	Status = Struct.new(:id, :text, :source, :created_at, :truncated, :favorited,
+	Status = Struct.new(:id, :text, :source, :created_at, :truncated, :favorited, :geo,
 	                    :in_reply_to_status_id, :in_reply_to_user_id,
 	                    :in_reply_to_screen_name, :user)
 	DM     = Struct.new(:id, :text, :created_at,
 	                    :sender_id, :sender_screen_name, :sender,
 	                    :recipient_id, :recipient_screen_name, :recipient)
+	Geo    = Struct.new(:type, :coordinates, :geometries, :geometry, :properties, :id,
+	                    :crs, :name, :href, :bbox, :features)
 
 	class TypableMap < Hash
 		#Roman = %w[
@@ -1925,8 +2082,7 @@ class TwitterIrcGateway < Net::IRC::Server::Session
 				if @seq.respond_to?(:shuffle!)
 					@seq.shuffle!
 				else
-					seq = @seq.dup
-					@seq.map! { seq.slice!(rand(seq.size)) }
+					@seq = Array.new(@seq.size) { @seq.delete_at(rand(@seq.size)) }
 				end
 				@seq.freeze
 			else
@@ -2005,11 +2161,14 @@ class Hash
 				TwitterIrcGateway::Status.new
 			when struct_of?(TwitterIrcGateway::DM)
 				TwitterIrcGateway::DM.new
+			when struct_of?(TwitterIrcGateway::Geo)
+				TwitterIrcGateway::Geo.new
 			else
 				members = keys
 				members.concat TwitterIrcGateway::User.members
 				members.concat TwitterIrcGateway::Status.members
 				members.concat TwitterIrcGateway::DM.members
+				members.concat TwitterIrcGateway::Geo.members
 				members.map! {|m| m.to_sym }
 				members.uniq!
 				Struct.new(*members).new
@@ -2020,10 +2179,10 @@ class Hash
 		struct
 	end
 
-	# { :f => nil }     #=> "f"
-	# { "f" => "" }     #=> "f="
-	# { "f" => "v" }    #=> "f=v"
+	# { :f  => "v" }    #=> "f=v"
 	# { "f" => [1, 2] } #=> "f=1&f=2"
+	# { "f" => "" }     #=> "f="
+	# { "f" => nil }    #=> "f"
 	def to_query_str separator = "&"
 		inject([]) do |r, (k, v)|
 			k = URI.encode_component k.to_s
@@ -2049,7 +2208,7 @@ class String
 		/\A[&#+!][^ \007,]{1,50}\z/ === self
 	end
 
-	def nick? # Twitter screen_name (username)
+	def screen_name?
 		/\A[A-Za-z0-9_]{1,15}\z/ === self
 	end
 
@@ -2060,21 +2219,28 @@ class String
 end
 
 module URI::Escape
-	# URI.escape("あ１") #=> "%E3%81%82\xEF\xBC\x91"
-	# URI("file:///４")  #=> #<URI::Generic:0x9d09db0 URL:file:/４>
-	#   "\\d" -> "0-9" for Ruby 1.9
 	alias :_orig_escape :escape
-	def escape str, unsafe = %r{[^-_.!~*'()a-zA-Z0-9;/?:@&=+$,\[\]]}
-		_orig_escape(str, unsafe)
+
+	if defined? ::RUBY_REVISION and RUBY_REVISION < 24544
+		# URI.escape("あ１") #=> "%E3%81%82\xEF\xBC\x91"
+		# URI("file:///４")  #=> #<URI::Generic:0x9d09db0 URL:file:/４>
+		#   "\\d" -> "[0-9]" for Ruby 1.9
+		def escape str, unsafe = %r{[^-_.!~*'()a-zA-Z0-9;/?:@&=+$,\[\]]}
+			_orig_escape(str, unsafe)
+		end
+		alias :encode :escape
 	end
-	alias :encode :escape
 
 	def encode_component str, unsafe = /[^-_.!~*'()a-zA-Z0-9 ]/
 		_orig_escape(str, unsafe).tr(" ", "+")
 	end
 
-	def rstrip_unpaired_paren str
-		str.sub(%r{(/[^/()]*(?:\([^/()]*\)[^/()]*)*)\)[^/()]*\z}, "\\1")
+	def rstrip str
+		str.sub(%r{
+			(?: ( / [^/?#()]* (?: \( [^/?#()]* \) [^/?#()]* )* ) \) [^/?#()]*
+			  | \.
+			) \z
+		}x, "\\1")
 	end
 end