-
Notifications
You must be signed in to change notification settings - Fork 8
/
vcf2list
executable file
·31 lines (24 loc) · 899 Bytes
/
vcf2list
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
#!/usr/bin/awk -f
# vcf2list (AWK script) -- Converts a vCard file into one line of CSV, plus e-mail
BEGIN { FS=":" }
$1 ~ /^N\>/ {
# parts =
name_qty = split($2, name_parts, /;/);
name = name_parts[1] ", " name_parts[2];
fullname = name_parts[2] " " name_parts[1]
}
$1 ~ /^ADR/ {
# parts =
addr_qty = split($2, parts, /;/);
if (addr_qty == 4)
addr = parts[2] " " parts[3] " " parts[4];
else
addr = parts[2] " " parts[3]
}
$1 ~ /^TEL/ { phone = $2 }
$1 ~ /^EMAIL/ { email = $2 }
END {
print "\"" name "\",\"" phone "\",\"" addr "\",\"\""
if (email)
print "alias " tolower(name_parts[2]) " " fullname " <" email ">"
}