nadoka 0.8.0

data/plugins/roulettebot.nb

@@ -0,0 +1,33 @@
+=begin
+
+This plugin is test version.
+
+=end
+
+require 'shellwords'
+require 'kconv'
+
+class RouletteBot < Nadoka::NDK_Bot
+  def bot_initialize
+    @available_channel = @bot_config[:ch] || /.*/
+  end
+  
+  def on_privmsg prefix, ch, msg
+    if @available_channel === ch
+      if /\Aroulette>\s*(.+)\s*/ =~ msg
+        send_notice(ch, "roulette bot: #{randomize($1)[0].tojis}")
+      elsif /\Ashuffle>\s*(.+)\s*/ =~ msg
+        send_notice(ch, "shuffle bot: #{ randomize($1).join(' ').tojis}")
+      elsif /\Arandom>\s*((\d+)|)/ =~ msg
+        num = $2 ? $2.to_i : 1000
+        send_notice(ch, "random bot: #{prefix.nick} -> #{rand num}")
+      end
+    end
+  end
+
+  def randomize msgs
+    res = Shellwords.shellwords(msgs.toeuc).sort_by{rand}
+  end
+end
+
+

data/plugins/rss_checkbot.nb

@@ -0,0 +1,121 @@
+# -*-ruby-*-
+#
+# Copyright (c) 2004-2005 SASADA Koichi <ko1 at atdot.net>
+#
+# This program is free software with ABSOLUTELY NO WARRANTY.
+# You can re-distribute and/or modify this program under
+# the same terms of the Ruby's license.
+#
+#
+# $Id$
+#
+
+=begin
+configuration like follows:
+
+BotConfig = [
+{
+  :name      => :RSS_CheckBot,
+  :rss_paths =>
+  [
+    'http://www.ruby-lang.org/ja/index.rdf',
+  ],
+  :cache     => "./rss-cache",
+  :ch        => '#nadoka_check',
+  :tm        => 30     # check interval time(minute)
+  :over_message => nil #
+}
+
+=end
+
+require 'lib/rss_check'
+require 'iconv'
+require 'kconv'
+
+class RSS_CheckBot < Nadoka::NDK_Bot
+  def bot_initialize
+    @cache = File.expand_path(@bot_config.fetch(:cache, '~/.rss_check'))
+    @paths = @bot_config.fetch(:rss_paths, ['http://www.ruby-lang.org/ja/index.rdf'])
+    @ch    = @bot_config.fetch(:ch, '#nadoka_check')
+    @tm    = @bot_config.fetch(:tm,30)              # min
+    @over  = @bot_config.fetch(:over_message, nil)
+    @rssc  = RSS_Check.new(@paths, @cache, true)
+    @ic    = Iconv.open("EUC-JP", "UTF-8")
+    @prevtm= Time.now
+  end
+
+  def bot_state
+    nt = Time.at(@prevtm.to_i + @tm * 60)
+    "<#{self.class}: next check at #{nt.asctime}@#{@ch}>" 
+  end
+  
+  def __on_privmsg prefix, ch, msg
+    if /^rss> check/ =~ msg && ch == @ch && prefix.nick == @state.nick
+      make_notice Time.now
+    end
+  end
+  
+  def send_notice(ch, msg)
+    if ch.respond_to? :each
+      ch.each{|c|
+        super(c, msg)
+        sleep 5 # Flood Protection
+      }
+    else
+      super(ch, msg)
+      sleep 5 # Flood Protection
+    end
+  end
+
+  def on_timer tm
+    check
+  end
+
+  def check
+    tm = Time.now
+    if tm.to_i - @tm * 60 > @prevtm.to_i
+      make_notice tm
+    end
+  end
+
+  def make_notice tm
+    @prevtm = tm
+    begin
+      items = @rssc.check
+      @rssc.save
+    rescue => e
+      send_notice(@ch, "rss bot error: #{e}")
+      @manager.ndk_error e
+      return
+    end
+    make_notice_thread items
+  end
+ 
+  def make_notice_thread items
+    Thread.new{
+      begin
+        items.each{|e|
+          if e[:ccode] == 'UTF-8'
+            begin
+              title = e[:title].gsub(/\357\275\236/u, "\343\200\234")
+              title = @ic.iconv(title).tojis
+            rescue Exception
+              # maybe, char code translation error
+              next
+            end
+          else
+            title = e[:title].tojis
+          end
+
+          send_notice(@ch, "rss bot: #{title} - #{e[:about]}")
+        }
+      rescue Exception => e
+        send_notice(@ch, "rss bot error: #{e}")
+        @manager.ndk_error e
+      end
+      send_notice(@ch, "rss bot: #{@over}") if @over
+    }
+  end
+  
+end
+

data/plugins/samplebot.nb

@@ -0,0 +1,24 @@
+# -*-ruby-*-
+#
+# Copyright (c) 2004-2005 SASADA Koichi <ko1 at atdot.net>
+#
+# This program is free software with ABSOLUTELY NO WARRANTY.
+# You can re-distribute and/or modify this program under
+# the same terms of the Ruby's license.
+#
+#
+# $Id$
+#
+
+# bot_file_name and BotClassName must be same name
+# (BotClassName.downcase == bot_file_name)
+
+class SampleBot < Nadoka::NDK_Bot
+  
+  # Yes person
+  def on_privmsg prefix, ch, msg
+    send_notice(ch, "Yes, #{prefix.nick}!")
+  end
+  
+end
+

data/plugins/sendpingbot.nb

@@ -0,0 +1,17 @@
+# -*-ruby-*-
+#
+# Copyright (c) 2004-2006 SASADA Koichi <ko1 at atdot.net>
+#
+# This program is free software with ABSOLUTELY NO WARRANTY.
+# You can re-distribute and/or modify this program under
+# the same terms of the Ruby's license.
+#
+#
+#
+
+class SendPingBot < Nadoka::NDK_Bot
+  def on_timer *args 
+    @manager.ping_to_clients
+  end
+end
+

data/plugins/shellbot.nb

@@ -0,0 +1,59 @@
+# -*-ruby-*-
+#
+# Copyright (c) 2004-2005 SASADA Koichi <ko1 at atdot.net>
+#
+# This program is free software with ABSOLUTELY NO WARRANTY.
+# You can re-distribute and/or modify this program under
+# the same terms of the Ruby's license.
+#
+#
+# shell command bot
+#
+# $Id$
+#
+
+require 'timeout'
+require 'kconv'
+
+class ShellBot < Nadoka::NDK_Bot
+  ShellNick = 'nadoka_shell'
+  
+  def on_client_privmsg client, ch, message
+    
+    if ch == ShellNick
+      ans = exec_shell(message)
+      ans.each{|line|
+        msg = Cmd.privmsg(@state.nick, 'ans: ' + line)
+        client.send_to_client client.add_prefix(msg, ShellNick)
+      }
+      raise ::Nadoka::NDK_BotSendCancel
+    end
+  end
+
+  def on_nadoka_command client, command, *params
+    if command == 'shell'
+      msg = Cmd.privmsg(@state.nick, 'Hello, this is shell command executor')
+      client.send_to_client client.add_prefix(msg, ShellNick)
+      raise ::Nadoka::NDK_BotSendCancel
+    end
+  end
+
+  def exec_shell message
+    begin
+      ans = Thread.new{
+        begin
+          timeout(3){
+            str = `#{message}`.to_s
+            str.tojis
+          }
+        rescue Exception => e
+          e.message
+        end
+        }.value
+    rescue Exception => e
+      ans = e.message
+    end
+  end
+end
+
+

data/plugins/sixamobot.nb

@@ -0,0 +1,77 @@
+#-*-ruby-*-
+#
+# Copyright (c) 2004-2005 SASADA Koichi <ko1 at atdot.net>
+#
+# This program is free software with ABSOLUTELY NO WARRANTY.
+# You can re-distribute and/or modify this program under
+# the same terms of the Ruby's license.
+#
+#
+# Sixamo bot
+#
+# add config like this:
+#
+=begin
+BotConfig = [
+{
+  :name => :SixamoBot,
+  :dir  => '~/sixamo',
+  :ch   => '#nadoka',
+  :tm   => 10,
+  :id   => /(sixamo)|(�������)/,
+  :rt   => [10, 5, 4, 4, 3, 2],
+}
+=end
+#
+# $Id$
+#
+
+require 'sixamo'
+require 'kconv'
+class SixamoBot < Nadoka::NDK_Bot
+  def bot_initialize
+    @sixamo_dir = @bot_config[:dir] || '~/sixamo'
+    @sixamo_ch  = @bot_config[:ch]  || '#nadoka'
+    @sixamo_tm  = @bot_config[:tm]  || 10
+    @sixamo_id  = @bot_config[:id]  || /(sixamo)|(�������)/
+    @sixamo_rt  = @bot_config[:rt]  || [10, 5, 4, 4, 3, 2]
+    @prev = Time.now
+    make_sixamo
+  end
+
+  def make_sixamo
+    @sixamo = Sixamo.new(File.expand_path(@sixamo_dir))
+  end
+  
+  def on_privmsg prefix, ch, msg
+    return unless @sixamo_ch === ch
+    
+    begin
+      msg = Kconv.toeuc(msg)
+      @sixamo.memorize msg
+
+      unless @sixamo_id === msg
+        rnd = case Time.now - @prev
+        when  0..10; @sixamo_rt[0]
+        when 10..20; @sixamo_rt[1]
+        when 20..30; @sixamo_rt[2]
+        when 30..60; @sixamo_rt[3]
+        when 60..120;@sixamo_rt[4]
+        else       ; @sixamo_rt[5]
+        end
+        
+        return if Kernel.rand(rnd) != 1
+      end
+      @prev = Time.now
+
+      talk = @sixamo.talk(msg)
+      @sixamo.memorize talk
+      
+      send_notice ch, 'sixamo: ' + talk.tojis
+    rescue
+      make_sixamo
+    end
+
+  end
+end
+

data/plugins/tenkibot.nb

@@ -0,0 +1,111 @@
+# -*-ruby-*-
+#
+# Copyright (c) 2004-2006 SASADA Koichi <ko1 at atdot.net>
+#
+# This program is free software with ABSOLUTELY NO WARRANTY.
+# You can re-distribute and/or modify this program under
+# the same terms of the Ruby's license.
+#
+
+=begin
+
+== Abstract
+
+Answer weather information using "Livedoor Weather Web Service / LWWS".
+
+LWWS: http://weather.livedoor.com/weather_hacks/webservice.html
+
+
+== Usage
+
+  tenki> [CITY] 
+  tenki:[today|tomorrow|dayaftertomorrow]> [CITY]
+
+  [CITY] should be city name in Kanji listed on following table.
+  http://weather.livedoor.com/forecast/rss/forecastmap.xml
+
+  If timing is not specified, show today's information.
+
+
+== Configuration
+
+BotConfig = [
+{
+  :name => :TenkiBot,
+  :ch   => /nadoka/,  # default: /.*/
+}
+]
+
+
+=end
+
+require 'open-uri'
+require 'pp'
+require 'kconv'
+require 'rexml/document'
+require 'date'
+
+
+class TenkiBot < Nadoka::NDK_Bot
+
+  CityIDs = {}
+
+  def bot_initialize
+    bot_init_utils
+
+    open('http://weather.livedoor.com/forecast/rss/forecastmap.xml'){|f|
+      f.each{|line|
+        if /city title="(.+?)" id="(\d+)"/ =~ line
+          CityIDs[$1.toeuc] = $2.to_i
+        end
+      }
+    }
+  end
+
+  def tenki city, timing
+    doc = open(
+      "http://weather.livedoor.com/forecast/webservice/rest/v1?" \
+      "city=#{CityIDs.fetch(city)}&day=#{timing}"){|f|
+      REXML::Document.new f.read
+    }
+
+    title = doc.elements['/lwws/title/'].text.toeuc
+    telop = doc.elements['/lwws/telop/'].text.toeuc
+    link = doc.elements['/lwws/link/'].text.toeuc
+    desc = doc.elements['/lwws/description/'].text.toeuc
+    max = doc.elements['/lwws/temperature/max/celsius/'].text
+    min = doc.elements['/lwws/temperature/min/celsius/'].text
+    date = Date.parse(doc.elements['/lwws/forecastdate/'].text)
+    datestr = date.strftime('%m/%d')
+
+    desc.sub!(/\.\.\..*/m, '...')
+
+    celsius = []
+    celsius << "max: #{max}" if max
+    celsius << "min: #{min}" if min
+    unless celsius.empty?
+      celsius = "(#{celsius.join(', ')}) "
+    end
+    "#{title} (#{datestr}): #{telop} - #{celsius}#{desc} - #{link}".tojis
+  end
+
+  def on_privmsg prefix, ch, msg
+    return unless @available_channel === ch
+    return if same_bot?(ch)
+
+    if /\Atenki(|:(today|tomorrow|dayaftertomorrow))>(.+)/ =~ msg
+      city = $3.strip.toeuc
+      timing = ($2 || 'today').strip
+      begin
+        result = tenki(city, timing).gsub(/\n/, ' ')
+      rescue IndexError
+        result = "Unknown city.  Check city title on http://weather.livedoor.com/forecast/rss/forecastmap.xml"
+      rescue => e
+        result = "#{e}"
+      end
+      send_notice ch, "tenki bot: #{result}"
+    end
+  end
+end
+
+