#!/usr/bin/perl -w

require 5.000;
use lib '/usr/local/bin',"$ENV{HOME}/bin",'/usr/stud/loescher/bin';
use lib 'd:/bin','c:/mydos','c:/bin';
use slutil;
use English;

######################################################################
### Voreinstellungen
######################################################################

$version = '0.1 beta';
$appname = 'FixUQWKBatch';

######################################################################
### Hauptprogramm
######################################################################

&Hilfe if ($#ARGV>=0);

while(<>)
{
  chomp if length == 512;
  print;
}

######################################################################
### Unterprogramme
######################################################################

sub Kopf
{
  my $head = "$appname $version   -   von Stephan Löscher";
  return "\n$head\n" . '~' x length($head) . "\n";
}


sub Hilfe
{
  printumlautepaged
  Kopf().
"Syntax: fixuqwkbatch
Es wird von STDIN ein UQWK-RNews-Batch gelesen und die fehlerhaften Zeilen-
Umbrüche im Header entfernt und das Resultat auf STDOUT ausgegeben.
Verwendungsbeispiel:
cat 0000011.MSG | fixuqwkbatch > 0000011.MSG.fixed

";
exit;
}