net-irc 0.0.3 → 0.0.4

data/ChangeLog

@@ -1,3 +1,10 @@
+2008-06-28 cho45
+
+	* [interface]:
+		Change mode character to symbol.
+	* [new]:
+		Seperate each class to some files.
+
 2008-06-14 cho45
 
 	* [bug]:

data/examples/hatena-star-stream.rb

@@ -0,0 +1,265 @@
+#!/usr/bin/env ruby
+=begin
+
+
+## Licence
+
+Ruby's by cho45
+
+=end
+
+$LOAD_PATH << "lib"
+$LOAD_PATH << "../lib"
+
+$KCODE = "u" # json use this
+
+require "rubygems"
+require "json"
+require "net/irc"
+require "mechanize"
+require "sdbm"
+require "tmpdir"
+require "nkf"
+
+class HatenaStarStream < Net::IRC::Server::Session
+	def server_name
+		"hatenastarstream"
+	end
+
+	def server_version
+		"0.0.0"
+	end
+
+	def main_channel
+		"#star"
+	end
+
+	def initialize(*args)
+		super
+		@ua = WWW::Mechanize.new
+		@ua.max_history = 1
+	end
+
+	def on_user(m)
+		super
+		post @prefix, JOIN, main_channel
+		post server_name, MODE, main_channel, "+o", @prefix.nick
+
+		@real, *@opts = @opts.name || @real.split(/\s+/)
+		@opts ||= []
+
+		start_observer
+	end
+
+	def on_disconnected
+		@observer.kill rescue nil
+	end
+
+	def on_privmsg(m)
+		@ua.instance_eval do
+			get "http://h.hatena.ne.jp/"
+			form = page.forms.find {|f| f.action == "/entry" }
+			form["body"] = m[1]
+			submit form
+		end
+		post server_name, NOTICE, main_channel, "posted"
+	rescue Exception => e
+		log e.inspect
+	end
+
+	def on_ctcp(target, message)
+	end
+
+	def on_whois(m)
+	end
+
+	def on_who(m)
+	end
+
+	def on_join(m)
+	end
+
+	def on_part(m)
+	end
+
+	private
+	def start_observer
+		@observer = Thread.start do
+			Thread.abort_on_exception = true
+			loop do
+				begin
+					login
+					@log.info "getting report..."
+					@ua.get("http://s.hatena.ne.jp/#{@real}/report")
+					entries = @ua.page.root.search("#main span.entry-title a").map {|a|
+						a[:href]
+					}
+
+					@log.info "getting stars... #{entries.length}"
+					stars = retrive_stars(entries)
+
+					db = SDBM.open("#{Dir.tmpdir}/#{@real}.db", 0666)
+					entries.reverse_each do |entry|
+						next if stars[entry].empty?
+						s, quoted = stars[entry].select {|star|
+							id = "#{entry}::#{star.values_at("name", "quote").inspect}"
+							if db.include?(id)
+								false
+							else
+								db[id] = "1"
+								true
+							end
+						}.partition {|star| star["quote"].empty? }
+						post server_name, NOTICE, main_channel, "#{entry} #{title(entry)}" if s.length + quoted.length > 0
+						post server_name, NOTICE, main_channel, s.map {|star| "id:#{star["name"]}" }.join(" ") unless s.empty?
+
+						quoted.each do |star|
+							post server_name, NOTICE, main_channel, "id:#{star["name"]} '#{star["quote"]}'"
+						end
+					end
+
+				rescue Exception => e
+					@log.error e.inspect
+				ensure
+					db.close rescue nil
+				end
+				sleep 60 * 5
+			end
+		end
+	end
+
+	def retrive_stars(entries, n=0)
+		uri = "http://s.hatena.ne.jp/entries.json?"
+		while uri.length < 1800 and n < entries.length
+			uri << "uri=#{URI.escape(entries[n], /[^-.!~*'()\w]/n)}&"
+			n += 1
+		end
+		ret = JSON.load(@ua.get(uri).body)["entries"].inject({}) {|r,i|
+			if i["stars"].any? {|star| star.kind_of? Numeric }
+				i = JSON.load(@ua.get("http://s.hatena.ne.jp/entry.json?uri=#{URI.escape(i["uri"])}").body)["entries"].first
+			end
+			r.update(i["uri"] => i["stars"])
+		}
+		if n < entries.length
+			ret.update retrive_stars(entries, n)
+		end
+		ret
+	end
+
+	def title(url)
+		uri = URI(url)
+		@ua.get(uri)
+
+		text = ""
+		case
+		when uri.fragment
+			fragment =  @ua.page.root.at("//*[@name = '#{uri.fragment}']") || @ua.page.root.at("//*[@id = '#{uri.fragment}']")
+
+			text = fragment.inner_text + fragment.following.text + fragment.parent.following.text
+		when uri.to_s =~ %r|^http://h.hatena.ne.jp/[^/]+/\d+|
+			text = @ua.page.root.at("#main .entries .entry .list-body div.body").inner_text
+		else
+			text = @ua.page.root.at("//title").inner_text
+		end
+		text.gsub!(/\s+/, " ")
+		text.strip!
+		NKF.nkf("-w", text).split(//)[0..30].join
+	rescue Exception => e
+		@log.debug ["title:", e.inspect]
+		""
+	end
+
+	def login
+		@log.info "logging in as #{@real}"
+		@ua.get "https://www.hatena.ne.jp/login?backurl=http%3A%2F%2Fd.hatena.ne.jp%2F"
+		return if @ua.page.forms.empty?
+
+		form             = @ua.page.forms.first
+		form["name"]     = @real
+		form["password"] = @pass
+
+		@ua.submit(form)
+
+		unless @ua.page.forms.empty?
+			post server_name, ERR_PASSWDMISMATCH, ":Password incorrect"
+			finish
+		end
+	end
+end
+
+if __FILE__ == $0
+	require "optparse"
+
+	opts = {
+	:port       => 16700,
+	:host       => "localhost",
+	:log        => nil,
+	:debug      => false,
+	:foreground => false,
+	}
+
+	OptionParser.new do |parser|
+		parser.instance_eval do
+			self.banner  = <<-EOB.gsub(/^\t+/, "")
+				Usage: #{$0} [opts]
+
+			EOB
+
+			separator ""
+
+			separator "Options:"
+			on("-p", "--port [PORT=#{opts[:port]}]", "port number to listen") do |port|
+				opts[:port] = port
+			end
+
+			on("-h", "--host [HOST=#{opts[:host]}]", "host name or IP address to listen") do |host|
+				opts[:host] = host
+			end
+
+			on("-l", "--log LOG", "log file") do |log|
+				opts[:log] = log
+			end
+
+			on("--debug", "Enable debug mode") do |debug|
+				opts[:log]   = $stdout
+				opts[:debug] = true
+			end
+
+			on("-f", "--foreground", "run foreground") do |foreground|
+				opts[:log]        = $stdout
+				opts[:foreground] = true
+			end
+
+			parse!(ARGV)
+		end
+	end
+
+	opts[:logger] = Logger.new(opts[:log], "daily")
+	opts[:logger].level = opts[:debug] ? Logger::DEBUG : Logger::INFO
+
+	def daemonize(foreground=false)
+		trap("SIGINT")  { exit! 0 }
+		trap("SIGTERM") { exit! 0 }
+		trap("SIGHUP")  { exit! 0 }
+		return yield if $DEBUG || foreground
+		Process.fork do
+			Process.setsid
+			Dir.chdir "/"
+			File.open("/dev/null") {|f|
+				STDIN.reopen  f
+				STDOUT.reopen f
+				STDERR.reopen f
+			}
+			yield
+		end
+		exit! 0
+	end
+
+	daemonize(opts[:debug] || opts[:foreground]) do
+		Net::IRC::Server.new(opts[:host], opts[:port], HatenaStarStream, opts).start
+	end
+end
+
+# Local Variables:
+# coding: utf-8
+# End:

data/examples/lig.rb

@@ -266,6 +266,9 @@ class LingrIrcGateway < Net::IRC::Server::Session
 		unless e.code == 102
 			log "Error: #{e.code}: #{e.message}"
 			log "Coundn't say to #{target}."
+
+			@channels.delete(channel.downcase)
+			post prefix, PART, channel, "Parted"
 		end
 	end
 

data/examples/mixi.rb

@@ -0,0 +1,236 @@
+#!/usr/bin/env ruby
+=begin
+
+
+## Licence
+
+Ruby's by cho45
+
+=end
+
+$LOAD_PATH << "lib"
+$LOAD_PATH << "../lib"
+
+$KCODE = "u" # json use this
+
+require "rubygems"
+require "json"
+require "net/irc"
+require "mechanize"
+
+# Mixi from mixi.vim by ujihisa!
+class Mixi
+	def initialize(email, password, mixi_premium = false, image_dir = '~/.vim/mixi_images')
+		require 'kconv'
+		require 'rubygems'
+		require 'mechanize'
+
+		@image_dir = File.expand_path image_dir
+		@email, @password, @mixi_premium =
+			email, password, mixi_premium
+	end
+
+	def post(title, body, images)
+		@agent = WWW::Mechanize.new
+		@agent.user_agent_alias = 'Mac Safari'
+		page = @agent.get 'http://mixi.jp/home.pl'
+		form = page.forms[0]
+		form.email = @email
+		form.password = @password
+		@agent.submit form
+
+		page = @agent.get "http://mixi.jp/home.pl"
+		page = @agent.get page.links[18].uri
+		form = page.forms[(@mixi_premium ? 1 : 0)]
+		form.diary_title = title
+		form.diary_body = self.class.magic_body(body)
+		get_image images
+		images[0, 3].each_with_index do |img, i|
+			if /darwin/ =~ RUBY_PLATFORM && /\.png$/i =~ img
+				imgjpg = '/tmp/mixi-vim-' << File.basename(img).sub(/\.png$/i, '.jpg')
+				system "sips -s format jpeg --out #{imgjpg} #{img} > /dev/null 2>&1"
+				img = imgjpg
+			end
+			form.file_uploads[i].file_name = img
+		end
+		page = @agent.submit form
+		page = @agent.submit page.forms[0]
+	end
+
+	def get_latest
+		page = @agent.get 'http://mixi.jp/list_diary.pl'
+		["http://mixi.jp/" << page.links[37].uri.to_s.toutf8,
+			page.links[37].text.toutf8]
+	end
+
+	def self.magic_body(body)
+		body.gsub(/^(  )+/) {|i| '　'.toeuc * (i.length/2) }
+	end
+
+	def get_image(images)
+		images.each_with_index do |img, i|
+			if img =~ %r{^http://}
+				path =
+					File.join @image_dir, i.to_s + File.extname(img)
+				unless File.exist? @image_dir
+					Dir.mkdir @image_dir
+				else
+					Dir.chdir(@image_dir) do
+						Dir.entries(@image_dir).
+							each {|f| File.unlink f if File.file? f }
+					end
+				end
+				system "wget -O #{path} #{img} > /dev/null 2>&1"
+				if File.exist? path and !File.zero? path
+					images[i] = path
+				else
+					images.delete_at i
+				end
+			end
+		end
+	end
+end
+
+class MixiDiary < Net::IRC::Server::Session
+	def server_name
+		"mixi"
+	end
+
+	def server_version
+		"0.0.0"
+	end
+
+	def main_channel
+		"#mixi"
+	end
+
+	def initialize(*args)
+		super
+		@ua = WWW::Mechanize.new
+	end
+
+	def on_user(m)
+		super
+		post @prefix, JOIN, main_channel
+		post server_name, MODE, main_channel, "+o", @prefix.nick
+
+		@real, *@opts = @opts.name || @real.split(/\s+/)
+		@opts ||= []
+
+		@mixi = Mixi.new(@real, @pass)
+		@cont = []
+	end
+
+	def on_disconnected
+		@observer.kill rescue nil
+	end
+
+	def on_privmsg(m)
+		super
+
+		case m[1]
+		when "."
+			title, body = *@cont
+			@mixi.post ">_<× <  #{title}".toeuc, body.toeuc, []
+			@mixi.get_latest.each do |line|
+				post server_name, NOTICE, main_channel, line.chomp
+			end
+		when " "
+			@cont.clear
+		else
+			@cont << m[1]
+		end
+	end
+
+	def on_ctcp(target, message)
+	end
+
+	def on_whois(m)
+	end
+
+	def on_who(m)
+	end
+
+	def on_join(m)
+	end
+
+	def on_part(m)
+	end
+end
+
+if __FILE__ == $0
+	require "optparse"
+
+	opts = {
+	:port       => 16701,
+	:host       => "localhost",
+	:log        => nil,
+	:debug      => false,
+	:foreground => false,
+	}
+
+	OptionParser.new do |parser|
+		parser.instance_eval do
+			self.banner  = <<-EOB.gsub(/^\t+/, "")
+				Usage: #{$0} [opts]
+
+			EOB
+
+			separator ""
+
+			separator "Options:"
+			on("-p", "--port [PORT=#{opts[:port]}]", "port number to listen") do |port|
+				opts[:port] = port
+			end
+
+			on("-h", "--host [HOST=#{opts[:host]}]", "host name or IP address to listen") do |host|
+				opts[:host] = host
+			end
+
+			on("-l", "--log LOG", "log file") do |log|
+				opts[:log] = log
+			end
+
+			on("--debug", "Enable debug mode") do |debug|
+				opts[:log]   = $stdout
+				opts[:debug] = true
+			end
+
+			on("-f", "--foreground", "run foreground") do |foreground|
+				opts[:log]        = $stdout
+				opts[:foreground] = true
+			end
+
+			parse!(ARGV)
+		end
+	end
+
+	opts[:logger] = Logger.new(opts[:log], "daily")
+	opts[:logger].level = opts[:debug] ? Logger::DEBUG : Logger::INFO
+
+	def daemonize(foreground=false)
+		trap("SIGINT")  { exit! 0 }
+		trap("SIGTERM") { exit! 0 }
+		trap("SIGHUP")  { exit! 0 }
+		return yield if $DEBUG || foreground
+		Process.fork do
+			Process.setsid
+			Dir.chdir "/"
+			File.open("/dev/null") {|f|
+				STDIN.reopen  f
+				STDOUT.reopen f
+				STDERR.reopen f
+			}
+			yield
+		end
+		exit! 0
+	end
+
+	daemonize(opts[:debug] || opts[:foreground]) do
+		Net::IRC::Server.new(opts[:host], opts[:port], MixiDiary, opts).start
+	end
+end
+
+# Local Variables:
+# coding: utf-8
+# End: