tumblr 0.0.1

data/a.rb

@@ -0,0 +1,12 @@
+require 'tumblr'
+
+name, email, password, *ignored = ARGV
+
+tumblr = Tumblr.for :name => name, 
+                    :email => email, 
+                    :password => password
+
+[:authenticate, :check_vimeo, :check_audio].each do |m|
+  response = tumblr.send m
+  p response
+end

data/bin/tumblr

@@ -0,0 +1,181 @@
+#! /usr/bin/env ruby
+
+require "tumblr"
+
+Main {
+  description <<-txt
+    tumblr.rb is a command line utility and library which interfaces to the
+    excellent tumblr blogging platform @ http://www.tumblr.com
+
+    tumblr.rb implements the complete restful api in both library and
+    command line utility, doccumented in full @ http://www.tumblr.com/api
+
+    === install ===
+
+      gem install tumblr
+
+    === cli ===
+
+      the cli exactly mirrors the library api.  arguments are passed to each
+      method as 'key=val' pairs, values may be read from files using the
+      syntax 'key=file=val' or 'key==val'
+
+      you should first cache your login info to avoid having to pass it everytime
+
+        cfp: ~> tumblr setup --email=my_email --password=my_password --name=drawohara
+        /Users/ahoward/.tumblr.yml
+
+      you can post
+
+        cfp: ~> tumblr write regular title=testing body=rock_on
+
+      you can post from files
+
+        cfp: ~> tumblr write regular title=slurp body==./post.html
+
+      you can read
+
+        cfp: ~> tumblr read start=42 num=42 
+
+      you can test the auth
+
+        cfp: ~> tumblr authenticate
+
+      etc.
+
+    === api ===
+
+      it's pretty simple.  here's a start, use the web docs to figure out the
+      rest
+
+        config = {
+          :email => my_email,
+          :password => my_password,
+          :name => 'drawohara'
+        }
+
+        tumblr = Tumblr.for config
+
+        abort unless tumblr.uri == 'http://drawohara.tumblr.com'
+
+        response = tumblr.write :regular, :title = title, :body => body
+    
+        video = open 'video.mpg'
+        response = tumblr.write :video, :data => video, :title => video.path 
+
+        response = tumblr.read :start => 42, :num => 42
+        xml = response.content
+
+        response = tumblr.read :start => 42, :num => 42, :json => true
+        json = response.content
+  txt
+
+  alias_method "run", "help!"
+
+  option("name", "n"){ argument_required }
+  option("email", "e"){ argument_required }
+  option("password", "p"){ argument_required }
+  option("debug", "d"){ }
+  option("json", "j"){ }
+
+  def home
+    ENV["HOME"] || ENV["HOMEPATH"] || File::expand_path("~")
+  end
+
+  def configfile
+    File.join home, ".tumblr.yml"
+  end
+
+  def parse_args
+    hash = { 'json' => params['json'].value }
+    argv.inject hash do |args, arg|
+      k, v = arg.split %r/=/, 2
+      if v[%r/^(?:file|path)?=/]
+        file, v = v.split %r/=/, 2
+        v = v == '-' ? STDIN.read : IO.read(v)
+      end
+      v ||= true
+      args.update k => v
+    end
+  end
+
+  def config
+    @config ||= (
+      h = test(?e, configfile) ? YAML.load(IO.read(configfile)) : Hash.new
+      %w[ name email password ].each do |k|
+        h[k] = params[k].value if params[k].given?
+      end
+      h['debug'] = STDERR if params["debug"].given?
+      h
+    )
+  end
+
+  def tumblr 
+    Tumblr.for config
+  end
+
+  def handle response
+    unless Tumblr.successful?(response)
+      STDERR.puts response.status
+      STDOUT.puts response.content
+      exit 1 
+    else
+      STDOUT.puts response.content
+    end
+  end
+
+  mode "setup" do
+    option("name", "n"){ argument_required and required }
+    option("email", "e"){ argument_required and required }
+    option("password", "p"){ argument_required and required }
+
+    def run
+      keys = %w[ name email password ]
+      conf = keys.inject({}) do |h,k|
+        raise "#{ k } not given" unless params[k].given?
+        h.update k => params[k].value
+      end
+      open(configfile, "w"){|fd| fd.write conf.to_yaml}
+      tumblr.authenticate
+      puts configfile
+    end
+  end
+
+  mode "write" do
+    def run
+      handle tumblr.write(mode, parse_args)
+    end
+
+    mode "regular"
+    mode "photo"
+    mode "quote"
+    mode "link"
+    mode "conversation"
+    mode "video"
+    mode "audio"
+  end
+
+  mode "read" do
+    def run
+      handle tumblr.read(mode, parse_args)
+    end
+  end
+
+  mode "authenticate" do
+    def run
+      handle tumblr.authenticate
+    end
+  end
+
+  mode "check-vimeo" do
+    def run
+      handle tumblr.check_vimeo
+    end
+  end
+
+  mode "check-audio" do
+    def run
+      handle tumblr.check_audio
+    end
+  end
+}

