xref: /plan9/mail/lib/mailnews (revision ed2a258a218962e0b4e0f5cbbab48c6ce1bcbf02)
1#!/bin/rc
2
3home=/mail
4files=`{news -n}
5>$home/lib/newstime
6switch($#files){
7case 0
8case *
9	subscribers=`{cat /sys/lib/subscribers}
10	for(i in $subscribers)
11		touch /usr/$i/lib/newstime
12	for(file in $files){
13		switch($file){
14		case news:
15			;
16		case *
17			upasname=`{ls -m /lib/news/$file|sed 's/\[(.*)\]'.*/\1/}
18			{
19				echo 'subject: plan9 news: '^$file
20				echo 'to: news-readers'
21				echo
22				news $file
23			} | mail $subscribers
24		}
25	}
26}
27