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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184

# Erik Kastner 2008-02-16 small blog engine with XMLRPC, hAtom and S3 upload (through xlmrpc) support
require 'rubygems'
require 'sinatra'
require 'xmlrpc/marshal'
require 'active_record'
require 'aws/s3'

BUCKET = "sinatra-data.metaatem.net"
ActiveRecord::Base.establish_connection(:adapter => "sqlite3", :database => "sin.db")

begin
  ActiveRecord::Schema.define do
    create_table :posts do |t|
      t.string :title
      t.string :author
      t.text :description
      t.timestamps
    end
  end
rescue ActiveRecord::StatementInvalid
end

class Post < ActiveRecord::Base
  def permalink; "/posts/#{to_param}"; end
  def full_permalink; "http://sin.metaatem.net#{permalink}"; end
  
  def to_metaweblog
    {
      :dateCreated => created_at,
      :userid => 1,
      :postid => id,
      :description => description,
      :title => title,
      :link => "#{full_permalink}",
      :permaLink => "#{full_permalink}",
      :categories => ["General"],
      :date_created_gmt => created_at.getgm,
    }
  end
end

# set utf-8 for outgoing
before_attend do
  header "Content-Type" => "text/html; charset=utf-8"
end

layout do
  <<-HTML
  <html>
  <head>
    <meta http-equiv="Content-type" content="text/html; charset=utf-8">
    <title>Mini Sinatra Blog</title>
    <link rel="alternate" href="feed://subtlety.errtheblog.com/O_o/2d4.xml" type="application/atom+xml"/>
    <style type="text/css" media="screen">
      body { font: 75% "Helvetica", arial, Verdana, sans-serif; background: #FFB03B; }
      h1 { margin: 0; color: #8E2800; }
      h2 { margin-bottom: 0;}
      a { color: #468966; }
      #page { margin: 1em auto; width: 41.667em; border: 0.75em solid #B64926; background: white; padding: 2em; }
      .post { border-bottom: 0.4em double #FFB03B; padding-bottom: 1em;}
      .post .subtitle { padding-bottom: 1em; font-size: 83.333%; display: block;}
      #header, #footer { width: 47em; margin: 0 auto}
      #header h3 { font-size: 320%; margin: 0.5em 0 0 0; font-family: "Georgia";}
      #header h3 a { color: #FFF0A5; text-decoration: none; text-transform: uppercase; letter-spacing: 0.3em; text-shadow: #B64926 0.04em 0.04em;}
    </style>
  </head>
  <body>
    <div id="header"><h3><a href="/">Mini Blogin’</a></h3></div>
    <div id="page">
      <%= yield %>
    </div>
    <div id="footer">&copy; Erik <a href="http://metaatem.net/" alt="kastner">Kastner</a>. Source code on pastie</div>
  </body>
  </html>
  HTML
end

get '/' do
  res = "<h1>Posts</h1>"
  res += <<-HTML
  <div class="post">
    <p>Welcome. If you’d like to try adding a post. Point your editor at http://sin.metaatem.net/xml with any username.</p>
    <p>You can even upload files. However, you can only upload small files until Rack, or Sinatra or SOMEONE fixes TempFile uploads.</p>
  </div>
  HTML
  
  Post.find(:all, :limit => 20, :order => "created_at DESC").each do |p|
    # hAtom
    res << <<-HTML
    <div class="post hentry">
      <h2><a href="#{p.permalink}" class="entry-title" rel="bookmark">#{p.title}</a></h2>
      <span class="subtitle">Posted by 
        <span class="author vcard fn">#{p.author}</span> on 
        <abbr class="updated" title="#{p.updated_at.getgm.strftime("%Y-%m-%dT%H:%M:%SZ")}">#{p.updated_at.strftime("%D")}</abbr>
      </span>
      <div class="content entry-content">
        #{p.description}
      </div>
    </div>
    
    HTML
  end
  erb res
end

# a single post -- sinatra doesn't do head requests in it's dsl yet. this is also DRY
%w{get head}.each do |meth|
  Sinatra::Event.new(meth.to_sym, '/posts/:id') do
    p = Post.find(params[:id])
    res = "<h1>#{p.title}</h1>"
    res << "#{p.updated_at.strftime("%D")}"
    res << "<p>#{p.description}</p>"
    erb res
  end
end

# metaweblog api handler
post '/xml' do
  xml = @request.env["rack.request.form_vars"]
  if xml.empty?
    hash = @request.env["rack.request.query_hash"]
    xml = (hash.keys + hash.values).join
  end
  
  raise "Nothing supplied" if xml.empty?
  
  call = XMLRPC::Marshal.load_call(xml)
  # convert metaWeblog.getPost to get_post
  method = call[0].gsub(/metaWeblog\.(.*)/, '\1').gsub(/([A-Z])/, '_\1').downcase
  
  header 'Content-Type' => 'text/xml'  
  send(method, call)
end

def get_post(xmlrpc_call)
  begin
    post = Post.find(xmlrpc_call[1][0])
  rescue ActiveRecord::RecordNotFound
    post = Post.find(xmlrpc_call[1][0].gsub(/^.*posts\/(\d+)[^\d].*$/, '\1'))
  end
  XMLRPC::Marshal.dump_response(post.to_metaweblog)
end

def get_recent_posts(xmlrpc_call)
  posts = Post.find(:all, :limit => 10, :order => "created_at DESC")
  XMLRPC::Marshal.dump_response(posts.map{|p| p.to_metaweblog})
end

def new_post(xmlrpc_call)
  data = xmlrpc_call[1]
  # blog_id = data[0]; user = data[1]; pass = data[2]
  post_data = data[3]
  post = Post.create(:author => data