コミット: a5f18f786b3bc3674c51c6b2baf41e2b7e525582 - pragger (git)

コミットメタ情報

• リビジョン: a5f18f786b3bc3674c51c6b2baf41e2b7e525582 (tree)
• 日時: 2009-09-22 20:32:48
• 作者: ikeji <ikeji@f836...>
• コミッター: ikeji

ログメッセージ

Add new plugin feed "mail.com".

git-svn-id: http://dev.ikejima.org/src/svn/pragger/trunk@412 f8368ae4-1e99-dc11-9799-0018f35ab5fa

変更サマリ

• add: plugin/Feed/mailcom.rb

差分

--- /dev/null
+++ b/plugin/Feed/mailcom.rb
@@ -0,0 +1,48 @@
+## Get mail lists from http://mail.com
+
+begin
+  require 'rubygems'
+rescue LoadError
+end
+require 'mechanize'
+
+def mailcom(config, data)
+  agent = WWW::Mechanize.new
+  page = agent.get("http://mail.com")
+  form = page.forms[1]
+  form.fields.find{|f| f.name == 'login'}.value = $reg['mailcom']['username']
+  form.fields.find{|f| f.name == 'password'}.value = $reg['mailcom']['password']
+  page = agent.submit(form,form.buttons.first)
+
+  page = agent.get(page.frames[1].uri)
+
+  page = agent.get("http://mail01.mail.com/scripts/mail/mailbox.mail?folder=INBOX")
+
+  result = []
+  page.links.each do|l|
+    uri = l.uri.to_s rescue ""
+    if uri =~ /\/scripts\/mail\/read\.mail/
+      result.push MailComRSSItem.new(l)
+    end
+  end
+  return result
+end
+
+class MailComRSSItem
+  def initialize (link)
+    @link = link
+  end
+
+  def title
+    @link.text
+  end
+  def link
+    "http://mail01.mail.com" + @link.href.sub(/&mprev=.*/,"")
+  end
+  def description
+    @link.text
+  end
+  def to_s
+    @link.text + " \nhttp://mail01.mail.com" + @link.href.sub(/&mprev=.*/,"") + "\n\n\n\n"
+  end
+end