mitten 0.0.1

data/plugins/codepad.rb

@@ -0,0 +1,63 @@
+require 'mechanize'
+require 'nokogiri'
+
+class CodePad < Mitten::Plugin
+  def initialize(*args)
+    super
+
+    @agent = Mechanize.new
+    proxy = ENV['https_proxy'] || ENV['http_proxy']
+    if proxy
+      proxy = URI.parse(proxy)
+      @agent.set_proxy(proxy.host, proxy.port)
+    end
+    @prefixes = ['C', 'Haskell', 'Lua', 'OCaml', 'PHP', 'Perl', 'Python', 'Ruby', 'Scheme']
+  end
+
+  def on_privmsg(prefix, channel, message)
+    @language, @code = nil, nil
+    @prefixes.select do |item|
+      if message =~ Regexp.new("^#{item}:(.+)$")
+        @language = item
+        @code = $1.gsub('\\', '').strip
+      end
+    end
+
+    unless @language == nil
+      notice(channel, @language)
+      notice(channel, run_code)
+    end
+  end
+
+  private
+
+  def run_code
+    output = nil
+
+    begin
+      @agent.get('http://codepad.org/') do |run_page|
+        result = run_page.form_with(:action => '/') do |f|
+          f.radiobutton_with(:value => @language).check
+          f.code = code_prefix(@language) + @code
+        end.submit
+        doc = Nokogiri::HTML(result.body)
+        output = (doc/'pre').last.text
+      end
+      output
+    rescue Exception
+      'なんかだめー／(^o^)＼'
+    end
+  end
+
+  def code_prefix(language)
+    prefix = ''
+    case language
+    when 'C'
+      prefix = "#include <stdio.h>\n"
+    when 'PHP'
+      prefix = "<?php \n"
+    else
+      prefix
+    end
+  end
+end

data/plugins/fortune.rb

@@ -0,0 +1,40 @@
+require 'open-uri'
+require 'nokogiri'
+
+class Fortune < Mitten::Plugin
+  def initialize(*args)
+    super
+
+    @sex = {
+      :male   => 'http://legacy.fortune.yahoo.co.jp/fortune/bin/omikuji?sex=m',
+      :female => 'http://legacy.fortune.yahoo.co.jp/fortune/bin/omikuji?sex=f'
+    }
+    @prefix = @config['prefix'] || 'おみくじ'
+  end
+
+  def on_privmsg(prefix, channel, message)
+    case message
+    when /^#{@prefix}/
+      notice(channel, read_fortune)
+    end
+  end
+
+  private
+
+  def read_fortune
+    html = Nokogiri::HTML(open(@sex.values.choice).read)
+    fortunes = {}
+    message  = ''
+
+    (html/'table/tr/td').each do |content|
+      if content.inner_text =~ /^今日のあなたの(.+?)は(.+?)。/
+        fortunes[$1] = $2
+      end
+    end
+
+    fortunes.reverse_each do |genre, fortune|
+      message << "#{genre}：#{fortune}　"
+    end
+    "今日のあなたは #{message}こんな感じだよ♪"
+  end
+end

data/plugins/gasoline.rb

@@ -0,0 +1,46 @@
+require 'open-uri'
+require 'nokogiri'
+
+class Gasoline < Mitten::Plugin
+  def initialize(*args)
+    super
+
+    @suffix = @config['suffix'] || 'ガソリンいくら'
+    @base_uri = 'http://gogo.gs'
+    @rank_uri = @base_uri + '/rank/result/?pref=47&ws=&p_mode=0&mm=0&service%5B3%5D=3&desd=0&x=24&y=17'
+  end
+
+  def on_privmsg(prefix, channel, message)
+    case message
+    when /^#{@suffix}$/
+      gasoline_ranking.each do |gs|
+        notice(channel, gs) 
+      end
+    end
+  end
+
+  private
+
+  def gasoline_ranking
+    ranking = []
+
+    begin
+      lists = Nokogiri::HTML(open(@rank_uri).read, nil, 'EUC-JP')/'.tableType02'/'tr'
+      lists[2..6].each do |line|
+        next unless line.at('td[@colspan="5"]').nil?
+
+        rank    = line.at('.crownBig001').text
+        price   = line.at('.priceLevelBig5').text
+        station = line.at('strong').text
+        address = line.at('small').text
+        detail  = URI.short(@base_uri + line.at('strong/a').attributes['href'])
+
+        ranking << "#{rank}位 #{price}円 #{station} #{address} (#{detail})"
+      end
+    rescue Exception => e
+      ranking << 'こわれたっ／(^o^)＼'
+    end
+
+    ranking
+  end
+end

