campfire-bot 0.1.0 → 1.0.0

data/CHANGELOG.md

@@ -1,10 +0,0 @@
-# 0.1.0
-
-* Fixed loading of plugins by using `require
-  campfire_bot/_plugin_name_.rb` instead of `load _plugin_name_.rb`
-* Renamed bin/bot to bin/campfire-bot since this project is now gemified, and the bot name was too generic.
-* Updated to activesupport ~> 3.1.3.
-
-# 0.0.1
-
-* Initial release

data/Gemfile.lock

@@ -1,58 +0,0 @@
-PATH
-  remote: .
-  specs:
-    campfire-bot (0.0.1)
-      activesupport (~> 3.1.3)
-      eventmachine (~> 0.12.10)
-      hpricot (~> 0.8.3)
-      i18n (~> 0.5.0)
-      logging (~> 1.4.3)
-      mime-types (~> 1.16)
-      tinder (>= 1.4.3)
-      twitter-stream (~> 0.1)
-
-GEM
-  remote: http://rubygems.org/
-  specs:
-    activesupport (3.1.3)
-      multi_json (~> 1.0)
-    addressable (2.2.6)
-    eventmachine (0.12.10)
-    faraday (0.7.5)
-      addressable (~> 2.2.6)
-      multipart-post (~> 1.1.3)
-      rack (>= 1.1.0, < 2)
-    faraday_middleware (0.7.0)
-      faraday (~> 0.7.3)
-    hashie (1.2.0)
-    hpricot (0.8.5)
-    http_parser.rb (0.5.3)
-    i18n (0.5.0)
-    little-plugger (1.1.3)
-    logging (1.4.3)
-      little-plugger (>= 1.1.2)
-    mime-types (1.17.2)
-    multi_json (1.0.4)
-    multipart-post (1.1.4)
-    rack (1.3.5)
-    simple_oauth (0.1.5)
-    tinder (1.8.0)
-      activesupport (>= 2.3, < 4)
-      eventmachine (~> 0.12)
-      faraday (>= 0.6, < 0.8)
-      faraday_middleware (>= 0.6, < 0.8)
-      hashie (~> 1.0)
-      mime-types (~> 1.16)
-      multi_json (~> 1.0)
-      multipart-post (~> 1.1)
-      twitter-stream (~> 0.1)
-    twitter-stream (0.1.14)
-      eventmachine (>= 0.12.8)
-      http_parser.rb (~> 0.5.1)
-      simple_oauth (~> 0.1.4)
-
-PLATFORMS
-  ruby
-
-DEPENDENCIES
-  campfire-bot!

data/plugins/accountability.rb

