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));
43 push @nicks,$1 while $name=~s/"([^"]*)"//s;
45 $name=~s/^(\w+)\s+(\w+)$/$2 $1/s if !$iscompany;
46 (my $nick=$name.(!$attr ? "" : ".$attr"))=~s/\s+/./gs;
50 "obj"=>Mail::Address->new($name,$mail),
54 print "alias ".$_->{"nick"}." ".$_->{"obj"}->format()."\n";