root/lang/ruby/chokan/branches/citrus/chokan.rb @ 5850

#!/usr/bin/env ruby
$LOAD_PATH << "lib"

require "net/irc"

class Chokan < Net::IRC::Client
        def on_privmsg(m)
                super
                target  = m[0]
                mes     = m[1]

                case
                when m.ctcp?
                        call_plugins :on_ctcp [m.prefix, target, ctcp_decoding(mes)]
                when target =~ /^[^#+&!]/
                        call_plugins :on_talk [m.prefix, target, mes]
                else
                        call_plugins :on_privmsg [m.prefix, target, mes]
                end
        end

        def on_notice(m)
                super
                call_plugins :on_notice [m.prefix, m[0], m[1]]
        end

        def on_join(m)
                super
                call_plugins :on_join [m.prefix, m[0]]
        end

        def on_part(m)
                super
                call_plugins :on_part [m.prefix, m[0], m[1]]
        end

        def on_kick(m)
                super
                call_plugins :on_kick [m.prefix, m[0], m[1], m[2]]
        end

        def on_invite(m)
                super
                call_plugins :on_invite [m.prefix, m[0], m[1]]
        end

        def on_nick(m)
                super
                call_plugins :on_nick [m.prefix, m[0]]
        end

        def on_mode(m)
                negative_mode, positive_mode, = *super
                call_plugins :on_mode [m.prefix, m[0], positive_mode, negative_mode]
        end

        def on_connected
                super
                call_plugins :on_uped, []
        end

        def on_disconnected
                super
                call_plugins :on_downed, []
        end

        def call_plugins(name, args)
                @plugins.each do |n, i|
                        i.send(n, *args)
                end
        end
end


class Plugin
        include Net::IRC
        include Constants

        def initialize(socket, config)
                @socket, @config = socket, OpenStruct.new(config)
                @log = @config.log
        end

        def post(command, *params)
                m = Message.new(nil, command, params.map {|s|
                        s.gsub(/\r|\n/, " ")
                })
                @log.debug "SEND: #{m.to_s.chomp}" if @log
                @socket << m
        end

        %w[
                privmsg
                notice
                join
                part
                kick
                invite
        ].each do |command|
                eval <<-EOS
                        def #{command}(*params)
                                post #{command.upcase}, *params
                        end
                EOS
        end
end

#require "rubygems"
#gem "rspec"
#require "spec"
#require "stringio"
#
#require "chokan.rb"
#
#class String; def clear; replace ""; end; end
#
#describe Plugin, "shorthand methods" do
#       @socket = ""
#
#       @plugin = Plugin.new(@socket, {})
#       @plugin.privmsg("#test", "message")
#       @socket.should == "PRIVMSG #test message\r\n"
#
#       @socket.clear
#       @plugin.privmsg("#test", "message with space")
#       @socket.should == "PRIVMSG #test :message with space\r\n"
#end

#Internet Relay Chat
#
#Reto
#Dialogas
#
#Sage
#Viola
#Tricolor