initial import

.hgignore

@@ -1,3 +0,0 @@
-syntax: glob
-etc/initrc.local
-sites/?*/

apps/blagh/rss20.tpl

@@ -25,10 +25,10 @@ fn statpost {
 	# rfc2822 last time channel content changed.
 	lbd=`{ndate -m `{date `{mtime `{ls $blagh_root$blagh_dirs/[0-9][0-9][0-9][0-9]/[0-9][0-9]/[0-9][0-9]/[0-9] | tail -1} | awk '{print $1}'}}}
 	echo '<lastBuildDate>'$"lbd'</lastBuildDate>'
-	# rfc2822 publication date for content in the channel.
-	pubdate=`{ndate -m}
         for(f in `{get_post_list $blagh_root$blagh_dirs}){
             statpost $f
+	    # rfc2822 publication date for this post.
+	    pubdate=`{ndate -m `{date `{mtime $f | awk '{print $1}'}}}
 %}
         <item>
             <title><![CDATA[%($title%)]]></title>

apps/mdir/TODO

@@ -0,0 +1,10 @@
+* unfuck quoted-printable crap
+* more robust plaintext extraction from mime
+* more efficient month sort in the year view
+  * I think sort(1) might have a bug with -M and pos1
+  * or stupid awk can just produce an ordered list
+* a lot of speedup
+  * this might mean an external index
+  * or it might just mean aggressive in-app cache
+* do we want threading in the month views
+* decode non-ascii header values (From: especially)

apps/mdir/app.rc

@@ -0,0 +1,178 @@
+fn conf_enable_mdir {
+        mdir=`{pwd}
+        listbase=$conf_wd
+        listname=`{basename `{ basename -d $listbase}}
+        conf_enable_app mdir
+        dirfilter=$dirfilter' /mbox\/?$/d;'
+}
+
+
+fn mdir_init   {
+    showmonth=`{echo $req_path | sed 's/.*[0-9][0-9][0-9][0-9]\/([A-Z][a-z][^\/]+).*/\1/'}
+    showyear=`{echo $req_path | sed 's/.*\/([0-9][0-9][0-9][0-9])\/.*/\1/'}
+    handler_body_main='mdir_index'
+
+    if (~ $req_path $listbase[0-9][0-9][0-9][0-9]/[A-Z][a-z]*/[0-9]*) {
+        handler_body_main='message_display'
+    } 
+		if not if (~ $req_path $listbase[0-9][0-9][0-9][0-9]/[A-Z][a-z]*) {
+        handler_body_main='month_display'
+    } 
+		if not if(~ $req_path $listbase[0-9][0-9][0-9][0-9]*) {
+        handler_body_main='year_display'
+    }
+
+
+}
+
+fn message_display {
+  message=`{basename $req_path}
+  echo '<h1><a href="'$listbase'">'$listname'</a> - <a href="'$listbase$showyear'/">'$showyear'</a> - '
+  echo '<a href="'$listbase$showyear'/'$showmonth'/">'$showmonth'</a> -'
+	echo '<a href="'$req_path'">this message</a> ' 
+	approx=`{echo $"message | sed 's/(...).*/\1/' }
+	neighbors=`{ls -p $mdir/mbox/$approx^*}
+	prevmsg=`{echo $neighbors | tr '\012' ' ' | sed -n 's/.* ([^ ]+) '$message'.*/\1/p'}
+	nextmsg=`{echo $neighbors | tr '\012' ' ' | sed -n 's/.*'$message' ([^ ]+).*/\1/p'}
+	echo '</h1><h2>'
+	if (~ $#prevmsg 1 || ~ $#nextmsg 1) { echo '[<i> ' }
+  if (~ $#prevmsg 1) { echo '<a href="'$prevmsg'">previous</a>' }
+	if (~ $#prevmsg 1 && ~ $#nextmsg 1) { echo ' , ' }
+	if (~ $#nextmsg 1) { echo '<a href="'$nextmsg'">next</a>' }
+	if (~ $#prevmsg 1 || ~ $#nextmsg 1) { echo ' </i>]' }
+  echo '</h2>'
+  awk '
+  /^Subject:/ && (headersdone == 0) { subject=$0 }
+  /^From:/ && (headersdone == 0) { from=$0; gsub(/</, "\\&lt;", from); gsub(/>/, "\\&gt;", from); }
+  /^Date:/ && (headersdone == 0) { date=$0 }
+  /^$/ && (headersdone==0) { print "<h2>" subject "</h2><pre>"; print from; print date; headersdone=1 }
+  (headersdone == 1) { exit }
+  ' $mdir/mbox/$message | sed 's/([^ @.]+)\@[^ @]+\.[^@ $][a-zA-Z]+/\1@[REDACTED]/g;' 
+
+	cat $mdir/mbox/$message | {
+		boundary=undef;
+		while (line=`{read}) {
+			if (~ $line Content-Type*multipart*) { # flag mimeshit boundary
+										multipart=1
+				boundary=`{echo $line | sed 's/^.*boundary=//; s/[  ].*$//'}
+										if (test -z $boundary) { boundary=undef; } # fucking header wrap
+			}
+						if (~ $multipart 1) {
+										if (~ $boundary undef) { # desperately try to identify a boundary
+					boundary=`{echo $line | sed 's/^.*boundary=//; s/[        ].*$//'}
+			 }
+			}
+
+			if (~ $"line '') { # note end of header section
+				endheaders = 1;
+			}
+
+			if (~ $boundary undef ) { # no boundary, headers over:  print message
+				if (~ $endheaders 1) {
+					echo $line
+				}
+			}
+			if not { # boundaries: print only text/plain
+				if (~ $line --$boundary) { # boundary found, toggle state
+					if (~ $inboundary 1) { 
+						inboundary=0
+					}
+					if not {
+						inboundary=1
+					}
+				}
+				if (~ $inboundary 1) { # we're in a text/plain part, print it
+					if (~ $textpart 1) {
+						echo $line
+					}
+				}
+				if (~ $line Content-Type*text*plain*) { # note advent of text/plain part
+					if (~ $inboundary 1) {
+						echo found text part
+						textpart=1
+					}
+				}
+			}
+		}
+	}
+
+  echo '</pre>'
+}
+
+fn mdir_index {
+  echo '<h1>' $listname '</h1>'
+  echo '<ul>'
+  ls -p $mdir/mbox | awk ' { year = int($0 / 31556926); array[year+1970]+=1; } 
+  END { for (i in array) { print "<li><a href=\"" i "/\">" i "</a> (" array[i] " messages)</li>" | "sort"}  }' 
+  echo '</ul>'
+}
+
+fn year_display {
+echo '<h1><a href="'$listbase'">'$listname'</a> - '$showyear'</h1>'
+echo '<ul>'
+ls -p $mdir/mbox | awk 'BEGIN { jan = (ENVIRON["showyear"] - 1970) * 31556926
+	feb = jan + 2629743; mar = feb + 2629743; apr = mar + 2629743; may = apr + 2629743;
+	jun = may + 2629743; jul = jun + 2629743; aug = jul + 2629743; sep = aug + 2629743;
+	oct = sep + 2629743; nov = oct + 2629743; dec = nov + 2629743; end = dec + 2629743 }
+	($0 > jan) && ($0 < feb) { month["January"] += 1 }
+	($0 > feb) && ($0 < mar) { month["February"] += 1 }
+	($0 > mar) && ($0 < apr) { month["March"] += 1 }
+	($0 > apr) && ($0 < may) { month["April"] += 1 }
+	($0 > may) && ($0 < jun) { month["May"] += 1 }
+	($0 > jun) && ($0 < jul) { month["June"] += 1 }
+	($0 > jul) && ($0 < aug) { month["July"] += 1 }
+	($0 > aug) && ($0 < sep) { month["August"] += 1 }
+	($0 > sep) && ($0 < oct) { month["September"] += 1 }
+	($0 > oct) && ($0 < nov) { month["October"] += 1 }
+	($0 > nov) && ($0 < dec) { month["November"] += 1 }
+	($0 > dec) && ($0 < end) { month["December"] += 1 }
+	END { for (i in month) { 
+		print i "<li><a href=\"" ENVIRON["listbase"] ENVIRON["showyear"] "/" i "/\">" i "</a> (" month[i] " messages) </li>" 
+	} }
+	'| sort -M | sed 's/^[A-Za-z]+<li>/<li>/'
+
+echo '</ul>'
+}
+
+fn month_display {
+echo '<h1><a href="'$listbase'">'$listname'</a> - <a href="'$listbase$showyear'/"/>'$showyear'</a> - '$showmonth'</h1>'
+echo '<ul>'
+ls -p $mdir/mbox | awk 'BEGIN { monthstamp = (ENVIRON["showyear"] - 1970) * 31556926
+	month = ENVIRON["showmonth"]
+	year = ENVIRON["showyear"]
+	listbase = ENVIRON["listbase"]
+	msg = ENVIRON["msg"]
+	if (month == "February") { monthstamp += 2629743 }
+	if (month == "March")    { monthstamp += (2629743 * 2) }
+	if (month == "April")    { monthstamp += (2629743 * 3) }
+	if (month == "May")      { monthstamp += (2629743 * 4) }
+	if (month == "June")     { monthstamp += (2629743 * 5) }
+	if (month == "July")     { monthstamp += (2629743 * 6) }
+	if (month == "August")   { monthstamp += (2629743 * 7) }
+	if (month == "September"){ monthstamp += (2629743 * 8) }
+	if (month == "October")  { monthstamp += (2629743 * 9) }
+	if (month == "November") { monthstamp += (2629743 * 10) }
+	if (month == "December") { monthstamp += (2629743 * 11) }
+	monthend = monthstamp + 2629743
+	}
+	($0 > monthstamp) && ($0 < monthend) { print $0 }
+	' | sort -u | while (msg=`{read}) {
+		awk 'BEGIN { month = ENVIRON["showmonth"]; year = ENVIRON["showyear"]; 
+								 listbase = ENVIRON["listbase"]; msg = ENVIRON["msg"] }
+				 /^Subject:[ 	]/ { subject = $0; sub(/^Subject: /, "", subject) }
+				 /^From:[ 	]/ { gsub(/^From:[ 	]+/, "", $0);
+								 		 gsub(/ <.*$/, "", $0); 
+										 gsub(/[<>]/, "", $0);
+										 gsub(/^.*[(]/, "", $0); 
+										 gsub(/[)].*$/, "", $0); 
+										 gsub(/["]/, "", $0);
+										 gsub(/@[^ ]+/, "", $0); 
+										 from=$0; }
+				/^$/ { nextfile; }
+				END { if (subject == "") { subject = "[no subject]" }
+							print "<li><a href=\"" listbase year "/" month "/" msg "\">";
+							print subject "</a> - " from "</li>" }' $mdir/mbox/$msg
+ }
+
+echo '</ul>'
+}

