Mail::Addressbook::Convert::Eudora - convert to and from Eudora addressbooks

			The addressbook format that is used as an intermediate
			between conversions.  It is rfc822 compliant and can
			be used directly as a Eudora addressbook.  Do not use
			a Eudora addressbook as an STF. Some versions of 
			Eudora use a format, that while RFC822 compliant, will
			not work as an STF. Run the Eudora addressbook
			through $Eudora->scan()

#------------------------------------------------------------------------------

use strict;


package Mail::Addressbook::Convert::Eudora;

use Mail::Addressbook::Convert::Utilities;
use Mail::Addressbook::Convert::PersistentUtilities;

use  5.001;

sub new {
	bless {},shift;
}

######################################################################


sub scan {

my $Eudora = shift;
my $inputParm = shift; # reference to input Eudora data as an array or reference to a scalar
			#  containing the name of a file containing the Eudora Addressbook.

my $perUtil = new Mail::Addressbook::Convert::PersistentUtilities();
my $raEudoraArray= getInput($inputParm);

my (@outputFile,  %noteLine, $outLine, %listEntry, %name, $alias);
my ( $type, @rest, $rest,  %address, %aliasOf, %newAlias, $nm, @tmp);

use Text::ParseWords;
my $individualIndex = 0;
my $listIndex = 0;
foreach (@$raEudoraArray)
	{
		

	s/\'//g;
	if (tr/"/"/%2 !=0) # to prevent unterminated quotes
		# (which should not exist, but ocasionaly do)
		
		# The garbled line will remain 
		# garbled.
		{
		s/ / "/;
		}
	s/\s+</</;
	@tmp =  split(" ");
	if (@tmp > 3 and /</ and !/"/ and !/^note/)
		{
		/alias\s+(.+)<(.+)>/;
		my $firstPart = $1;
		my $lastPart = $2;
		$firstPart =~ s/^\s+|\s+$//g;  # trim leading and trailing spaces.
		my @hold22= split(" ", $firstPart);
		if (@hold22 > 2)
			{
			my $aliasName= shift @hold22;
			my $givenName = join (" ", @hold22);	
			$_ = qq(alias $aliasName "$givenName"<$lastPart>);
			}
		else
			{
			$_ = qq(alias "$firstPart"<$lastPart>);
		}
		}
	if (/alias "/ and !/<|,/)
		{
			
		($type,$alias,@rest) = quotewords(" ",0,$_);
		my $userName = $alias;
		$alias =~ s/ /_/g;
		$_ = qq(alias $alias $userName<$rest[0]>);
		}

	($type,$alias,@rest) = quotewords(" ",0,$_);
	if ($rest[1])
		{
		$rest = join("_",@rest);
		}
	else
		{
		$rest = $rest[0];
		}
	$alias =~ s/^\s+|\s+$//g;
	$alias =~ s/ //g;
	$rest =~ s/^\s+|\s+$//g;
	if ($type =~ /note/)
		{
		$noteLine{$alias} = $_;
		}
	else
		{
		if ($rest =~ /\,/)
			{
			$listEntry{$alias} = $rest;
			}
		else
			{
			if ($rest =~ /\)$/)
				{
				#alias joan joan.olive@utoronto.ca (Joan Olive)
				($address{$alias}, $name{$alias}) = 
					split(/\(/,$rest);
				}
			elsif ($rest =~ /</)
				{
					
				#alias jhd joe<jhd@intergur.com>
				#alias jhd <jhd@intergur.com>
				#alias jhd Joe Davidson<jdavidson@Interguru.com>
				($name{$alias},$address{$alias}) = split(/\</,$rest);
				$address{$alias} =~ s/>//;
				$name{$alias} = (split(/@/,$address{$alias}))[0]
					unless $name{$alias};
				}
			else
				{
				$address{$alias} = $rest;
				$name{$alias} = (split(/@/,$address{$alias}))[0];
				}
			}
		}
	}

#Examples
foreach my $key (sort { lc($a) cmp lc($b)} ( (keys %name)))
	{

	my $tempAlias = $perUtil->makeAliasUnique($key);
	$address{$key} =~ s/\s+|>\(|\)|<|\n|\r//g;
	$name{$key} =~ s/\)|\(|\n|\r|\"|^\s+|>|<|\s+$//g;
	$aliasOf{$address{$key}} = $tempAlias;
	$newAlias{key} = $tempAlias;
	$nm = $name{$key};
	$nm =~ s/_/ /g;
	#CONTINUE HERE
	$outLine = qq(alias $key \"$nm\"<$address{$key}>\n);
	$outLine =~ s/>>/>/;
	$outLine =~ s/SPRYCOMMA/,/;
	push ( @outputFile, $outLine) if ($address{$key}) ;

	push ( @outputFile, $noteLine{$key}) if $noteLine{$key};
}
my @listMembers;
foreach my $key (sort { lc($a) cmp lc($b)} (keys %listEntry))
	{
	$listEntry{$key} =~ s/\)|\(|\n|\r|\"|^\s+|>|<|\s+$//g;
	@listMembers = split(/\,/,$listEntry{$key});
	foreach my $k (0..$#listMembers)
		{
		$listMembers[$k] =  $aliasOf{$listMembers[$k]}
		 if $aliasOf{$listMembers[$k]};
		}
	$listEntry{$key} = join(',' , @listMembers );
	$outLine = qq(alias $key $listEntry{$key}\n);
	#$outLine =~ s/>>/>/;
	push ( @outputFile, $outLine) ;
	push ( @outputFile, $noteLine{$key}."\n") if $noteLine{$key};
	}

push ( @outputFile, "\n");
return \@outputFile;
}

###########################   sub output #######################
sub output

{

my (@outputFile, $alias1,);

my $Eudora = shift;
my $raInputArray = shift; # reference to input  data as an array


# Return intermediate file, as it is already in Eudora format.

return $raInputArray;
}



###########################  end sub output #######################
1;