#!/usr/bin/perl -w

use Date::Manip;

my $output = "";

my $inc = 0;

$artnum .= scalar(<>);  # art num
$newsgroups = <>;
$path = <>;
$date = <>;
$subject = <>;

$foo = $date;
chomp $foo;
$newdate = &ParseDate($foo);
# print "ND1: $newdate\n";
$newdate = &UnixDate($newdate, '%a, %d %b %Y %T GMT');
# print "ND2: $newdate\n";

@newsgroups = split(',', $newsgroups);
foreach $x (@newsgroups){
  $x = "oldnews." . $x;
}
$newnewsgroups = join(',', @newsgroups);

$output .= "Newsgroups: $newnewsgroups";
if ($subject =~ /\S/) {
  $output .= "Subject: $subject";
} else {
  $output .= "Subject: none\n";
}
$output .= "Date: $newdate\n";
$output .= "From: oldnews-conversion\@complete.org\n";
$output .= "Path: not-for-mail\n";
$foo = $artnum;
chomp $foo;
#$bar = $newsgroups;
#chomp $bar;
$output .= "Message-ID: <oldnews.conversion.$foo\@oldnews.complete.org>\n";
$inc += 1;
$output .= "\n";
$output .= $artnum;
$output .= $newsgroups;
$output .= $path;
$output .= $date;
$output .= $subject;
$output .= join('', <>);

sendit();

sub sendit {
  print "#! rnews " . length($output) . "\n";
  print $output;
  $output = '';
}