data/plugins/gmail.rb

@@ -0,0 +1,59 @@
+require 'net/https'
+require 'nokogiri'
+
+=begin
+
+ ex. environment.yaml
+
+  Gmail:
+    sleep: 60
+    channel: '#Mitten@freenode'
+    account: 'account'
+    password: 'password'
+
+=end
+class Gmail < Mitten::Plugin
+  def initialize(*args)
+    super
+
+    @account  = @config['account']
+    @password = @config['password']
+
+    proxy = ENV['https_proxy'] || ENV['http_proxy']
+    if proxy
+      @https = Net::HTTP::Proxy(URI.parse(proxy).host, URI.parse(proxy).port).new('mail.google.com', 443)
+    else 
+      @https = Net::HTTP.new('mail.google.com', 443)
+    end
+    @mail_cache = {}
+  end
+
+  def before_hook
+    login
+  end
+
+  def login
+    @https.use_ssl = true
+    @https.verify_mode = OpenSSL::SSL::VERIFY_NONE
+    @request = Net::HTTP::Get.new('/mail/feed/atom')
+    @request.basic_auth(@account, @password)
+  end
+
+  def main
+    mail_list = Nokogiri::XML(@https.request(@request).body)
+    (mail_list/'entry').each do |entry|
+      id = entry.at('id').content
+      unless @mail_cache.key? id
+        @mail_cache[id] = true
+        title = entry.at('title').text
+        name  = entry.at('name').text
+        link  = entry.at('link')['href']
+
+        @channels.each do |channel|
+          notice(channel, "Gmail: (#{name}) #{title} #{URI.short(link)}")
+          sleep 5
+        end
+      end
+    end
+  end
+end

data/plugins/google_profile.rb

@@ -0,0 +1,37 @@
+require 'nokogiri'
+
+class GoogleProfile < Mitten::Plugin
+  def initialize(*args)
+    super
+
+    @suffix = @config['suffix'] || 'のプロフィールが知りたい'
+    @limit  = @config['limit'] || 3
+  end
+
+  def on_privmsg(prefix, channel, message)
+    case message
+    when /^(.+?)#{@suffix}/
+      get_profile($1).each { |profile| notice(channel, profile) }
+    end
+  end
+
+  private
+
+  def get_profile(target)
+    profiles = []
+    uri = URI.escape("http://www.google.com/profiles?q=#{target}")
+    result = Nokogiri::HTML(Kconv.toutf8(open(uri).read))/'div.profile-result'
+
+    unless result.count == 0
+      result[0...@limit].each do |profile|
+        detail = profile.at('div.profile-result-text-block').text
+        uri = URI.short("http://www.google.com#{profile.at('a')['href']}")
+
+        profiles << "#{detail} (#{uri})"
+      end
+    else
+      profiles << 'そんな人いにゃい o(>_<)o'
+    end
+    profiles
+  end
+end

data/plugins/google_transit.rb

@@ -0,0 +1,56 @@
+require 'open-uri'
+require 'nokogiri'
+
+class GoogleTransit < Mitten::Plugin
+  def on_privmsg(prefix, channel, message)
+    case message
+    when /^(.+)から(.+)(へ|まで|に)行.+/
+      search_route($1, $2).each { |route| notice(channel, route) }
+    end
+  end
+
+  private
+
+  def search_route(search_from, search_to)
+    from  = URI.escape(search_from.toutf8)
+    to    = URI.escape(search_to.toutf8)
+    query = "http://maps.google.co.jp/maps?f=q&source=s_q&hl=ja&geocode=&q=from%3A+#{from}+to%3A+#{to}"
+
+    begin
+      html = Nokogiri::HTML(open(query).read)
+      route = html/'#transit_route_0'
+
+      unless route.empty?
+        start_place = (html/'#ddw_addr_area_0/#sxaddr/div.sa').text.toutf8
+        end_place   = (html/'#ddw_addr_area_1/#sxaddr/div.sa').text.toutf8
+        time = (html/'#transit_route_0').search('span.ts_jtime').text.toutf8
+        cost = (html/'#transit_route_0').search('span.ts_routecost').text.toutf8
+
+        messages = ["#{start_place} から #{end_place} へ行くにはね，"]
+        messages << "だいたい #{time} で #{cost} ぐらいかかるみたい！"
+
+        (route/'table.ts_step').each_with_index do |step, counter|
+          counter += 1
+          longline = (step/'span.longline').text.toutf8
+          action   = (step/'span.action').text.toutf8
+
+          unless longline.empty?
+            locations = step/'span.location'
+
+            messages << "#{counter} : #{action} で「#{longline}」に乗る"
+            messages << "　　[発] #{locations[0].text.toutf8}"
+            messages << "　　[着] #{locations[1].text.toutf8}"
+          else
+            location = (step/'span.location').text.toutf8
+            messages << "#{counter} : #{location} #{action}"
+          end
+        end
+        messages << "詳しくはここ見てね♪ (#{URI.short(query)})"
+      else
+        '／(^o^)＼ 迷子！'
+      end
+    rescue Exception
+      '／(^o^)＼ 迷子！'
+    end
+  end
+end

