ref: e850153e752f93d58515b8a983b0daee5b3d9f47
parent: 6c94e5ddcbfe1f12cc27e6ac06e1c69d87ec1872
author: sl <[email protected]>
date: Fri Mar 6 11:32:33 EST 2009
First draft of wman app to browse and display manpages.
--- /dev/null
+++ b/apps/wman/app.rc
@@ -1,0 +1,49 @@
+fn conf_enable_wman {+ wman_base_uri=$conf_wd
+ wman_man_path=$*
+ if(~ $#wman_man_path 0)
+ wman_man_path=$wman_base_uri
+ conf_enable_app wman
+}
+
+fn wman_init {+ ifs='/' { p=`{echo $req_path | sed 's!^'^$wman_base_uri^'!!'} }+ m=$args($#args)
+
+ if(~ $req_path $wman_base_uri)
+ handler_body_main=wman_list_secs_handler
+ if not if(~ $req_path $wman_base_uri^*) {+ if(~ $req_path $wman_base_uri^*/[a-z0-9]*)
+ handler_body_main=(wman_page_handler $wman_man_path $p(1) $m)
+ if not if(~ $req_path $wman_base_uri^*/)
+ handler_body_main=(wman_sec_list_handler $wman_man_path/$m)
+ if not if(~ $m [A-Z]*) # Correct badly capitalized links
+ perm_redirect $wman_base_uri$p/^`{echo $m |tr 'A-Z' 'a-z'}+ }
+}
+
+fn wman_sec_list_handler {+ ls -F $* | sed $dirfilter^' /\.html$/d' | awk -F/ '
+BEGIN { print "<h1>Manual pages</h1><ul>" }+$(NF-1) ~ /^[a-z]*[0-9][0-9]?$/ {+ print "<li><a href=\""$(NF)"\">"$(NF)"</a></li>"
+}
+END { print "</ul>" }'+}
+
+fn wman_list_secs_handler {+ ls -F $wman_man_path | awk -F/ '
+BEGIN { print "<h1>Manual Sections</h1><ul>" }+$(NF-1) ~ /^[a-z]*[0-9][0-9]?$/ {+ print "<li><a href=\""$(NF-1)"/\">"$(NF-1)"</a></li>"
+}
+END { print "</ul>" }'+}
+
+fn wman_page_handler {+ #troff -manhtml $1 | troff2html -t 'Plan 9 from User Space'
+ p='../\2/\1'
+ if(~ $2 man[0-9])
+ p='../man\2/\1.\2'
+ nroff -man $1/$2/$3 | sed 's!([\-a-zA-Z0-9]+)\(([0-9])\)!<a href="'$p'">&</a>!g' | awk ' BEGIN { print "<pre>" } /^$/ {if(n != 1) print; n=1; next} /./ {n=0; print} END { print "</pre>" }'+}
--- a/bin/werc.rc
+++ b/bin/werc.rc
@@ -57,7 +57,8 @@
if(~ $local_path */) {if(test -d $local_path)
local_path=$local_path^'index'
- if not # XXX: This redir might step on apps with synthetic dirs.
+ # XXX: This redir might step on apps with synthetic dirs.
+ if not if(ls `{basename -d $local_path}^* >/dev/null >[2]/dev/null) perm_redirect `{echo $req_path|sed 's,/+$,,'}}
if not if(~ $req_path *'.' *',' *';' *':')