data/gemspec.rb

@@ -0,0 +1,36 @@
+lib, version = File::basename(File::dirname(File::expand_path(__FILE__))).split %r/-/, 2
+
+require 'rubygems'
+
+Gem::Specification::new do |spec|
+  $VERBOSE = nil
+
+  shiteless = lambda do |list|
+    list.delete_if do |file|
+      file =~ %r/\.svn/ or file =~ %r/\.tmp/
+    end
+  end
+
+  spec.name = lib 
+  spec.version = version 
+  spec.platform = Gem::Platform::RUBY
+  spec.summary = lib 
+
+  spec.files = shiteless[Dir::glob("**/**")]
+  spec.executables = shiteless[Dir::glob("bin/*")].map{|exe| File::basename exe}
+  
+  spec.require_path = "lib" 
+  spec.autorequire = lib
+
+  spec.has_rdoc = File::exist? "doc" 
+  spec.test_suite_file = "test/#{ lib }.rb" if File::directory? "test"
+  spec.add_dependency 'main', '>= 2.5.0'
+  spec.add_dependency 'attributes', '>= 4.1.0'
+  spec.add_dependency 'httpclient', '>= 2.1.2' # rock on NaHi
+
+  spec.extensions << "extconf.rb" if File::exists? "extconf.rb"
+
+  spec.author = "Ara T. Howard"
+  spec.email = "ara.t.howard@gmail.com"
+  spec.homepage = "http://codeforpeople.com/lib/ruby/#{ lib }/"
+end

data/install.rb