data/plugins/google_weather.rb

@@ -0,0 +1,34 @@
+require 'nokogiri'
+
+class GoogleWeather < Mitten::Plugin
+  def initialize(*args)
+    super
+
+    @suffix = @config['suffix'] || 'の天気教えて'
+    @indexes = {'今日の' => 0, '明日の' => 1, '明後日の' => 2, '明々後日の' => 3}
+  end
+
+  def on_privmsg(prefix, channel, message)
+    case message
+    when /^(.+?の|)(.+?)#{@suffix}/
+      option = '今日の'
+      option = $1 unless $1 == ''
+      keyword = $2
+
+      notice(channel, get_weather(keyword, option))
+    end
+  end
+
+  private
+
+  def get_weather(keyword, option)
+    uri = URI.escape("http://www.google.co.jp/search?q=#{keyword}+週間天気")
+    html = Nokogiri::HTML(Kconv.toutf8(open(uri).read))
+
+    city = (html/'h3.r/b').first.text
+    weather = ((html/'div[@align="center"]')/'img')[@indexes[option]]['title']  
+    temperature = ((html/'div[@align="center"]')/'nobr')[@indexes[option]].text
+
+    "#{option}#{city}の天気は #{weather} だよっ [#{temperature}] (#{URI.short(uri)})"
+  end
+end

data/plugins/mixi_voice.rb

@@ -0,0 +1,139 @@
+require 'uri'
+require 'mechanize'
+require 'nokogiri'
+
+=begin
+
+ ex. environment.yaml
+
+  MixiVoice:
+    sleep: 60
+    channel: '#Mitten@freenode'
+    email: 'email'
+    password: 'password'
+
+=end
+class MixiVoice < Mitten::Plugin
+  MIXI_LOGIN_URI   = 'http://mixi.jp'
+  RECENT_VOICE_URI = MIXI_LOGIN_URI + '/recent_echo.pl'
+
+  def initialize(*args)
+    super
+
+    @email    = @config['email']
+    @password = @config['password']
+    @nickname = @config['nickname']
+
+    @agent = Mechanize.new
+    if ENV['http_proxy']
+      proxy = URI.parse(ENV['http_proxy'])
+      @agent.set_proxy(proxy.host, proxy.port)
+    end
+
+    @caches = []
+  end
+
+  def before_hook
+    login
+    @identity = get_identity
+  end
+
+  def login
+    @agent.get MIXI_LOGIN_URI do |login_page|
+      login_page.form 'login_form' do |form|
+        form.email = @email
+        form.password = @password
+      end.submit
+    end
+  end
+
+  def on_privmsg(prefix, channel, message)
+    if prefix =~ Regexp.new(@nickname)
+      case message
+      when /^re ([0-9]+) (.+)/
+        reply(channel, $1, $2)
+      when /^rm ([0-9]+)/
+        delete($1)
+      when /^add (.+)/
+        add($1)
+      end
+    end
+  end
+
+  def main
+    get
+  end
+
+  def get
+    voices = crawl_recent_voice
+    voices.sort.each do |key, voice|
+      if @caches.empty? or !@caches.has_key? key
+        @channels.each do |channel|
+          notice(channel, "mixi voice: [#{voice[:nickname]}]#{voice[:reply]} #{voice[:comment]} (#{key})")
+          sleep 5
+        end
+      end
+    end
+    @caches = voices
+  end
+
+  def get_identity
+    recent_page = @agent.get RECENT_VOICE_URI
+    identity = (Nokogiri::HTML(recent_page.body)/'input#post_key').first['value']
+  end
+
+  def reply(channel, key, voice)
+    if @caches.has_key? key
+      member_id = @caches[key][:member_id]
+      post_time = @caches[key][:post_time]
+
+      @agent.get RECENT_VOICE_URI do |post_page|
+        post_page.form_with(:action => '/add_echo.pl') do |form|
+          form.body = voice
+          form.parent_member_id = member_id
+          form.parent_post_time = post_time
+        end.submit
+      end
+    else
+      notice(channel, '指定された返信先が見つかりません')
+    end
+  end
+
+  def delete(post_time)
+    @agent.post "http://mixi.jp/delete_echo.pl?post_time=#{post_time}&post_key=#{@identity}&redirect=recent_echo"
+    @caches = crawl_recent_voice
+  end
+
+  def add(voice)
+    @agent.get RECENT_VOICE_URI do |post_page|
+      post_page.form_with(:action => 'add_echo.pl') do |form|
+        form.body = voice
+      end.submit
+    end
+  end
+
+  def crawl_recent_voice
+    recent_page = @agent.get RECENT_VOICE_URI
+    voices = {}
+
+    (Nokogiri::HTML(recent_page.body)/'td.comment').each do |comment|
+      key = timestamp(comment)
+      voices[key] = build_voice(comment)
+    end
+    voices
+  end
+
+  def timestamp(comment)
+    comment.at('div.echo_post_time').text
+  end
+
+  def build_voice(comment)
+    {
+      :member_id => comment.at('div.echo_member_id').text,
+      :post_time => comment.at('div.echo_post_time').text,
+      :nickname  => comment.at('div.echo_nickname').text,
+      :reply     => ((' ' + comment.at('a').text) if comment.at('a').text =~ /^>/),
+      :comment   => comment.at('div.echo_body').text
+    }
+  end
+end

