ruby-maidcafe 0.0.1

data/History.txt

@@ -0,0 +1,5 @@
+== 0.0.1 / 2007-06-24
+
+* 1 major enhancement
+  * Birthday!
+

data/Manifest.txt

@@ -0,0 +1,11 @@
+History.txt
+Rakefile
+Manifest.txt
+README.txt
+bin/ruby-maidcafe
+lib/ruby-maidcafe.rb
+lib/cui.rb
+test/test_ruby-maidcafe.rb
+test/test_resultset.rb
+test/data/shop_t_13.xml
+test/data/t_list.xml

data/README.txt

@@ -0,0 +1,103 @@
+ruby-maidcafe
+    by ANDO Yasushi (andyjpn@gmail.com)
+    (http://d.hatena.ne.jp/technohippy/)
+
+== DESCRIPTION:
+
+By utilizing this library, you can retrieve information of Japanese 
+Maidcafe via Maidcafe API web service (http://moeten.info/maidcafe/?m=api).
+This can be used as interactive command line tool, non-interactive one, 
+and library.
+
+== SYNOPSIS:
+
+In your code:
+
+* get shop list
+  api = Maidcafe::API.new
+  rs = api.list :shop
+  puts rs.description
+  rs.items.each do |item|
+    puts item.name
+    puts item.id
+  end	
+* get shop information in osaka
+  rs = api.shop :prefecture => Maidcafe::Prefecture::OSAKA
+  puts rs.description
+  rs.items.each do |item|
+    puts item.name
+    puts item.description
+    puts item.opening_hour
+  end	
+
+In your shell:
+
+* get shop list
+  bin/ruby-maidcafe -s list
+* get shop information in category #1
+  bin/ruby-maidcafe -c 1 shop
+* get event information in osaka (#27)
+  bin/ruby-maidcafe -t 27 event
+* interactive retrieval
+  $ bin/ruby-maidcafe
+  
+  1 : お店
+  2 : 開催中のイベント
+  :
+  8 : お店からのイベントのお知らせ
+  選択してください: 1
+  お店
+  
+  都道府県名を指定しますか (y/N)y
+  1 : 北海道
+  2 : 栃木県
+  :
+  10 : 鹿児島県
+  選択してください: 1
+  北海道
+  
+  カテゴリを指定しますか (y/N)
+  
+  お店番号を指定しますか (y/N)
+  1 : ロミオ†ジュリエッタ - すべてがメイドさんの手作りメニュー☆
+  2 : 萌えカフェ＆BAR　ゆるふわ - メイドさん達と楽しくお話しながら、...
+  選択してください: 1
+  店名：ロミオ†ジュリエッタ
+  Tel： 011-222-0832
+  説明：すべてがメイドさんの手作りメニュー☆
+        日替わりで担当のメイドがsweetsを作っています。
+        また、土日はランチもありますよ♪
+        メイドによりメニューは色々変わりますので
+        それもひとつのお楽しみです！
+        イベントも満載ですよ♪
+  
+  [push enter key]
+
+== INSTALL:
+
+* gem instal ruby-maidcafe
+
+== LICENSE:
+
+(The MIT License)
+
+Copyright (c) 2007 ANDO Yasushi
+
+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/Rakefile

@@ -0,0 +1,15 @@
+# -*- ruby -*-
+
+require 'rubygems'
+require 'hoe'
+require './lib/ruby-maidcafe.rb'
+
+Hoe.new('ruby-maidcafe', Maidcafe::VERSION) do |p|
+  p.rubyforge_name = 'ruby-maidcafe'
+  p.summary = 'ruby interface for Maidcafe API (http://moeten.info/maidcafe/?m=api)'
+  p.description = p.paragraphs_of('README.txt', 2..5).join("\n\n")
+  p.url = p.paragraphs_of('README.txt', 0).first.split(/\n/)[1..-1]
+  p.changes = p.paragraphs_of('History.txt', 0..1).join("\n\n")
+end
+
+# vim: syntax=Ruby

data/bin/ruby-maidcafe

@@ -0,0 +1,49 @@
+#!/usr/bin/ruby
+#
+# get category list in tokyo (13)
+#   bin/ruby-maidcafe -c list -t 13
+#
+# get shop list
+#   bin/ruby-maidcafe -s list
+#
+# get shop information
+#   bin/ruby-maidcafe -c 1 shop
+#
+# get event information in osaka
+#   bin/ruby-maidcafe -t 27 event
+
+$KCODE = 'u'
+$:.unshift File.join(File.dirname(__FILE__), '../lib')
+require 'lib/ruby-maidcafe'
+
+if ARGV.empty?
+  require 'lib/cui'
+  Maidcafe::CUI.start
+else
+  require 'optparse'
+  COMMAND_LINE = "#{$0} #{ARGV.join(' ')}"
+  OPT = {}
+  opts = OptionParser.new
+  opts.on('-t <prefecture>'){|v| OPT[:tid] = v}
+  opts.on('-c <category>'){|v| OPT[:cid] = v}
+  opts.on('-s <shop>'){|v| OPT[:sid] = v}
+  opts.on('-g', '--gps <latlng>') do |v| 
+    OPT[:gps_lat], OPT[:gps_lon] = latlng.split(',').map{|e| e.to_f}
+  end
+  opts.on('-w', '--wgps <latlng>') do |v| 
+    OPT[:wgps_lat], OPT[:wgps_lon] = latlng.split(',').map{|e| e.to_f}
+  end
+  opts.on_tail('-v', '--version', 'Show version.'){puts(opts.ver); exit}
+  opts.on_tail('-h', '--help', 'Show this message.'){puts(opts.help); exit}
+
+  ::Version = Maidcafe::VERSION
+  opts.order! ARGV
+  CMD = ARGV.shift
+
+  api = Maidcafe::API.new
+  rs = api.invoke(CMD, OPT)
+  rs.items.each do |item|
+    puts item.to_s
+    puts
+  end
+end

data/lib/cui.rb

@@ -0,0 +1,71 @@
+module Maidcafe
+  module CUI
+    def prompt(api, condition, mandatory=false)
+      puts
+      unless mandatory
+        print "#{{:tid => '都道府県名', :cid => 'カテゴリ', :sid => 'お店番号'}[condition]}を指定しますか (y/N)"
+        return nil unless gets =~ /[yY]/
+      end
+      rs = api.invoke nil, condition => 'list'
+      rs.items.each_with_index do |t, index|
+        puts "#{index+1} : #{t.name}"
+      end
+      print '選択してください: '
+      input = gets
+      exit if input =~ /^\s*(quit|exit)\s*$/i
+      type_id = input.to_i
+      type_id <= 0 ? nil : rs.items[type_id - 1]
+    end
+    
+    def puts_name(obj)
+      puts obj.name if obj
+    end
+    
+    def show_opt(opt, key, obj)
+      puts_name obj
+      opt[key] = obj.id if obj
+    end
+    
+    def start
+      api = Maidcafe::API.new
+      type = nil
+      while !type
+        type = prompt api, :type, true
+      end
+      puts_name type
+      
+      opts = {}
+      
+      prefecture = prompt api, :tid
+      show_opt opts, :tid, prefecture
+      
+      category = prompt api, :cid
+      show_opt opts, :cid, category
+      
+      shop = prompt api, :sid
+      show_opt opts, :sid, shop
+      
+      rs = api.invoke type.keytype, opts
+      while true
+        if rs.items.empty?
+          puts "データが存在しません"
+          exit
+        end
+        rs.items.each_with_index do |i, index|
+          puts "#{index+1} : #{i.name} - #{i.description.split("\n")[0]}"
+        end
+        print '選択してください: '
+        input = gets
+        exit if input =~ /^\s*(quit|exit)\s*$/i
+        item_id = input.to_i
+        if 0 < item_id
+          puts rs.items[item_id - 1].to_s
+        end
+        puts "\n[push enter key]"
+        gets
+      end
+    end
+
+    module_function :start, :prompt, :puts_name, :show_opt
+  end
+end

data/lib/ruby-maidcafe.rb

@@ -0,0 +1,231 @@
+require 'erb'
+require 'open-uri'
+require 'rexml/document'
+
+def dputs(str)
+  puts str if $DEBUG
+end
+
+module Maidcafe
+  VERSION = '0.0.1'
+  
+  class API
+    BASE_URL = 'http://moeten.info/maidcafe'
+
+    def list(type)
+      case type
+      when :type
+        invoke 'list'
+      when :tid, :prefecture
+        invoke nil, :tid => 'list'
+      when :cid, :category
+        invoke nil, :cid => 'list'
+      when :sid, :shop
+        invoke nil, :sid => 'list'
+      else
+        throw ArgumentError.new
+      end
+    end
+
+    def read(type, args)
+      open(request_url(type, args)) {|f| REXML::Document.new f}.write
+    end
+
+    def invoke(type, args=[])
+      url = request_url(type, args)
+      dputs "access to #{url}"
+      ResultSet.new(type, open(url) {|f| REXML::Document.new f})
+    end
+
+    def request_url(type, args)
+      type_arg = type ? "type=#{type}" : ''
+      other_args = args.to_a.map{|e| "#{e[0]}=#{e[1]}"}.join '&'
+      "#{BASE_URL}/?#{type_arg}&#{other_args}&m=api"
+    end
+
+    def method_missing(name, *args, &block)
+      invoke name, args
+    end
+  end
+
+  class ResultItem
+    def initialize(xml)
+      read xml
+    end
+
+    def read(xml)
+      attr_to_tag.each do |attr, tag|
+        send "#{attr}=", element_text(xml, tag)
+      end
+    end
+
+    def attr_to_tag
+      {}
+    end
+
+    def element_text(xml, tag)
+      (tag = xml.elements[tag]) ? tag.text : nil
+    end
+
+    def to_s
+      "ID: #{id}\n名前: #{name}"
+    end
+  end
+
+  class ResultSet < ResultItem
+    attr_accessor :title, :link, :description, :language, :generator, :items
+
+    def initialize(type, xml)
+      @items = []
+      read xml
+      xml.elements.each('channel/item') do |item|
+        @items.push(
+          if item.elements['image']; Moe.new(type, item)
+          elsif item.elements['tid']; Prefecture.new(item)
+          elsif item.elements['cid']; Category.new(item)
+          elsif item.elements['sid']; Shop.new(item)
+          elsif item.elements['keytype']; Type.new(item)
+          else; raise ArgumentError.new(item.inspect)
+          end
+        )
+      end
+    end
+
+    def attr_to_tag
+      {:title => 'channel/title', :link => 'channel/link', :description => 'channel/description', 
+        :language => 'channel/language', :generator => 'channel/generator'}
+    end
+  end
+
+  class Location
+    attr_accessor :latitude, :longitude
+    def initialize(lat, lng)
+      @latitude = lat
+      @longitude = lng
+    end
+  end
+
+  class Moe < ResultItem
+    attr_accessor :name, :category, :prefecture, :description, :images,
+                  :url, :url_mobile, :tel, :address, :gps, :wgps, :map_urls
+
+    def initialize(type, xml)
+      read(xml)
+      @specialities = self.class.const_get(type.to_s.capitalize).new(xml)
+      @images = [element_text(xml, 'image/image1'), 
+                 element_text(xml, 'image/image2'),
+                 element_text(xml, 'image/image3')].compact
+      @map_urls = [element_text(xml, 'map/map_livedoor'),
+                   element_text(xml, 'map/map_navitime'),
+                   element_text(xml, 'map/map_mapfan'),
+                   element_text(xml, 'map/map_mapion'),
+                   element_text(xml, 'map/map_googlemap'),
+                   element_text(xml, 'map/map_alps')].compact
+      @gps = Location.new element_text(xml, 'gps_lat'), element_text(xml, 'gps_lon')
+      @wgps = Location.new element_text(xml, 'wgps_lat'), element_text(xml, 'wgps_lon')
+    end
+
+    def attr_to_tag
+      {:name => 'shopname', :category => 'category', :prefecture => 'todouhuken', 
+        :description => 'setumei', :url => 'url', :url_mobile => 'url_mobile',
+        :tel => 'tel', :address => 'address'}
+    end
+
+    def to_s
+      ERB.new(<<-end_of_template).result(binding)
+店名: <%= name %>
+住所: <%= address %>
+Tel:  <%= tel %>
+説明: <%= description.gsub("\n", "\n     ").chomp %>
+      end_of_template
+    end
+
+    def method_missing(name, *args, &block)
+      @specialities.send name, *args
+    end
+
+    class Shop < ResultItem
+      attr_accessor :opening_hour, :menu
+      def attr_to_tag; {:opening_hour => 'eigyoujikan',  :menu => 'menu'} end
+    end
+
+    class Event < ResultItem
+    end
+
+    class Coupon < ResultItem
+      attr_accessor :coupon, :submit_condition, :number_condition
+      def attr_to_tag
+        {:coupon => 'coupon', :submit_condition => 'teiji_zyouken', 
+          :number_condition => 'riyou_zyouken'} 
+      end
+    end
+
+    class Baito < ResultItem
+      attr_accessor :hourly_wage, :work_hours, :ages, :hischool, :cv, :interview_time, :q_and_a
+      def attr_to_tag
+        {:hourly_wage => 'jikyuu', :work_hours => 'kinmujikan', :ages => 'nenren', 
+          :hischool => 'koukousei', :cv => 'rirekisyo', :interview_time => 'mensetubi',
+          :q_and_a => 'qanda'}
+      end
+    end
+
+    class Opendate < ResultItem
+    end
+
+    class Newshop < ResultItem
+      attr_accessor :date, :wdate
+      def attr_to_tag; {:date => 'date', :wdate => 'mdate'} end
+    end
+
+    class Dayinfo < ResultItem
+    end
+
+    class Eventinfo < ResultItem
+    end
+  end
+
+  class Type < ResultItem
+    SHOP = 'shop'
+    EVENT = 'event'
+    COUPON = 'coupon'
+    BAITO = 'baito'
+    OPENDATE = 'opendate'
+    NEWSHOP = 'newshop'
+    DAYINFO = 'dayinfo'
+    EVENTINFO = 'eventinfo'
+
+    attr_accessor :type, :keytype
+    def attr_to_tag; {:type => 'type', :keytype => 'keytype'} end
+    def name; type end
+  end
+
+  class Prefecture < ResultItem
+    ANY = nil
+    HOKAIDO = 1
+    TOCHIGI = 9
+    SAITAMA = 11
+    TOKYO = 13
+    KANAGAWA = 14
+    GIFU = 21
+    AICHI = 23
+    OSAKA = 27
+    FUKUOKA = 40
+    KAGOSHIMA = 46
+
+    attr_accessor :name, :tid
+    def attr_to_tag; {:name => 'todouhuken', :tid => 'tid'} end
+    def id; tid end
+  end
+
+  class Category < ResultItem
+    attr_accessor :name, :cid
+    def attr_to_tag; {:name => 'category', :cid => 'cid'} end
+    def id; cid end
+  end
+
+  class Shop < ResultItem
+    attr_accessor :name, :sid
+    def attr_to_tag; {:name => 'shopname', :sid => 'sid'} end
+    def id; sid end
+  end
+end