#!/usr/bin/perl

$dir        = $ENV{HOME}.'/uqwk';
$fileAnfang = 'snews.';

print "Import von Uqwk-SOUP-News-Paketen\n";

chdir $dir;

CASE: {
  if ( -e $fileAnfang.'zip')
  {
    $file = $fileAnfang.'zip';
    system("unzip $file");
    last CASE;
  }
  if ( -e $fileAnfang.'tgz')
  {
    $file = $fileAnfang.'tgz';
    system("tar -zxvf $file");
    last CASE;
  }
  if ( -e $fileAnfang.'tbz')
  {
    $file = $fileAnfang.'tbz';
    system("cat $file | bunzip2 | tar -xvf -");
    last CASE;
  }
  die "Kann kein $fileAnfang",join(", $fileAnfang",'zip','tgz','tbz'),
  " in '$dir' finden!\n";
}


foreach $batch (glob('*.MSG'))
{
  print "Fixing   $batch\n";
  system("cat $batch | fixuqwkbatch > $batch.fixed");
  print "Batching $batch.fixed\n";
  system("rnews -v $batch.fixed");
  unlink $batch, "$batch.fixed";
}

# Kopie mit Backup:
system("/bin/cp -bVt $file /tmp/");

unlink 'AREAS', $file;