failirc 0.0.1

data/bin/failbot

@@ -0,0 +1,162 @@
+#! /usr/bin/env ruby
+# failirc, a fail IRC server.
+#
+# Copyleft meh. [http://meh.doesntexist.org | meh.ffff@gmail.com]
+#
+# This file is part of failirc.
+#
+# failirc is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# failirc is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with failirc. If not, see <http://www.gnu.org/licenses/>.
+
+require 'failirc/client'
+require 'getoptlong'
+require 'uri'
+require 'net/http'
+require 'timeout'
+
+args = GetoptLong.new(
+    ['--version', '-v', GetoptLong::NO_ARGUMENT],
+    ['--verbose', '-V', GetoptLong::NO_ARGUMENT],
+    ['--config', '-f', GetoptLong::REQUIRED_ARGUMENT]
+)
+
+options = {
+    :verbose => false,
+    :config  => '/etc/failbot.conf',
+}
+
+args.each {|option, value|
+    case option
+
+    when '--version'
+        puts "Fail IRCd #{IRC::VERSION}"
+        exit 0
+
+    when '--verbose'
+        options[:verbose] = true
+
+    when '--config'
+        options[:config] = value
+
+    end
+}
+
+$client = IRC::Client.new(File.new(options[:config]), options[:verbose])
+
+def stop (client)
+    client.stop
+    Process.exit!(0)
+end
+
+trap('INT') { stop $client }
+trap('KILL') { stop $client }
+
+$urls = {}
+
+module Commands
+    def self.quit (server, from, to, string)
+        $client.servers.each_value {|server|
+            $client.execute :quit, server, string
+        }
+
+        self.debug 'Quitting...'
+
+        while true
+            if $client.servers.empty?
+                Process.exit!(0)
+            end
+
+            sleep 0.1
+        end
+    end
+
+    def self.echo (server, from, to, string)
+        if !to.is_a?(IRC::Client::Channel)
+            to = from
+        end
+
+        $client.execute :message, server, :output, $client, to, string
+    end
+
+    def self.say (server, from, to, string)
+        matches = string.match(/^(.+?) (.+)$/)
+
+        $client.execute :message, server, :output, $client, matches[1], matches[2]
+    end
+
+    def self.urls (server, from, to, string)
+        if !to.is_a?(IRC::Client::Channel)
+            to = from
+        end
+
+        $urls.each_value {|url|
+            $client.execute :message, server, :output, $client, to, "[#{url[:at]}] #{url[:uri]} { #{url[:from]} }"
+        }
+    end
+end
+
+# check for connection
+$client.register :custom, :connected, lambda {|server|
+    $client.config.elements.each('config/misc/channels/channel') {|channel|
+        $client.execute :join, server, channel.text
+    }
+}
+
+# fetch URLs
+$client.register :custom, :message, lambda {|server, chain, from, to, message|
+    if chain != :input
+        return
+    end
+
+    URI.extract(message).each {|uri|
+        if match = uri.match('http://tinyurl.com/(.+)$')
+            uri = timeout 5 do
+                Net::HTTP.get(URI.parse("http://preview.tinyurl.com/#{match[1]}"))
+            end rescue nil
+
+            if !uri
+                next
+            end
+
+            if match = uri.match(/redirecturl" href="(.+?)"/)
+                uri = URI.decode(match[1])
+            else
+                next
+            end
+        end
+
+        if $urls[uri]
+            next
+        end
+
+        $urls[uri] = {
+            :from => from.mask.to_s,
+            :to   => to.to_s,
+            :uri  => uri,
+            :at   => Time.now,
+        }
+    }
+}
+
+# dispatch commands
+$client.register :custom, :message, lambda {|server, chain, from, to, message|
+    if chain != :input
+        return
+    end
+    
+    if match = message.match(/^~([^ ]+)(\s+(.*))?$/)
+        Commands.method(match[1].to_sym).call(server, from, to, match[3])
+    end
+}
+
+$client.start

data/bin/failircd

@@ -0,0 +1,61 @@
+#! /usr/bin/env ruby
+# failirc, a fail IRC server.
+#
+# Copyleft meh. [http://meh.doesntexist.org | meh.ffff@gmail.com]
+#
+# This file is part of failirc.
+#
+# failirc is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# failirc is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with failirc. If not, see <http://www.gnu.org/licenses/>.
+
+require 'failirc/server'
+require 'getoptlong'
+
+args = GetoptLong.new(
+    ['--version', '-v', GetoptLong::NO_ARGUMENT],
+    ['--verbose', '-V', GetoptLong::NO_ARGUMENT],
+    ['--config', '-f', GetoptLong::REQUIRED_ARGUMENT]
+)
+
+options = {
+    :verbose => false,
+    :config  => '/etc/failircd.conf',
+}
+
+args.each {|option, value|
+    case option
+
+    when '--version'
+        puts "Fail IRCd #{IRC::VERSION}"
+        exit 0
+
+    when '--verbose'
+        options[:verbose] = true
+
+    when '--config'
+        options[:config] = value
+
+    end
+}
+
+ircd = IRC::Server.new(File.new(options[:config]), options[:verbose])
+
+def stop (ircd)
+    ircd.stop
+    Process.exit!(0)
+end
+
+trap('INT') { stop ircd }
+trap('KILL') { stop ircd }
+
+ircd.start

data/lib/failirc.rb

@@ -0,0 +1,25 @@
+# failirc, a fail IRC library.
+#
+# Copyleft meh. [http://meh.doesntexist.org | meh.ffff@gmail.com]
+#
+# This file is part of failirc.
+#
+# failirc is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# failirc is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with failirc. If not, see <http://www.gnu.org/licenses/>.
+
+require 'failirc/server'
+require 'failirc/client'
+
+module IRC
+    VERSION = '0.0.1'
+end

data/lib/failirc/client.rb

@@ -0,0 +1,227 @@
+# failirc, a fail IRC library.
+#
+# Copyleft meh. [http://meh.doesntexist.org | meh.ffff@gmail.com]
+#
+# This file is part of failirc.
+#
+# failirc is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Affero General Public License as published
+# by the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# failirc is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU Affero General Public License for more details.
+#
+# You should have received a copy of the GNU Affero General Public License
+# along with failirc. If not, see <http://www.gnu.org/licenses/>.
+
+require 'resolv'
+
+require 'rexml/document'
+include REXML
+
+require 'failirc'
+require 'failirc/utils'
+
+require 'failirc/client/dispatcher'
+
+require 'failirc/client/client'
+require 'failirc/client/user'
+require 'failirc/client/channel'
+
+module IRC
+
+class Client
+    attr_reader :version, :verbose, :config, :modules, :dispatcher
+
+    def initialize (conf, verbose)
+        @version = IRC::VERSION
+        @verbose = verbose
+
+        @modules = {}
+
+        @dispatcher = Dispatcher.new self
+
+        self.config = conf
+    end
+
+    def loadModule (name, path=nil, reload=false)
+        if @modules[name] && !reload
+            return
+        end
+
+        begin 
+            if path[0] == '/'
+                $LOAD_PATH.push path
+                require name
+                $LOAD_PATH.pop
+            else
+                require "#{path}/#{name}"
+            end
+
+            klass = eval("Modules::#{name}") rescue nil
+
+            if klass
+                @modules[name] = klass.new(self)
+                self.debug "Loaded `#{name}`."
+            else
+                raise Exception
+            end
+        rescue Exception => e
+            self.debug "Failed to load `#{name}`."
+            self.debug e
+        end
+    end
+
+    def start
+        if @started
+            return
+        end
+
+        if !@config
+            raise 'config is missing'
+        end
+
+        @started = true
+
+        @config.elements.each('config/servers/server') {|element|
+            self.connect({
+                :host => element.attributes['host'],
+                :port => element.attributes['port'],
+
+                :ssl      => element.attributes['ssl'],
+                :ssl_cert => element.attributes['sslCert'],
+                :ssl_key  => element.attributes['sslKey']
+            }, element)
+        }
+
+        @dispatcher.start
+    end
+
+    def stop
+        @stopping = true
+
+        begin
+            dispatcher.stop
+
+            @modules.each {|mod|
+                mod.finalize
+            }
+        rescue
+        end
+
+        @stopping = false
+        @started  = false
+    end
+
+    def connect (*args)
+        @dispatcher.connection.connect(*args)
+    end
+
+    def servers
+        dispatcher.servers[:byName]
+    end
+
+    def server (identifier)
+        dispatcher.server identifier
+    end
+
+    def alias (*args)
+        dispatcher.alias(*args)
+    end
+
+    def register (*args)
+        dispatcher.register(*args)
+    end
+
+    def nick
+        @config.elements['config/informations/nick'].text
+    end
+
+    def user
+        @config.elements['config/informations/user'].text
+    end
+
+    def realName
+        @config.elements['config/informations/realName'].text
+    end
+
+    def execute (*args)
+        @dispatcher.execute(*args)
+    end
+
+    def rehash
+        self.config = @configReference
+    end
+
+    def config= (reference)
+        if reference.is_a?(Hash)
+            @config = Document.new
+
+            @config.add Element.new 'config'
+            @config.elements['config'].add Element.new 'informations'
+            @config.elements['config'].add Element.new 'servers'
+            @config.elements['config'].add Element.new 'modules'
+
+            informations = @config.elements['config/informations']
+
+            informations.add(Element.new 'nick').text     = reference[:nick] || 'fail'
+            informations.add(Element.new 'user').text     = reference[:user] || 'fail'
+            informations.add(Element.new 'realName').text = reference[:realName] || "failirc-#{version}"
+
+            servers = @config.elements['config/servers']
+
+            if reference[:servers]
+                reference[:servers].each {|server|
+                    element = servers.add(Element.new 'server')
+
+                    element.attributes['host']    = server[:host]
+                    element.attributes['port']    = server[:port]
+                    element.attributes['ssl']     = server[:ssl] || 'disabled'
+                    element.attributes['sslCert'] = server[:ssl_cert]
+                    element.attributes['sslKey']  = server[:ssl_key]
+                }
+            end
+
+            modules = @config.elements['config/modules']
+
+            if reference[:modules]
+                reference[:modules].each {|mod|
+                    element = modules.add(Element.new 'module')
+
+                    element.attributes['name'] = mod[:name]
+                }
+            end
+        else
+            @config = Document.new reference
+        end
+
+        @configReference = reference
+
+        if !@config.elements['config/servers']
+            @config.elements['config'].add Element.new 'servers'
+        end
+
+        @config.elements.each('config/servers/server') {|server|
+            if !server.attributes['ssl']
+                server.attributes['ssl'] = 'disabled'
+            end
+        }
+
+        self.debug 'Loading modules.'
+
+        @config.elements.each('config/modules/module') {|element|
+            if !element.attributes['path']
+                element.attributes['path'] = 'failirc/client/modules'
+            end
+
+            self.loadModule element.attributes['name'], element.attributes['path']
+        }
+
+        self.debug 'Finished loading modules.', "\n"
+    end
+end
+
+end