data/plugins/nanapi.rb

@@ -0,0 +1,31 @@
+require 'open-uri'
+require 'nokogiri'
+
+class Nanapi < Mitten::Plugin
+  def initialize(*args)
+    super
+    @suffix = @config['suffix'] || 'テクニック教えて'
+  end
+
+  def on_privmsg(prefix, channel, message)
+    case message
+    when /^(.+)#{@suffix}$/
+      result = search_technique($1)
+
+      if result == nil
+        notice(channel, '／(^o^)＼ わかにゃいっ') 
+      else 
+        notice(channel, result.to_s) 
+      end
+    end
+  end
+
+  private
+
+  def search_technique(keyword)
+    doc = Nokogiri::XML(open("http://nanapi.jp/search/keyword:#{URI.encode(keyword)}/feed.rss").read)
+    item = (doc/'item').to_a.choice
+    
+    "#{item.at('title').text} - #{URI.short(item.at('link').text)}" if item
+  end
+end

data/plugins/newspaper_headlines.rb

@@ -0,0 +1,48 @@
+require 'open-uri'
+require 'rss'
+
+class NewspaperHeadlines < Mitten::Plugin
+  def initialize(*args)
+    super
+
+    @publishers = {
+      '琉球新報'       => 'http://rss.ryukyushimpo.jp/rss/ryukyushimpo/index.rdf',
+      '沖縄タイムス'   => 'http://www.okinawatimes.co.jp/rss/20/index.xml',
+      '読売新聞'       => 'http://rss.yomiuri.co.jp/rss/yol/topstories',
+      '毎日新聞'       => 'http://mainichi.jp/rss/etc/flash.rss',
+      '日経新聞'       => 'http://www.nikkeibp.co.jp/rss/index.rdf',
+      'CNN'            => 'http://headlines.yahoo.co.jp/rss/cnn_c_int.xml',
+      '映画ニュース'   => 'http://headlines.yahoo.co.jp/rss/cine.xml',
+      'ITMedia'        => 'http://headlines.yahoo.co.jp/rss/itmedia_n.xml',
+      'dankogai'       => 'http://blog.livedoor.jp/dankogai/index.rdf',
+      'インフルエンザ' => 'http://www3.asahi.com/rss/pandemicflu.rdf'
+    }
+    @limit = @config['limit'] || 3
+  end
+
+  def on_privmsg(prefix, channel, publisher_name)
+    if publisher_name == 'ニュースリスト'
+      notice(channel, @publishers.keys.join(' / '))
+    elsif @publishers.key? publisher_name
+      get_headlines(@publishers[publisher_name]).each do |headline|
+        notice(channel, headline.to_s)
+      end
+    end
+  end
+
+  private
+
+  def get_headlines(publisher_uri)
+    rss = RSS::Parser.parse(open(publisher_uri).read, false)
+    rss.items.delete_if { |item| item.title =~ /(AD|PR)/ }
+
+    headlines = [rss.channel.title + ' のニュースだよ！']
+    rss.items[0...@limit].each do |item|
+      title = item.title
+      url   = URI.short(item.link)
+      date  = item.date.strftime("%d日 %H:%M")
+      headlines << "[#{date}] #{title} (#{url})"
+    end
+    headlines
+  end
+end

