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

View File

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

View File

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

View File

@ -6,11 +6,11 @@
<t:label t:name="author" />: <t:label t:name="title" />
</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" />
</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">
<t:farkup t:name="content" />