#!/bin/rc

# Requires rssfill
# for best use fetchnews -a -R -S

newsdir=/lib/news
newsfeeds=/usr/$user/lib/newsfeeds
newsflags=() # news(1)

fetch='true'
readnews='false'
summary='false'

while(~ $1 -*){
	switch($1){
	case -N
		fetch='false'
		shift
	case -d
		newsdir=$2
		shift
	case -f
		newsfeeds=$2
		shift
	case -a
		newsflags=($newsflags -a)
		shift
	case -n
		newsflags=($newsflags -n)
		shift
	case -R
		readnews='true'
		shift
	case -S
		summary='true'
		shift	
	}
}

fn fetchfeeds {
	ramfs -m $newsdir
	for(url in `{grep -v -e '^\#.*' $newsfeeds}){
		prefix=`{echo $url | awk -F '/+' '{print $2}' -}
		hget $url | rssfill -p $prefix- -d $newsdir
	}
}

fn displaynews {
	if(test $summary '=' 'true')
		news $newsflags | grep '(title|link)' | tr '	' '' | sed 's/(\?utm).*$//' | uhtml
	if not
	 	news $newsflags
}

if(test $fetch '=' 'true')
	fetchfeeds
if(test $readnews '=' 'true')
	displaynews