nadoka 0.8.0

data/plugins/autoop.nb

@@ -0,0 +1,56 @@
+# -*-ruby-*-
+#
+# $Id$
+#
+
+=begin
+
+== Name
+
+Auto OP
+
+== Abstract
+
+Auto OP
+
+== Configuration
+
+BotConfig = [
+  {
+    :name         => :AutoOP,
+    :friends => [
+      { :nick => 'hoge' },
+      { :user => 'fuga' },
+    ]
+  },
+]
+
+== License
+
+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 lisence.
+
+== Author
+
+NARUSE, Yui <naruse@airemix.com>
+
+=end
+
+
+class AutoOP < Nadoka::NDK_Bot
+  def bot_initialize
+    @friends = @bot_config.fetch(:friends, [])
+  end
+  def friend?(prefix)
+    @friends.any? do |friend|
+      friend[:nick] == prefix.nick or friend[:user] == prefix.user[/~?(.*)\z/, 1]
+    end
+  end
+  def on_join(prefix, ch)
+    return unless /o/ =~ @state.channel_user_mode(ch, @state.nick)
+    if prefix.nick != @state.nick && friend?(prefix)
+      change_mode(ch, "+o", prefix.nick)
+    end
+  end
+end

data/plugins/backlogbot.nb

@@ -0,0 +1,88 @@
+# -*-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
+
+== Abstract
+
+BackLogBot support rich backlog management scheme.
+
+
+== Configuration
+
+#
+# Maybe you don't have to write config(default setting is very useful)
+#
+BotConfig = [
+{
+  :name   => :BackLogBot,
+  
+  :clear       => false,        # if true, clear backlogs when output once
+  :talker      => false,        # if true, talker will be pseudo talker 
+  :prefix      => 'BL',
+  :sender      => 'backlogbot',
+  :time_format => '%m/%d-%H:%M',
+}
+]
+
+=end
+
+
+class BackLogBot < Nadoka::NDK_Bot
+  def bot_initialize
+    @stores = @logger.message_stores
+    @talker = @bot_config.fetch(:talker, false)
+    @clear  = @bot_config.fetch(:clear, false)
+    @prefix = @bot_config.fetch(:prefix, 'BL')
+    @sender = @bot_config.fetch(:sender, 'backlogbot')
+    @sepr   = @bot_config.fetch(:separate, true)
+    @tmfmt  = @bot_config.fetch(:time_format, '%m/%d-%H:%M')
+    @msgfmts= @bot_config.fetch(:message_format, @config.default_log[:message_format])
+    @pattern= @bot_config.fetch(:pattern, nil)
+  end
+
+  def channel_message? ch
+    /\A[\&\#\+\!]/ =~ ch
+  end
+
+  def on_client_login client_count, client
+    @stores.each_channel_pool{|ch, msgobjs|
+      if @state.current_channels[ch]
+        msgobjs.each{|msgobj|
+          msg  = @config.log_format_message(@msgfmts, msgobj)
+          rch  = msgobj[:ch]
+          time = msgobj[:time]
+
+          cmd = Cmd.notice(rch, "#{@prefix}(#{time.strftime(@tmfmt)}) #{msg}")
+          client.add_prefix(cmd, @talker ? nick : @sender)
+          client.send_msg cmd
+        }
+      else
+        msgobjs.each{|msgobj|
+          if ch == :__talk__
+            msg  = @config.log_format_message(@config.talk_log[:message_format], msgobj)
+          else
+            msg  = @config.log_format_message(@config.system_log[:message_format], msgobj)
+          end
+          next unless @pattern.nil? || @pattern =~ msg
+          
+          rch  = msgobj[:ch]
+          time = msgobj[:time]
+          
+          cmd = Cmd.notice(@state.nick, "#{@prefix}(#{time.strftime(@tmfmt)}) #{msg}")
+          client.send_msg cmd
+        }
+      end
+    }
+    @stores.clear if @clear
+  end
+end

data/plugins/checkbot.nb

@@ -0,0 +1,64 @@
+# -*-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$
+
+class CheckBot < Nadoka::NDK_Bot
+  def bot_initialize
+    @ch = @bot_config[:ch] || '#nadoka'
+    @tm = @bot_config[:tm] || 30 # min
+    @prevtm = Time.now
+
+    # override me
+    @botheader = 'checkbot'
+  end
+
+  def on_timer tm
+    if time? && need_check?
+      check
+    end
+  end
+
+  def time?
+    tm = Time.now
+    if tm.to_i - @tm * 60 > @prevtm.to_i
+      @prevtm = tm
+      true
+    else
+      false
+    end
+  end
+
+  ##############################
+  # use this
+  
+  def check_notice text
+    if @ch.respond_to? :each
+      @ch.each{|ch|
+        send_notice(ch, "#{@botheader}: #{text}")
+        sleep 5 # Flood Protection
+      }
+    else
+      send_notice(@ch, "#{@botheader}: #{text}")
+      sleep 5 # Flood Protection
+    end
+  end
+  
+  ############################
+  # override me
+  
+  def need_check?
+    true
+  end
+  
+  def check
+    # some work
+  end
+end
+

data/plugins/cronbot.nb

@@ -0,0 +1,20 @@
+# -*-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$
+#
+
+class CronBot < Nadoka::NDK_Bot
+  def on_timer t
+    @state.channels.each{|ch|
+      send_notice(ch, t.to_s)
+    }
+  end
+end
+

data/plugins/dictbot.nb

@@ -0,0 +1,53 @@
+=begin
+
+This plugin is test version.
+
+=end
+
+require 'uri'
+require 'open-uri'
+require 'kconv'
+
+class DictBot < Nadoka::NDK_Bot
+  def bot_initialize
+    @available_channel = @bot_config[:ch] || /.*/
+    
+  end
+  
+  
+  def on_privmsg prefix, ch, msg
+    if @available_channel === ch
+      if /\Adic(.)>\s*(.+)\s*/ =~ msg
+        res = yahoo_dict $1, $2.toeuc
+        send_notice(ch, res)
+      end
+    end
+  end
+
+
+  YAHOO_DICT_TYPE ={
+    't' => 2,
+    'e' => 1,
+    'j' => 0,
+    'w' => 3,
+    'r' => 5,
+  }
+  def yahoo_dict type, word
+    "dict bot> " +
+    if type = YAHOO_DICT_TYPE[type]
+      word = URI.encode(word)
+      uri = "http://dic.yahoo.co.jp/dsearch?p=#{word}&stype=0&dtype=#{type}"
+      open(uri){|f|
+        if /<meta name="description" content=\"(.+?)\">/ =~ f.read
+          "#{$1.tosjis.tojis} - #{uri}"
+        else
+          uri
+        end
+      }
+    else
+      "unknown type: #{type}"
+    end
+  end
+end
+
+

data/plugins/drbcl.rb

@@ -0,0 +1,39 @@
+#
+# An example for drbot.nb
+#
+#
+
+require 'drb/drb'
+
+class Invokee
+  include DRbUndumped
+  
+  def initialize invoker
+    @invoker = invoker
+    @invoker.add_observer self
+  end
+
+  def update *args
+    p args
+  end
+
+  def destruct
+    @invoker.delete_observer self
+  end
+end
+
+uri = ARGV.shift || raise
+DRb.start_service
+
+invoker = DRbObject.new(nil, uri)
+
+begin
+  invokee = Invokee.new(invoker)
+  p invoker
+  puts '---'
+  gets
+ensure
+  invokee.destruct
+end
+
+

data/plugins/drbot.nb

@@ -0,0 +1,93 @@
+# -*-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
+
+== Abstract
+
+An example using DRb. You can access to nadoka via DRb protocol.
+See sample drbcl.rb
+
+
+== Configuration
+
+BotConfig = [
+{
+  :name => :DRbot,
+  :port => 12345,
+  :host => '',
+}
+]
+
+
+=end
+
+
+require 'drb/drb'
+require 'observer'
+
+class DRbot < Nadoka::NDK_Bot
+  class Dispatcher
+    include Observable
+
+    def initialize bot
+      @bot = bot
+    end
+    
+    def send_to_client prefix, command, args
+      changed
+      notify_observers(prefix, command, args)
+    end
+
+    def recv_from_client *args
+      @bot.kick_from_client args
+    end
+
+    def notify_observers(*arg)
+      if defined? @observer_state and @observer_state
+        if defined? @observer_peers
+          @observer_peers.dup.each{|e|
+            begin
+              e.update(*arg)
+            rescue Exception
+              @observer_peers.delete e
+            end
+          }
+        end
+        @observer_state = false
+      end
+    end
+    
+  end
+  
+  def bot_initialize
+    @port = @bot_config.fetch(:port, 12346)
+    @host = @bot_config.fetch(:host, '')
+    @invoker   = Dispatcher.new(self)
+    @uri       = "druby://#{@host}:#{@port}"
+    @drbserver = DRb.start_service(@uri, @invoker)
+  end
+  
+  def bot_destruct
+    @drbserver.stop_service
+  end
+  
+  def on_every_message prefix, command, *args
+    @invoker.send_to_client prefix, command, args
+  end
+
+  def recv_from_client *args
+    
+  end
+  
+end
+

data/plugins/evalbot.nb

@@ -0,0 +1,49 @@
+# -*-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.
+#
+#
+# ruby evaluator on IRC
+#
+# $Id$
+#
+require 'timeout'
+class EvalBot < Nadoka::NDK_Bot
+  EvalNick = 'nadoka_eval'
+  
+  def on_client_privmsg client, ch, message
+    if ch == EvalNick
+      ans = eval_message(message)
+      msg = Cmd.privmsg(@state.nick, 'ans: ' + ans)
+      client.send_to_client client.add_prefix(msg, EvalNick)
+      raise ::Nadoka::NDK_BotSendCancel
+    end
+  end
+
+  def on_nadoka_command client, command, *params
+    if command == 'eval'
+      msg = Cmd.privmsg(@state.nick, 'Hello, this is ruby evaluator')
+      client.send_to_client client.add_prefix(msg, EvalNick)
+      raise ::Nadoka::NDK_BotSendCancel
+    end
+  end
+
+  def eval_message message
+    begin
+      ans = Thread.new{
+        $SAFE = 4
+        timeout(3){
+          Kernel.eval(message)
+        }
+      }.value.to_s
+    rescue Exception => e
+      ans = e.message
+    end
+  end
+end
+
+