shithub: riscv

ref: 7134d62ccbb32c783de67d26907e4e856c48f29c
dir: /sys/lib/dist/mail/lib/mailnews/

View raw version 
#!/bin/rc

home=/mail
files=`{news -n}
>$home/lib/newstime
switch($#files){
case 0
case *
	subscribers=`{cat /sys/lib/subscribers}
	for(i in $subscribers)
		touch /usr/$i/lib/newstime
	for(file in $files){
		switch($file){
		case news:
			;
		case *
			upasname=`{ls -m /lib/news/$file|sed 's/\[(.*)\]'.*/\1/}
			{
				echo 'subject: plan9 news: '^$file
				echo 'to: news-readers'
				echo
				news $file
			} | mail $subscribers
		}
	}
}