6 $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
11 require PrecislovaniLace::Contacts;
12 require Mail::Address;
15 Getopt::Long::Configure(
19 die if !Getopt::Long::GetOptions(
29 $record{$item{"FIELD"}}=$item{"FIELD-DATA"};
30 ($item{"FIELD"} ne "Mail" || !$item{"FIELD-DATA"} ? () : ({
31 "name"=>$record{"Name"},
32 "mail"=>$item{"FIELD-DATA"},
33 "attr"=>$item{"FIELD-NAME"},
34 "iscompany"=>($record{"Name"} && $record{"Company"} && $record{"Name"} eq $record{"Company"}),
37 } PrecislovaniLace::Contacts->import($_));
40 my($name,$mail,$attr,$iscompany)=map(($data->{$_}),qw(name mail attr iscompany));
44 while ($name=~s/"([^"]*)"([!])?//s) {
49 $name=~s/^(\w+)\s+(\w+)$/$2 $1/s if !$iscompany;
50 push @nicks,$name if !$name_force;
52 $_.=".$attr" if $attr;
57 "obj"=>Mail::Address->new(($name_force || $name),$mail),
61 print "alias ".$_->{"nick"}." ".$_->{"obj"}->format()."\n";