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