kirby 4

data/CHANGELOG

@@ -0,0 +1,8 @@
+
+v4. Documentation; Rakefile. Shouldn't have bumped the version, but all right.
+
+v3. del.icio.us integration.
+
+v2. SVN rewrite.
+
+v1. Spawned.

data/LICENSE

@@ -0,0 +1,184 @@
+Academic Free License (AFL) v. 3.0
+
+This Academic Free License (the "License") applies to any original work
+of authorship (the "Original Work") whose owner (the "Licensor") has
+placed the following licensing notice adjacent to the copyright notice
+for the Original Work:
+
+Licensed under the Academic Free License version 3.0
+
+1) Grant of Copyright License. Licensor grants You a worldwide,
+royalty-free, non-exclusive, sublicensable license, for the duration of
+the copyright, to do the following:
+
+a) to reproduce the Original Work in copies, either alone or as part of
+a collective work;
+
+b) to translate, adapt, alter, transform, modify, or arrange the
+Original Work, thereby creating derivative works ("Derivative Works")
+based upon the Original Work;
+
+c) to distribute or communicate copies of the Original Work and
+Derivative Works to the public, under any license of your choice that
+does not contradict the terms and conditions, including Licensor's
+reserved rights and remedies, in this Academic Free License;
+
+d) to perform the Original Work publicly; and
+
+e) to display the Original Work publicly.
+
+2) Grant of Patent License. Licensor grants You a worldwide,
+royalty-free, non-exclusive, sublicensable license, under patent claims
+owned or controlled by the Licensor that are embodied in the Original
+Work as furnished by the Licensor, for the duration of the patents, to
+make, use, sell, offer for sale, have made, and import the Original Work
+and Derivative Works.
+
+3) Grant of Source Code License. The term "Source Code" means the
+preferred form of the Original Work for making modifications to it and
+all available documentation describing how to modify the Original Work.
+Licensor agrees to provide a machine-readable copy of the Source Code of
+the Original Work along with each copy of the Original Work that
+Licensor distributes. Licensor reserves the right to satisfy this
+obligation by placing a machine-readable copy of the Source Code in an
+information repository reasonably calculated to permit inexpensive and
+convenient access by You for as long as Licensor continues to distribute
+the Original Work.
+
+4) Exclusions From License Grant. Neither the names of Licensor, nor the
+names of any contributors to the Original Work, nor any of their
+trademarks or service marks, may be used to endorse or promote products
+derived from this Original Work without express prior permission of the
+Licensor. Except as expressly stated herein, nothing in this License
+grants any license to Licensor's trademarks, copyrights, patents, trade
+secrets or any other intellectual property. No patent license is granted
+to make, use, sell, offer for sale, have made, or import embodiments of
+any patent claims other than the licensed claims defined in Section 2.
+No license is granted to the trademarks of Licensor even if such marks
+are included in the Original Work. Nothing in this License shall be
+interpreted to prohibit Licensor from licensing under terms different
+from this License any Original Work that Licensor otherwise would have a
+right to license.
+
+5) External Deployment. The term "External Deployment" means the use,
+distribution, or communication of the Original Work or Derivative Works
+in any way such that the Original Work or Derivative Works may be used
+by anyone other than You, whether those works are distributed or
+communicated to those persons or made available as an application
+intended for use over a network. As an express condition for the grants
+of license hereunder, You must treat any External Deployment by You of
+the Original Work or a Derivative Work as a distribution under section
+1(c).
+
+6) Attribution Rights. You must retain, in the Source Code of any
+Derivative Works that You create, all copyright, patent, or trademark
+notices from the Source Code of the Original Work, as well as any
+notices of licensing and any descriptive text identified therein as an
+"Attribution Notice." You must cause the Source Code for any Derivative
+Works that You create to carry a prominent Attribution Notice reasonably
+calculated to inform recipients that You have modified the Original
+Work.
+
+7) Warranty of Provenance and Disclaimer of Warranty. Licensor warrants
+that the copyright in and to the Original Work and the patent rights
+granted herein by Licensor are owned by the Licensor or are sublicensed
+to You under the terms of this License with the permission of the
+contributor(s) of those copyrights and patent rights. Except as
+expressly stated in the immediately preceding sentence, the Original
+Work is provided under this License on an "AS IS" BASIS and WITHOUT
+WARRANTY, either express or implied, including, without limitation, the
+warranties of non-infringement, merchantability or fitness for a
+particular purpose. THE ENTIRE RISK AS TO THE QUALITY OF THE ORIGINAL
+WORK IS WITH YOU. This DISCLAIMER OF WARRANTY constitutes an essential
+part of this License. No license to the Original Work is granted by this
+License except under this disclaimer.
+
+8) Limitation of Liability. Under no circumstances and under no legal
+theory, whether in tort (including negligence), contract, or otherwise,
+shall the Licensor be liable to anyone for any indirect, special,
+incidental, or consequential damages of any character arising as a
+result of this License or the use of the Original Work including,
+without limitation, damages for loss of goodwill, work stoppage,
+computer failure or malfunction, or any and all other commercial damages
+or losses. This limitation of liability shall not apply to the extent
+applicable law prohibits such limitation.
+
+9) Acceptance and Termination. If, at any time, You expressly assented
+to this License, that assent indicates your clear and irrevocable
+acceptance of this License and all of its terms and conditions. If You
+distribute or communicate copies of the Original Work or a Derivative
+Work, You must make a reasonable effort under the circumstances to
+obtain the express assent of recipients to the terms of this License.
+This License conditions your rights to undertake the activities listed
+in Section 1, including your right to create Derivative Works based upon
+the Original Work, and doing so without honoring these terms and
+conditions is prohibited by copyright law and international treaty.
+Nothing in this License is intended to affect copyright exceptions and
+limitations (including "fair use" or "fair dealing"). This License shall
+terminate immediately and You may no longer exercise any of the rights
+granted to You by this License upon your failure to honor the conditions
+in Section 1(c).
+
+10) Termination for Patent Action. This License shall terminate
+automatically and You may no longer exercise any of the rights granted
+to You by this License as of the date You commence an action, including
+a cross-claim or counterclaim, against Licensor or any licensee alleging
+that the Original Work infringes a patent. This termination provision
+shall not apply for an action alleging patent infringement by
+combinations of the Original Work with other software or hardware.
+
+11) Jurisdiction, Venue and Governing Law. Any action or suit relating
+to this License may be brought only in the courts of a jurisdiction
+wherein the Licensor resides or in which Licensor conducts its primary
+business, and under the laws of that jurisdiction excluding its
+conflict-of-law provisions. The application of the United Nations
+Convention on Contracts for the International Sale of Goods is expressly
+excluded. Any use of the Original Work outside the scope of this License
+or after its termination shall be subject to the requirements and
+penalties of copyright or patent law in the appropriate jurisdiction.
+This section shall survive the termination of this License.
+
+12) Attorneys' Fees. In any action to enforce the terms of this License
+or seeking damages relating thereto, the prevailing party shall be
+entitled to recover its costs and expenses, including, without
+limitation, reasonable attorneys' fees and costs incurred in connection
+with such action, including any appeal of such action. This section
+shall survive the termination of this License.
+
+13) Miscellaneous. If any provision of this License is held to be
+unenforceable, such provision shall be reformed only to the extent
+necessary to make it enforceable.
+
+14) Definition of "You" in This License. "You" throughout this License,
+whether in upper or lower case, means an individual or a legal entity
+exercising rights under, and complying with all of the terms of, this
+License. For legal entities, "You" includes any entity that controls, is
+controlled by, or is under common control with you. For purposes of this
+definition, "control" means (i) the power, direct or indirect, to cause
+the direction or management of such entity, whether by contract or
+otherwise, or (ii) ownership of fifty percent (50%) or more of the
+outstanding shares, or (iii) beneficial ownership of such entity.
+
+15) Right to Use. You may use the Original Work in all ways not
+otherwise restricted or conditioned by this License or by law, and
+Licensor promises not to interfere with or be responsible for such uses
+by You.
+
+16) Modification of This License. This License is Copyright (c) 2005
+Lawrence Rosen. Permission is granted to copy, distribute, or
+communicate this License without modification. Nothing in this License
+permits You to modify this License as applied to the Original Work or to
+Derivative Works. However, You may modify the text of this License and
+copy, distribute or communicate your modified version (the "Modified
+License") and apply it to other original works of authorship subject to
+the following conditions: (i) You may not indicate in any way that your
+Modified License is the "Academic Free License" or "AFL" and you may not
+use those names in the name of your Modified License; (ii) You must
+replace the notice specified in the first paragraph above with the
+notice "Licensed under <insert your license name here>" or with a notice
+of your own that is not confusingly similar to the notice in this
+License; and (iii) You may not claim that your original works are open
+source software unless your Modified License has been approved by Open
+Source Initiative (OSI) and You comply with its license review and
+certification process.
+

data/README

@@ -0,0 +1,44 @@
+
+Kirby
+
+A super-clean IRC bot.
+
+== License
+
+Copyright 2007 Cloudburst, LLC. See included LICENSE file.
+
+== Features
+
+* <tt>irb</tt>-like interface
+* safe, sandboxed Ruby environment
+* svn repository commit watching
+* silent del.icio.us link saving
+* tolerable channel fault recovery
+
+Kirby is considered feature-locked. 
+
+== Installation
+
+  sudo gem install kirby
+
+== Usage
+
+Run <tt>kirby [nick] [channel] [server] [delicious_name] [delicious_password]</tt>. 
+
+Optional parameters:
+<tt>-d</tt>:: Daemonize.
+<tt>-no-d</tt>:: Don't daemonize.
+<tt>--silent</tt>:: Never speak, even for errors.
+
+See the Kirby class for commands.
+
+== Crontab example
+
+You can use a crontask to keep Kirby alive at all times.
+
+  * * * * * /path/to/kirby [options...] > /dev/null 2>&1 
+
+== Further resources
+
+* http://blog.evanweaver.com/pages/code#kirby
+* http://rubyforge.org/forum/forum.php?forum_id=13984

data/bin/kirby

@@ -0,0 +1,22 @@
+#!/usr/bin/env ruby
+
+=begin rdoc
+Run <tt>kirby [nick] [channel] [server] [delicious_name] [delicious_password]</tt>. 
+
+Optional parameters:
+<tt>-d</tt>:: Daemonize.
+<tt>-no-d</tt>:: Don't daemonize.
+<tt>--silent</tt>:: Never speak, even for errors.
+=end
+
+require 'rubygems'
+require 'kirby'
+
+pid = open(Kirby::PIDFILE).gets.chomp rescue nil
+
+if !pid or `ps #{pid}`.split("\n").size < 2
+  puts "Starting"
+  Daemons.daemonize if ARGV[0] == '-d'  #:ontop => true
+  open(Kirby::PIDFILE, 'w') {|f| f.puts $$}
+  Kirby.instance.restart
+end

data/kirby.gemspec

@@ -0,0 +1,45 @@
+
+# Gem::Specification for Kirby-4
+# Originally generated by Echoe
+
+Gem::Specification.new do |s|
+  s.name = %q{kirby}
+  s.version = "4"
+  s.date = %q{2007-08-12}
+  s.summary = %q{A super-clean IRC bot with sandboxed Ruby evaluation, svn watching, and link-logging to del.icio.us.}
+  s.email = %q{}
+  s.homepage = %q{http://blog.evanweaver.com/pages/code#kirby}
+  s.rubyforge_project = %q{fauna}
+  s.description = %q{A super-clean IRC bot with sandboxed Ruby evaluation, svn watching, and link-logging to del.icio.us.}
+  s.default_executable = %q{kirby}
+  s.has_rdoc = true
+  s.authors = [""]
+  s.files = ["lib/kirby.rb", "bin/kirby", "README", "LICENSE", "CHANGELOG", "kirby.gemspec"]
+  s.executables = ["kirby"]
+  s.add_dependency(%q<hpricot>, ["> 0.0.0"])
+  s.add_dependency(%q<daemons>, ["> 0.0.0"])
+end
+
+
+# # Original Rakefile source (requires the Echoe gem):
+# 
+# 
+# require 'rubygems'
+# require 'echoe'
+# 
+# Echoe.new("kirby", `cat CHANGELOG`[/^v([\d\.]+)\. /, 1]) do |p|
+#   
+#   p.name = "kirby"
+#   p.rubyforge_name = "fauna"
+#   p.description = p.summary = "A super-clean IRC bot with sandboxed Ruby evaluation, svn watching, and link-logging to del.icio.us."
+#   p.url = "http://blog.evanweaver.com/pages/code#kirby"
+#   p.docs_host = "blog.evanweaver.com:~/www/snax/public/files/doc/"
+#   p.changes = `cat CHANGELOG`[/^v([\d\.]+\. .*)/, 1]
+# 
+#   p.extra_deps = ["hpricot", "daemons"]  
+#   p.need_tar = false
+#   p.need_tar_gz = true  
+#   
+#   p.rdoc_pattern = /bin|lib|README|CHANGELOG|LICENSE/
+#     
+# end

data/lib/kirby.rb

@@ -0,0 +1,125 @@
+%w[open3 daemons socket singleton open-uri cgi pathname hpricot yaml net/https].map{|s| require s}
+
+=begin rdoc
+In-channel commands:
+<tt>>> [string of code]</tt>:: Evaluate some Ruby code.
+<tt>reset_irb</tt>:: Reset the <tt>irb</tt> session.
+<tt>add_svn [repository_url]</tt>:: Watch an svn repository for changes.
+=end
+
+class Kirby
+  include Singleton
+
+  PATH = Pathname.new(".").dirname.realpath.to_s
+  STORE = PATH + '/kirby.repositories'
+  PIDFILE = PATH + '/kirby.pid'
+  
+  NICK = (ARGV[1] or "kirby-dev")
+  CHANNEL = ("#" + (ARGV[2] or "kirby-dev"))
+  SERVER = (ARGV[3] or "irc.freenode.org")
+  DELICIOUS_USER, DELICIOUS_PASS = ARGV[4], ARGV[5]
+  SILENT = ARGV[6] == "--silent"
+  
+  # Connect and reconnect to the server  
+  def restart
+    $store = (YAML.load_file STORE rescue {})
+    @socket.close if @socket
+    connect
+    listen
+  end
+  
+  # Connect to the IRC server.
+  def connect
+    @socket = TCPSocket.new(SERVER, 6667)
+    write "USER #{[NICK]*3*" "} :#{NICK}"
+    write "NICK #{NICK}"
+    write "JOIN #{CHANNEL}"
+  end
+  
+  # The event loop. Waits for socket traffic, and then responds to it. The server sends <tt>PING</tt> every 3 minutes, which means we don't need a separate thread to check for svn updates. All we do is wake on ping (or channel talking).
+  def listen
+    @socket.each do |line|
+#      puts "GOT: #{line.inspect}"
+      poll unless SILENT
+      case line.strip
+        when /^PING/ then write line.sub("PING", "PONG")[0..-3]
+        when /^ERROR/, /KICK #{CHANNEL} #{NICK} / then restart unless line =~ /PRIVMSG/
+        else 
+          if msg = line[/ PRIVMSG #{CHANNEL} \:(.+)/, 1]
+            case msg
+              when /^>>\s*(.+)/ then try $1.chop
+              when /^#{NICK}/ then say "Usage: '>> CODE'. Say 'reset_irb' for a clean session. Say 'add_svn [repository_url]' to watch an svn repository."
+              when /^reset_irb/ then reset_irb
+              when /^add_svn (.+?)(\s|\r|\n|$)/ then $store[$1] = 0 and say $store.inspect
+            end unless SILENT
+            post($1) if DELICIOUS_PASS and msg =~ /(http:\/\/.*?)(\s|\r|\n|$)/ 
+          end
+      end
+    end
+  end
+  
+  # Send a raw string to the server.
+  def write s
+    raise RuntimeError, "No socket" unless @socket
+    @socket.puts s += "\r\n"
+#    puts "WROTE: #{s.inspect}"
+  end
+  
+  # Eval a piece of code in the <tt>irb</tt> environment.
+  def try s
+    reset_irb unless $session
+    try_eval(s).select{|e| e !~ /^\s+from .+\:\d+(\:|$)/}.each {|e| say e} rescue say "session error"
+  end
+  
+  # Say something in the channel.
+  def say s
+    write "PRIVMSG #{CHANNEL} :#{s[0..450]}"
+    sleep 1
+  end
+    
+  # Get a new <tt>irb</tt> session.
+  def reset_irb
+    say "Began new irb session"
+    $session = try_eval("!INIT!IRB!")
+  end
+  
+  # Inner loop of the try method.
+  def try_eval s
+    reset_irb and return [] if s.strip == "exit"
+    result = open("http://tryruby.hobix.com/irb?cmd=#{CGI.escape(s)}", 
+            {'Cookie' => "_session_id=#{$session}"}).read
+    result[/^Your session has been closed/] ? (reset_irb and try_eval s) : result.split("\n")
+  end
+  
+  # Look for svn changes.
+  def poll
+    return unless (Time.now - $last_poll > 15 rescue true)
+    $last_poll = Time.now    
+    $store.each do |repo, last|
+      (Hpricot(`svn log #{repo} -rHEAD:#{last} --limit 10 --xml`)/:logentry).reverse[1..-1].each do |ci|
+        $store[repo] = rev = ci.attributes['revision'].to_i
+        say "Commit #{rev} to #{repo.split("/").last} by #{(ci/:author).text}: #{(ci/:msg).text}"
+      end rescue nil
+    end
+    File.open(STORE, 'w') {|f| f.puts YAML.dump($store)}
+  end
+  
+  # Post a url to the del.icio.us account.
+  def post url
+    query = {:url => url,
+      :description => (((Hpricot(open(url))/:title).first.innerHTML or url) rescue url),
+      :tags => (Hpricot(open("http://del.icio.us/url/check?url=#{CGI.escape(url)}"))/'.alphacloud'/:a).map{|s| s.innerHTML}.join(" "),
+      :replace => 'yes' }
+    begin
+      http = Net::HTTP.new('api.del.icio.us', 443)         
+      http.use_ssl = true      
+      http.start do |http|
+        req = Net::HTTP::Get.new('/v1/posts/add?' + query.map{|k,v| "#{k}=#{CGI.escape(v)}"}.join('&'))
+        req.basic_auth DELICIOUS_USER, DELICIOUS_PASS
+        http.request(req)
+      end.body
+    end
+  end
+  
+end
+

metadata

@@ -0,0 +1,68 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.4
+specification_version: 1
+name: kirby
+version: !ruby/object:Gem::Version 
+  version: "4"
+date: 2007-08-12 00:00:00 -04:00
+summary: A super-clean IRC bot with sandboxed Ruby evaluation, svn watching, and link-logging to del.icio.us.
+require_paths: 
+- lib
+email: ""
+homepage: http://blog.evanweaver.com/pages/code#kirby
+rubyforge_project: fauna
+description: A super-clean IRC bot with sandboxed Ruby evaluation, svn watching, and link-logging to del.icio.us.
+autorequire: 
+default_executable: 
+bindir: bin
+has_rdoc: true
+required_ruby_version: !ruby/object:Gem::Version::Requirement 
+  requirements: 
+  - - ">"
+    - !ruby/object:Gem::Version 
+      version: 0.0.0
+  version: 
+platform: ruby
+signing_key: 
+cert_chain: 
+post_install_message: 
+authors: 
+- ""
+files: 
+- lib/kirby.rb
+- bin/kirby
+- README
+- LICENSE
+- CHANGELOG
+- kirby.gemspec
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: 
+- kirby
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: hpricot
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: daemons
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">"
+      - !ruby/object:Gem::Version 
+        version: 0.0.0
+    version: