nadoka 0.8.0

data/plugins/messagebot.nb

@@ -0,0 +1,96 @@
+# -*-ruby-*-
+#
+# Copyright (C) 2004 Kazuhiro NISHIYAMA
+#     All rights reserved.
+#     This is free software with ABSOLUTELY NO WARRANTY.
+#
+# You can redistribute it and/or modify it under the terms of
+# the Ruby's licence.
+#
+=begin
+BotConfig = [
+{
+  :name         => :MessageBot,
+  :message_file => 'message.yaml',
+  :root_key     => Setting_name,
+  :channels     => %w[#nadoka #Ruby:*.jp],
+},
+]
+=end
+
+
+require 'nkf'
+require 'time'
+require 'yaml/store'
+
+class MessageBot < Nadoka::NDK_Bot
+  
+  def bot_initialize
+    @store = YAML::Store.new(@bot_config[:message_file])
+    @root_key = @bot_config[:root_key]
+    @channels = @bot_config[:channels].collect{|ch| ch.downcase }
+    load_message
+  end
+
+  def load_message
+    @store.transaction do |db|
+      if db.root?(@root_key)
+        h = db[@root_key]
+        @list = h['list'] || Hash.new
+        @message = h['message'] || Hash.new
+      else
+        @list = Hash.new
+        @message = Hash.new
+      end
+    end
+  end
+
+  def save_message
+    @store.transaction do |db|
+      db[@root_key] = {
+        'list' => @list,
+        'message' => @message,
+      }
+    end
+  end
+
+  def on_privmsg prefix, ch, msg
+    user = prefix.nick
+    c = NKF.nkf('-e', ch.to_s).downcase
+    return unless @channels.include?(c)
+    u = user.downcase
+    now = Time.now
+    key = "#{c} #{u}"
+    message_id = "<#{now.strftime('%Y%m%d%H%M%S')}.#{now.usec}.#{u}@#{c}>"
+    if @list.key?(key)
+      message_id_list = @list[key]
+      message_id_list.each do |message_id|
+        h = @message[message_id]
+        next if h.key?('delivered')
+        message = "#{h['from']}���󤫤�#{h['to']}�����������#{h['body']}��"
+        send_notice(ch, NKF.nkf('-Ej -m0', message))
+        @message[message_id]['delivered'] = now
+      end
+      @list.delete(key)
+      save_message
+    end
+    if /^���� (\S+) (.+)$/e =~ NKF.nkf('-e -m0', msg.to_s)
+      to_nick, body = $1, $2
+      @message[message_id] = {
+        'from' => user,
+        'to' => to_nick,
+        'date' => now,
+        'channel' => ch,
+        'body' => body,
+      }
+      key = "#{c} #{to_nick.downcase}"
+      @list[key] ||= []
+      @list[key].push(message_id)
+      save_message
+      send_notice(ch, NKF.nkf('-Ej -m0', "#{$1}����ؤ������򾵤�ޤ��� > #{u}����"))
+    end
+  end
+  
+end
+
+

data/plugins/modemanager.nb

@@ -0,0 +1,150 @@
+# -*-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
+
+Mode management bot
+
+== Configuration
+
+=== nadokarc
+
+BotConfig => [
+{
+  :name => :ModeManager,
+  #
+  # You can specify modes setting in file or
+  # String directly.
+  #
+  :file  => 'modes',
+  # or :modes_file => 'modes',
+  
+  :modes => <<-__EOS__,
+  [all]
+  +o=*.jp
+  __EOS__
+  # wait for setting modes (by second, avarage)
+  :wait => 5,
+}
+]
+
+=== mode setting format
+
+[<channel name> or 'all']
+<+-><mode> pattern
+<+-><mode> /regexp pattern/
+
+<mode>: 'b' or 'v' or 'o'
+<+->: '+' means add mode, '-' means remove mode
+
+[example] -------------------------------
+[all]
++o=*.jp
++o=/.*\.net/
+
+[#nadoka]
++o=kiyoya* unak*
+-o=ko1*
+-----------------------------------------
+
+
+=end
+
+class ModeManager < Nadoka::NDK_Bot
+  
+  class Fnmexp
+    def initialize str
+      @str = str
+    end
+
+    def =~ x
+      File.fnmatch @str, x, File::FNM_CASEFOLD
+    end
+  end
+
+  def parse_setting setting
+    s = nil
+    setting.each_line{|l|
+      l.strip!
+      if /^\[(all|[\#\&\!\+].+)\]/ =~ l
+        s = @config.identical_channel_name($1)
+      elsif /^\[%(.+)\]/ =~ l   # for compatibility with madoka
+        s = @config.identical_channel_name("\##{$1}:*.jp")
+      elsif s && l.sub!(/^([+-][bvo]+)\s*=\s*/, '')
+        mode = $1
+        l.scan(/\S+/){|prefix|
+          if %r!^/(.*)\/$! =~ prefix
+            user = [mode, Regexp.new($1, Regexp::IGNORECASE)]
+          else
+            user = [mode, Fnmexp.new(prefix)]
+          end
+          @userlist[s] << user
+        }
+      end
+    }
+  end
+
+  def bot_initialize
+    @userlist = Hash.new{|h, k| h[k] = []}
+    if file = (@bot_config[:modes_file] || @bot_config[:file])
+      begin
+        parse_setting File.read(file)
+      rescue Exception => e
+        "operator manager: #{e.class}(#{e.message})"
+      end
+    end
+    if setting = @bot_config[:modes]
+      parse_setting setting
+    end
+    @wait = @bot_config[:wait].to_i
+    @wait = 3 if @wait <= 0
+  end
+
+  def search_mode_in_list list, prefix
+    list.each{|e|
+      if e[1] =~ prefix
+        return e[0]
+      end
+    }
+    nil
+  end
+
+  def search_mode ch, prefix
+    search_mode_in_list(@userlist['all'], prefix) ||
+    search_mode_in_list(@userlist[ch], prefix)
+  end
+
+  def on_join prefix, rch
+    ch = @config.canonical_channel_name(rch)
+    Thread.new{
+      sleep(rand(@wait * 20) / 10.0)
+      if prefix.nick != @state.nick &&
+        (/o/ =~ @state.channel_user_mode(ch, @state.nick))
+        if mode = search_mode(ch, prefix.to_s)
+          current_modes = @state.channel_user_mode(ch, prefix.nick).split(//)
+          if /^\+/ =~ mode
+            noneed = mode.split(//)[1..-1].all?{|c|  current_modes.include?(c)}
+          else
+            noneed = mode.split(//)[1..-1].all?{|c| !current_modes.include?(c)}
+          end
+
+          change_mode(rch, mode, prefix.nick) unless noneed
+        end
+      end
+    }
+  end
+end
+
+

data/plugins/opensearchbot.nb

@@ -0,0 +1,156 @@
+# -*-ruby-*- #
+# Copyright (C) 2011 Kazuhiro NISHIYAMA
+#
+# 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
+
+== Usage with irc client
+
+  bing> keyword
+    -> search keyword by bing
+
+  googlecode> keyword
+    -> search keyword by Google Code Search Data API (Deprecated)
+
+  koders> keyword
+    -> search keyword by koders
+
+== Configuration:
+
+  BotConfig << {
+    :name => :OpenSearchBot,
+    :bot_name => 'bing',
+    :ch => //,
+    :referer => 'http://rubyforge.org/projects/nadoka/',
+    :ch_kcode => :jis,
+    :html => 'http://www.bing.com/search?q={searchTerms}',
+    :rss => 'http://api.search.live.com/rss.aspx?source=web&query={searchTerms}'
+,
+  }
+
+  BotConfig << {
+    :name => :OpenSearchBot,
+    :bot_name => 'googlecode',
+    :ch => //,
+    :ch_kcode => :jis,
+    :referer => 'http://rubyforge.org/projects/nadoka/',
+    # Google Code Search Data API (Deprecated)
+    # http://code.google.com/intl/ja/apis/codesearch/docs/2.0/developers_guide.h
+tml
+    :html => 'http://www.google.com/codesearch?q={searchTerms}',
+    :rss => 'http://www.google.com/codesearch/feeds/search?q={searchTerms}',
+  }
+
+  BotConfig << {
+    :name => :OpenSearchBot,
+    :bot_name => 'koders',
+    :ch => //,
+    :referer => 'http://rubyforge.org/projects/nadoka/',
+    :ch_kcode => :jis,
+    # http://www.koders.com/search/KodersDescriptionOS1_1.xml
+    :html => 'http://www.koders.com/?s={searchTerms}',
+    :rss => 'http://www.koders.com/?s={searchTerms}&results=code&output=rss&OSve
+rsion=1.1',
+  }
+
+=end
+
+require 'open-uri'
+require 'uri'
+require 'cgi'
+
+class OpenSearch
+  def initialize(options)
+    @html = options[:html]
+    @rss = options[:rss]
+    @referer = options[:referer] || 'http://rubyforge.org/projects/nadoka/'
+  end
+
+  def result(key)
+    escaped_key = CGI.escape(key)
+    link = @html.sub(/\{searchTerms\}/) { escaped_key }
+    uri = @rss.sub(/\{searchTerms\}/) { escaped_key }
+    open(uri, "Referer" => @referer) do |f|
+      result = f.read
+      if /<([A-Za-z]+):totalResults>(\d+)<\/\1:totalResults>/ =~ result
+        total = $2.to_i
+        return "#{total.to_s.gsub(/\d(?=\d{3}+\z)/,'\&,')} result#{total > 1 ? 's' : ''} in #{link}"
+      else
+        return "#{key} - not found in #{link}"
+      end
+    end
+  end
+end
+
+if __FILE__ == $0
+  h = {
+    'bing' => {
+      :referer => 'http://rubyforge.org/projects/nadoka/',
+      :html => 'http://www.bing.com/search?q={searchTerms}',
+      :rss => 'http://api.search.live.com/rss.aspx?source=web&query={searchTerms}',
+    },
+    'googlecode' => {
+      :referer => 'http://rubyforge.org/projects/nadoka/',
+      # Google Code Search Data API (Deprecated)
+      # http://code.google.com/intl/ja/apis/codesearch/docs/2.0/developers_guide.html
+      :html => 'http://www.google.com/codesearch?q={searchTerms}',
+      :rss => 'http://www.google.com/codesearch/feeds/search?q={searchTerms}',
+    },
+    'koders' => {
+      :referer => 'http://rubyforge.org/projects/nadoka/',
+      # http://www.koders.com/search/KodersDescriptionOS1_1.xml
+      :html => 'http://www.koders.com/?s={searchTerms}',
+      :rss => 'http://www.koders.com/?s={searchTerms}&results=code&output=rss&OSversion=1.1',
+    },
+    'youtube' => {
+      :referer => 'http://rubyforge.org/projects/nadoka/',
+      :html => 'http://www.youtube.com/results?search_query={searchTerms}',
+      :rss => 'http://gdata.youtube.com/feeds/api/videos?q={searchTerms}',
+    },
+  }
+  engine = ARGV.shift
+  if h.key?(engine)
+    open_search = OpenSearch.new(h[engine])
+    ARGV.each do |key|
+      result = open_search.result(key)
+      puts result
+    end
+  else
+    STDERR.puts "usage: #{$0} {#{h.keys.sort.join('|')}} key ..."
+  end
+  exit
+end
+
+class OpenSearchBot < Nadoka::NDK_Bot
+  def bot_initialize
+    if @bot_config.key?(:channels)
+      channels = '\A(?:' + @bot_config[:channels].collect{|ch|
+        Regexp.quote(ch)
+      }.join('|') + ')\z'
+      @available_channel = Regexp.compile(channels)
+    else
+      @available_channel = @bot_config[:ch] || //
+    end
+
+    @bot_name = @bot_config[:bot_name] || 'OpenSearchBot'
+    @open_search = OpenSearch.new(@bot_config)
+    @pattern = @bot_config[:pattern] || /\A#{Regexp.quote(@bot_name)}\s*[<:>]\s*(.+)/
+    @ch_kcode = @bot_config[:ch_kcode]
+  end
+
+  def on_privmsg prefix, ch, msg
+    if @pattern =~ msg
+      key = $1
+      if @ch_kcode == :jis
+        ret = @open_search.result(key.toutf8).tojis
+      else
+        ret = @open_search.result(key)
+      end
+      send_notice ch, "#{@bot_name} bot: #{ret}"
+    end
+  end
+end

data/plugins/opshop.nb

@@ -0,0 +1,23 @@
+# -*-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.
+#
+#
+# operator shop
+#
+# $Id$
+#
+
+class OpShop < Nadoka::NDK_Bot
+  def on_join prefix, ch
+    if prefix.nick != @state.nick
+      change_mode(ch, "+o", prefix.nick)
+    end
+  end
+end
+
+

data/plugins/pastebot.nb

@@ -0,0 +1,46 @@
+=begin
+
+This plugin is test version.
+
+=end
+
+
+require 'open-uri'
+
+class PasteBot < Nadoka::NDK_Bot
+
+  def bot_initialize
+    @ch          = @bot_config[:ch]  || /./
+    @msg         = @bot_config[:mgs] || /\Apaste>/
+    @service_uri = @bot_config[:service_uri] ||
+                   'http://www.atdot.net/sp'
+    @fmsg         = @bot_config[:mgs] || /\Afpaste>/
+    @fservice_uri = @bot_config[:service_uri] ||
+                   'http://www.atdot.net/fp'
+  end
+
+  def nick_escape nick
+    nick.gsub(/[^A-Za-z\d\-_]/, '_')
+  end
+
+  def on_privmsg prefix, ch, msg
+    nick = nick_escape prefix.nick
+
+    if @ch === ch
+      if @msg === msg
+        nid = ''
+        open("#{@service_uri}/check/newid"){|f|
+          nid = f.gets
+        }
+        send_notice ch, "#{@service_uri}/view/#{nid}_#{nick}"
+      end
+      if @fmsg === msg
+        nid = ''
+        open("#{@fservice_uri}/check/newid"){|f|
+          nid = f.gets
+        }
+        send_notice ch, "#{@fservice_uri}/view/#{nid}_#{nick}"
+      end
+    end
+  end
+end