#!/usr/athena/bin/perl

while(1){
$d = `date`;
($foo, $bar, $baz, $bam, $min, @rest) = split(/[ :]+/, $d);
$q = int($min);
if($q>2 && $q<14)
{
	&zme("Retrieving news!\n");
	$news = `/afs/sipb/user/mkgray/bin/getnews clari.news.headlines last1`;
#	print("Foo!\n".$news);
	$news = $news."\n-0-\n";
	$news .= `/afs/sipb/user/mkgray/bin/getnews clari.news.cast last1`;
	$news .= "\n-0-\n";
#	print("Bar!\n".$news);
#	&zme("Whole news:\n".$news);
	if($news=~/ClariNet/){ &zme("No news at this time.\n"); }
	else {
	@items = split(/\-.\-/, $news);
	foreach $headline (@items){
	if((length($headline) > 8) && (length($headline) < 1500)){
	open(ZEPHYR, "|zwrite -n -q -d -s 'Headline News from clari.news.headlines' -i news");
	&zme("Sending news!\n");

	&zme($headline);
	print(ZEPHYR $headline);
	close(ZEPHYR);
}
else { &zme("Short or long!!!!\n");
&zme("Here it is:\n".$headline);}
sleep(180);
}
#	sleep(180);
}
}

&zme("Going to sleep at $d");
sleep(480);
&zme("I'm awake!  Is it time for the news yet?\n");

}

sub zme {
	local($message) = @_;
	open (ZME, "|zwrite -n -q -d -s 'AutoNews meta-daemon' mkgray");
	print(ZME $message);
	close(ZME);
}