@@ -1,45 +0,0 @@
-class Accountability < CampfireBot::Plugin
-  on_message /^\[INDAY/i, :save_speaker
-  at_interval 5.minutes, :keep_them_honest
-  
-  def initialize
-    @accountable_people = []
-  end
-  
-  def save_speaker(msg)
-    if msg[:room].name == accountability_room.name
-      puts "WE'RE IN!"
-      @accountable_people << strip_tags(msg[:person]) unless @accountable_people.include?(strip_tags(msg[:person]))
-    end
-  end
-  
-  def keep_them_honest(msg)
-    if accountability_time?
-      unaccountable_people.each do |person|
-        @room.speak("#{person}: We haven't seen your INDAY today. So what's the plan?")
-      end
-      
-      @accountable_people.clear
-    end
-  end
-  
-  private
-  
-  def unaccountable_people
-    accountability_room.users.map { |u| strip_tags(u) } - @accountable_people - [bot.config['nickname']]
-  end
-  
-  def accountability_room
-    @room ||= bot.rooms[bot.config['accountability_room']] || bot.rooms.first
-  end
-  
-  def accountability_time?
-    # Once a day, sometime between 11:00 and 11:05.
-    now = Time.now
-    (Time.mktime(now.year, now.month, now.day, 11, 0)..Time.mktime(now.year, now.month, now.day, 11, 5)).include?(now)
-  end
-  
-  def strip_tags(str)
-    str.gsub(/<\/?[^>]*>/, '').strip
-  end
-end

data/plugins/austin.rb

@@ -1,29 +0,0 @@
-require 'open-uri'
-require 'hpricot'
-
-class Austin < CampfireBot::Plugin
-  BASE_URL = 'http://www.imdb.com/character/ch0002425/quotes'
-
-  on_command 'austin', :austin
-
-  def austin(msg)
-    doc = Hpricot(open(BASE_URL))
-    chunks = []
-    doc.traverse_element("br") {|b| chunks << b if b.next_node != nil && b.next_node.elem? && b.next_node.to_s == '<br />' }
-    chunks.pop
-    random_chunk = rand(chunks.size - 1)
-    raw_quote = chunks[random_chunk].nodes_at(2..(chunks[random_chunk + 1].node_position - chunks[random_chunk].node_position - 1))
-    quote = raw_quote.to_s
-    quote.gsub!(/(\\n)/, "")
-    quote.gsub!(/(<br \/>)/, "\n")
-    quote.gsub!(/^\s/, "")
-    quote.gsub!(/ {2,}/, " ")
-    quote.gsub!(/<\/?[^>]*>/, "")
-    quote.split("\n")
-
-    quote.each {|l| msg.speak l}
-
-  rescue
-    msg.speak 'Austin Powers: Yeah, baby, yeah'
-  end
-end

data/plugins/basecamp.rb

@@ -1,48 +0,0 @@
-require 'hpricot'
-
-class Basecamp < CampfireBot::Plugin
-  on_command 'writeboard', :writeboard
-  
-  def initialize
-    # TODO find a better temp file name
-    @cookie_jar = BOT_ROOT + '/tmp/basecamp-cookies.txt'
-    @writeboard = bot.config['basecamp_writeboard_url']
-    @domain     = @writeboard.split(/\/+/)[1]
-    @username   = bot.config['basecamp_username']
-    @password   = bot.config['basecamp_password']
-    @ssl        = !!bot.config['basecamp_use_ssl']
-  end
-  
-  def writeboard(msg)
-    msg.paste get_contents
-  end
-  
-  private
-  
-  # TODO escape stuff here. output = `#{Escape.shell_command(['figlet', '--', m[:message]])}`
-  def get_contents
-    # Prime the cookie jar: log in.
-    basecamp_login      = `curl -c #{@cookie_jar} -b #{@cookie_jar} -d "user_name=#{@username}&password=#{@password}" -L http#{'s' if @ssl}://#{@domain}/login/authenticate`
-    
-    # Fetch the contents of the writeboard redirect page
-    writeboard_redir    = `curl -c #{@cookie_jar} -b #{@cookie_jar} -L #{@writeboard}`
-    
-    # Simulate the javascripted login to the writeboard site
-    redir_form          = Hpricot(writeboard_redir).search('form').first
-    writeboard_url      = redir_form['action'].gsub(/\/login$/, '')
-    writeboard_author   = bot.config['nickname']
-    writeboard_password = redir_form.search("input[@name='password']").first['value']
-    
-    writeboard_login    = `curl -c #{@cookie_jar} -b #{@cookie_jar} -d "author_name=#{writeboard_author}&password=#{writeboard_password}" -L #{redir_form['action']}`
-    
-    # Now we can get the contents of the writeboard's page, which contains a link to the text export
-    writeboard_page     = Hpricot(`curl -c #{@cookie_jar} -b #{@cookie_jar} -L #{writeboard_url}`)
-    
-    export_link         = 'http://123.writeboard.com' + writeboard_page.search("a[@href*='?format=txt']").first['href']
-    
-    # Finally, grab the text export
-    writeboard_text     = `curl -c #{@cookie_jar} -b #{@cookie_jar} #{export_link}`
-    
-    return writeboard_text
-  end
-end

data/plugins/beer.rb

@@ -1,214 +0,0 @@
-require 'yaml'
-
-class Beer < CampfireBot::Plugin
-  
-  # Beer::COMMAND_REGEXP = "^(?:!|#{bot.config['nickname']},\\s+)"
-  
-  # Beer::GIVE_REGEXP =  Regexp.new("#{Beer::COMMAND_REGEXP}([a-z\\s\\.]{4,12})([0-9]+)*", Regexp::IGNORECASE)
-  # Beer::CREDIT_REGEXP = //
-  # Beer::BALANCE_REGEXP = //
-    
-  # on_message @debit_matcher, :respond
-  # on_message Regexp.new("#{CREDIT_REGEXP.source}", Regexp::IGNORECASE), :credit_cmd
-  on_command 'give_beer', :give_beer
-  on_command 'demand_beer', :demand_beer
-  on_command 'redeem_beer', :redeem_beer 
-  on_command 'balance', :balance_cmd
-  
-  # balances: {'josh' => {'party1' => 1 }, 'party1': '}
-  
-  class BadArgumentException < Exception
-  end
-  
-  def give_beer(msg)
-    give_or_demand_beer(msg, :give)
-  end
-  
-  def demand_beer(msg)
-    give_or_demand_beer(msg, :demand)
-  end
-  
-  def redeem_beer(msg)
-    give_or_demand_beer(msg, :redeem)
-  end
-  
-  def balance_cmd(msg)
-    @balances = init()
-    begin
-      if msg[:message].empty?
-        return
-        # raise BadArgumentException.new, "Sorry, I don't know whom to #{trans_type_msg}"
-      end
-                
-      speaker = msg[:person]
-      payee = msg[:message]
-      
-      bal = balance(speaker, payee)
-      
-      units = bal.abs == 1 ? "beer" : "beers"
-      
-      if bal < 0
-        msg.speak("#{payee} owes you #{bal * -1} #{units}")
-      elsif bal > 0
-        msg.speak("You owe #{payee} #{bal} #{units}")
-      else
-        msg.speak("You and #{payee} are even")
-      end
-        
-      rescue BadArgumentException => exception
-        msg.speak(exception.message)
-      end
-  end
-  
-  
-  def give_or_demand_beer(msg, trans_type)     
-    args = msg[:message].match(/(^[a-z\s\.\-]+?)(\s*\-*[0-9]*)$/i)
-    # puts "args = #{args.inspect}"
-    # puts "args[0] = #{args[0]}"
-    # puts "args[1] = #{args[1]}"
-    # puts "args[2] = #{args[2]}"
-
-    trans_type_msg = {:give => 'give beer to', :demand => 'demand beer from', :redeem => 'redeem beer from'}[trans_type]
-    
-    begin
-  
-      if args.nil?
-        raise BadArgumentException.new, "Sorry, I don't know whom to #{trans_type_msg}"
-      end
-      
-      payee = args[1].strip
-      speaker = msg[:person]
-            
-      if args[2] != "" and args[2].to_i == 0
-        raise BadArgumentException.new, "Sorry, I don't accept non-integer amounts"
-      end
-      
-      amt = args[2] != "" ? args[2].to_i : 1
-      
-      if amt <= 0
-        raise BadArgumentException.new, "Sorry, I don't accept negative numbers as an argument"
-      end
-      
-      case trans_type
-      when :give
-        # no change - this is a debit
-      when :demand
-        amt = amt * -1 # this is a credit
-      when :redeem
-        # amt = amt * -1 # this is a credit
-        # no change - this is a debit
-        if bal = balance(speaker, payee) == 0
-          raise BadArgumentException.new, "#{payee} didn't owe you any beers to begin with."
-        end
-      end
-      
-      beer_transaction(speaker, payee, amt)
-
-      bal = balance(speaker, payee)
-      
-      # puts "post transaction balance = #{bal}"
-      if bal > 0
-        msg.speak("Okay, you now owe #{payee} #{bal} beers")
-      elsif bal < 0
-        msg.speak("Okay, #{payee} now owes you #{bal * -1} beers")
-      else
-        msg.speak("Okay, you and #{payee} are now even")
-      end
-      
-    rescue BadArgumentException => exception
-      msg.speak(exception.message)
-    end
-    
-  end
-  
-  
-  def beer_transaction(user1, user2, amount)
-    #beer_transaction user1, user2, 1 : user1 owes user2 a beer
-    #beer_transaction user1, user2, -1 : user1 demands a beer from user2 (user1 owes user2 -1 beers)
-    @balances = init()
-    # puts 'beer_transaction'
-    # p "beer_transaction start: #{@balances.inspect}"
-    # p "beer_transaction args: #{user1}, #{user2}, #{amount}"
-    user1 = user1.downcase.strip
-    user2 = user2.downcase.strip
-    
-    if !@balances.key?(user1)
-      @balances[user1] = {}
-    end
-    
-    if !@balances[user1].key?(user2)
-      @balances[user1][user2] = 0
-    end
-    
-    @balances[user1][user2] += amount
-    
-    # p "beer_transaction end: #{@balances.inspect}"
-    write
-    
-  end
-    
-  
-  
-  def balance(user1, user2)
-    # verb => user1 owes user2 #{balance} beers
-    # bal(user1, user2) = 1 # user1 is owed a beer from user2
-    # bal(user1, user2) = -1 # user1 is owed -1 beers from user 2 (meaning user2 owes user1)
-    
-    @balances = init()
-    
-    # puts "hash is #{hash}, @balances[#{hash}] = #{@balances[hash]}"
-    user1 = user1.downcase.strip
-    user2 = user2.downcase.strip
-    
-    if @balances.key?(user1) and @balances[user1].key?(user2)
-      bal1 = @balances[user1][user2]
-    else 
-      bal1 = 0
-    end
-    
-    if @balances.key?(user2) and @balances[user2].key?(user1)
-      bal2 = @balances[user2][user1]
-    else 
-      bal2 = 0
-    end
-    
-    bal = bal1 - bal2
-    
-    if (@balances.key?(user1) ? !@balances[user1].key?(user2) : true) and 
-      (@balances.key?(user2) ? !@balances[user2].key?(user1) : true)
-      raise BadArgumentException.new, "Sorry, you don't have any beer transactions with anyone named #{user2}"
-    end
-    
-    bal
-  end
-    
-  def get_hash(user_1, user_2)
-    user1 = user_1.downcase
-    user2 = user_2.downcase
-    
-    [user1,user2].sort.to_s
-    # if user1 < user2
-    #   "#{user1}#{user2}"
-    # else
-    #   "#{user2}#{user1}"
-    # end
-  end
-  
-  def init
-    # puts "entering init()"
-    YAML::load(File.read(File.join(BOT_ROOT, 'tmp', 'beer.yml')))
-  end
-  
-  def write
-    File.open(File.join(BOT_ROOT, 'tmp', 'beer.yml'), 'w') do |out|
-      YAML.dump(@balances, out)
-    end
-    
-  end
-    
-  def reload(msg)
-    @balances = init()
-    speak("ok, reloaded #{@balances.size} balances")
-  end
-
-end

data/plugins/beijing_tally.rb

@@ -1,30 +0,0 @@
-require 'open-uri'
-require 'hpricot'
-
-class BeijingTally < CampfireBot::Plugin
-  
-  on_command 'tally', :tally
-  
-  def tally(msg)
-    output    = "#{'Pos.'.rjust(6)} - #{'Country'.ljust(25)} -   G -   S -   B - Total\n"
-    rows      = ((Hpricot(open('http://results.beijing2008.cn/WRM/ENG/INF/GL/95A/GL0000000.shtml'))/'//table')[1]/'tr')[2..-1]
-    rows.each_with_index do |row, i|
-      cells   = row/'td'
-      output += "#{strip_tags_or_zero(cells[0].inner_html).rjust(6)} - " # position
-      output += "#{((i == rows.length - 1) ? '' : strip_tags_or_zero(cells[1].inner_html)).ljust(25)} - " # country
-      output += "#{strip_tags_or_zero(cells[-5].inner_html).rjust(3)} - " # gold
-      output += "#{strip_tags_or_zero(cells[-4].inner_html).rjust(3)} - " # silver
-      output += "#{strip_tags_or_zero(cells[-3].inner_html).rjust(3)} - " # bronze
-      output += "#{strip_tags_or_zero(cells[-2].inner_html).rjust(3)}\n"  # total
-    end
-    
-    msg.paste(output)
-  end
-  
-  private
-  
-  # Take away the HTML tags from the string and insert a '0' if it is empty
-  def strip_tags_or_zero(str)
-    (out = str.gsub(/<\/?[^>]*>/, "").strip).blank? ? '0' : out
-  end
-end

data/plugins/boop.rb

@@ -1,127 +0,0 @@
-# TODO
-#
-# - convert/filter out HTML entities like "
-# - add a callback to prime the chains when the bot is ready, and do this in a thread.
-
-class Boop < CampfireBot::Plugin
-  
-  # Markov chain implementation courtesy of http://blog.segment7.net/articles/2006/02/25/markov-chain
-  
-  on_message /.*/,                :listen
-  on_command 'speak',             :random_chatter
-  on_command 'prime_chains',      :load_transcripts
-  
-  def initialize
-    @phrases    = Hash.new { |hash, key| hash[key] = [] } # phrase => next-word possibilities
-    @word_count = 0
-  end
-
-  def listen(msg)
-    add_line(msg[:message])
-  end
-  
-  def random_chatter(msg)
-    puts "random_chatter"
-    msg.speak(generate_line)
-  end
-  
-  def focused_chatter(msg)
-    
-  end
-  
-  def load_transcripts(msg)
-    msg.speak("Filling my brain with transcripts...")
-    
-    puts "available transcripts - #{bot.room.available_transcripts.to_yaml}"
-    
-    bot.room.available_transcripts.to_a.each do |date|
-      puts "loading transcript #{date}"
-      
-      transcript = bot.room.transcript(date)
-      
-      transcript.each do |message|
-        puts "message: #{message[:message]}"
-        
-        filtered_text = strip_message(message)
-        
-        filtered_text.split("\n").each { |line| add_line(line) unless line.blank? }
-        filtered_text.split("\n").each { |line| puts "ACCEPTED: " + line unless line.blank? }
-        
-      end
-    end
-    
-    msg.speak("Primed!")
-  end
-  
-  private
-    
-  def add_line(line)
-    words        = line.scan(/\S+/)
-    @word_count += words.length
-    
-    words.each_with_index do |word, index|
-      phrase = words[index, phrase_length]             # current phrase
-      @phrases[phrase] << words[index + phrase_length] # next possibility
-    end
-  end
-  
-  def generate_line
-    # our seed phrase
-    # phrase = words[0, phrase_length]
-    phrase = [random_word]
-
-    output = []
-
-    @word_count.times do
-      # grab all possibilities for our state
-      options = @phrases[phrase]
-
-      # add the first word to our output and discard
-      output << phrase.shift
-
-      # select at random and add it to our phrase
-      phrase.push(options.rand)
-
-      # the last phrase of the input text will map to an empty array of
-      # possibilities so exit cleanly.
-      break if phrase.compact.empty? # all out of words
-    end
-
-    # return our output
-    output.join(' ')
-  end
-    
-  def random_word
-    @phrases.keys.rand.first
-  end
-  
-  # amount of state (order-k)
-  def phrase_length
-    1
-  end
-  
-  def strip_message(msg)
-    str = msg[:message].to_s
-    
-    return '' if str.blank?
-    
-    # return nothing if the line is a bot command
-    return '' if str[0..0] == '!' || str =~ Regexp.new("^#{bot.config['nickname']},", Regexp::IGNORECASE)
-    
-    # and get rid of the messages that are generated by the campfire system itself
-    return '' if str =~ /has (entered|left) the room/
-    
-    # keep the contents of the pastes, but strip out the 'view paste' link.
-    str.gsub!(/<a href=.*?>View paste<\/a>/, '')
-    
-    # also get rid of the stuff spoken by the bot
-    return '' if msg[:person] == bot.config['nickname']
-    
-    # now strip out all image tags completely
-    str.gsub!(/<img\s.*?\/>/, '')
-    
-    # and now strip out all other html tags, leaving their contents intact
-    str.gsub(/<\/?[^>]*>/, "")
-  end
-  
-end