campfire-bot 0.0.1

data/plugins/twitter_echo.rb

@@ -0,0 +1,54 @@
+require 'hpricot'
+require 'open-uri'
+require 'ostruct'
+require 'time'
+require 'htmlentities'
+
+# The workings of this plugin are based on http://github.com/paulca/twitter2campfire
+# Thanks to Paul Campbell and Contrast! <http://www.contrast.ie/>
+
+class TwitterEcho < CampfireBot::Plugin
+  
+  at_interval 2.minutes, :echo_tweets
+  
+  def initialize
+    @feed         = bot.config['twitter_feed']
+    @hide_replies = bot.config.key?('twitter_hide_replies') ? bot.config['twitter_hide_replies'] : false
+    @latest       = Time.now
+  end
+  
+  def echo_tweets(msg = nil)
+    recent_tweets.reverse.each do |tweet|
+      msg.speak("#{coder.decode(tweet.from)}: #{coder.decode(tweet.text)} #{tweet.link}") unless (tweet.text =~ /^@/ && @hide_replies)
+    end
+    @latest = latest_tweet.date   # next time, only print tweets newer than this
+    @doc    = nil                 # reset the feed so that next time we can actually any new tweets
+  end
+  
+  protected
+  
+  def raw_feed
+    @doc ||= Hpricot(open(@feed))
+  end
+  
+  def all_tweets
+    (raw_feed/'entry').map { |e| OpenStruct.new(
+      :from => (e/'name').inner_html,
+      :text => (e/'title').inner_html,
+      :link => (e/'link').first['href'],
+      :date => Time.parse((e/'published').inner_html)
+    )}
+  end
+  
+  def latest_tweet
+    all_tweets.first
+  end
+
+  def recent_tweets
+    all_tweets.reject { |e| e.date.to_i <= @latest.to_i }
+  end
+  
+  def coder
+    HTMLEntities.new
+  end
+end

data/plugins/unfuddle.rb

@@ -0,0 +1,69 @@
+# Unfuddle RSS echo plugin. Uses the following config.yml settings:
+#
+# unfuddle:
+#   domain: you.unfuddle.com
+#   rss_path: "/account/activity.rss?aak=aaaaaaaaaaaaabbbbbbbbccccccccddddddeeee0000"
+#   port: 443
+#   msg_filters:
+#     - reassigned
+#     - closed
+#     - commented
+#     - resolved
+
+require 'rubygems'
+require 'simple-rss'
+require 'net/https'
+
+class Unfuddle < CampfireBot::Plugin
+  at_interval 2.minutes, :fetch_rss
+  on_command 'unfuddle', :fetch_rss
+
+  def initialize
+    @last_item = 12.hours.ago
+    @http = Net::HTTP.new(bot.config['unfuddle']['domain'], bot.config['unfuddle']['port'])
+
+    if bot.config['unfuddle']['port'] == 443
+      @http.use_ssl = true
+      @http.verify_mode = OpenSSL::SSL::VERIFY_NONE
+    end
+  end
+
+  def fetch_rss(msg)
+    feed = SimpleRSS.parse(@http.get(bot.config['unfuddle']['rss_path']).body)
+
+    feed.items.each do |item|
+      msg.speak "#{item.title} #{item.link}" if published?(item) && !filtered?(item.title)
+    end
+
+    @last_item = feed.items.first.pubDate
+  rescue => e
+    msg.speak e
+  end
+
+  def published?(item)
+    item.pubDate > @last_item
+  end
+
+  def filtered?(title)
+    bot.config['unfuddle']['msg_filters'].each do |msg_filter|
+      return true if send("#{msg_filter}?", title)
+    end
+    return false
+  end
+
+  def closed?(title)
+    (title =~ /Closed Ticket:/) != nil
+  end
+
+  def reassigned?(title)
+    (title =~ /Reassigned Ticket:/) != nil
+  end
+
+  def commented?(title)
+    (title =~ /Created Ticket Comment:/) != nil
+  end
+
+  def resolved?(title)
+    (title =~ /Resolved Ticket:/) != nil
+  end
+end

data/plugins/weather.rb