apps/mdir/readme.txt

@@ -0,0 +1,11 @@
+INSTALL:
+
+put this folder in e.g. /werc/apps/mdir
+
+put your mdir in e.g. /werc/sites/example.com/mail/
+(such that all the messages land in /werc/sites/example.com/mail/mbox/)
+
+mkdir /werc/sites/example.com/mail/_werc
+echo "conf_enable_mdir" > /werc/sites/example.com/mail/_werc/config
+
+good luck.

apps/wman/search.tpl

@@ -6,7 +6,7 @@
 
 % if(! ~ $"post_arg_wman_search '') {
 %   if(~ $"wman_search_results '') {
-        No matches found for <i>'%($post_arg_wman_search%)'</i>.
+        No matches found for <i>'%($s%)'</i>.
 %   }
 %   if not {
         <ul>

bin/contrib/rc-httpd/handlers/error

@@ -3,7 +3,7 @@
 fn do_error{
 	echo 'HTTP/1.1 '^$1^$cr
 	emit_extra_headers
-	echo 'Content-type: text/html'^$cr
+	echo 'Content-type: text/html; charset=utf-8'^$cr
 	echo $cr
 	echo '<html>
 <head>
@@ -19,6 +19,11 @@ fn do_error{
 	'
 }
 
+fn 400{
+	do_error '400 Bad Request' \
+	'The request was invalid.'
+}
+
 fn 401{
 	do_error '401 Unauthorized' \
 	'The requested path '^$"location^' requires authorization.'

bin/contrib/rc-httpd/rc-httpd

@@ -86,6 +86,11 @@ if(~ $#SERVER_NAME 2){
 	SERVER_PORT=$SERVER_NAME(2)
 	SERVER_NAME=$SERVER_NAME(1)
 }
+switch($SERVER_NAME){
+	case */* ..
+		error 400
+		exit
+}
 if(~ $REQUEST_METHOD (PUT POST)){
 	if(! ~ $"CONTENT_LENGTH '')
 		trim_input | exec $rc_httpd_dir/select-handler

bin/werc.rc

@@ -12,7 +12,7 @@ difs=$ifs # Used to restore default ifs when needed
 # Expected input: ls -F style, $sitedir/path/to/files/
 #          <ls -F+x><symlink hack><Useless?><hiden files  >
 dirfilter='s/\*$//; s,/+\./+,/,g; s,^\./,,; /\/[._][^\/]/d; /'$forbidden_uri_chars'/d; /\/sitemap\.xml$/d; /\/index\.(md|html|txt|tpl)$/d; /\/(robots|sitemap)\.txt$/d; /_werc\/?$/d; '
-dirclean=' s/\.(md|html|txt)$//; '
+dirclean=' s/\.(gmi|gem|md|html|txt)$//; '
 
 # Careful, the proper p9p path might not be set until initrc.local is sourced
 path=(. /bin ./bin)

bin/werclib.rc

@@ -97,6 +97,10 @@ fn get_md_title {
     sed -n -e '1N; /^.*\n===*$/N; /.*\n===*\n *$/!b' -e 's/\n==*\n//p' < $1
 }
 
+fn get_gmi_title {
+    sed -e 's/^# //;q' < $1
+}
+
 fn get_html_title {
     t=`{sed -n '32q; s/^.*<[Tt][Ii][Tt][Ll][Ee]> *([^<]+) *(<\/[Tt][Ii][Tt][Ll][Ee]>.*)?$/\1/p' < $1}
 
@@ -110,6 +114,10 @@ fn get_html_title {
 fn get_file_title {
     if (~ $1 *.md)
         get_md_title $1
+    if not if(~ $1 *.gmi)
+        get_gmi_title $1
+    if not if(~ $1 *.gem)
+        get_gmi_title $1
     if not if(~ $1 *.html)
         get_html_title $1
     if not if(~ $1 */) {

sites/plan9.stanleylieber.com/mother/README

@@ -0,0 +1,65 @@
+mother
+======
+
+Mother is an [rc(1)](http://man.9front.org/1/rc) script that provides
+an experience similar to
+[nedmail(1)](http://man.9front.org/1/nedmail).
+
+Download it [here](http://only9fans.com/sl/mother/HEAD/info.html).
+
+help
+----
+
+	usage: mother [ -d ] [ -f mbox ] [ -p msg ] [ -r ]
+
+	Commands are of the form [<range>] <command> [args]
+	<range> := <addr> | <addr>,<addr>
+	<command> :=
+	a		reply to sender and recipients
+	b		print the next ten headers
+	d		mark for deletion
+	e ...		enter message (args passed to upas/marshal)
+	g/regexp/cmd	grep headlines for regexp and run cmd on matches
+	h		print message headline (,h for all)
+	help		print this help message
+	m ...		forward mail to address(es)
+	mb ...		change to specified mailbox
+	p		print the processed message
+	P		print the raw message
+	q		quit
+	r		reply to message
+	s ...		store message in specified mailbox
+	u		remove deletion mark
+	y		synchronize with mail box
+	"		print message in quoted form, suitable for reply
+	|cmd		pipe the processed message to a command
+	||cmd		pipe the raw message to a command
+	!cmd		run a command
+
+extensions
+----------
+
+A script may be used in conjunction with
+[faces(1)](http://man.9front.org/1/faces) and the
+[plumber(4)](http://man.9front.org/4/plumber) to open individual
+messages (or the entire mailbox) by clicking mb1 on a face in the
+[faces(1)](http://man.9front.org/1/faces) window.  Each click produces
+a new window containing the selected message.
+
+The script:
+[facemother](https://plan9.stanleylieber.com/rc/facemother) <- read
+and modify as needed before using
+
+The plumber rule:
+
+	# faces -> new mail window for message
+	type	is	text
+	data	matches	'[a-zA-Z¡-￿0-9_\-./]+'
+	data	matches	'/mail/fs/[a-zA-Z¡-￿0-9/]+/[0-9]+'
+	plumb	to	showmail
+	plumb	start	window -r 646 117 1366 676 facemother $0
+
+screenshots
+-----------
+
+![ello.co](img/ello.co.png)

sites/plan9.stanleylieber.com/mother/facemother

@@ -0,0 +1,19 @@
+#!/bin/rc
+# 2018-02-15T21:12:06-0500
+# helper program for launching http://plan9.stanleylieber.com/mother from faces(1).
+rfork en
+
+# plumber rules for faces(1)
+#type	is	text
+#data	matches	'[a-zA-Z¡-￿0-9_\-./]+'
+#data	matches	'/mail/fs/[a-zA-Z¡-￿0-9/]+/[0-9]+'
+#plumb	to	showmail
+#plumb	start	window -r 583 206 1303 1200 facemother $0
+
+# open and print only the indicated message
+msg=`{sed -n 19p $1/info}
+upas/fs -f /mail/box/sl/mbox/$msg
+mother -p 1
+
+# use existing mailbox, print the indicated message
+#mother -p `{basename $1}

sites/plan9.stanleylieber.com/mother/index.md

@@ -0,0 +1,65 @@
+mother
+======
+
+Mother is an [rc(1)](http://man.9front.org/1/rc) script that provides
+an experience similar to
+[nedmail(1)](http://man.9front.org/1/nedmail).
+
+Download it [here](http://only9fans.com/sl/mother/HEAD/info.html).
+
+help
+----
+
+	usage: mother [ -d ] [ -f mbox ] [ -p msg ] [ -r ]
+
+	Commands are of the form [<range>] <command> [args]
+	<range> := <addr> | <addr>,<addr>
+	<command> :=
+	a		reply to sender and recipients
+	b		print the next ten headers
+	d		mark for deletion
+	e ...		enter message (args passed to upas/marshal)
+	g/regexp/cmd	grep headlines for regexp and run cmd on matches
+	h		print message headline (,h for all)
+	help		print this help message
+	m ...		forward mail to address(es)
+	mb ...		change to specified mailbox
+	p		print the processed message
+	P		print the raw message
+	q		quit
+	r		reply to message
+	s ...		store message in specified mailbox
+	u		remove deletion mark
+	y		synchronize with mail box
+	"		print message in quoted form, suitable for reply
+	|cmd		pipe the processed message to a command
+	||cmd		pipe the raw message to a command
+	!cmd		run a command
+
+extensions
+----------
+
+A script may be used in conjunction with
+[faces(1)](http://man.9front.org/1/faces) and the
+[plumber(4)](http://man.9front.org/4/plumber) to open individual
+messages (or the entire mailbox) by clicking mb1 on a face in the
+[faces(1)](http://man.9front.org/1/faces) window.  Each click produces
+a new window containing the selected message.
+
+The script:
+[facemother](https://plan9.stanleylieber.com/rc/facemother) <- read
+and modify as needed before using
+
+The plumber rule:
+
+	# faces -> new mail window for message
+	type	is	text
+	data	matches	'[a-zA-Z¡-￿0-9_\-./]+'
+	data	matches	'/mail/fs/[a-zA-Z¡-￿0-9/]+/[0-9]+'
+	plumb	to	showmail
+	plumb	start	window -r 646 117 1366 676 facemother $0
+
+screenshots
+-----------
+
+![ello.co](img/ello.co.png)

sites/plan9.stanleylieber.com/mother/mkfile

@@ -0,0 +1,9 @@
+web:V:
+	cp README index.md
+	if(test -f mother.tgz)
+		rm mother.tgz
+	cd ..
+	tar zcvf /tmp/mother.tgz mother
+	cd mother
+	cp /tmp/mother.tgz ../src/
+	rm /tmp/mother.tgz

sites/plan9.stanleylieber.com/mother/mother

@@ -0,0 +1,504 @@
+#!/bin/rc
+# 2022-11-16T18:11:20-05:00
+# Mother wants to talk to you.
+# Similar to nedmail. Use with 9front or nupas/fs (creates mdir format files on save).
+# BONUS: Helper program for use with faces(1): http://plan9.stanleylieber.com/mother/facemother
+rfork en
+ramfs -p
+argv0=$0
+if(~ $#editor 0)
+	editor=hold
+if(~ $#pager 0)
+	pager=cat
+mb=mbox
+msg=()
+sort=-r
+fn d{
+	if(test $1 -le $#rposts && test -d $rposts($1)){
+		flag +D $1 &&
+		dposts=($dposts $1) ||
+		echo !delete $1 failed
+	}
+	if not
+		echo !address
+}
+fn deldposts{
+
+
+	ndel=()
+	for(i in $dposts){
+		if(test $i -le $#rposts && test -d $rposts($i)){
+			echo delete $mb $rposts($i) >/mail/fs/ctl &&
+			echo !deleted $i &&
+			ndel=($ndel $i) ||
+			echo !delete $i failed
+		}
+	}
+	echo !$#ndel messages deleted
+
+
+}
+fn e{
+	>/tmp/e &&
+	eval $editor /tmp/e &&
+	yn send &&
+	if(~ $yn y)
+		/bin/upas/marshal $* </tmp/e
+}
+fn fakefile{
+	if(! ~ $#file 0 || ~ $disp file inline){
+		file='(file,'$"file')'
+		fake=`{
+			if(~ $type *gif *GIF)
+				echo body.gif
+			if not if(~ $type *jpeg *JPEG *jpg *JPG)
+				echo body.jpg
+			if not if(~ $type *png *PNG)
+				echo body.png
+			if not if(~ $file *.*)
+				echo body.^`{echo $file | sed 's/(^.*\.|\)$)//g'}
+			if not
+				echo body
+		}
+		filepath=`{echo -n /mail/fs/$mb/^$1^/$fake}
+		size=`{du $1^/$fake}
+		echo !--- $1 $type $size(1) $file [$filepath]
+	}
+}
+fn flag{
+	if(~ $1 [\+][aDdfrSs] [-][aDdfrSs]){
+		echo $1 >$rposts($2)^/flags &&
+		puth $2 ||
+		echo !address
+	}
+}
+fn fmtd{
+	date=`{read}
+	switch($date(2)){
+	case Jan;	mo=1
+	case Feb;	mo=2
+	case Mar;	mo=3
+	case Apr;	mo=4
+	case May;	mo=5
+	case Jun;	mo=6
+	case Jul;	mo=7
+	case Aug;	mo=8
+	case Sep;	mo=9
+	case Oct;	mo=10
+	case Nov;	mo=11
+	case Dec;	mo=12
+	}
+	switch($date(3)){
+	case [0-9]
+		da=0^$date(3)
+	case *
+		da=$date(3)
+	}
+	switch($date(6)){
+	case `{date | awk '{print $6;}'}
+		ti=`{echo $date(4) | awk '{print substr($0,0,5);}'}
+	case *
+		ti=$date(6)
+	}
+	echo $mo/$da $ti
+}
+fn geth{
+	for(i in $*){
+		flags=`{sed -n 18p $rposts($i)^/info | sed 's/-//g'}
+		mime=`{
+			if(~ `{sed -n 7p $rposts($i)^/info} multipart*)
+				echo H
+		}
+		size=`{sed -n 17p $rposts($i)^/info}
+		date=`{sed -n 5p $rposts($i)^/info | fmtd}
+		from=`{sed -n 1p $rposts($i)^/info}
+		subject=`{sed -n 6p $rposts($i)^/info | awk '{print substr($0,0,50);}'}
+		# Unicode 00a0 divides the message number from the headline.
+		# Command input ignores everything after the unicode 00a0.
+		# These lines may be selected and sent to the prompt
+		# in order to print the indicated message.
+		echo '  '$"i' '$"mime' '$"flags'   '$"size'   '$"date' '$"from'	'$"subject
+	}
+}
+fn getposts{ ls | grep -e '^[0-9]+$' | sort -n $sort }
+fn getr{
+	switch($*){
+	case ,;	echo $posts
+	case ,*;	seq 1 `{echo $* | sed 's/,//g'}
+	case *,;	seq `{echo $* | sed 's/,//g'} $posts($#posts)
+	case *,*;	seq `{echo $* | sed 's/,/ /g'}
+	case *;	echo $*
+	}
+}
+fn h{ sed -n $1^p /tmp/h }
+fn m{
+	if(test $1 -le $#rposts && test -f $rposts($1)^/info){
+		subject=`{sed -n 6p $rposts($1)^/info}
+		if(! ~ $subject FWD:* Fwd:* fwd:*)
+			subject=(Fwd: $subject)
+		e -s $"subject -A $rposts($1)^/raw $*(2-) &&
+		flag +a $1
+	}
+	if not
+		echo !address
+}
+fn mb{
+	mb=$1
+	if(test -d /mail/box/$user/$mb || test -d $mb){
+		if(! ~ $mb mbox){
+			if(~ $mb /mail/fs/*)
+				mb=`{basename $mb}
+			if not if(~ $mb /*)
+				echo open $mb `{basename $mb} >/mail/fs/ctl
+			if not
+				echo open /mail/box/$user/$mb $mb >/mail/fs/ctl
+			mb=`{basename $mb}
+		}
+		cd /mail/fs/$mb
+		dposts=()
+		y
+		post=$posts(1)
+		prompt=$post
+	}
+	if not
+		echo !^$mb does not exist
+}
+fn printhelp{
+echo 'Commands are of the form [<range>] <command> [args]
+<range> := <addr> | <addr>','<addr>
+<command> :=
+a		reply to sender and recipients
+b		print the next ten headers
+d		mark for deletion
+e ...		enter message (args passed to upas/marshal)
+g/regexp/cmd	grep headlines for regexp and run cmd on matches
+h		print message headline (,h for all)
+help		print this help message
+m ...		forward mail to address(es)
+mb ...		change to specified mailbox
+p		print the processed message
+P		print the raw message
+q		quit
+r		reply to message
+s ...		store message in specified mailbox
+u		remove deletion mark
+y		synchronize with mail box
+"		print message in quoted form, suitable for reply
+|cmd		pipe the processed message to a command
+||cmd		pipe the raw message to a command
+!cmd		run a command'
+}
+fn pp{
+if(test $1 -le $#rposts && test -f $rposts($1)^/header){
+{ # Avoid stutter by dumping everything into a file first.
+	cat $rposts($1)^/header
+	echo
+	if(test -d $rposts($1)^/1){
+		parts=`{ls -p $rposts($1) | grep -e '^[0-9]+'}
+		body=1/body
+		if(test -f $rposts($1)^/1/1/body)
+			body=1/1/body
+	}
+	if not{
+		parts=()
+		body=body
+	}
+	type=`{file -m $rposts($1)^/$body}
+	if(~ $type text/plain)
+		cat $rposts($1)^/$body
+	if not if(~ $type text/html){
+		hcmd=(htmlfmt -l60 -cutf8 -a $rposts($1)^/$body)
+		echo !/bin/^$"hcmd
+		eval $hcmd
+		echo
+		echo !--- $rposts($1) $type `{du $rposts($1)^/$body | awk '{print $1}'} [file:///mail/fs/$mb/^$rposts($1)^/$body]	# plumb to browser
+	}
+	if not{
+		disp=`{sed -n 8p $rposts($1)^/info}
+		file=`{sed -n 9p $rposts($1)^/info}
+		fakefile $rposts($1)
+	}
+	echo
+	if(! ~ $#parts 0){
+		if(! ~ $#parts 1)
+			parts=$parts(2-)
+		for(j in $parts){
+			type=`{file -m $rposts($1)^/$j/body}
+			disp=`{sed -n 8p $rposts($1)^/$j/info}
+			file=`{sed -n 9p $rposts($1)^/$j/info}
+			fakefile $rposts($1)^/$j
+		}
+		parts=()
+	}
+} >/tmp/p
+	eval $pager /tmp/p
+	go=1
+	r=$1
+	post=$1
+	prompt=$1
+	flag +s $1
+}
+if not
+	echo !address
+}
+fn P{
+	if(test $1 -le $#rposts && test -f $rposts($1)^/rawunix){
+		eval $pager $rposts($1)^/rawunix
+		go=1
+		r=$1
+		post=$1
+		prompt=$1
+		flag +s $1
+	}
+	if not
+		echo !address
+}
+fn puth{
+	flags=`{sed -n 18p $rposts($1)^/info | sed 's/-//g'}
+	mime=`{
+		if(~ `{sed -n 7p $rposts($1)^/info} multipart*)
+			echo H
+	}
+	size=`{sed -n 17p $rposts($1)^/info}
+	date=`{sed -n 5p $rposts($1)^/info | fmtd}
+	from=`{sed -n 1p $rposts($1)^/info}
+	subject=`{sed -n 6p $rposts($1)^/info | awk '{print substr($0,0,50);}'}
+	{
+		echo $1
+		echo c
+		# REMEMBER: Unicode 00a0 divides the message number from the headline.
+		echo '  '^$1^' '$"mime' '$"flags'   '$"size'   '$"date' '$"from'	'$"subject
+		echo .
+		echo w
+		echo q
+	} | sam -d /tmp/h >/dev/null >[2=1]
+}
+fn r{
+	if(test $1 -le $#rposts && test -f $rposts($1)^/info){
+		subject=`{sed -n 6p $rposts($1)^/info}
+		if(! ~ $subject RE:* Re:* re:*)
+			subject=(Re: $subject)
+		e -R $rposts($1) -s $"subject $*(2-) `{sed -n 4p $rposts($1)^/info} &&
+		flag +a $1
+	}
+	if not
+		echo !address
+}
+fn s{
+	if(test $1 -le $#rposts && test -f $rposts($1)^/raw){
+		if(! test -d /mail/box/$user/$2)
+			echo create $2 >/mail/fs/ctl
+		/bin/upas/mbappend $2 $rposts($1)^/raw &&
+		flag +S $1 &&
+		echo !saved in $2
+	}
+	if not
+		echo !address
+}
+fn u{
+	if(test $1 -le $#rposts && test -d $rposts($1))
+		flag -D $1 || echo !undelete $1 failed
+	if not
+		echo !address
+	dposts=`{grep -v $1 <{for(j in $dposts){ echo $j }}}
+}
+fn y{
+	go=()
+	r=$post
+	if(! ~ $#dposts 0){
+		deldposts
+		dposts=()
+	}
+	if(! ~ $q 1){
+		rposts=`{getposts}
+		posts=`{seq 1 $#rposts}
+		post=$posts(1)
+		prompt=$post
+		geth $posts >/tmp/h
+		if(~ $#msg 0)
+			echo $#posts messages
+	}
+}
+fn yn{
+	echo
+	echo -n $* ' (y, n) '
+	yn=`{read}
+	switch($yn){
+	case y n
+		;
+	case *
+		yn
+	}
+}
+fn '"' { pager=cat pp $1 | sed 1d | sed 's/^/> /g' | sed 's/^> >/>>/g' }
+fn usage{
+	echo usage: $argv0 [ -b ] [ -d ] [ -f mbox ] [ -p msg ] [ -r ] >[1=2]
+	exit usage
+}
+while(~ $1 -*){
+	switch($1){
+	case -b;	biff=-b
+	case -d;	debug=1
+	case -f;	mb=$2; shift
+	case -p;	msg=$2; shift
+	case -r;	sort=(); shift
+	case *;	usage
+	}
+	shift
+}
+if(! ~ $#* 0)
+	usage
+if(! test -f /mail/fs/ctl)
+	/bin/upas/fs $biff #>[2]/dev/null
+if(! test -d /mail/box/$user/$mb && ! test -d $mb){
+	echo !^$mb does not exist
+	exit $mb^' does not exist'
+}
+mb $mb
+if(! ~ $#msg 0){
+	for(i in `{seq 1 $#rposts})
+		if(~ $msg $rposts($i))
+			msg=$posts($i)
+	pp $msg
+}
+while(){
+	echo -n $"prompt': '
+	# Command input ignores everything after unicode 00a0.
+	rcmd=`{read | sed 's/[ ].*$//g' | sed 's/^([0-9]+)?(,)?([0-9]+)?/& /g'}
+	switch($rcmd){
+	case ,* [0-9]*
+		r=`{getr $rcmd(1)}
+		cmd=$rcmd(2-)
+		if(~ $#cmd 0)
+			cmd=p
+	case *
+		r=$post
+		cmd=$rcmd
+	}
+	switch($cmd){
+	case a a' '*
+		for(i in $r)
+			r $i $cmd(2-) `{sed -n 2,3p $rposts($i)^/info | sort -n | uniq}
+		post=$r($#r)
+		prompt=$post
+	case b
+		r=`{seq $r(1) `{echo $r(1)^+10|bc}}
+		if(test $r($#r) -gt $posts($#posts))
+			r=`{seq $r(1) $posts($#posts)}
+		if(! ~ $#r 0 && test $r(1) -le $posts($#posts)){
+			sed -n $r(1)^,$r($#r)^p /tmp/h
+			post=$r($#r)
+			prompt=$post
+		}
+		if not
+			echo !address
+	case d
+		for(i in $r)
+			d $i
+		post=$r($#r)
+		prompt=$post
+	case e' '*
+		e $cmd(2-)
+	case g/*
+		regexp=`{echo $cmd | awk -F '/' '{print $2;}'} # BUG: / is stripped from regexp and cmd.
+		cmd=`{echo $cmd | awk -F '/' '{$1=""; $2=""; print;}'}
+		r=`{</tmp/h grep -e $"regexp | sed 's/ .*$//g'} # Strip everything after unicode 00a0.
+		if(~ $#cmd 0)
+			cmd=p
+		if(~ $cmd d h p P u '"'){
+			for(i in $r)
+				eval $cmd $i
+		}
+		if not if(~ $cmd a' '* m' '* r' '* s' '*){
+			for(i in $r)
+				eval $cmd(1) $i $cmd(2-)
+		}
+		if not
+			echo !illegal command
+		post=$r($#r)
+		prompt=$post
+	case h
+		{
+			for(i in $r)
+				h $i
+		} | eval $pager
+		post=$r($#r)
+		prompt=$post
+	case help
+		printhelp
+	case m' '*
+		for(i in $r)
+			m $i $cmd(2-)
+		post=$r($#r)
+		prompt=$post
+	case mb' '*
+		mb $cmd(2-)
+	case p
+		for(i in $r)
+			pp $i
+	case P
+		for(i in $r)
+			P $i
+	case q
+		q=1 y # BUP STOP
+		exit ''
+	case r r' '*
+		for(i in $r)
+			r $i $cmd(2-)
+		post=$r($#r)
+		prompt=$post
+	case s' '*
+
+
+		for(i in $r)
+			s $i $cmd(2-)
+
+
+		post=$r($#r)
+		prompt=$post
+	case u
+
+
+		for(i in $r)
+			u $i
+
+
+		post=$r($#r)
+		prompt=$post
+	case y
+		y
+	case '"'
+		for(i in $r)
+			'"' $i | eval $pager
+		post=$r($#r)
+		prompt=$post
+	case '?'
+		echo dposts: $dposts
+		echo rposts: $rposts
+		echo posts: $posts
+		echo post: $post
+		echo r: $r
+		if(! ~ $#mlpath 0)
+			echo mdir: $mlpath^/^`{sed -n 19p $r/info}
+		if(! ~ $#msg 0)
+			echo msg: $msg
+	case '|'*
+		for(i in $r)
+			pager=cat pp $i | eval `{echo $cmd | sed 's/^.//'}
+	case '||'*
+		for(i in $r)
+			pager=cat P $i | eval `{echo $cmd | sed 's/^..//'}
+	case '!'*
+		for(i in $r)
+			eval `{echo $cmd | sed 's/^.//'}
+	case *
+		if(~ $post $posts(1) && ~ $#go 0)
+			pp $post
+		if not if(! ~ $post $posts($#posts)){
+			post=`{echo $post^+1 | bc}
+			if(test $post -gt $posts($#posts))
+				post=$posts($#posts)
+			pp $post
+		}
+	}	
+}

sites/werc.cat-v.org/development/index.md

@@ -1,7 +1,7 @@
 Werc Development
 ================
 
-The latest dev code is available in the werc mercurial repo: <https://code.9front.org/hg/werc>
+The latest dev code is available in the werc git repo: `git://shithub.us/sl/werc`
 
 
 Version Numbering and Branching Rules
@@ -11,7 +11,7 @@ There is no such thing! Originally a convention similar to that of the Linux ker
 
 For radical or experimental changes the `werc-dev` branch might be used, but at the moment it is outdated.
 
-Bug reports, feature requests, bug fixes and other patches are all very welcome, just send them to the [werc mailing list](http://lists.9front.org).
+Bug reports, feature requests, bug fixes and other patches are all very welcome, just send them to the [werc mailing list](http://lists.cat-v.org).
 
 
 See Also

sites/werc.cat-v.org/index.md

@@ -65,7 +65,7 @@ the werc mailing list. To join, send a message with a body consisting only of th
 
 To track commit messages, you can join the werc-commits mailing list. To join, send a message with a body consisting only of the word _subscribe_ to werc-commits-owner@cat-v.org.
 
-On irc, join [#cat-v](irc://irc.freenode.org/cat-v) on irc.freenode.org
+On irc, join [#cat-v](irc://irc.oftc.org/cat-v) on irc.oftc.org
 
 
 License