808363f30fd0a1c0e9521a6d44e3f4796a8f90cb
3 # reformat from MH to mbox
8 sub shite
{ die "ipreg-mail-uplift: @_: $!\n"; }
9 sub shit
{ die "ipreg-mail-uplift: @_\n"; }
11 for my $f (<ipreg
-mail
/Institutions/*>) {
13 print "processing $f\n";
16 my @f = map s
{^[+][+][+]\s
+
17 ([a
-z
]+[0-9]*[ ] # user
18 [A
-Z
][a
-z
][a
-z
][ ] # day
19 [A
-Z
][a
-z
][a
-z
])\s
+ # mon
21 ([0-9][0-9]:[0-9][0-9]:[0-9][0-9][ ] # time
22 [A
-Z
][A
-Z
][A
-Z
][ ] # zone
23 [12][0-9][0-9][0-9])\s
*$ # year
24 }{sprintf "From %s %2d %s\n", $1, $2, $3}xe
,
26 open my $out, '>', "$f.new"
27 or shite
"open > $f.new";