Subversion Repositories planix.SVN

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
2 - 1 
#!/bin/rc
2 
 
3 
home=/mail
4 
files=`{news -n}
5 
>$home/lib/newstime
6 
switch($#files){
7 
case 0
8 
case *
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 
}