#!/usr/bin/perl

=head1 NAME

al2syl-add - An filter convert address book from AL-Mail32 to Sylpheed.

=head1 SYNOPSIS

$ iconv -f sjis -t euc-jp Address | al2syl-addr > temp.xml

=head1 DESCRIPTION

 al2syl-addr read address book data of AL-Mail32 from standard in,
and output person datas of Sylpheed.

=head1 AUTHOR

Yasumichi Akahoshi <yasumichi@users.sourceforge.jp>

=head1 SEE ALSO

al2mh

=cut

require 'w2l-tools.pl';

# First uid is generated from inner clock.
$uid = &makeuid();

# Each person tag set is generated from each line.

foreach $line (<STDIN>) {
	$line =~ s/\r\n/\n/;
	if($line =~ /(.*): ([\w\.-]+@.*)/) {
		$cn = $1;
		$mail = $2;
		$uid = &putperson($uid, $cn, $mail);
	}
}


# Output person tag set for standard out
sub putperson {
	my($uid, $cn, $mail) = @_;
	my @addrs = split(/,/ ,$mail);

	print '  <person uid="'.$uid.'" first-name="" last-name=""';
	print ' nick-name="" cn="'.$cn.'" >'."\n";
	print "    <address-list>\n";
	foreach $addr (@addrs) {
		print '      <address uid="'.$uid.'" alias=""';
		print ' email="'.$addr.'" remarks="" />'."\n";
		$uid++;
	}
	print "    </address-list>\n";
	print "    <attribute-list>\n";
	print "    </attribute-list>\n";
	print "  </person>\n";

	return $uid;
}