@@ -0,0 +1,25 @@
+require 'yahoo-weather'
+
+class Weather < CampfireBot::Plugin
+  on_command 'weather', :weather
+  
+  def weather(msg)
+    cities = {
+      'adelaide'  => '1099805',
+      'brisbane'  => '1100661',
+      'canberra'  => '1100968',
+      'darwin'    => '1101597',
+      'hobart'    => '1102670',
+      'melbourne' => '1103816',
+      'perth'     => '1098081',
+      'sydney'    => '1105779'
+    }
+    
+    city_id = cities[(msg[:message]).downcase]  # select city, or
+    city_id ||= cities['canberra']              # use default if no matches
+    
+    data = YahooWeather::Client.new.lookup_by_woeid(city_id, 'c')
+    
+    msg.speak("#{data.title} - #{data.condition.text}, #{data.condition.temp} deg C (high #{data.forecasts.first.high}, low #{data.forecasts.first.low})")
+  end
+end

data/plugins/xkcd.rb

@@ -0,0 +1,43 @@
+require 'open-uri'
+require 'hpricot'
+require 'tempfile'
+
+class Xkcd < CampfireBot::Plugin
+  BASE_URL = 'http://xkcd.com/'
+  
+  on_command 'xkcd', :xkcd
+  
+  def xkcd(msg)    
+    # Get the comic info
+    comic = case msg[:message].split(/\s+/)[0]
+    when 'latest'
+      fetch_latest
+    when 'random'
+      fetch_random
+    when /d+/
+      fetch_comic(msg[:message].split(/\s+/)[0])
+    else
+      fetch_random
+    end
+    
+    msg.speak comic['src']
+    msg.speak comic['title']
+  end
+  
+  private
+  
+  def fetch_latest
+    fetch_comic
+  end
+  
+  def fetch_random
+    # Fetch the latest page and then find the link to the previous comic.
+    # This will give us a number to work with (that of the penultimate strip).
+    fetch_comic(rand((Hpricot(open(BASE_URL))/'//*[@accesskey="p"]').first['href'].gsub(/\D/, '').to_i + 1))
+  end
+  
+  def fetch_comic(id = nil)
+    # Rely on the comic being the last image on the page with a title attribute
+    (Hpricot(open("#{BASE_URL}#{id.to_s + '/' if id}"))/'img[@title]').last
+  end
+end

data/spec/beer_spec.rb

