lupus 0.1

data/executables/lupus

@@ -0,0 +1,73 @@
+#!/usr/bin/env ruby
+# encoding: utf-8
+
+$:.unshift File.dirname(__FILE__) + '/../library'
+
+require 'lupus'
+
+begin
+  require 'majic'
+  $COLOR = true
+rescue LoadError
+  $COLOR = false
+end
+
+Banner =<<-EOD
+   _                          
+  | |   _   _ _ __  _   _ ___ 
+  | |  | | | | '_ \\| | | / __|
+  | |__| |_| | |_) | |_| \\__ \\
+  |_____\\__,_| .__/ \\__,_|___/
+             |_|
+EOD
+
+if ARGV.count < 1
+  if $COLOR
+    puts Banner ^ :bold
+
+    puts "Usage" ^ :bold
+    puts " #$0 #{"<thread>" ^ :bold}"
+    puts "Example" ^ :bold
+    puts " #$0 #{"http://boards.4chan.org/hr/res/1269029" ^ :bold}"
+  else
+    puts Banner
+
+    puts "Usage"
+    puts " #$0 <thread>"
+    puts "Exaple"
+    puts " #$0 http://boards.4chan.org/hr/res/1269029"
+  end
+
+  exit 1
+end
+
+ARGV.each do |address|
+  begin
+    thread = Lupus::Thread.new address
+
+    if $COLOR
+      puts "-- Downloading #{thread.files.count.to_s ^ :green} files."
+    else
+      puts "-- Downloading #{thread.files.count} files."
+    end
+
+    archive  = Lupus::Archive.new thread
+    filename = "#{thread.id}.zip"
+
+    if $COLOR
+      puts "-- Packing as #{filename ^ :green}."
+    else
+      puts "-- Packing as #{thread.id}.zip."
+    end
+
+    archive.pack 
+
+    puts "-- Done."
+  rescue Exception
+    if $COLOR
+      puts "#{"Error" ^ :red} - Could not fetch #{address ^ :bold} - #{$!.class.name ^ :bold}: #{$!.message}"
+    else
+      puts "Error - Could not fetch #{address} - #{$!.class.name}: #{$!.message}"
+    end
+  end
+end

data/library/lupus.rb

@@ -0,0 +1,15 @@
+# encoding: utf-8
+
+require 'zip/zip'
+require 'nokogiri'
+require 'open-uri'
+
+require 'lupus/post'
+require 'lupus/thread'
+require 'lupus/archive'
+
+module Lupus
+  class << Version = [0,1]
+    def to_s; join '.' end
+  end
+end

data/library/lupus/archive.rb

@@ -0,0 +1,21 @@
+# encoding: utf-8
+
+module Lupus
+  class Archive
+    attr_accessor :path
+
+    def initialize thread
+      @path   = ::File.join Dir.pwd, "#{thread.id}.zip"
+      @thread = thread
+    end
+
+    def pack path = @path
+      Zip::ZipFile.open path, Zip::ZipFile::CREATE do |zip|
+        @thread.files.each {|file| file.save and zip.add file.name, file.path }
+      end
+
+      @thread.files.each &:delete
+      Dir.unlink ::File.join ::File.dirname(@path), @thread.id
+    end
+  end
+end

data/library/lupus/post.rb

@@ -0,0 +1,47 @@
+# encoding: utf-8
+
+module Lupus
+  class Post
+    class File
+      attr_accessor :name, :path, :address
+
+      def initialize address, thread
+        @name    = ::File.basename address
+        @path    = ::File.join Dir.pwd, thread.id, @name
+        @thread  = thread
+        @address = URI address
+      end
+
+      def save
+        return if ::File.exists? @path
+
+        Dir.mkdir ::File.dirname @path unless ::Dir.exists? ::File.dirname @path
+
+        ::File.open @path, 'w+' do |file|
+          http = Net::HTTP.new @address.host
+
+          http.request_get @address.path do |response|
+            response.read_body {|chunk| file.write chunk }
+          end
+        end
+      end
+
+      def delete
+        ::File.unlink path if ::File.exists? path
+      end
+
+      alias_method :url, :address
+    end
+
+    def initialize element, thread
+      @thread  = thread
+      @element = element
+    end
+
+    def file
+      if link = @element.at(".filesize a")
+        @file ||= File.new link['href'], @thread
+      end
+    end
+  end
+end

data/library/lupus/thread.rb

@@ -0,0 +1,27 @@
+# encoding: utf-8
+
+module Lupus
+  class Thread
+    attr_accessor :address
+
+    def initialize address
+      @address = URI address
+    end
+
+    def id
+      @page.at("input[@name='resto']")['value']
+    end
+
+    def posts
+      @posts ||= page.css("td.reply").to_a.map {|element| Post.new element, self }
+    end
+
+    def files
+      @files ||= posts.map(&:file).compact
+    end
+
+  private
+
+    def page; @page ||= Nokogiri::HTML open @address end
+  end
+end

metadata

@@ -0,0 +1,97 @@
+--- !ruby/object:Gem::Specification 
+name: lupus
+version: !ruby/object:Gem::Version 
+  prerelease: false
+  segments: 
+  - 0
+  - 1
+  version: "0.1"
+platform: ruby
+authors: 
+- Mikkel Kroman
+autorequire: 
+bindir: executables
+cert_chain: []
+
+date: 2011-03-13 00:00:00 +01:00
+default_executable: 
+dependencies: 
+- !ruby/object:Gem::Dependency 
+  name: rubyzip
+  prerelease: false
+  requirement: &id001 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        - 9
+        - 4
+        version: 0.9.4
+  type: :runtime
+  version_requirements: *id001
+- !ruby/object:Gem::Dependency 
+  name: majic
+  prerelease: false
+  requirement: &id002 !ruby/object:Gem::Requirement 
+    none: false
+    requirements: 
+    - - ">="
+      - !ruby/object:Gem::Version 
+        segments: 
+        - 0
+        - 1
+        version: "0.1"
+  type: :runtime
+  version_requirements: *id002
+description: 
+email: mk@maero.dk
+executables: 
+- lupus
+extensions: []
+
+extra_rdoc_files: []
+
+files: 
+- library/lupus/thread.rb
+- library/lupus/archive.rb
+- library/lupus/post.rb
+- library/lupus.rb
+- executables/lupus
+has_rdoc: true
+homepage: 
+licenses: []
+
+post_install_message: 
+rdoc_options: []
+
+require_paths: 
+- library
+required_ruby_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 1
+      - 9
+      - 1
+      version: 1.9.1
+required_rubygems_version: !ruby/object:Gem::Requirement 
+  none: false
+  requirements: 
+  - - ">="
+    - !ruby/object:Gem::Version 
+      segments: 
+      - 0
+      version: "0"
+requirements: []
+
+rubyforge_project: 
+rubygems_version: 1.3.7
+signing_key: 
+specification_version: 3
+summary: A tool to extract and zip the images off of a 4chan thread.
+test_files: []
+