nadoka 0.8.0

data/plugins/twitterbot.nb

@@ -0,0 +1,138 @@
+# -*-ruby-*-
+# nadoka-twit
+#
+# = Usage
+#
+# == Get consumer key
+#
+# 1. access https://twitter.com/apps/new
+# 2. register it
+# 3. memo 'Consumer key' and 'Consumer secret'
+#
+# == Get access token
+#
+# 1. run this script with consumer key and consumer secret like:
+#      ruby twitterbot.nb <consumer_key> <consumer_secret>
+# 2. memo access_token and access_token_secret
+#
+# == Setting nadokarc
+#
+# 1. set :consumer_key, :consumer_secret, :access_token,
+#    and :acccess_token_secret
+#
+# = Configuration
+#
+# == :ch
+#
+# target channel
+#
+# == :pattern
+#
+# pattern for messages to send twitter
+#
+# == :nkf_encoding
+#
+# the encoding of messages
+#
+# == :consumer_key, :consumer_secret
+#
+# Consumer key and consumer secret
+#
+# == :access_token, :acccess_token_secret
+#
+# Access token and access token secret
+#
+require 'time'
+require 'rubygems'
+require 'rubytter'
+require 'json'
+
+if __FILE__ == $0
+  key = ARGV.shift
+  secret = ARGV.shift
+  unless key && secret
+    puts "Usage: #$0 <consumer_key> <consumer_secret>"
+  end
+
+  oauth = Rubytter::OAuth.new(key, secret)
+  request_token = oauth.get_request_token
+  system('open', request_token.authorize_url) || puts("Access here: #{request_token.authorize_url}\nand...")
+
+  print "Enter PIN: "
+  pin = gets.strip
+
+  access_token = request_token.get_access_token(
+    :oauth_token => request_token.token,
+    :oauth_verifier => pin
+  )
+  puts ":access_token => '#{access_token.token}',"
+  puts ":access_token_secret => '#{access_token.secret}',"
+  exit
+end
+
+class TwitterBot < Nadoka::NDK_Bot
+  def bot_initialize
+    @ch      = @bot_config.fetch(:ch,      nil)
+    @pattern = @bot_config.fetch(:pattern, />tw$/)
+    @nkf_encoding = @bot_config.fetch(:nkf_encoding, nil)
+
+    consumer = OAuth::Consumer.new(
+      @bot_config.fetch(:consumer_key,  nil),
+      @bot_config.fetch(:consumer_secret,  nil),
+      :site => 'https://api.twitter.com')
+    access_token = OAuth::AccessToken.new(consumer,
+      @bot_config.fetch(:access_token,  nil),
+      @bot_config.fetch(:access_token_secret,  nil))
+    @rt = OAuthRubytter.new(access_token)
+    @current_id = -1
+  end
+
+  def on_timer(t)
+    @rt.friends_timeline.each do |status|
+      id = status.id.to_i
+      next unless @current_id < id
+      @current_id = id
+      time = Time.parse(status.created_at)
+      next if time + 5 * 60 < Time.now
+      text = status.text.tr("\r\n", ' ')
+      text = NKF.nkf('--ic=UTF-8 --oc=' + @nkf_encoding, text) if @nkf_encoding
+      send_notice @ch, "#{time.strftime('%H:%M')} #{status.user.screen_name}: #{text}"
+    end
+  rescue Errno::ETIMEDOUT, Timeout::Error, SocketError
+  rescue Exception => err
+    puts_error_message(err)
+  end
+
+  def on_client_privmsg(client, ch, message)
+    return unless @ch.nil? or @ch.upcase == ch.upcase
+    unless @pattern =~ message
+      slog 'pattern unmatch, ignored'
+      return
+    end
+    text = message.sub(@pattern, '')
+    text = NKF.nkf('--oc=UTF-8 --ic=' + @nkf_encoding, text) if @nkf_encoding
+    slog((@rt.update(text) ? 'sent to twitter: ' : 'twitter send faild: ') + message)
+  rescue Exception => err
+    puts_error_message(err)
+  end
+
+  def slog(msg, nostamp = false)
+    current_method = caller.first[/:in \`(.*?)\'/, 1].to_s
+    msg.each do |line|
+      @logger.slog "#{self.class.to_s}##{current_method} #{line}", nostamp
+    end
+  end
+
+  private
+  def puts_error_message(err)
+    if err.is_a?(Rubytter::APIError)
+      @logger.slog "%s: %s (%s) %s" % [err.backtrace[0], err.message, err.class, err.response]
+    elsif err.is_a?(JSON::ParserError)
+      sleep 180
+      return
+    else
+      @logger.slog "%s: %s (%s)" % [err.backtrace[0], err.message, err.class]
+    end
+    @logger.slog err.backtrace.select{|l|/\A\/home/=~l}
+  end
+end

data/plugins/weba.nb

@@ -0,0 +1,209 @@
+# -*-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
+
+WebA: Web Accessor
+  http interface for irc
+
+  You can access IRC via ((<http://host:port/weba>))
+  (by default).
+
+
+== Configuration
+
+BotConfig = [
+{
+  :name   => :WebA,
+  :passwd => 'WebAPassWord', # if passwd is specified, use Basic Access Authentication with id
+  :id     => 'weba',
+  :port   => 12345,
+  :entry  => 'weba',
+  # :message_format => ... (see source)
+}
+]
+
+=end
+
+require 'webrick'
+require 'lib/tagparts'
+
+class WebA < Nadoka::NDK_Bot
+  class WebAlet < WEBrick::HTTPServlet::AbstractServlet
+    def initialize server, bot, authorizer
+      super
+      @bot  = bot
+      @auth = authorizer
+    end
+    
+    def do_GET req, res
+      @auth.authenticate(req, res) if @auth
+      begin
+        res.body = @bot.htmlpage(req.query).to_s
+        res['content-type'] = 'text/html; charset=Shift_JIS'
+      rescue WebARedirect => e
+        res.set_redirect(WEBrick::HTTPStatus::Found, "#{req.path}?ch=#{URI.encode(e.ch.tosjis)}")
+        res.body = 'moved'
+      end
+    end
+  end
+
+  class WebARedirect < Exception
+    attr_reader :ch
+    def initialize ch
+      @ch = ch
+    end
+  end
+  
+  include HTMLParts
+  
+  def htmlpage query
+    rch = (query['ch'] || '').tojis
+    ch  = ccn(rch)
+    ch = !ch.empty? && (@state.channels.include?(ch) || ch == 'all') && ch
+
+    ttl = ch ? " - #{rch.tosjis}" : ''
+    
+    if ch && (msg = query['message']) && !msg.empty?
+      msg = msg.tojis + ' (from WebA)'
+      send_privmsg(ch, msg)
+      raise WebARedirect.new(ch)
+    end
+    
+    _html(
+      _head(_title("WebA: IRC Web Accessor#{ttl}")),
+      _body(
+        _h1("WebA#{ttl}"),
+        _p(
+          _a({:href => "./#{@entry}?ch="+URI.encode((rch || '').tosjis)}, 'reload'),
+          _a({:href => "./#{@entry}"}, 'top')
+        ),
+
+        case ch
+        when 'command'
+          command_ch
+        else
+          view_ch(rch, ch)
+          select_ch(rch, ch)
+        end
+      ))
+  end
+
+  def select_ch rch, ch
+    _p({:class => 'channel-list'},
+      (@state.channel_raw_names.sort + ['all']).map{|e|
+        e = e.tosjis
+        [_a({:href => "./#{@entry}?ch="+ URI.encode(e)}, e), ' ']
+      }
+    )
+  end
+
+  def view_ch rch, ch
+    return unless ch
+    
+    chs = ch.tosjis
+    
+    if ch == 'all'
+      msgs = []
+      @stores.pools.each{|_, store|
+        msgs.concat store.pool
+      }
+      msgs = msgs.sort_by{|msg| msg[:time]}
+    else
+      msgs = (@stores.pools[ch] && @stores.pools[ch].pool) || []
+    end
+    
+    _div({:class => 'irc-accessor'},
+      if(ch != 'all')
+        _form({:method => 'get', :action => "./#{@entry}", :class => 'sayform'},
+          "msg: ",
+          _input({:type => 'text',   :name => 'message', :class => 'msgbox'}),
+          _input({:type => 'submit', :name => 'say', :value => 'say'}),
+          _input({:type => 'hidden', :name => 'ch', :value => ch})
+        )
+      end,
+      _h2("channel #{ch.tosjis}"),
+      _div({:class => 'messages'},
+        msgs.map{|m|
+          if ch == 'all' && m[:ch]
+            chn = _a({:href => "./#{@entry}?ch=#{URI.encode(m[:ch])}"}, m[:ch].tosjis)
+            msg = @config.log_format_message(@all_message_format, m)
+          elsif m[:type] == 'PRIVMSG'
+            chn = _a({:href => "./#{@entry}?user=#{URI.encode(m[:user])}"}, "<#{m[:user].tosjis}>")
+            msg = @config.log_format_message(@message_format, m)
+          else
+            msg = @config.log_format_message(@message_format, m)
+            chn = ''
+          end
+          
+          _div({:class=>'msg'},
+            "#{m[:time].strftime('%H:%M')} ", chn, "#{msg}".tosjis)
+        }.reverse
+      )
+    )
+  end
+  
+  def bot_initialize
+    @stores = @logger.message_stores
+    @server = WEBrick::HTTPServer.new({
+      :Port => @bot_config.fetch(:port, 12345),
+    })
+    @entry = @bot_config.fetch(:entry, 'weba')
+    
+    auth = nil
+    if passwd = @bot_config.fetch(:passwd, 'WebAPassWord')
+      id = @bot_config.fetch(:id, 'weba')
+      
+      userdb = Hash.new
+      userdb.extend(WEBrick::HTTPAuth::UserDB)
+      userdb.auth_type = WEBrick::HTTPAuth::BasicAuth
+      userdb.set_passwd("WebA Authentication", id, passwd)
+
+      auth = WEBrick::HTTPAuth::BasicAuth.new({
+        :Realm        => "WebA Authentication",
+        :UserDB       => userdb,
+        :Algorithm    => 'MD5-sess',
+        :Qop          => [ 'auth' ],
+        :UseOpaque    => true,
+        :NonceExpirePeriod => 60,
+        :NonceExpireDelta  => 5,
+      })
+    end
+    
+    @server.mount("/#{@entry}", WebAlet, self, auth)
+    
+    @server_thread = Thread.new{
+      begin
+        @server.start
+      rescue Exception => e
+        @manager.ndk_error e
+      end
+    }
+    @message_format = @config.default_log[:message_format].merge(
+      @bot_config.fetch(:message_format, {
+        'PRIVMSG' => '{msg}',
+        'NOTICE'  => '{{user}} {msg}',
+      }))
+
+    @all_message_format = @config.default_log[:message_format].merge(
+      @bot_config.fetch(:all_message_format, {}))
+  end
+
+  def bot_destruct
+    @server_thread.kill
+    @server.shutdown
+    sleep 1
+  end
+end
+

data/plugins/xibot.nb

@@ -0,0 +1,113 @@
+#
+# Xi Bot
+#
+# No rights reserved.
+#
+# Synopsis:
+#   xi> 2d10 (two dice of ten)
+#   [2d10] 13 = 7 + 6
+#   xi> 5d
+#   [5d6] 14 = 3 + 1 + 3 + 1 + 6
+#   xi>100
+#   [1d100] 26
+#
+
+class XiBot < Nadoka::NDK_Bot
+  def bot_initialize
+    @available_channel = @bot_config[:ch] || /.*/
+  end
+
+  def dice(count=1, max=6)
+    count.times{ count += rand(max) }
+    count
+  end
+
+  def on_privmsg prefix, ch, msg
+    return unless @available_channel === ch
+    return unless /\Axi\s*>\s*/ =~ msg
+    case $~.post_match.downcase
+    when /character/
+      %w/STR DEX CON INT WIS CHA/.each do |name|
+        values = (1..3).map{|i|rand(6)+1}
+        sum = values.inject(0){|s, i|s += i}
+        send_notice(ch, '%s: %2d = %s' % [name, sum, values.join(' + ')])
+      end
+    when /char/
+      values = %w/STR DEX CON INT WIS CHA/.map do |name|
+        '%s: %2d' % [name, (1..4).map{|i|rand(6)+1}.sort.last(3).inject(0){|s, i|s += i}]
+      end
+      send_notice(ch, "#{prefix.nick}: #{values.join(', ')}")
+    when /san/
+      int = dice(2, 6) + 6
+      pow = dice(3, 6)
+      san0 = pow * 5
+      current = san0
+      result = 'int:%d pow:%d san0:%d' % [int, pow, san0]
+
+      case rand(10)
+      when 9
+        result <<= ' you saw Great Cthulhu.'
+        losts = [dice(1, 10), dice(1, 100)]
+      when 7, 8
+        result <<= ' you saw a living dead.'
+        losts = [1, dice(1, 10)]
+      when 4, 5, 6
+        result <<= ' you saw a Dimension-Shambler.'
+        losts = [0, dice(1, 10)]
+      when 2, 3, 4
+        result <<= ' you woke up in the grave.'
+        losts = [0, dice(1, 6)]
+      else
+        result <<= ' you find a dead body.'
+        losts = [0, dice(1, 3)]
+      end
+
+      check = dice(1, 100)
+      result << " check:#{check}"
+      lost = losts[check > current ? 1 : 0]
+
+      insane = false
+      if lost > 0
+        result << " you lost #{lost} SAN point."
+        if lost >= current
+          # eternal insanity
+          result << ' you went mad. (eternal)'
+          insane = true
+        elsif lost * 5 > current
+          # indefinite insanity
+          r = %w/緊張症・痴呆症 記憶喪失 サンチョ・パンザ症、ドンキホーテ症 偏執症
+          恐怖症、フェティッシュ 強迫観念、中毒、けいれん発作  誇大妄想 精神分裂症
+          犯罪性精神異常 多重人格/[rand(10)]
+          result << ' you went mad. (indefinite %s)' % NKF.nkf('-jW', r)
+          insane = true
+        elsif lost >= 5
+          idearoll = dice(1, 100)
+          result << " idearoll:#{idearoll}"
+          if idearoll <= int * 5
+            # temporary insanity
+            result << ' you went mad. (temporary)'
+            insane = true
+          end
+        end
+      end
+      result << ' you kept sanity.' unless insane
+      #message = '%s: current: %d check: %d result: %s' % [prefix.nick, current, check, result]
+      message = "#{prefix.nick}: #{result}"
+      send_notice(ch, message)
+    when /(?:(\d+)d)?(\d+)?(?:\*([1-9]))?/
+      count = $1.to_i
+      count = 1 unless (1..100).include? count
+      max = $2.to_i
+      max = 6 unless (1..1_000_000_000).include? max
+      ($3 ? $3.to_i : 1).times do
+        values = (1..count).map{|i|rand(max)+1}
+        sum = values.inject(0){|s, i|s += i}
+        if count == 1
+          send_notice(ch, '%s: [%dd%d] %d' % [prefix.nick,count, max, sum])
+        else
+          send_notice(ch, '%s: [%dd%d] %d = %s' % [prefix.nick,count, max, sum, values.join(' + ')])
+        end
+      end
+    end
+  end
+end