Reorg headers, http headers now are echo-ed from werc.rc instead of being part of headers.tpl.

This fixes some bugs in the handling HEAD and makes things a bit more clear.
This commit is contained in:
Uriel 2009-03-13 13:04:25 +01:00
parent 77ecde8fa2
commit 673bdaf664
6 changed files with 17 additions and 17 deletions

View file

@ -35,10 +35,10 @@ fn blagh_init {
<link rel="alternate" type="application/rss+xml" title="RSS" href="'$"u'.rss" />'
}
if not if(~ $req_path $blagh_uri^index.atom)
blagh_setup_feed_handlers atom.tpl
blagh_setup_feed_handlers atom.tpl 'application/atom+xml'
if not if(~ $req_path $blagh_uri^index.rss)
blagh_setup_feed_handlers rss20.tpl
blagh_setup_feed_handlers rss20.tpl 'text/xml; charset=utf-8'
if not if(~ $req_path $blagh_uri^new_post && ! ~ $#editor_mode 0) {
handler_body_main=( tpl_handler `{get_lib_file blagh/new_post.tpl apps/blagh/new_post.tpl} )
@ -56,6 +56,7 @@ fn blagh_init {
fn blagh_setup_feed_handlers {
handler_body_main=NOT_USED_by_blagh_feeds
res_tail=()
http_content_type=$2
headers=()
master_template=apps/blagh/$1 # Should we allow tempalte override?
}

View file

@ -1,5 +1,3 @@
Content-Type: application/atom+xml
<?xml version="1.0" encoding="utf-8"?>
%{

View file

@ -1,5 +1,3 @@
Content-Type: text/xml; charset=utf-8
<?xml version="1.0" encoding="UTF-8"?>
%{

View file

@ -19,6 +19,7 @@ path=(. $PLAN9/bin ./bin /bin /usr/bin)
headers=lib/headers.tpl
res_tail='</body></html>'
http_content_type='text/html'
ll_add handlers_bar_left nav_tree
werc_apps=( apps/* )
werc_root=`{pwd}
@ -112,9 +113,16 @@ fn werc_exec_request {
setup_handlers
for(h in $extraHttpHeaders)
echo $h
echo 'Content-Type: '^$http_content_type
if(~ $REQUEST_METHOD HEAD)
exit
if(! ~ $#debug 0)
dprint $"SERVER_NAME^$"REQUEST_URI - $"HTTP_USER_AGENT - $"REQUEST_METHOD - $"handler_body_main - $"master_template
template $headers $master_template | awk_buffer
echo $res_tail
}

View file

@ -1,4 +1,3 @@
<div id="header">
<div class="superHeader">
% cat `{ get_lib_file top_bar.inc }

View file

@ -1,8 +1,3 @@
% for(h in $extraHttpHeaders) echo $h
Content-Type: text/html
% if(~ $REQUEST_METHOD HEAD)
% exit
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
@ -11,7 +6,13 @@ Content-Type: text/html
<title>%($pageTitle%)</title>
<link rel="stylesheet" href="/pub/style/style.css" type="text/css" media="screen, handheld" title="default" />
<link rel="shortcut icon" href="/favicon.ico" type="image/vnd.microsoft.icon" />
% if(test -f $sitedir/_werc/pub/style.css)
% echo ' <link rel="stylesheet" href="/_werc/pub/style.css" type="text/css" media="screen" title="default" />'
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta name="author" content="k" />
% if(! ~ $#meta_description 0)
@ -19,11 +20,6 @@ Content-Type: text/html
% if(! ~ $#meta_keywords 0)
% echo ' <meta name="keywords" content="'$"meta_keywords'" />'
<link rel="stylesheet" href="/pub/style/style.css" type="text/css" media="screen, handheld" title="default" />
<link rel="shortcut icon" href="/favicon.ico" type="image/vnd.microsoft.icon" />
% if(test -f $sitedir/_werc/pub/style.css)
% echo ' <link rel="stylesheet" href="/_werc/pub/style.css" type="text/css" media="screen" title="default" />'
% h = `{get_lib_file headers.inc}
% if(! ~ $#h 0)
% cat $h