#!/usr/athena/bin/perl
$user = `whoami`;

while(1){
$d = `date`;
($foo, $bar, $baz, $bam, $min, @rest) = split(/[ :]+/, $d);
$q = int($min);
if($q)
{
#	&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("This news article was too long or too short, sorry...\n");
#&zme("Here it is:\n".$headline);
}
sleep(180);
}
#	sleep(180);
}
}

#&zme("Going to sleep at $d");
sleep(3400);
#&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' $user");
	print(ZME $message);
	close(ZME);
}