steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Minor web framework fixes

db4
Slava Pestov 2008-06-07 10:40:47 -05:00
parent 4ca59470ce
commit 313bd9b154
3 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
extra/http/server/server.factor
View File

@ -44,8 +44,13 @@ main-responder global [ <404> <trivial-responder> or ] change-at
: do-response ( response -- ) : do-response ( response -- )
dup write-response dup write-response
request get method>> "HEAD" = request get method>> "HEAD" = [ drop ] [
[ drop ] [ '[ , write-response-body ] [ http-error. ] recover ] if ; '[ , write-response-body ]
[
development-mode get
[ http-error. ] [ drop "Response error" ] if
] recover
] if ;
LOG: httpd-hit NOTICE LOG: httpd-hit NOTICE

2
extra/webapps/blogs/blogs-common.xml
View File

@ -24,7 +24,7 @@
</div> </div>
<h2><t:write-title /></h2> <h1><t:write-title /></h1>
<t:call-next-template /> <t:call-next-template />

4
extra/webapps/blogs/view-post.xml
View File

@ -6,11 +6,11 @@
<t:label t:name="author" />: <t:label t:name="title" /> <t:label t:name="author" />: <t:label t:name="title" />
</t:atom> </t:atom>
<t:atom t:href="$blogs/by" t:query="author"> <t:atom t:href="$blogs/by.atom" t:query="author">
Recent Posts by <t:label t:name="author" /> Recent Posts by <t:label t:name="author" />
</t:atom> </t:atom>
<t:title> <t:label t:name="title" /> </t:title> <t:title> <t:label t:name="author" />: <t:label t:name="title" /> </t:title>
<p class="posting-body"> <p class="posting-body">
<t:farkup t:name="content" /> <t:farkup t:name="content" />