caleb-shorturl 0.8.7 → 0.8.9

data/examples/shorten.rb

@@ -0,0 +1,27 @@
+require "rubygems"
+require "shorturl"
+
+
+def usage
+  puts "Usage: #$0 <url> [<service>]"
+  puts "Valid services:"
+  ShortURL.valid_services.map { |s| s.to_s }.sort.each { |s| puts "\t#{s}" }
+end
+
+def main
+  begin
+    case ARGV.length
+    when 0: usage
+    when 1: puts ShortURL.shorten(ARGV[0])
+    else puts ShortURL.shorten(ARGV[0], ARGV[1].to_sym)
+    end
+  rescue InvalidService
+    puts "Invalid service"
+    usage
+  end
+end
+
+
+if $0 == __FILE__
+  main
+end

data/lib/shorturl.rb

@@ -0,0 +1,217 @@
+# shorturl.rb
+#
+#   Created by Vincent Foley on 2005-06-02
+#
+
+require "net/http"
+require "cgi"
+require "uri"
+
+class InvalidService < Exception
+end
+
+class Service
+  attr_accessor :port, :code, :method, :action, :field, :block
+
+  # Intialize the service with a hostname (required parameter) and you
+  # can override the default values for the HTTP port, expected HTTP
+  # return code, the form method to use, the form action, the form
+  # field which contains the long URL, and the block of what to do
+  # with the HTML code you get.
+  def initialize(hostname) # :yield: service
+    @hostname = hostname
+    @port = 80
+    @code = 200
+    @method = :post
+    @action = "/"
+    @field = "url"
+    @block = lambda { |body| }
+
+    if block_given?
+      yield self
+    end
+  end
+
+  # Now that our service is set up, call it with all the parameters to
+  # (hopefully) return only the shortened URL.
+  def call(url)
+    Net::HTTP.start(@hostname, @port) { |http|
+      response = case @method
+                 when :post then http.post(@action, "#{@field}=#{url}")
+                 when :get then http.get("#{@action}?#{@field}=#{CGI.escape(url)}")
+                 end
+      if response.code == @code.to_s
+        @block.call(response.read_body)
+      end
+    }
+  end
+end
+
+class ShortURL
+  # Hash table of all the supported services.  The key is a symbol
+  # representing the service (usually the hostname minus the .com,
+  # .net, etc.)  The value is an instance of Service with all the
+  # parameters set so that when +instance+.call is invoked, the
+  # shortened URL is returned.
+  @@services = {
+    :rubyurl => Service.new("rubyurl.com") { |s|
+      s.action = "/rubyurl/remote"
+      s.field = "website_url"
+      s.block = lambda { |body| URI.extract(body).grep(/rubyurl/)[0] }      
+    },
+    
+    :tinyurl => Service.new("tinyurl.com") { |s|
+      s.action = "/api-create.php"
+      s.method = :get
+      s.block = lambda { |body| URI.extract(body).grep(/tinyurl/)[0] }
+    },
+    
+    :shorl => Service.new("shorl.com") { |s|
+      s.action = "/create.php"
+      s.block = lambda { |body| URI.extract(body)[2] }
+    },
+
+    :snipurl => Service.new("snipurl.com") { |s|
+      s.action = "/index.php"
+      s.field = "link"
+      s.block = lambda { |body|
+        line = body.split("\n").grep(/txt/)[0]
+        short_url = URI.extract(line)[1][0..-2] # Remove trailing '
+      }
+    },
+
+    :metamark => Service.new("metamark.net") { |s|
+      s.action = "/add"
+      s.field = "long_url"
+      s.block = lambda { |body| URI.extract(body).grep(/xrl.us/)[0] }
+    },
+
+    :makeashorterlink => Service.new("makeashorterlink.com") { |s|
+      s.action = "/index.php"
+      s.block = lambda { |body| URI.extract(body).grep(/makeashorterlink/)[0] }
+    },
+
+    :skinnylink => Service.new("skinnylink.com") { |s|
+      s.block = lambda { |body| URI.extract(body).grep(/skinnylink/)[0] }
+    },
+
+    :linktrim => Service.new("linktrim.com") { |s|
+      s.method = :get
+      s.action = "/lt/generate"
+      s.block = lambda { |body| URI.extract(body).grep(/\/linktrim/)[1] }
+    },
+
+    :shorterlink => Service.new("shorterlink.com") { |s|
+      s.method = :get
+      s.action = "/add_url.html"
+      s.block = lambda { |body| URI.extract(body).grep(/shorterlink/)[0] }
+    },
+
+    :minilink => Service.new("minilink.org") { |s|
+      s.method = :get
+      s.block = lambda { |body| URI.extract(body)[-1] }
+    },
+
+    :lns => Service.new("ln-s.net") { |s|
+      s.method = :get
+      s.action = "/home/api.jsp"
+      s.block = lambda { |body| URI.extract(body)[0] }
+    },
+
+    :fyad => Service.new("fyad.org") { |s|
+      s.method = :get
+      s.block = lambda { |body| URI.extract(body).grep(/fyad.org/)[2] }
+    },
+
+    :d62 => Service.new("d62.net") { |s|
+      s.method = :get
+      s.block = lambda { |body| URI.extract(body)[0] }
+    },
+
+    :shiturl => Service.new("shiturl.com") { |s|
+      s.method = :get
+      s.action = "/make.php"
+      s.block = lambda { |body| URI.extract(body).grep(/shiturl/)[0] }
+    },
+
+    :littlink => Service.new("littlink.com") { |s|
+      s.block = lambda { |body| URI.extract(body).grep(/littlink/)[0] }
+    },
+
+    :clipurl => Service.new("clipurl.com") { |s|
+      s.action = "/create.asp"
+      s.block = lambda { |body| URI.extract(body).grep(/clipurl/)[0] }
+    },
+
+    :shortify => Service.new("shortify.com") { |s|
+      s.method = :get
+      s.action = "/shorten.php"
+      s.block = lambda { |body| URI.extract(body).grep(/shortify/)[0] }
+    },
+
+    :orz => Service.new("0rz.net") { |s|
+      s.action = "/create.php"
+      s.block = lambda { |body| URI.extract(body).grep(/0rz/)[0] }
+    },
+    
+    :moourl => Service.new("moourl.com") { |s|      
+      s.code = 302
+      s.action = "/create/"
+      s.method = :get      
+      s.field = "source"
+      s.block = lambda { |body| body.gsub('Location/woot/?moo=','http://moourl.com/') } 
+    },
+    
+    :urltea => Service.new("urltea.com") { |s| 
+      s.method = :get
+      s.action = "/create/"
+      s.block = lambda { |body| URI.extract(body).grep(/urltea/)[6] }       
+    }
+  }
+
+  # Array containing symbols representing all the implemented URL
+  # shortening services
+  @@valid_services = @@services.keys
+
+  # Returns @@valid_services
+  def self.valid_services
+    @@valid_services
+  end
+
+  # Main method of ShortURL, its usage is quite simple, just give an
+  # url to shorten and an optional service.  If no service is
+  # selected, RubyURL.com will be used.  An invalid service symbol
+  # will raise an ArgumentError exception
+  #
+  # Valid +service+ values:
+  #
+  # * <tt>:rubyurl</tt>
+  # * <tt>:tinyurl</tt>
+  # * <tt>:shorl</tt>
+  # * <tt>:snipurl</tt>
+  # * <tt>:metamark</tt>
+  # * <tt>:makeashorterlink</tt>
+  # * <tt>:skinnylink</tt>
+  # * <tt>:linktrim</tt>
+  # * <tt>:shorterlink</tt>
+  # * <tt>:minlink</tt>
+  # * <tt>:lns</tt>
+  # * <tt>:fyad</tt>
+  # * <tt>:d62</tt>
+  # * <tt>:shiturl</tt>
+  # * <tt>:littlink</tt>
+  # * <tt>:clipurl</tt>
+  # * <tt>:shortify</tt>
+  # * <tt>:orz</tt>
+  #
+  # call-seq:
+  #   ShortURL.shorten("http://mypage.com") => Uses RubyURL
+  #   ShortURL.shorten("http://mypage.com", :tinyurl)
+  def self.shorten(url, service = :rubyurl)
+    if valid_services.include? service
+      @@services[service].call(url)
+    else
+      raise InvalidService
+    end
+  end
+end

data/shorturl.gemspec

@@ -0,0 +1,75 @@
+# Generated by jeweler
+# DO NOT EDIT THIS FILE
+# Instead, edit Jeweler::Tasks in Rakefile, and run `rake gemspec`
+# -*- encoding: utf-8 -*-
+
+Gem::Specification.new do |s|
+  s.name = %q{shorturl}
+  s.version = "0.8.9"
+
+  s.required_rubygems_version = Gem::Requirement.new(">= 0") if s.respond_to? :required_rubygems_version=
+  s.authors = ["Robby Russell"]
+  s.date = %q{2009-09-09}
+  s.default_executable = %q{shorturl}
+  s.description = %q{Shortens URLs using services such as RubyURL, urlTea, and TinyURL}
+  s.email = %q{robby@planetargon.com}
+  s.executables = ["shorturl"]
+  s.extra_rdoc_files = [
+    "ChangeLog",
+     "README"
+  ]
+  s.files = [
+    "ChangeLog",
+     "MIT-LICENSE",
+     "README",
+     "Rakefile",
+     "TODO",
+     "VERSION.yml",
+     "bin/shorturl",
+     "doc/classes/InvalidService.html",
+     "doc/classes/Service.html",
+     "doc/classes/Service.src/M000003.html",
+     "doc/classes/Service.src/M000004.html",
+     "doc/classes/ShortURL.html",
+     "doc/classes/ShortURL.src/M000001.html",
+     "doc/classes/ShortURL.src/M000002.html",
+     "doc/created.rid",
+     "doc/files/ChangeLog.html",
+     "doc/files/MIT-LICENSE.html",
+     "doc/files/README.html",
+     "doc/files/TODO.html",
+     "doc/files/lib/shorturl_rb.html",
+     "doc/fr_class_index.html",
+     "doc/fr_file_index.html",
+     "doc/fr_method_index.html",
+     "doc/index.html",
+     "doc/rdoc-style.css",
+     "examples/shorten.rb",
+     "lib/shorturl.rb",
+     "shorturl.gemspec",
+     "test/tc_service.rb",
+     "test/tc_shorturl.rb",
+     "test/ts_all.rb"
+  ]
+  s.homepage = %q{http://github.com/robbyrussell/shorturl}
+  s.rdoc_options = ["--title", "ShortURL Documentation", "--main", "README", "-S", "-N", "--all"]
+  s.require_paths = ["lib"]
+  s.rubygems_version = %q{1.3.5}
+  s.summary = %q{Shortens URLs using services such as RubyURL, urlTea, and TinyURL}
+  s.test_files = [
+    "test/tc_service.rb",
+     "test/tc_shorturl.rb",
+     "test/ts_all.rb",
+     "examples/shorten.rb"
+  ]
+
+  if s.respond_to? :specification_version then
+    current_version = Gem::Specification::CURRENT_SPECIFICATION_VERSION
+    s.specification_version = 3
+
+    if Gem::Version.new(Gem::RubyGemsVersion) >= Gem::Version.new('1.2.0') then
+    else
+    end
+  else
+  end
+end

data/test/tc_service.rb

@@ -0,0 +1,50 @@
+# tc_service.rb
+#
+#   Created by Vincent Foley on 2005-06-01
+
+$test_lib_dir = File.join(File.dirname(__FILE__), "..", "lib")
+$:.unshift($test_lib_dir)
+
+require "test/unit"
+require "shorturl"
+
+
+class TestService < Test::Unit::TestCase
+
+  def test_call
+    service = Service.new("oasdasobf")
+    assert_raise(SocketError) { service.call(nil) }
+
+    service = Service.new("tinyurl.com") { |s|
+      s.code = 404
+      s.action = "/create.php"
+      s.block = lambda { |body|
+        URI.extract(body).grep(/tinyurl/)[-1]
+      }
+    }
+    assert_nil service.call("http://www.google.com")
+  end
+  
+  def test_initialize
+    service = Service.new("rubyurl.com")
+    assert_equal(service.port, 80)
+    assert_equal(service.code, 200)
+    assert_equal(service.method, :post)
+    assert_equal(service.action, "/")
+    assert_equal(service.field, "url")
+
+    service = Service.new("rubyurl.com") { |s|
+      s.port = 8080
+      s.code = 302
+      s.method = :get
+      s.action = "/create.php"
+      s.field = "link"
+    }
+    assert_equal(service.port, 8080)
+    assert_equal(service.code, 302)
+    assert_equal(service.method, :get)
+    assert_equal(service.action, "/create.php")
+    assert_equal(service.field, "link")
+  end
+  
+end

data/test/tc_shorturl.rb

@@ -0,0 +1,35 @@
+# tc_shortcut.rb
+#
+#   Created by Vincent Foley on 2005-06-01
+
+$test_lib_dir = File.join(File.dirname(__FILE__), "..", "lib")
+$:.unshift($test_lib_dir)
+
+require "test/unit"
+require "shorturl"
+
+class String
+  def url?
+    self[0..6].downcase == "http://"
+  end
+end
+
+class TestShortURL < Test::Unit::TestCase
+  def setup
+    @url = "http://groups.google.com/group/comp.lang.ruby/"
+  end
+  
+  def test_shorten
+    # Default service (RubyURL)
+    assert ShortURL.shorten(@url).url?
+
+    # All the services (I can't test exact URLs since they seem to
+    # # change semi regularly)
+    # ShortURL.valid_services.each do |service|
+    #   assert ShortURL.shorten(@url, service).url?
+    # end
+    
+    # An invalid service
+    assert_raise(InvalidService) { ShortURL.shorten(@url, :foobar) }
+  end
+end

metadata

@@ -1,33 +1,61 @@
 --- !ruby/object:Gem::Specification 
 name: caleb-shorturl
 version: !ruby/object:Gem::Version 
-  version: 0.8.7
+  version: 0.8.9
 platform: ruby
 authors: 
 - Robby Russell
-autorequire: shorturl
+autorequire: 
 bindir: bin
 cert_chain: []
 
-date: 2009-05-16 00:00:00 -07:00
+date: 2009-09-09 00:00:00 -07:00
 default_executable: shorturl
 dependencies: []
 
-description: 
+description: Shortens URLs using services such as RubyURL, urlTea, and TinyURL
 email: robby@planetargon.com
 executables: 
 - shorturl
 extensions: []
 
 extra_rdoc_files: 
+- ChangeLog
 - README
-- TODO
-- MIT-LICENSE
+files: 
 - ChangeLog
-files: []
-
-has_rdoc: true
-homepage: http://github.com/robbyrussell/shorturl/
+- MIT-LICENSE
+- README
+- Rakefile
+- TODO
+- VERSION.yml
+- bin/shorturl
+- doc/classes/InvalidService.html
+- doc/classes/Service.html
+- doc/classes/Service.src/M000003.html
+- doc/classes/Service.src/M000004.html
+- doc/classes/ShortURL.html
+- doc/classes/ShortURL.src/M000001.html
+- doc/classes/ShortURL.src/M000002.html
+- doc/created.rid
+- doc/files/ChangeLog.html
+- doc/files/MIT-LICENSE.html
+- doc/files/README.html
+- doc/files/TODO.html
+- doc/files/lib/shorturl_rb.html
+- doc/fr_class_index.html
+- doc/fr_file_index.html
+- doc/fr_method_index.html
+- doc/index.html
+- doc/rdoc-style.css
+- examples/shorten.rb
+- lib/shorturl.rb
+- shorturl.gemspec
+- test/tc_service.rb
+- test/tc_shorturl.rb
+- test/ts_all.rb
+has_rdoc: false
+homepage: http://github.com/robbyrussell/shorturl
 post_install_message: 
 rdoc_options: 
 - --title
@@ -56,7 +84,10 @@ requirements: []
 rubyforge_project: 
 rubygems_version: 1.2.0
 signing_key: 
-specification_version: 2
+specification_version: 3
 summary: Shortens URLs using services such as RubyURL, urlTea, and TinyURL
 test_files: 
+- test/tc_service.rb
+- test/tc_shorturl.rb
 - test/ts_all.rb
+- examples/shorten.rb