add apps/mdir
This commit is contained in:
sl
parent
51e19b2266
commit
71619f80dc
3 changed files with 199 additions and 0 deletions
10
apps/mdir/TODO
Normal file
10
apps/mdir/TODO
Normal file
|
|
@ -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)
|
||||||
178
apps/mdir/app.rc
Executable file
178
apps/mdir/app.rc
Executable file
|
|
@ -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(/</, "\\<", 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>'
|
||||||
|
}
|
||||||
11
apps/mdir/readme.txt
Normal file
11
apps/mdir/readme.txt
Normal file
|
|
@ -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.
|
||||||
Loading…
Add table
Add a link
Reference in a new issue