failirc 0.0.1

data/lib/failirc/server/modules/Cloaking.rb

@@ -0,0 +1,170 @@
+# 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/module'
+
+module IRC
+
+class Server
+
+module Modules
+
+class Cloaking < Module
+    def initialize (server)
+        @aliases = {
+            :output => {
+                :NAMES => /:.*? 353 /,
+            },
+
+            :input => {
+                :DISGUISEAS => /^DISGUISEAS( |$)/i,
+            },
+        }
+
+        @events = {
+            :custom => {
+                :message => Event::Callback.new(self.method(:received_message), -100),
+                :notice  => Event::Callback.new(self.method(:received_notice), -100),
+                :ctcp    => Event::Callback.new(self.method(:received_ctcp), -100),
+
+                :topic_change => Event::Callback.new(self.method(:topic_change), -100),
+            },
+
+            :output => {
+                :NAMES => Event::Callback.new(self.method(:hide), -100),
+            },
+
+            :input => {
+                :DISGUISEAS => self.method(:disguiseas),
+            },
+        }
+
+        @disguises = {}
+
+        super(server)
+    end
+
+    def disguiseas (thing, string)
+        match = string.match(/DISGUISEAS\s+(.+?)$/i)
+
+        if !thing.modes[:operator]
+            thing.send :numeric, ERR_NOPRIVILEGES
+            return
+        end
+
+        if !match
+            @disguises.delete(thing)
+        else
+            mask = match[1].strip
+
+            if mask.match(/^.+!.+@.+$/)
+                @disguises[thing] = Mask::parse(mask)
+            else
+                @disguises[thing] = mask
+            end
+        end
+    end
+
+    def disguise (fromRef)
+        from = fromRef.value
+
+        if from.modes[:operator]
+            if @disguises[from].is_a?(Mask)
+                fromRef.value = Client.new(server, @disguises[from])
+            elsif tmp = server.clients[@disguises[from]]
+                fromRef.value = tmp
+            end
+        end
+    end
+
+    def received_message (chain, fromRef, toRef, message, level=nil)
+        if chain != :input
+            return
+        end
+
+        disguise(fromRef)
+    end
+
+    def received_notice (chain, fromRef, toRef, message, level=nil)
+        if chain != :input || fromRef.value.is_a?(Server)
+            return
+        end
+
+        disguise(fromRef)
+    end
+
+    def received_ctcp (chain, kind, fromRef, toRef, type, message, level)
+        if chain != :input || fromRef.value.is_a?(Server)
+            return
+        end
+
+        disguise(fromRef)
+    end
+
+    def topic_change (channel, topic, fromRef)
+        disguise(fromRef)
+    end
+
+    def hide (thing, string)
+        match = string.match(/:.*? (\d+)/)
+
+        if !match
+            return
+        end
+
+        self.method("_#{match[1]}".to_sym).call(thing, string) rescue nil
+    end
+
+    def _353 (thing, string)
+        if thing.modes[:operator]
+            return
+        end
+
+        match = string.match(/353 .*?:(.*)$/)
+
+        names = match[1].split(/\s+/)
+        list  = ''
+
+        names.each {|original|
+            if Base::User::levels.has_value(original[0, 1])
+                name = original[1, original.length]
+            else
+                name = original
+            end
+
+            if !server.clients[name]
+                next
+            end
+
+            client = server.clients[name]
+
+            if !(client.modes[:operator] && client.modes[:extended][:hide])
+                list << " #{original}"
+            end
+        }
+
+        string.sub!(/ :(.*)$/, " :#{list[1, list.length]}")
+    end
+end
+
+end
+
+end
+
+end

data/lib/failirc/server/modules/Firewall.rb

@@ -0,0 +1,104 @@
+# 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/module'
+
+module IRC
+
+class Server
+
+module Modules
+
+class Firewall < Module
+    @@version = '0.0.1'
+
+    def self.version
+        return @@version
+    end
+
+    def description
+        "Firewall-#{Firewall.version}"
+    end
+
+    def initialize (server)
+        @events = {
+            :pre  => Event::Callback.new(self.method(:dispatch), -9001),
+            :post => Event::Callback.new(self.method(:dispatch), -9001),
+
+            :custom => {
+                :log  => self.method(:log),
+                :kill => Event::Callback.new(self.method(:logKill), -9001),
+            },
+        }
+
+        super(server)
+    end
+
+    def rehash
+        if @log && @log != $stdout
+            @log.close
+        end
+
+        file = @server.config.elements['config/modules/module[@name="Firewall"]/file']
+
+        if file
+            @log = File.open(file.text)
+        else
+            @log = $stdout
+        end
+    end
+
+    def finalize
+        if @log != $stdout
+            @log.close
+        end
+    end
+
+    def dispatch (event, thing, string)
+        if (event.chain == :input && event.special == :pre) || (event.chain == :output && event.special == :post)
+            @log.puts "[#{Time.now}] #{target(thing)} #{(event.chain == :input) ? '>' : '<'} #{string.inspect}"
+            @log.flush
+        end
+    end
+
+    def log (string)
+        @log.puts "[#{Time.now}] #{string}"
+        @log.flush
+    end
+
+    def logKill (thing, message)
+        log "#{target(thing)} KILL :#{message}"
+    end
+
+    def target (thing)
+        if thing.is_a?(Client) || thing.is_a?(User)
+            target = "#{thing.nick || '*'}!#{thing.user || '*'}@#{thing.ip || '*'}"
+        else
+            target = thing.to_s
+        end
+
+        return target
+    end
+end
+
+end
+
+end
+
+end

