syoboi_calendar 0.0.1

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/.travis.yml

@@ -0,0 +1,4 @@
+language: ruby
+rvm:
+  - 1.9.2
+  - 1.9.3

data/Gemfile

@@ -0,0 +1,3 @@
+source "http://rubygems.org"
+
+gemspec

data/Gemfile.lock

@@ -0,0 +1,60 @@
+PATH
+  remote: .
+  specs:
+    syoboi_calendar (0.0.1)
+      mechanize (>= 2.3)
+
+GEM
+  remote: http://rubygems.org/
+  specs:
+    addressable (2.2.7)
+    crack (0.3.1)
+    diff-lcs (1.1.3)
+    domain_name (0.5.2)
+      unf (~> 0.0.3)
+    mechanize (2.3)
+      domain_name (~> 0.5, >= 0.5.1)
+      mime-types (~> 1.17, >= 1.17.2)
+      net-http-digest_auth (~> 1.1, >= 1.1.1)
+      net-http-persistent (~> 2.5, >= 2.5.2)
+      nokogiri (~> 1.4)
+      ntlm-http (~> 0.1, >= 0.1.1)
+      webrobots (~> 0.0, >= 0.0.9)
+    mime-types (1.18)
+    multi_json (1.2.0)
+    net-http-digest_auth (1.2)
+    net-http-persistent (2.6)
+    nokogiri (1.5.2)
+    ntlm-http (0.1.1)
+    rake (0.9.2.2)
+    rspec (2.9.0)
+      rspec-core (~> 2.9.0)
+      rspec-expectations (~> 2.9.0)
+      rspec-mocks (~> 2.9.0)
+    rspec-core (2.9.0)
+    rspec-expectations (2.9.1)
+      diff-lcs (~> 1.1.3)
+    rspec-mocks (2.9.0)
+    simplecov (0.6.1)
+      multi_json (~> 1.0)
+      simplecov-html (~> 0.5.3)
+    simplecov-html (0.5.3)
+    simplecov-vim (0.0.1)
+    unf (0.0.5)
+      unf_ext
+    unf_ext (0.0.4)
+    webmock (1.8.6)
+      addressable (>= 2.2.7)
+      crack (>= 0.1.7)
+    webrobots (0.0.13)
+
+PLATFORMS
+  ruby
+
+DEPENDENCIES
+  rake (>= 0.9.2)
+  rspec (>= 2.9.0)
+  simplecov (>= 0.6.1)
+  simplecov-vim (>= 0.0.1)
+  syoboi_calendar!
+  webmock (>= 1.8.6)

data/LICENSE