@@ -0,0 +1,224 @@
+require 'spec'
+BOT_ROOT        = File.join(File.dirname(__FILE__), '..')
+BOT_ENVIRONMENT = 'test'
+
+require File.join(File.dirname(__FILE__), '../lib/bot.rb')
+require "#{BOT_ROOT}/plugins/beer.rb"
+
+
+class SpecMessage < CampfireBot::Message
+  attr_reader :response
+  
+  #overwrite message.speak method so that we can expose the output
+  def speak(msg)
+    # puts "specmessage.speak(#{msg})"
+    @response = msg
+  end
+  
+end 
+
+class SpecBeer < CampfireBot::Plugin::Beer
+  attr_accessor :balances
+end
+
+# send a message to the room and return the response
+def sendmsg(msg)
+  # puts "sendmsg(#{msg})"
+  @message[:message] = msg
+  @message[:type] = "TextMessage"
+  @message[:room] = mock('room', :name => 'test')
+  # bot.send(:handle_message, @message)
+  %w(commands speakers messages).each do |type|
+    CampfireBot::Plugin.send("registered_#{type}").each do |handler|
+        handler.run(@message)
+    end
+  end
+  # puts "sendmsg returns #{@message.response}"
+  @message.response
+end
+
+# instantiate the bot and the plugin fresh
+def setup
+  bot = CampfireBot::Bot.instance
+  bot.stub!(:config).and_return({'nickname' => 'Bot'})
+  @beer = SpecBeer.new()
+  CampfireBot::Plugin.registered_plugins['Beer'] = @beer
+  @message = SpecMessage.new(:person => 'Josh')
+  @beer.balances = {}
+  @beer.stub!(:init).and_return(@beer.balances)
+  @beer.stub!(:write)
+  puts @beer.balances
+  @message = SpecMessage.new(:person => 'Josh')
+end
+
+describe "giving beer" do
+  before(:each) do
+    setup
+  end
+  
+  # it "should respond to the command !give_beer" do
+  #   @beer.should_receive(:give_beer)
+  #   sendmsg "!give_beer"
+  # end
+  
+
+  it "should increase my balance with Foo" do
+    bal = 0
+    sendmsg '!give_beer Foo'
+    @beer.balance('Josh', 'Foo').should eql(bal + 1)
+  end
+
+  
+  it "should say back to me what my balance is" do
+     
+     sendmsg('!give_beer bruce').should =~ /1/
+  end
+  
+  it "should accept an argument of the number of beers to credit" do
+    bal = 2
+    sendmsg('!give_beer harvey 2')
+    @beer.balance('Josh', 'harvey').should eql(bal)
+  end
+
+  it "should handle nicely names with spaces in them with no argument" do
+    bal = 1
+    sendmsg('!give_beer harvey A.')
+    @beer.balance('Josh', 'harvey A.').should eql(bal)
+  end
+
+  it "should handle nicely names with spaces in them and an argument" do
+    bal = 2
+    sendmsg('!give_beer harvey D. 2')
+    @beer.balance('Josh', 'harvey D.').should eql(bal)
+  end
+
+  it "should not accept negative numbers as an argument" do
+    sendmsg('!give_beer harvey -2').should =~ /negative number/
+  end
+  
+end
+
+describe "demanding beer" do
+  
+  before(:each) do
+    setup
+  end
+  
+  it "should respond to the command !demand_beer" do
+    @beer.should_receive(:demand_beer)
+    sendmsg("!demand_beer albert")
+  end
+  
+  it "should decrease my balance with the opposite party" do
+    bal = 0
+    # p "initial bal is #{bal}"
+    sendmsg '!demand_beer Foo'
+    puts @beer.balance('Josh', 'Foo')
+    @beer.balance('Josh', 'Foo').should eql(bal - 1)
+  end
+  
+end
+
+describe "redeeming beer" do
+  before(:each) do
+    setup
+  end
+  
+  it "should respond to the command !redeem_beer" do
+    @beer.should_receive(:redeem_beer)
+    sendmsg('!redeem_beer Foo')
+    
+  end
+  
+  it "should increase my balance with the opposite party (redeeming is the same as giving)" do
+    sendmsg '!demand_beer albert'
+    sendmsg '!demand_beer albert'
+    bal = @beer.balance('Josh', 'albert')
+    # puts "------  #{bal}"
+    sendmsg '!redeem_beer albert'
+    @beer.balance('Josh', 'albert').should eql(bal + 1)
+  end
+  
+  it "should not increase my balance if it is already zero" do
+    @beer.should_receive('balance').with('Josh', 'bill').and_return(0)
+    sendmsg("!redeem_beer bill").should =~ /to begin with/
+    # @beer.balance('Josh', 'bill').should eql(bal)
+  end
+end
+
+
+describe "should have the correct reply for" do
+  
+  before(:each) do
+    setup
+  end
+
+  it "negative balances (I owe beers)" do
+    @beer.should_receive('balance').with('Josh', 'james').and_return(1)
+    sendmsg("!give_beer james").should =~ /you now owe james .* beer/
+  end
+  
+  it "positive balances (I am owed beers)" do
+    @beer.balances['albert'] = {}
+    @beer.balances['albert']['Josh'] = 1
+    sendmsg("!demand_beer albert").should =~ /albert now owes you .* beer/
+  end
+  
+  it "zero balance (all even)" do
+    @beer.should_receive('balance').with('Josh', 'albert').and_return(0)
+    sendmsg("!give_beer albert").should =~ /albert .* even/
+  end
+  
+  it "missing all arguments" do
+    sendmsg("!give_beer").should =~ /don't know whom/
+  end
+  
+  # it "non-integer 2nd arg" do
+  #     sendmsg("!give_beer albert non-int").should =~ /I don't accept non-integer amounts/
+  #   end
+  
+end
+
+describe "!balance command" do
+  before(:each) do
+    setup
+  end
+  
+  it "should respond to the !balance command" do
+    @beer.should_receive(:balance_cmd)
+    sendmsg("!balance")
+  end
+  
+  it "should require an argument of a user" do
+    sendmsg("!balance").should be_nil
+  end
+  
+  describe "should return the correct balance for" do
+    it "negative balances" do
+      sendmsg("!demand_beer maxim 2")
+      # @beer.balance('Josh', 'max').should eql(-2)
+      # @beer.should_receive('balance').with('Josh', 'Foo').and_return(-1)
+      sendmsg("!balance maxim").should =~ /owes you 2 beers/
+    end
+    
+    it "positive balances" do
+      sendmsg("!give_beer maximo 9")
+      # @beer.balance('Josh', 'max').should eql(7)
+      # @beer.should_receive('balance').with('Josh', 'Foo').and_return(1)
+      sendmsg("!balance maximo").should =~ /You owe .* 9 beers/
+    end
+    
+    it "non-existent balances" do
+      sendmsg("!balance Fsdfsdfsdfsdfsdfoo").should =~ /transactions/
+    end
+    
+  end
+end
+
+describe "beer_transactiona and balance" do
+  it "should handle equivalent transactions equivalently" do
+    pending
+  end
+  
+  
+end

