Fix pastebin Atom feed

release
Slava Pestov 2007-12-08 17:18:25 -05:00
parent 7f337c2085
commit fc556d9352
3 changed files with 7 additions and 6 deletions

View File

@ -1,4 +1,5 @@
<% USING: continuations namespaces io kernel math math.parser furnace webapps.pastebin ; %> <% USING: continuations namespaces io kernel math math.parser
furnace webapps.pastebin calendar ; %>
<tr> <tr>
<td> <td>
@ -7,5 +8,5 @@
</a> </a>
</td> </td>
<td><% "author" get write %></td> <td><% "author" get write %></td>
<td><% "date" get print %></td> <td><% "date" get timestamp>string print %></td>
</tr> </tr>

View File

@ -60,7 +60,7 @@ SYMBOL: store
paste-summary paste-summary
paste-link paste-link
paste-date paste-date
} get-slots "" swap <entry> } get-slots timestamp>rfc3339 f swap <entry>
] map ; ] map ;
: feed.xml ( -- ) : feed.xml ( -- )
@ -75,7 +75,7 @@ SYMBOL: store
store get-global save-store ; store get-global save-store ;
: add-paste ( paste pastebin -- ) : add-paste ( paste pastebin -- )
>r now timestamp>http-string over set-paste-date r> >r now over set-paste-date r>
pastebin-pastes 2dup length swap set-paste-n push ; pastebin-pastes 2dup length swap set-paste-n push ;
: submit-paste ( summary author channel mode contents -- ) : submit-paste ( summary author channel mode contents -- )

View File

@ -1,4 +1,4 @@
<% USING: namespaces io furnace sequences xmode.code2html ; %> <% USING: namespaces io furnace sequences xmode.code2html calendar ; %>
<% <%
"Paste: " "summary" get append "title" set "Paste: " "summary" get append "title" set
@ -8,7 +8,7 @@
<table> <table>
<tr><th>Paste by:</th><td><% "author" get write %></td></tr> <tr><th>Paste by:</th><td><% "author" get write %></td></tr>
<tr><th>Channel:</th><td><% "channel" get write %></td></tr> <tr><th>Channel:</th><td><% "channel" get write %></td></tr>
<tr><th>Created:</th><td><% "date" get write %></td></tr> <tr><th>Created:</th><td><% "date" get timestamp>string write %></td></tr>
<tr><th>File type:</th><td><% "mode" get write %></td></tr> <tr><th>File type:</th><td><% "mode" get write %></td></tr>
</table> </table>