#!/usr/bin/perl
#
# pine2mutt-0.1: convert pine's addressbook to mutt's aliases format
#
# Michael Velten <michael@michnet.de>

die "Usage: $0 pinefile muttfile\n" if (($P,$M) = @ARGV) != 2;
open(P) || die "$P: $!";
open(M, ">$M") || die "$M: $!";
push(@data, $_) while (<P>);
($_ = join("::", @data)) =~ s/\n:: {3}//g;
@addr = split(/::/);
for (@addr) {
    s/^(.*?\t)(.*?)\t(\(*)(.+?)\)*(\t.+|$)/alias\t$1$4\t\($2\)/;
    s/\(.*\)$// if $3 =~ /\(/ || $2 !~ /.+/;
    print M;
}
close(M);
close(P);