data/plugins/openpne_new_diary_check.rb

@@ -0,0 +1,60 @@
+require 'mechanize'
+require 'nokogiri'
+
+=begin
+
+ ex. environment.yaml
+
+  OpenPNENewDiaryCheck:
+    sleep: 60
+    channel: '#Mitten@freenode'
+    uri : 'http://openpne.example.com'
+    username: 'username'
+    password: 'password'
+
+=end
+class OpenPNENewDiaryCheck < Mitten::Plugin
+  def initialize(*args)
+    super
+
+    @uri      = @config['uri']
+    @username = @config['username']
+    @password = @config['password']
+    @diaries = {}
+  end
+
+  def before_hook
+    login
+  end
+
+  def login
+    @agent = Mechanize.new
+    @agent.get(@uri) do |login_page|
+      login_page.form_with(:name => 'login') do |f|
+        f.username = @username
+        f.password = @password
+      end.submit
+    end
+  end
+
+  def main
+    diary_page = @agent.get "#{@uri}/?m=pc&a=page_h_diary_list_all"
+    diaries = Nokogiri::HTML(diary_page.body)/'div.item'
+
+    diaries[1...diaries.size].each do |diary|
+      uri = "#{@uri}/#{(diary/'td.photo/a').first.attributes['href']}"
+      redo if uri == nil or uri == ''
+
+      unless @diaries.has_key? uri
+        @diaries[uri] = true
+        nick  = ((diary/'td').to_a)[1].text.gsub(/ \(.*\)$/, '')
+        title = ((diary/'td').to_a)[2].text.gsub(/ \([0-9].?\)/, '')
+        message = "#{nick}さんが「#{title}」を投稿しました！ (#{uri})"
+
+        @channels.each do |channel|
+          notice(channel, message) if @diaries.size > 20
+        end
+      end
+    end
+  end
+end

data/plugins/ramen.rb

@@ -0,0 +1,33 @@
+require 'open-uri'
+require 'nokogiri'
+
+class Ramen < Mitten::Plugin
+  def initialize(*args)
+    super
+
+    @suffix = @config['suffix'] || 'ラーメン食わせろ'
+    @base_uri = 'http://ramen.tedaco.net/'
+    @rank_uri = @base_uri + 'index.php'
+  end
+
+  def on_privmsg(prefix, channel, message)
+    case message
+    when /^#{@suffix}/
+      notice(channel, shop_choice) 
+    end
+  end
+
+  def shop_choice
+    begin
+      list = Nokogiri::HTML(open(@rank_uri).read)/'.access_rank'
+
+      shop = list.to_a.choice
+      name = shop.at('a').text
+      detail = URI.short(@base_uri + shop.at('a').attributes['href'])
+
+      "#{name} に行けば？ (#{detail})"
+    rescue Exception =>e 
+      ranking << 'こわれたっ／(^o^)＼'
+    end
+  end
+end

data/plugins/rate.rb

@@ -0,0 +1,31 @@
+require 'open-uri'
+require 'nokogiri'
+
+class Rate < Mitten::Plugin
+  def initialize(*args)
+    super
+    @suffix = @config['suffix'] || '度判定して'
+  end
+
+  def on_privmsg(prefix, channel, message)
+    case message
+    when /^(.+)#{@suffix}$/
+      result = rating($1, prefix.nick)
+
+      if result == nil
+        notice(channel, '／(^o^)＼ わかにゃいっ') 
+      else 
+        notice(channel, result.to_s) 
+      end
+    end
+  end
+
+  private
+
+  def rating(genre, nick)
+    uri = "http://kistools.appspot.com/r/#{URI.encode(genre)}/#{nick}"
+    doc = Nokogiri::XML(open(uri).read)
+
+    (doc/'table.input_form').first.at('td').text.match(/^(.+)?です。/).to_s.strip + " (#{URI.short(uri)})"
+  end
+end