My favorites ▼ | Sign in
Project Home Downloads Wiki Issues Source
Checkout   Browse   Changes    
  
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
 
#!/usr/bin/ruby

# Welcome to the MailAppToOPML Script
# What it does: Simply converts the RSS/Atom Newsfeeds that you have subscribed to using Mail.app
#                 and then turns it into OPML, so that it can be used in other news readers
# @author: Daniel Lewis ( http://vanirsystems.com/ )
# @author: Anders Carling ( http://space.lowe.nu )
# Personal Email of Author: danieljohnlewis [-a-t-] gmail [-d-o-t-] com
# Authors Blog: http://vanirsystems.com/danielsblog
# This software works with Mail.app on Mac OS X. It is built using the Ruby Programming Language.
# It is licensed under LGPL.

require 'uri'
require 'find'
require 'date'

def opmlline(infoplist, text)
  output = ""
  infopliststr = infoplist.read
  infopliststr.scan(URI.regexp) do |*matches|
    if $& != "http://www.apple.com/DTDs/PropertyList-1.0.dtd"
      output << "<outline title=\"#{text}\" text=\"#{text}\" type=\"rss\" xmlUrl=\"#{$&}\" />"
    end
  end
  return output
end

def writeopml(opmllines)
  File.open("rssfeeds.opml",  "a") do |f|
    f.puts "<?xml version=\"1.0\" encoding=\"utf-8\" ?><opml version=\"1.1\"> <head>   <title>RSS Feeds</title>   <dateCreated>#{Date.new.to_s}</dateCreated></head><body>"
    opmllines.each_pair do |folders, opmldata|
      folders.scan(/(.*?)\//).each do |folder|
        f.puts %Q[<outline title="#{folder}" text="#{folder}">]
      end

      f.puts opmldata

      f.puts %Q[</outline>\n\n]*folders.count("/")
    end
    f.puts "</body></opml>"
    return Dir.pwd + "/" + f.path
  end
end

namere = /RSS\/(.*\/)*(.*?)\.rssmbox\/Info.plist/
path = File.expand_path("~/Library/Mail/RSS/")
opmllines = Hash.new
Find.find(path) do |p1| 
  if m=p1.match(namere)
    folders = m[1].freeze || "rootitems".freeze
    text    = m[2]
    opmllines[folders] ||= ""
    lines = ""
    File.open(p1.to_s, "r") do |p1file|
      opmllines[folders] << opmlline(p1file, text)
    end
  end
end

opmlfilepath = writeopml(opmllines)
puts "The location of your OPML file is: #{opmlfilepath}"

Change log

r4 by lowelito on Feb 5, 2009   Diff 
Merged changes from http://github.com/ande
rscarling/mailapptoopml/
It should now be able to parse RSS feeds
that's not placed inside folders in
Mail.app, i messed that up in r3.
Go to: 
Project members, sign in to write a code review

Older revisions

r3 by danieljohnlewis on Feb 4, 2009   Diff 
Update from Anders: Handle folders and
feed names nicer
r2 by danieljohnlewis on Jul 16, 2008   Diff 
First version of MailAppToOPML
All revisions of this file

File info

Size: 2006 bytes, 61 lines
Powered by Google Project Hosting