@@ -0,0 +1,22 @@
+Copyright (c) 2012 Ryo NAKAMURA
+
+MIT License
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,44 @@
+# SyoboiCalendar
+
+Simple gem for [SyoboiCalendar](http://cal.syoboi.jp/) to search Japanese anime lineup
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+    gem 'syoboi_calendar'
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install syoboi_calendar
+
+## Usage
+
+```
+require "syoboi_calender"
+
+client = SyoboiCalendar::Client.new(
+  :user => "r7kamura",
+  :pass => "********"
+)
+programs = client.search(
+  :first => true,
+  :range => "2012/4/1-2012/4/30"
+)
+
+p programs[0].name         #=> "さんかれあ #1 私が…ゾンビに…なったら"
+p programs[0].start_time   #=> 2012-04-06 02:50:00 +0900
+p programs[0].channel_name #=> "TBS"
+```
+
+## Contributing
+
+1. Fork it
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Added some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create new Pull Request

data/Rakefile

@@ -0,0 +1,26 @@
+#!/usr/bin/env rake
+
+require "bundler/gem_tasks"
+
+begin
+  require "bundler"
+rescue LoadError
+  $stderr.puts e.message
+  $stderr.puts "Run `gem install bundler` to install bundler"
+  exit e.status_code
+end
+
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+
+require "rspec/core"
+require "rspec/core/rake_task"
+
+RSpec::Core::RakeTask.new(:spec)
+
+task :default => :spec

data/example/search_by_keyword.rb

@@ -0,0 +1,29 @@
+# encoding: UTF-8
+
+$LOAD_PATH.unshift File.expand_path("../../lib", __FILE__)
+require "syoboi_calendar"
+
+require "slop"
+args = Slop.parse :help => true do
+  banner "usage: \n    ruby #{__FILE__}"
+  on :k, :keyword=, "Keyword for title (ex. ひだまりスケッチ)"
+  on :r, :range=, "Date range (ex. 2012/4/1-2012/4/30)"
+end
+unless args[:keyword]
+  puts args.to_s.gsub(/\n\n/, "\n")
+  exit
+end
+
+client = SyoboiCalendar::Client.new
+titles = client.search(
+  :mode    => :title,
+  :keyword => args[:keyword],
+)
+
+require "awesome_print"
+titles.each do |title|
+  ap title.name
+  ap title.url
+  ap title.voice_actor_map
+  puts
+end

data/example/search_saisoku.rb

@@ -0,0 +1,34 @@
+# encoding: UTF-8
+
+$LOAD_PATH.unshift File.expand_path("../../lib", __FILE__)
+require "syoboi_calendar"
+
+require "slop"
+args = Slop.parse :help => true do
+  on :u, :user=, "Username on SyoboiCalendar"
+  on :p, :pass=, "Password on SyoboiCalendar"
+  on :r, :range=, "Date range (e.g. 2012/4/1-2012/4/30)"
+end
+
+client = SyoboiCalendar::Client.new(
+  :user => args[:user],
+  :pass => args[:pass]
+)
+programs = client.search(
+  :first => true,
+  :range => args[:range] || [ # today .. today + 1.month
+    Time.now + 0,
+    Time.now + 60 * 60 * 24 * 31
+  ].map { |i| Time.at(i).strftime("%Y/%m/%d") }.join("-")
+)
+
+programs.uniq!(&:name)
+programs.sort! { |a, b| a.start_time.to_i <=> b.start_time.to_i}
+programs.each { |program|
+  puts "|%s|%-9.9s|%s|%s|" % [
+    program.start_time.strftime("%Y-%m-%d %H:%M"),
+    program.channel_name.tr("A-Z", "Ａ-Ｚ").tr("a-z", "ａ-ｚ").tr(" ", ""),
+    program.name.gsub(/( #\d+).*/, '\1'),
+    {true => "✔", false => " "}[program.saisoku?]
+  ]
+}

data/lib/syoboi_calendar.rb

@@ -0,0 +1,9 @@
+# gems
+require "mechanize"
+
+# libraries
+require "syoboi_calendar/version"
+require "syoboi_calendar/agent"
+require "syoboi_calendar/title"
+require "syoboi_calendar/program"
+require "syoboi_calendar/client"

data/lib/syoboi_calendar/agent.rb

@@ -0,0 +1,55 @@
+require "uri"
+require "json"
+
+module SyoboiCalendar
+  class Agent
+    BASE_URL   = "http://cal.syoboi.jp"
+    SEARCH_URL = BASE_URL + "/find"
+    JSON_URL   = BASE_URL + "/json.php"
+    LOGIN_URL  = BASE_URL + "/usr"
+
+    # login is option to search with user channel setting
+    def initialize(opts = {})
+      if opts[:user] && opts[:pass]
+        login(opts[:user], opts[:pass])
+      end
+    end
+
+    def login(user, pass)
+      page = get LOGIN_URL
+      form = page.forms[1]
+      form.usr  = user
+      form.pass = pass
+      mechanize.submit(form)
+      @logined = true
+    end
+
+    def login?
+      !!@logined
+    end
+
+    def json(query)
+      page = get JSON_URL, query
+      JSON.parse(page.content)
+    end
+
+    def search(query)
+      get SEARCH_URL, query
+    end
+
+    private
+
+    def get(url, hash = {})
+      mechanize.get(url + querinize(hash))
+    end
+
+    # change hash into URL query string
+    def querinize(hash)
+      "?" + hash.map { |k, v| "#{k}=#{URI.encode(v.to_s)}" }.join("&")
+    end
+
+    def mechanize
+      @mechanize ||= Mechanize.new
+    end
+  end
+end

data/lib/syoboi_calendar/client.rb

@@ -0,0 +1,87 @@
+module SyoboiCalendar
+  class Client
+    # user and pass are optional to search with user's channel setting
+    def initialize(opts = {})
+      @agent = Agent.new(:user => opts[:user], :pass => opts[:pass])
+    end
+
+    def login?
+      @agent.login?
+    end
+
+    # search programs
+    def search(args)
+      query = create_search_query(args)
+      page  = @agent.search(query)
+
+      args[:mode] == :title ?
+        extract_titles(page) :
+        extract_programs(page)
+    end
+
+    private
+
+    # return Array of #<SyoboiCalendar::Program> by #<Mechanize::Page>
+    def extract_programs(page, opts = {})
+      page.search(".tframe tr").map do |tr|
+        args = {}
+
+        tr.search("td:nth-child(2) a").each do |a|
+          if match = a.attributes["href"].value.match(%r|/tid/(\d+)/time#(\d+)$|)
+            args[:tid]  = match[1]
+            args[:pid]  = match[2]
+            args[:name] = a.text
+          end
+        end
+
+        tr.search("td:nth-child(3)").each do |td|
+          args[:channel_name] = td.text
+        end
+
+        if args.has_key?(:tid)
+          Program.new(args)
+        else
+          nil
+        end
+      end.compact
+    end
+
+    # return Array of #<SyoboiCalendar::Title> by #<Mechanize::Page>
+    def extract_titles(page, opts = {})
+      page.search(".tframe tr").map do |tr|
+        args = {}
+
+        tr.search("td:nth-child(1) a").each do |a|
+          if match = a.attributes["href"].value.match(%r|/tid/(\d+)$|)
+            args[:tid]  = match[1]
+            args[:name] = a.text
+          end
+        end
+
+        if args.has_key?(:tid)
+          Title.new(args)
+        else
+          nil
+        end
+      end.compact
+    end
+
+    # create hash for search query
+    def create_search_query(opts)
+      {
+        :sd  => { nil => 2, :program => 2, :title => 0 }[opts[:mode]],
+        :r   => { nil => 0, :all => 0, :past => 1, :future => 2}[opts[:range]] || 3,
+        :rd  => opts[:range],
+        :kw  => opts[:keyword],
+        :ch  => opts[:channel],
+        :st  => opts[:subtitle],
+        :cm  => opts[:comment],
+        :uuc => opts[:uuc] || 1,     # use user's channel setting
+        :v   => opts[:v] || 0,       # list view
+        :pfn => opts[:first] && 2,   # first episode
+        :pfl => opts[:final] && 4,   # final episode
+        :pfs => opts[:special] && 1, # special program
+      }.select { |k, v| v }
+    end
+  end
+end

data/lib/syoboi_calendar/program.rb

@@ -0,0 +1,86 @@
+module SyoboiCalendar
+  class Program
+    attr_reader(
+      :pid,
+      :tid,
+      :name,
+      :channel_name
+    )
+
+    # (1) :method_name => "NameInSyoboiCalendarResponse"
+    # (2) :method_name => ["NameInSyoboiCalendarResponse", callback]
+    EXT_PARAM_MAP = {
+      :channel_epg_url => "ChEPGURL",
+      :channel_id      => "ChID",
+      :comment         => "Comment",
+      :config_flag     => "ConfFlag",
+      :count           => "Count",
+      :end_time        => ["EdTime", proc { |val| Time.at(val.to_i) }],
+      :start_time      => ["StTime", proc { |val| Time.at(val.to_i) }],
+      :subtitle        => "SubTitle",
+      :subtitle2       => "SubTitle2"
+    }
+
+    # Example:
+    #   program.count
+    #   program.start_time
+    #   ...
+    EXT_PARAM_MAP.keys.each do |key|
+      define_method(key) do
+        update_detail unless @blob.has_key?(key)
+        @blob[key]
+      end
+    end
+
+    # NOTICE: @blob is empty hash at first
+    # For example,
+    #   If self.start_time is called,
+    #   then update_detail is called automatically,
+    #   and @blob is updated to fill up @blob[:start_time]
+    def initialize(args)
+      @pid          = args[:pid]
+      @tid          = args[:tid]
+      @name         = args[:name]
+      @channel_name = args[:channel_name]
+      @blob         = {}
+    end
+
+    # SAISOKU means "the most earliest broadcasting in the World"
+    def saisoku?
+      !!title.first_channel.match(channel_name)
+    end
+
+    # update params from detail data
+    def update_detail
+      hash = get_detail
+      EXT_PARAM_MAP.each do |k, v|
+        if v.kind_of?(Array)
+          @blob[k] = v[1].call(hash[v[0]])
+        else
+          @blob[k] = hash[v]
+        end
+      end
+    end
+
+    def title
+      @title ||= Title.new(:tid => @tid)
+    end
+
+    private
+
+    # request detail data
+    def get_detail
+      hash = self.class.agent.json(
+        :Req => "ProgramByPID",
+        :PID => @pid,
+      )
+      hash = hash[hash.keys.first]
+      hash = hash[hash.keys.first]
+      hash
+    end
+
+    def self.agent
+      @agent ||= Agent.new
+    end
+  end
+end