chiark / gitweb /
testing-blockages: Script from Anthony Towns to print a brief analysis of
[bin.git] / 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