dctrl-mailbox

   1 #! /usr/bin/perl -w
   2 use strict;
   3 use Date::Format;
   4
   5 my $fromdate = time2str("%a %b %e %T %Y %z", time, 'GMT');
   6 my $headerdate = time2str("%a, %e %b %Y %T %z", time, 'GMT');
   7
   8 local $/ = "\n\n";
   9
  10 while (<>)
  11 {
  12     /^Package: (.*)/m;
  13     my $package = $1;
  14     /^Section: (.*)/m;
  15     my $section = $1;
  16     $section =~ s|/|.|g;
  17     /^Maintainer: (.*)/m;
  18     my $maintainer = $1;
  19     $maintainer =~ /<(.*)>/;
  20     my $maintaddr = $1;
  21     /^Description: (.*)/m;
  22     my $shortdesc = $1;
  23     s/^ (.*)//ms;
  24     my $longdesc = $1;
  25     $longdesc =~ s/^ //gm;
  26     $longdesc =~ s/^\.$//gm;
  27     $_ = "From $maintaddr $fromdate\n" .
  28          "From: $maintainer\n" .
  29          "Date: $headerdate\n" .
  30          "Subject: $package - $shortdesc\n" .
  31          "Newsgroups: $section\n" .
  32          "$_\n$longdesc";
  33     print $_;
  34 }
  35