From: short <>
Date: Thu, 30 Dec 2004 10:10:29 +0000 (+0000)
Subject: Avoid overwriting of duped Mutt mail aliases.
X-Git-Tag: bp_lace~8
X-Git-Url: http://git.jankratochvil.net/?p=PerlMail.git;a=commitdiff_plain;h=f258fd2941e62f8995cd48a3d2aa36785760461a;hp=c3e8f93bdd428b21be0af55eed08f47cf14874b8

Avoid overwriting of duped Mutt mail aliases.
---

diff --git a/contacts-n9k2mutt b/contacts-n9k2mutt
index 6aa6561..6136f45 100755
--- a/contacts-n9k2mutt
+++ b/contacts-n9k2mutt
@@ -82,7 +82,11 @@ while (<>) {
 					"obj"=>Mail::Address->new(($name_force || $name),$mail),
 					},@nicks);
 			} @data);
+	my %dupe;
 	for (@nicked) {
-		print "alias ".$_->{"nick"}." ".$_->{"obj"}->format()."\n";
+		my $nick=$_->{"nick"};
+		my $dupe=$dupe{$nick}++;
+		$nick.=".$dupe" if $dupe;
+		print "alias $nick ".$_->{"obj"}->format()."\n";
 		}
 	}