#!/usr/bin/perl -w

$workdir    = '/var/lib/news/suck';
$newsserver = 'news.cis.dfn.de';
$user       = 'loescher';
$password   = 'xxx';

$useropt     = "-U $user"     if $user     ne '';
$passwordopt = "-P $password" if $password ne '';

die "Das Arbeitsverzeichnis ist nicht schreibbar!\n" unless -w $workdir;

chdir $workdir;

# system("suck $newsserver $useropt $passwordopt --mode_reader --batch_rnews batch --killfile --rnews_size 100000 --cleanup --number_mode --reconnect 99");
system("suck $newsserver $useropt $passwordopt --mode_reader --batch_rnews batch --killfile --rnews_size 100000 --cleanup");

foreach $batch (glob('batch*'))
{
  print "Batching $batch\n";
  system("cat $batch | rnews");
  unlink $batch;
}