! /bin/rc

awkadd1='{ if (substr($2, 5, 1) == 5) { if (substr($2, 4, 1) == 5) { if(substr($2, 3, 1) == 5) { if(substr($2, 2, 1) == 5) { if(substr($2, 1, 1) == 5) { s = $2 + 44445 } else { s = $2 + 4445 } } else { s = $2 + 445 } } else { s = $2 + 45 } } else { s = $2 + 5 } } else { s = $2 + 1 } } { printf("%05d", s) }'

nl='

'

if(test -n $5 ){

if(test -w /srv/slov.cmd){

	echo '!

f

host : feed

!

' >> /srv/slov.cmd

	line=`{read /srv/slov.dat}

	while(~ `{read /srv/slov.dat} [~!]*){

		a='clearing excess'

	}

	entrynumber=`{echo $line | awk $awkadd1}

	nameup=`~{echo $1 | tr 'a-z_' 'A-Z '}

	namelo=`~{echo $1 | tr 'A-Z ' 'a-z_'}

	e='F '^$entrynumber^' '^$nameup

	h='	HOST : feed'^$nl

	t='	TYPE : feed'^$nl

	br='	BREF : '^$2^$nl

	td=`{date -f 'YYYY[-]MM[-]DD[T]hh[:]mm[:]ssZZ'}

	d='	NDATE : '^$td^$nl

	td=`~{date -f 'WW[, ]DD[ ]MMM[ ]YYYY[ ]hh[:]mm[:]ss[ ]Z'}

	pb='	NPUB : '^$td

	p='	PAGE : '

	if(test -z $3){

		p=$p^`~{echo -n $e | tr 'A-Z ' 'a-z_'}

	} 

	if not {

		p=$p^$3^$nl

	}

	ta='	TAGS'^$nl

	echo $5 | tr 'A-Z ' 'a-z_' | sed 's!^!		!' > /tmp/tag

	b='	BODY'^$nl

	echo $4 |  sed 's!^!		!' > /tmp/body

	echo -n $e^$h^$t^$br^$d^$pb^$p^$ta >> /lib/slov/newfeed.ndtl

	cat /tmp/tag >> /lib/slov/newfeed.ndtl

	echo -n $b >> /lib/slov/newfeed.ndtl

	cat /tmp/body >> /lib/slov/newfeed.ndtl

	echo $nl >> /lib/slov/newfeed.ndtl

} 

if not echo 'slov must be running'

cd /lib/slov/

cat i *ndtl eof >> /srv/slov.cmd

}

if not {

get tags

if(test -w /srv/slov.cmd){

	echo '!

f

type : tag

!

' >> /srv/slov.cmd

	echo '' > /tmp/ft1

	line=`{read /srv/slov.dat}

	while(~ $line [~!]*){

		echo $line >> /tmp/ft1

		line=`{read /srv/slov.dat}

	}

	cat /tmp/ft1

} 

if not echo 'slov must be running'

echo 'usage: feeder name bref linkpage body tags'

}