data/spec/bugzilla_spec.rb

@@ -0,0 +1,90 @@
+require 'spec'
+BOT_ROOT        = File.join(File.dirname(__FILE__), '..')
+BOT_ENVIRONMENT = 'test'
+
+require File.join(File.dirname(__FILE__), '../lib/bot.rb')
+bot = CampfireBot::Bot.instance
+require "#{BOT_ROOT}/plugins/bugzilla.rb"
+
+describe "Bugzilla plugin" do
+  before(:each) do
+    require 'shorturl'
+    ShortURL.stub!(:shorten).
+      with("https://bugzilla/show_bug.cgi?id=1234").
+      and_return("http://rubyurl.com/xyz")
+    @bot = CampfireBot::Bot.instance
+    @bot.stub!(:config).and_return('nickname' => 'Bot'
+                                   #,'bugzilla_debug_enabled' => true
+                                   )
+    @bugzilla = Bugzilla.new
+    @bugzilla.stub!(:http_fetch_body).
+      with("https://bugzilla/show_bug.cgi?id=1234").
+      and_return(
+        "<html>
+           <head>
+             <title>Bug 1234 - Fix widget behavior</title>
+           </head>
+         </html>")
+    CampfireBot::Plugin.registered_plugins['Bugzilla'] = @bugzilla
+    @message = CampfireBot::Message.new(:room => Tinder::Room.new(42, "Main"),
+                                        :person => 'Josh')
+  end
+
+  after(:each) do
+    if File.exist? @bugzilla.data_file
+      File.unlink(@bugzilla.data_file)
+    end
+  end
+
+  it "should respond to the command !bug" do
+    @bugzilla.should_receive(:describe_command)
+    @message[:message] = "!bug"
+    @bot.send(:handle_message, @message)
+  end
+
+  it "should respond to !bug with a bug title" do
+    @message.should_receive(:speak).
+      with("Bug 1234 - Fix widget behavior (http://rubyurl.com/xyz)")
+    @message[:message] = "!bug 1234"
+    @bot.send(:handle_message, @message)
+  end
+
+  it "should overhear mentions of 'bug NNNN' and offer the title" do
+    @message.should_receive(:speak).
+      with("Bug 1234 - Fix widget behavior (http://rubyurl.com/xyz)")
+    @message[:message] = "What about bug 1234?"
+    @bot.send(:handle_message, @message)
+  end
+
+  it "should not repeat a bug title twice in a short time when overhearing" do
+    @message.should_receive(:speak).
+      with("Bug 1234 - Fix widget behavior (http://rubyurl.com/xyz)")
+    @message[:message] = "What about bug 1234?"
+    @bot.send(:handle_message, @message)
+
+    @message2 = CampfireBot::Message.new(:room => Tinder::Room.new(42, "Main"),
+                                         :person => 'Josh')
+    @message2.should_not_receive(:speak)
+    @message2[:message] = "I fixed bug 1234, too."
+    @bot.send(:handle_message, @message2)
+  end
+end
+
+describe "http_fetch_body method" do
+  before(:each) do
+  end
+  # Probably this method should live elsewhere, and in that location be
+  # broken down into smaller methods to facilitate testing.
+  it "should return the body of an HTTP response" do
+    pending
+  end
+  it "should raise an exception for non-success status" do
+    pending
+  end
+  it "should use netrc credentials when possible" do
+    pending
+  end
+  it "should support https when necessary" do
+    pending
+  end
+end