data/lib/failirc/server/modules/Netlog.rb

@@ -0,0 +1,67 @@
+# 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 'uri'
+
+require 'failirc/server/module'
+
+module IRC
+
+class Server
+
+module Modules
+
+class Netlog < Module
+    def initialize (server)
+        @events = {
+            :custom => {
+                :message => Event::Callback.new(self.method(:netlog), -101),
+            }
+        }
+
+        super(server)
+    end
+
+    def netlog (chain, fromRef, toRef, message, level=nil)
+        if chain != :input
+            return
+        end
+
+        from = fromRef.value
+        to   = toRef.value
+
+        URI.extract(message).each {|uri|
+            if match = uri.match('http://(beta\.)?(\w+?)\.netlog.com.*photo.*?(\d+)')
+                country = match[2]
+                url     = match[3]
+                code    = "000000000#{url}".match(/(\d{3})(\d{3})\d{3}$/)
+
+                message.gsub!(/#{Regexp.escape(uri)}/, "http://#{country}.netlogstatic.com/p/oo/#{code[1]}/#{code[2]}/#{url}.jpg")
+            elsif match = uri.match(/netlogstatic/)
+                message.gsub!(/#{Regexp.escape(uri)}/, uri.sub(/\/[to]{2}\//, '/oo/'))
+            end
+        }
+    end
+end
+
+end
+
+end
+
+end

data/lib/failirc/server/modules/Roulette.rb

@@ -0,0 +1,78 @@
+# 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/module'
+
+module IRC
+
+class Server
+
+module Modules
+
+class Roulette < Module
+    def initialize (server)
+        @aliases = {
+            :input => {
+                :ROULETTE => /^ROULETTE( |$)/i,
+            },
+        }
+
+        @events = {
+            :input => {
+                :ROULETTE => self.method(:roulette),
+            },
+        }
+
+        super(server)
+    end
+
+    def rehash
+        if tmp = @server.config.elements['config/modules/module[@name="Roulette"]/death']
+            @death = tmp.text
+        else
+            @death = 'BOOM, dickshot'
+        end
+
+        if tmp = @server.config.elements['config/modules/module[@name="Roulette"]/life']
+            @life = tmp.text
+        else
+            @life = '#{user.nick} shot but survived :('
+        end
+    end
+
+    def roulette (thing, string)
+        user = thing
+
+        if rand(3) == 1
+            @server.kill thing, eval(@death.inspect.gsub(/\\#/, '#'))
+        else
+            @server.clients.each_value {|client|
+                if client.modes[:registered]
+                    @server.dispatcher.execute :notice, @server, client, eval(@life.inspect.gsub(/\\#/, '#'))
+                end
+            }
+        end
+    end
+end
+
+end
+
+end
+
+end

data/lib/failirc/server/modules/TinyURL.rb

@@ -0,0 +1,98 @@
+# 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 'net/http'
+require 'uri'
+require 'timeout'
+
+require 'failirc/extensions'
+require 'failirc/server/module'
+
+module IRC
+
+class Server
+
+module Modules
+
+class TinyURL < Module
+    def initialize (server)
+        @events = {
+            :custom => {
+                :message => Event::Callback.new(self.method(:tinyurl), -100),
+            }
+        }
+
+        super(server)
+    end
+
+    def rehash
+        if tmp = @server.config.elements['config/modules/module[@name="TinyURL"]/length']
+            @length = tmp.text.to_i
+        else
+            @length = 42
+        end
+
+        if tmp = @server.config.elements['config/modules/module[@name="TinyURL"]/timeout']
+            @timeout = tmp.text.to_i
+        else
+            @timeout = 5
+        end
+    end
+
+    def tinyurl (chain, fromRef, toRef, message, level=nil)
+        if chain != :input
+            return
+        end
+
+        from = fromRef.value
+        to   = toRef.value
+
+        URI.extract(message).each {|uri|
+            if uri.length <= @length
+                next
+            end
+
+            if tiny = tinyurlify(uri) rescue nil
+                message.gsub!(/#{Regexp.escape(uri)}/, tiny)
+            end
+        }
+    end
+
+    def tinyurlify (url)
+        begin
+            content = timeout @timeout do
+                Net::HTTP.post_form(URI.parse('http://tinyurl.com/create.php'), { 'url' => url }).body
+            end
+            
+            match = content.match('<blockquote><b>(http://tinyurl.com/\w+)</b>')
+
+            if match
+                return match[1]
+            end
+        rescue Timeout::Error
+            return nil
+        end
+    end
+end
+
+end
+
+end
+
+end