@@ -0,0 +1,212 @@
+#!/usr/bin/env ruby
+require 'rbconfig'
+require 'find'
+require 'ftools'
+require 'tempfile'
+include Config
+
+LIBDIR      = "lib"
+LIBDIR_MODE = 0644
+
+BINDIR      = "bin"
+BINDIR_MODE = 0755
+
+
+$srcdir            = CONFIG["srcdir"]
+$version           = CONFIG["MAJOR"]+"."+CONFIG["MINOR"]
+$libdir            = File.join(CONFIG["libdir"], "ruby", $version)
+$archdir           = File.join($libdir, CONFIG["arch"])
+$site_libdir       = $:.find {|x| x =~ /site_ruby$/}
+$bindir            = CONFIG["bindir"] || CONFIG['BINDIR']
+$ruby_install_name = CONFIG['ruby_install_name'] || CONFIG['RUBY_INSTALL_NAME'] || 'ruby'
+$ruby_ext          = CONFIG['EXEEXT'] || ''
+$ruby              = File.join($bindir, ($ruby_install_name + $ruby_ext))
+
+if !$site_libdir
+  $site_libdir = File.join($libdir, "site_ruby")
+elsif $site_libdir !~ %r/#{Regexp.quote($version)}/
+  $site_libdir = File.join($site_libdir, $version)
+end
+
+def install_rb(srcdir=nil, destdir=nil, mode=nil, bin=nil)
+#{{{
+  path   = []
+  dir    = []
+  Find.find(srcdir) do |f|
+    next unless FileTest.file?(f)
+    next if (f = f[srcdir.length+1..-1]) == nil
+    next if (/CVS$/ =~ File.dirname(f))
+    next if f =~ %r/\.lnk/
+    next if f =~ %r/\.svn/
+    next if f =~ %r/\.swp/
+    path.push f
+    dir |= [File.dirname(f)]
+  end
+  for f in dir
+    next if f == "."
+    next if f == "CVS"
+    File::makedirs(File.join(destdir, f))
+  end
+  for f in path
+    next if (/\~$/ =~ f)
+    next if (/^\./ =~ File.basename(f))
+    unless bin
+      File::install(File.join(srcdir, f), File.join(destdir, f), mode, true)
+    else
+      from = File.join(srcdir, f)
+      to = File.join(destdir, f)
+      shebangify(from) do |sf|
+        $deferr.print from, " -> ", File::catname(from, to), "\n"
+        $deferr.printf "chmod %04o %s\n", mode, to 
+        File::install(sf, to, mode, false)
+      end
+    end
+  end
+#}}}
+end
+def shebangify f
+#{{{
+  open(f) do |fd|
+    buf = fd.read 42 
+    if buf =~ %r/^\s*#\s*!.*ruby/o
+      ftmp = Tempfile::new("#{ $$ }_#{ File::basename(f) }")
+      begin
+        fd.rewind
+        ftmp.puts "#!#{ $ruby  }"
+        while((buf = fd.read(8192)))
+          ftmp.write buf
+        end
+        ftmp.close
+        yield ftmp.path
+      ensure
+        ftmp.close!
+      end
+    else
+      yield f
+    end
+  end
+#}}}
+end
+def ARGV.switch
+#{{{
+  return nil if self.empty?
+  arg = self.shift
+  return nil if arg == '--'
+  if arg =~ /^-(.)(.*)/
+    return arg if $1 == '-'
+    raise 'unknown switch "-"' if $2.index('-')
+    self.unshift "-#{$2}" if $2.size > 0
+    "-#{$1}"
+  else
+    self.unshift arg
+    nil
+  end
+#}}}
+end
+def ARGV.req_arg
+#{{{
+  self.shift || raise('missing argument')
+#}}}
+end
+def linkify d, linked = []
+#--{{{
+  if test ?d, d
+    versioned = Dir[ File::join(d, "*-[0-9].[0-9].[0-9].rb") ]
+    versioned.each do |v| 
+      src, dst = v, v.gsub(%r/\-[\d\.]+\.rb$/, '.rb')
+      lnk = nil
+      begin
+        if test ?l, dst
+          lnk = "#{ dst }.lnk"
+          puts "#{ dst } -> #{ lnk }"
+          File::rename dst, lnk
+        end
+        unless test ?e, dst
+          puts "#{ src } -> #{ dst }"
+          File::copy src, dst 
+          linked << dst
+        end
+      ensure
+        if lnk
+          at_exit do
+            puts "#{ lnk } -> #{ dst }"
+            File::rename lnk, dst
+          end
+        end
+      end
+    end
+  end
+  linked
+#--}}}
+end
+
+
+#
+# main program
+#
+
+libdir = $site_libdir
+bindir = $bindir
+no_linkify = false
+linked = nil
+help = false
+
+usage = <<-usage
+  #{ File::basename $0 }
+    -d, --destdir    <destdir>
+    -l, --libdir     <libdir>
+    -b, --bindir     <bindir>
+    -r, --ruby       <ruby>
+    -n, --no_linkify
+    -s, --sudo
+    -h, --help
+usage
+
+begin
+  while switch = ARGV.switch
+    case switch
+    when '-d', '--destdir'
+      libdir = ARGV.req_arg
+    when '-l', '--libdir'
+      libdir = ARGV.req_arg
+    when '-b', '--bindir'
+      bindir = ARGV.req_arg
+    when '-r', '--ruby'
+      $ruby = ARGV.req_arg
+    when '-n', '--no_linkify'
+      no_linkify = true
+    when '-s', '--sudo'
+      sudo = 'sudo' 
+    when '-h', '--help'
+      help = true
+    else
+      raise "unknown switch #{switch.dump}"
+    end
+  end
+rescue
+  STDERR.puts $!.to_s
+  STDERR.puts usage
+  exit 1
+end    
+
+if help
+  STDOUT.puts usage
+  exit
+end
+
+system "#{ sudo } #{ $ruby } pre-install.rb" if test(?s, 'pre-install.rb')
+
+unless no_linkify
+  linked = linkify('lib') + linkify('bin')
+end
+
+system "#{ $ruby } extconf.rb && make && #{ sudo } make install" if test(?s, 'extconf.rb')
+
+install_rb(LIBDIR, libdir, LIBDIR_MODE)
+install_rb(BINDIR, bindir, BINDIR_MODE, bin=true)
+
+if linked
+  linked.each{|path| File::rm_f path}
+end
+
+system "#{ sudo } #{ $ruby } post-install.rb" if test(?s, 'post-install.rb')

data/lib/tumblr.rb

