rbot 0.9.9

data/data/rbot/plugins/wserver.rb

@@ -0,0 +1,71 @@
+require 'net/http'
+require 'uri'
+Net::HTTP.version_1_2
+
+class WserverPlugin < Plugin
+  def help(plugin, topic="")
+    "wserver <uri> => try and determine what webserver <uri> is using"
+  end
+
+  def wserver(m, params)
+    redirect_count = 0
+    hostname = params[:host].dup
+    hostname = "http://#{hostname}" unless hostname =~ /:\/\//
+    begin
+      if(redirect_count > 3)
+        m.reply "cowardly refusing to follow more than 3 redirects"
+        return
+      end
+      
+      begin
+        uri = URI.parse(hostname)
+      rescue URI::InvalidURIError => err
+        m.reply "#{hostname} is not a valid URI"
+        return
+      end
+      
+      unless(uri)
+        m.reply "incorrect usage: " + help(m.plugin)
+        return
+      end
+        
+      http = @bot.httputil.get_proxy(uri)
+      http.open_timeout = 5
+      
+      http.start {|http|
+        resp = http.head('/')
+        server = resp['Server']
+        if(server && server.length > 0)
+          m.reply "#{uri.host} is running #{server}"
+        else
+          m.reply "couldn't tell what #{uri.host} is running"
+        end
+        
+        if(resp.code == "302" || resp.code == "301") 
+          newloc = resp['location']
+          newuri = URI.parse(newloc)
+          # detect and ignore incorrect redirects (to relative paths etc)
+          if (newuri.host != nil)
+            if(uri.host != newuri.host)
+              m.reply "#{uri.host} redirects to #{newuri.scheme}://#{newuri.host}"
+              raise resp['location']
+            end
+          end
+        end
+      }
+    rescue TimeoutError => err
+      m.reply "timed out connecting to #{uri.host}:#{uri.port} :("
+      return
+    rescue RuntimeError => err
+      redirect_count += 1
+      hostname = err.message
+      retry
+    rescue StandardError => err
+      puts err
+      m.reply "couldn't connect to #{uri.host}:#{uri.port} :("
+      return
+    end
+  end
+end
+plugin = WserverPlugin.new
+plugin.map 'wserver :host'

data/data/rbot/plugins/xmlrpc.rb.disabled

@@ -0,0 +1,52 @@
+require "xmlrpc/server"
+
+class XmlRpcPlugin < Plugin
+
+  def port
+    @port = 8083
+  end
+
+  INTERFACE = XMLRPC::interface("rbot") {
+    meth 'string say(string)', 'Speak into the current channel', 'say'
+  }
+
+  def xmlrpc
+    @xmlrpc
+  end
+
+  def initialize
+    @xmlrpc = Thread.new {
+        @server = XMLRPC::Server.new(port)
+        @server.add_handler(XmlRpcPlugin::INTERFACE, self)
+        @server.serve
+        puts "here"
+      }
+
+    super()
+  end
+
+  def cleanup
+    puts "killing"
+    @server.shutdown
+    xmlrpc.kill
+    xmlrpc.join
+  end
+
+  def help(plugin, topic="")
+    "xmlrpc runs on port {#port}"
+  end
+
+  def say(msg)
+    m.reply msg
+    msg
+  end
+
+  def privmsg(m)
+    m.reply help(m.plugin)
+  end
+
+end
+
+plugin = XmlRpcPlugin.new
+plugin.register("xmlrpc")
+plugin.xmlrpc.run

data/data/rbot/templates/keywords.rbot

@@ -0,0 +1,4 @@
+lb<=is=>http://linuxbrit.co.uk
+offended<=is=><reply><who> is offended!
+giblet<=is=><reply>daddy!
+rbot<=is=><reply>That's me! :-))

data/data/rbot/templates/lart/larts

@@ -0,0 +1,98 @@
+swaps <who>'s shampoo with nair
+installs windows on <who>'s machine
+forces <who> to use perl for 3 weeks
+registers <who>'s name with 50 known spammers
+resizes <who>'s terminal to 40x24
+takes <who>'s tea
+dispenses <who>'s email address to a few hundred 'bulk mailing services'
+pokes <who> in the eye
+beats <who> senseless with a 50lb Unix manual
+cats /dev/urandom into <who>'s ear
+signs <who> up for AOL
+enrolls <who> in Visual Basic 101
+sporks <who>
+drops a truckload of VAXen on <who>
+judo chops <who>
+resizes <who>'s terminal to 40x24
+formats <who>'s harddrive to fat12
+rm -rf's <who>
+stabs <who>
+steals <who>'s mojo
+strangles <who> with a doohicky mouse cord
+whacks <who> with the cluebat
+sells <who> on E-Bay
+uses <who> as a biological warfare study
+uses the "Customer Appreciation Bat" on <who>
+reads <who> some vogon poetry
+puts <who> in the Total Perspective Vortex
+casts <who> into the fires of Mt. Doom
+gives <who> a melvin
+turns over <who> to Agent Smith to be "bugged"
+takes away <who>'s internet connection
+pushes <who> past the Shoe Event Horizon
+counts "1, 2, 5... er... 3!" and hurls the Holy Handgrenade Of Antioch at <who>
+puts <who> in a nest of camel spiders
+makes <who> read slashdot at -1
+puts "alias vim=emacs" in <who>'s /etc/profile
+uninstalls ld from <who>'s system
+locks <who> in the Chateau d'If
+signs <who> up for getting hit on the head lessons
+makes <who> try to set up a Lexmark printer
+fills <who>'s Visene eyedrop bottle with lime juice
+casts <who> into the fires of Mt. Doom.
+gives <who> a Chicago Steamer
+rips off <who>'s arm, and uses it to beat them to death
+pierces <who>'s nose with a rusty paper hole puncher
+pokes <who> with a rusty nail
+puts sugar between <who>'s bedsheets
+pours sand into <who>'s oatmeal
+mixes epoxy into <who>'s toothpaste
+puts Icy-Hot in <who>'s lip balm
+straps <who> to a chair, and plays a endless low bitrate MP3 loop of "the world's most annoying sound" from "Dumb and Dumber"
+tells Dr. Dre that <who> was talking smack
+forces <who> to use a Commodore 64 for all their word processing
+smacks <who> in the face with a burlap sack full of broken glass
+puts <who> in a room with several heavily armed manic depressives
+makes <who> watch reruns of "Blue's Clues"
+puts lye in <who>'s coffee
+tattoos the Windows symbol on <who>'s ass
+lets Borg have his way with <who>
+signs <who> up for line dancing classes at the local senior center
+wakes <who> out of a sound sleep with some brand new nipple piercings
+gives <who> a 2 guage Prince Albert
+forces <who> to eat all their veggies
+covers <who>'s toilet paper with lemon-pepper
+fills <who>'s ketchup bottle with Dave's Insanity sauce
+forces <who> to stare at an incredibly frustrating and seemingly neverending IRC political debate
+knocks two of <who>'s teeth out with a 2x4
+removes debian from <who>'s system
+uses <who>'s debian cds for skeet shooting practice
+gives <who>'s phone number to Borg
+posts <who>'s IP and root password on alt.2600
+forces <who> to use words like "irregardless" and "administrate" (thereby sounding like a real dumbass)"
+tickles <who> until they wet their pants and pass out
+replaces <who>'s KY with elmer's clear wood glue
+replaces <who>'s TUMS with alka-seltzer tablets
+squeezes habanero pepper juice into <who>'s tub of vaseline for <who>
+submits <who>'s photo to the people at SA for photoshopping
+Forces <who> to learn the Win32 API
+gives <who> an atomic wedgie
+ties <who> to a chair and forces them to listen to 'N Sync at full blast
+forces <who> to use emacs for text editing
+frowns at <who> really really hard
+jabs a hot car lighter into <who>'s eye sockets
+forces <who> to browse the web with IE
+takes <who> out at the knees with a broken pool cue
+forces <who> to listen to only emo music
+signs <who> up for the Iowa State Ferret Legging Championship
+attempts to hotswap <who>'s RAM
+donkey punches <who>
+puts track spikes into <who>'s side
+replaces <who>'s Astroglide with JB Weld
+replaces <who>'s hypertension pills with rat poison pellets
+replaces <who>s jock itch cream with Nair
+does the Australian Death Grip on <who>
+dances upon the grave of <who>'s ancestors.
+farts in <who>'s general direction
+flogs <who> with stinging neddle
+hands <who> a poison ivy joint

