#!/bin/rc
path = (/bin .) # speed hack
rfork n
# This is ugly like hell, but it's the only way I have found to make sure hung
# junk in /srv doesn't fuck me over
prog=`{basename $0}
rm /srv/wiki.$prog
srv 'net!plan9.bell-labs.com!wiki' wiki.$prog || exit
mount -c /srv/wiki.$prog /mnt/wiki
# plan9.bell-labs is EST
cp /adm/timezone/US_Eastern /env/timezone
page='what''s_new'
lastupdate=`{sed '/^D/q' < /mnt/wiki/$page/current | sed -n 's,^D,,p'}
{
awk -v 'lastupdate='^$lastupdate '
BEGIN {
print "What''s New"
print "D" lastupdate
print "Auriel"
print "Cnew wiki update script"
print "\nRecently changed wiki pages:\n"
sort="/bin/sort -r -n +0 | /bin/sed 's/^[0-9]*//'"
}
FNR == 1 {
title = $0;
};
FNR != 1 && $0 ~ "^D" {
datesec = substr($0,2)
dcmd = "date "datesec
dcmd | getline date
close(dcmd)
};
FNR != 1 && $0 ~ "^A" {
author = "["substr($1,2)"] "$2;
}
FNR > 3 {
print datesec" * "date" ["title"] -- By "author | sort
nextfile
title = ""
date = ""
datesec = ""
author = ""
}
END {
close(sort)
print "\n"}
' `{ echo /mnt/wiki/*/current |sed 's%/mnt/wiki/(contrib_index|what''s_new)/current%%'g }
echo -n
} > /mnt/wiki/new
|