chiark / gitweb /
Change default browser to w3m.
[bin.git] / 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