#!/usr/local/bin/perl -w

$Home  = $ENV{"HOME"};
$cnt   = 10000;
$start = 1;
$inews = "/usr/local/bin/inews";

-f "$Home/dead.article" || &dead("No dead.article file,");
rename("$Home/dead.article","$Home/dead.recover");

open(DEAD, "<$Home/dead.recover") || &dead("could not open dead.recover");
while (<DEAD>) {
	if (/Path: /o) {
		$cnt++;
		if($start) {
			$start = 0;
		} else {
			close(TMPART);
		}
		open (TMPART, ">$Home/tmp/$cnt") || &dead("could not open temp article");
	}
	print TMPART;
}
close(TMPART);

chdir("$Home/tmp");
open(ARTLIST, "ls|") || &dead("failed pipe open,");
while (<ARTLIST>) {
	chop;
	system("$inews -h -O -S <$_");
	unlink $_;
}

unlink "$Home/dead.recover";

0;

sub dead {
	local($msg) = @_;

	open (M, "|/usr/ucb/mail -s 'Failed dead.letter-2-news' postmaster")
		|| die "failed pipe open of mail,";
	print M "$msg\n";
	print M "\nFailed /home/usenet/bin/deadfeed operation, check news server\n";
	close(M);

	die $msg;
}