@@ -0,0 +1,142 @@
+#
+# gems
+#
+  begin
+    gem "main", ">= 2.5.0"
+    gem "attributes", ">= 4.1.0"
+    gem "httpclient", ">= 2.1.2"
+  rescue Exception
+    42
+  end
+  require "main"
+  require "attributes"
+  require "httpclient"
+#
+# built-in
+#
+  require "uri"
+  require "yaml"
+#
+# tumblr.rb
+#
+  module Tumblr
+    def self.for *a, &b
+      Account.new *a, &b
+    end
+
+    class Account
+      attribute "name"
+      attribute "email"
+      attribute "password"
+      attribute "debug"
+      attribute("uri"){ "http://#{ name }.tumblr.com" }
+      attribute("generator"){ "tumblr.rb" }
+      attribute("proxy"){ ENV["HTTP_PROXY"] }
+      attribute("httpclient"){ HTTPClient.new proxy }
+      attribute("api"){ API.new "account" => account }
+      attribute("account"){ self }
+
+      def initialize options = {}
+        options.each{|k,v| send k, v}
+        httpclient.debug_dev = debug if debug?
+      end
+
+      def options
+        {
+          'email' => email,
+          'password' => password,
+          'generator' => generator,
+        }
+      end
+
+      def method_missing m, *a, &b
+        super unless api.respond_to? m
+        api.send m, *a, &b
+      end
+    end
+
+    class API 
+      attribute "account"
+      attribute("uri"){ "#{ account.uri }/api" }
+      attribute("uri_write"){ "#{ uri }/write" }
+      attribute("uri_read"){ "#{ uri }/read" }
+      attribute("uri_read_json"){ "#{ uri }/read/json" }
+
+      def initialize options = {}
+        options.each{|k,v| send k, v}
+      end
+
+      def write type, options = {}
+        json = options.delete('json') || options.delete(:json)
+        uri = uri_write
+        post uri, options.merge(account.options).merge('type' => type)
+      end
+
+      def read type, options = {}
+        json = options.delete('json') || options.delete(:json)
+        uri = json ? uri_read_json : uri_read
+        get uri, options.merge(account.options)
+      end
+
+      def authenticate options = {}
+        post uri_write, 
+             options.merge(account.options).merge('action' => 'authenticate')
+      end
+
+      def check_vimeo options = {}
+        post uri_write, 
+             options.merge(account.options).merge('action' => 'check-vimeo')
+      end
+
+      def check_audio options = {}
+        post uri_write, 
+             options.merge(account.options).merge('action' => 'check-audio')
+      end
+
+      def post uri, options = {}
+        following_redirects(uri, options) do |uri, options|
+          account.httpclient.post uri, options, "content-type" => boundary
+        end
+      end
+
+      def get uri, options = {}
+        following_redirects(uri, options) do |uri, options|
+          account.httpclient.get uri, options
+        end
+      end
+
+      def boundary
+        random = Array::new(8){ "%2.2d" % rand(42) }.join("__")
+        "multipart/form-data; boundary=___#{ random }___"
+      end
+
+      def following_redirects uri, options = {} 
+        42.times do
+          res = yield uri, options
+          if HTTP::Status.successful?(res.status)
+            return res
+          elsif HTTP::Status.redirect?(res.status)
+            uri = handle_redirect uri, res
+          else
+            return res
+          end
+        end
+        raise "followed too damn many redirects!"
+      end
+
+      def handle_redirect uri, res
+        newuri = URI.parse res.header['location'][0]
+        newuri = uri + newuri unless newuri.is_a?(URI::HTTP)
+        newuri
+      end
+
+      def self.successful? res
+        HTTP::Status.successful? res.status
+      end
+    end
+
+    def self.successful? status 
+      status = status.status rescue status 
+      HTTP::Status.successful? status
+    end
+  end

metadata

@@ -0,0 +1,78 @@
+--- !ruby/object:Gem::Specification 
+rubygems_version: 0.9.2
+specification_version: 1
+name: tumblr
+version: !ruby/object:Gem::Version 
+  version: 0.0.1
+date: 2007-11-02 00:00:00 -06:00
+summary: tumblr
+require_paths: 
+- lib
+email: ara.t.howard@gmail.com
+homepage: http://codeforpeople.com/lib/ruby/tumblr/
+rubyforge_project: 
+description: 
+autorequire: tumblr
+default_executable: 
+bindir: bin
+has_rdoc: false
+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: 
+- Ara T. Howard
+files: 
+- a.rb
+- bin
+- bin/tumblr
+- gemspec.rb
+- install.rb
+- lib
+- lib/tumblr.rb
+test_files: []
+
+rdoc_options: []
+
+extra_rdoc_files: []
+
+executables: 
+- tumblr
+extensions: []
+
+requirements: []
+
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: main
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.5.0
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: attributes
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 4.1.0
+    version: 
+- !ruby/object:Gem::Dependency 
+  name: httpclient
+  version_requirement: 
+  version_requirements: !ruby/object:Gem::Version::Requirement 
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        version: 2.1.2
+    version: