dctrl-mailbox.pl

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