blob: 409bf72280527fe88df83affb9ea3e4829a16a89 (
plain) (
tree)
|
|
#! /usr/bin/perl
$ENV{"LC_ALL"} = "C";
while (<>) {
if (/^(|-+)$/) {
next;
} elsif (/^(\S.*) - (.*@.*)$/) {
# print "[" . $1 . "]\n";
open FH, 'date -u +"* %a %b %d %Y" -d "' . $1 . '" |';
while (<FH>) {
chomp;
print $_ . " - " . $2 . "\n";
}
close FH;
next;
} elsif (/(- | +)(?!\s)/) {
print;
}
}
|