第6回北海道開発オフ成果:@ITWSCAL

今日は北海道開発オフの日です。2008年1月から続いた北海道開発オフも今回で6回目、なんと1年が経ちました。素晴らしい。是非来年も2ヶ月に1回くらいのペースで実施していきたいですね。
そして今日の参加者は12人です！なんてこと！新規に参加して頂いた皆さん、本当にありがとう。超楽しいですよ開発オフ。

これは@kyammyさんが差し入れしてくれた、旭川だるまやのバナナ焼きです。超美味かったです。@kyammyさんありがとう！


今日の成果は、@ITWSCAL(IT Workshop Calender)です。これはIT勉強会カレンダーから、当日開催分のデータを取得して、Twitterに投稿するものです。今のところ、cronで指定された時間に、投稿するだけの機能しかありませんが、日付をReplyで指定されたらその日付のデータを返すという機能もつけたいですね。誰かアイコン作ってくれないでしょうか。

#! /usr/bin/ruby -Ku

require 'open-uri'
require 'date'
require 'rexml/document'

require 'rubygems'
gem 'twitter4r'
require 'twitter'
require 'pit'

begin

  fday = Date.today.to_s
  lday = Date.today.next.to_s
  sday = Date.today.strftime("%Y/%m/%d")

  uri="http://www.google.com/calendar/feeds/fvijvohm91uifvd9hratehf65k%40group.calendar.google.com/public/basic?start-min=" + fday + "&start-max=" + lday
  xml = open(uri).read
  eventlist=Array.new

  REXML::Document.new(xml).root.elements.each("entry") do |elm|
     eventlist << elm.elements['title'].text.to_s
  end

  config = Pit.get("ITWSCAL")
  cl = Twitter::Client.new(config)
  str = " 開催:"
  eventlist.each do |event|
    mess = sday + str + event + " -> http://tinyurl.com/itwscal"
    cl.status(:post,mess)
    sleep 60
  end

rescue
  print "RuntimeError: ", $!, "\n";
end

追記:はなずきんさんが褒めてくれました。嬉しいです。