ref: 71619f80dc63e859203ae76af002cfea65016200
parent: 51e19b2266bb31b76cacdbfeafa58b28a3ef8b70
author: sl <sl@gaff>
date: Sat Jun 14 19:48:50 EDT 2025
add apps/mdir
--- /dev/null
+++ b/apps/mdir/TODO
@@ -1,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)
--- /dev/null
+++ b/apps/mdir/app.rc
@@ -1,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(/</, "\\<", from); gsub(/>/, "\\>", 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>'
+}
--- /dev/null
+++ b/apps/mdir/readme.txt
@@ -1,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.
--
⑨