/usr/share/doc/libtext-tabulardisplay-perl/examples/aliases is in libtext-tabulardisplay-perl 1.38-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | #!/usr/bin/perl -l
use Text::TabularDisplay;
use Mail::Address;
my @f = readfile("$ENV{'HOME'}/.mutt/aliases");
my $t = Text::TabularDisplay->new("alias", "address");
for (@f) {
my @l = split;
shift @l;
my $alias = shift @l;
my $addr = Mail::Address->new("@l");
$addr = $addr->format;
$t->add($alias, $addr);
}
print $t->render;
sub readfile {
my $file = shift;
my @lines;
local *F;
open F, $file or return;
while(<F>) {
chomp;
push @lines, $_;
}
return @lines;
}
|