data/data/rbot/templates/lart/praises

@@ -0,0 +1,5 @@
+hugs <who>
+gives <who> some love
+gives <who> a cookie
+slaps <who> heartily on the back
+tickles <who>

data/data/rbot/templates/levels.rbot

@@ -0,0 +1,30 @@
+100 auth
+90 quit
+90 restart
+85 config
+80 nick
+80 nickserv
+80 qauth
+80 http
+70 opme
+70 mode
+70 say
+70 action
+40 quiet
+40 talk
+50 part
+50 hide
+50 join
+15 delquote
+12 msginsult
+12 remind_other
+5 rmlart
+5 rmpraise
+5 keycmd
+5 lart
+5 addlart
+5 addpraise
+5 remind
+5 keyword
+5 addquote
+5 getquote

data/data/rbot/templates/users.rbot

@@ -0,0 +1 @@
+10 *!*@*

data/lib/rbot/auth.rb

@@ -0,0 +1,203 @@
+module Irc
+
+  # globmask:: glob to test with
+  # netmask::  netmask to test against
+  # Compare a netmask with a standard IRC glob, e.g foo!bar@baz.com would
+  # match *!*@baz.com, foo!*@*, *!bar@*, etc.
+  def Irc.netmaskmatch(globmask, netmask)
+    regmask = globmask.gsub(/\*/, ".*?")
+    return true if(netmask =~ /#{regmask}/)
+    return false
+  end
+
+  # check if a string is an actual IRC hostmask
+  def Irc.ismask(mask)
+    mask =~ /^.+!.+@.+$/
+  end
+
+  
+  # User-level authentication to allow/disallow access to bot commands based
+  # on hostmask and userlevel.
+  class IrcAuth
+    BotConfig.register BotConfigStringValue.new('auth.password',
+      :default => "rbotauth", :wizard => true,
+      :desc => "Your password for maxing your auth with the bot (used to associate new hostmasks with your owner-status etc)")
+    
+    # create a new IrcAuth instance.
+    # bot:: associated bot class
+    def initialize(bot)
+      @bot = bot
+      @users = Hash.new(0)
+      @levels = Hash.new(0)
+      if(File.exist?("#{@bot.botclass}/users.rbot"))
+        IO.foreach("#{@bot.botclass}/users.rbot") do |line|
+          if(line =~ /\s*(\d+)\s*(\S+)/)
+            level = $1.to_i
+            mask = $2
+            @users[mask] = level
+          end
+        end
+      end
+      if(File.exist?("#{@bot.botclass}/levels.rbot"))
+        IO.foreach("#{@bot.botclass}/levels.rbot") do |line|
+          if(line =~ /\s*(\d+)\s*(\S+)/)
+            level = $1.to_i
+            command = $2
+            @levels[command] = level
+          end
+        end
+      end
+    end
+
+    # save current users and levels to files.
+    # levels are written to #{botclass}/levels.rbot
+    # users are written to #{botclass}/users.rbot
+    def save
+      Dir.mkdir("#{@bot.botclass}") if(!File.exist?("#{@bot.botclass}"))
+      File.open("#{@bot.botclass}/users.rbot", "w") do |file|
+        @users.each do |key, value|
+          file.puts "#{value} #{key}"
+        end
+      end
+      File.open("#{@bot.botclass}/levels.rbot", "w") do |file|
+        @levels.each do |key, value|
+          file.puts "#{value} #{key}"
+        end
+      end
+    end
+
+    # command:: command user wishes to perform
+    # mask::    hostmask of user
+    # tell::    optional recipient for "insufficient auth" message
+    #
+    # returns true if user with hostmask +mask+ is permitted to perform
+    # +command+ optionally pass tell as the target for the "insufficient auth"
+    # message, if the user is not authorised
+    def allow?(command, mask, tell=nil)
+      auth = userlevel(mask)
+      if(auth >= @levels[command])
+        return true
+      else
+        debug "#{mask} is not allowed to perform #{command}"
+        @bot.say tell, "insufficient \"#{command}\" auth (have #{auth}, need #{@levels[command]})" if tell
+        return false
+      end
+    end
+
+    # add user with hostmask matching +mask+ with initial auth level +level+
+    def useradd(mask, level)
+      if(Irc.ismask(mask))
+        @users[mask] = level
+      end
+    end
+    
+    # mask:: mask of user to remove
+    # remove user with mask +mask+
+    def userdel(mask)
+      if(Irc.ismask(mask))
+        @users.delete(mask)
+      end
+    end
+
+    # command:: command to adjust
+    # level::   new auth level for the command
+    # set required auth level of +command+ to +level+
+    def setlevel(command, level)
+      @levels[command] = level
+    end
+
+    # specific users.
+    # mask:: mask of user
+    # returns the authlevel of user with mask +mask+
+    # finds the matching user which has the highest authlevel (so you can have
+    # a default level of 5 for *!*@*, and yet still give higher levels to
+    def userlevel(mask)
+      # go through hostmask list, find match with _highest_ level (all users
+      # will match *!*@*)
+      level = 0
+      @users.each {|user,userlevel|
+        if(Irc.netmaskmatch(user, mask))
+          level = userlevel if userlevel > level
+        end
+      }
+      level
+    end
+
+    # return all currently defined commands (for which auth is required) and
+    # their required authlevels
+    def showlevels
+      reply = "Current levels are:"
+      @levels.sort.each {|a|
+        key = a[0]
+        value = a[1]
+        reply += " #{key}(#{value})"
+      }
+      reply
+    end
+
+    # return all currently defined users and their authlevels
+    def showusers
+      reply = "Current users are:"
+      @users.sort.each {|a|
+        key = a[0]
+        value = a[1]
+        reply += " #{key}(#{value})"
+      }
+      reply
+    end
+    
+    # module help
+    def help(topic="")
+      case topic
+        when "setlevel"
+          return "setlevel <command> <level> => Sets required level for <command> to <level> (private addressing only)"
+        when "useradd"
+          return "useradd <mask> <level> => Add user <mask> at level <level> (private addressing only)"
+        when "userdel"
+          return "userdel <mask> => Remove user <mask> (private addressing only)"
+        when "auth"
+          return "auth <masterpw> => Recognise your hostmask as bot master (private addressing only)"
+        when "levels"
+          return "levels => list commands and their required levels (private addressing only)"
+        when "users"
+          return "users => list users and their levels (private addressing only)"
+        else
+          return "Auth module (User authentication) topics: setlevel, useradd, userdel, auth, levels, users"
+      end
+    end
+
+    # privmsg handler
+    def privmsg(m)
+     if(m.address? && m.private?)
+      case m.message
+        when (/^setlevel\s+(\S+)\s+(\d+)$/)
+          if(@bot.auth.allow?("auth", m.source, m.replyto))
+            @bot.auth.setlevel($1, $2.to_i)
+            m.reply "level for #$1 set to #$2"
+          end
+        when (/^useradd\s+(\S+)\s+(\d+)/)
+          if(@bot.auth.allow?("auth", m.source, m.replyto))
+            @bot.auth.useradd($1, $2.to_i)
+            m.reply "added user #$1 at level #$2"
+          end
+        when (/^userdel\s+(\S+)/)
+          if(@bot.auth.allow?("auth", m.source, m.replyto))
+            @bot.auth.userdel($1)
+            m.reply "user #$1 is gone"
+          end
+        when (/^auth\s+(\S+)/)
+          if($1 == @bot.config["auth.password"])
+            @bot.auth.useradd(Regexp.escape(m.source), 1000)
+            m.reply "Identified, security level maxed out"
+          else
+            m.reply "incorrect password"
+          end
+        when ("levels")
+          m.reply @bot.auth.showlevels if(@bot.auth.allow?("config", m.source, m.replyto))
+        when ("users")
+          m.reply @bot.auth.showusers if(@bot.auth.allow?("config", m.source, m.replyto))
+      end
+     end
+    end
+  end
+end