#!/usr/bin/perl
#convert zaurus addressbook.xml to mutt aliases
#troy@zenux.net 2002-09-18

use strict;

my $file = shift;
my $outfile=shift;

die "Usage: $0 infile > somefile" unless ($file);

my $quiet=1;	#set to non-zero for silent output

open IN,$file or die("Can't open $file: $!\n");

while (<IN>) {
	next unless /^<Contact/;
	next unless /DefaultEmail/;
	next unless /FirstName/;
	next unless /LastName/;
	
	s/\n//;
	my $line=$_;
	my ($nick,$handle);
	
	if ($line =~ /Nickname/) {
		$nick = $line;
		$nick =~ s/.*Nickname="(.*?)".*/$1/;
		$handle = $nick if ($nick);
	}

	my $firstname=$line;
	$firstname =~ s/.*FirstName="(.*?)".*/$1/;
	my $lastname=$line;
	$lastname =~ s/.*LastName="(.*?)".*/$1/;
	$handle=substr($firstname,0,1).$lastname unless $handle;
	 
	my $email=$line;
	$email =~ s/.*DefaultEmail="(.*?)".*/$1/;
	print "alias $handle $firstname $lastname <$email>\n" unless $quiet;
	print "alias $handle $firstname $lastname <$email>\n";
}
close IN;


__END__