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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
#!/bin/sh
# PROGAM: pine2vcard v0.1
# SCOPE: converts pine addressbook to vcard addressbook
# AUTHOR: Jean-Marc Wislez
# DATE: 2000-09-06
# USAGE: pine2cvard output.gcard
# it reads standard pine address book and writes it to the file given as
# the only parameter.
# ------------------------------ Settings -----------------------------
# This is the standard addressbook location for pine
PINEADDRESSBOOK="$HOME/.addressbook"
# The file to which the freshly created addressbook entries will be
# appended.
if [ -z "$1" ]; then
echo "Usage: $0 output.gcard"
exit 1
fi
DESTINATION="$1"
# These are the standard settings for the addressbook for pine.
# If you however decided to change the addressbook format, you can
# update this section to reflect the changes.
NICKNAME="1"
FULLNAME="2"
ADDRESS="3"
FCC=""
COMMENT=""
# -------------------------- End of settings --------------------------
echo "Converting addresses in $PINEADDRESSBOOK."
echo "Appending VCARD entries to $DESTINATION."
awk -F'\t' ' \
BEGIN {count=0; DISTLISTS=""} \
{ \
if (FULLNAME == "1") NAMESTRING=$1; \
if (FULLNAME == "2") NAMESTRING=$2; \
if (FULLNAME == "3") NAMESTRING=$3; \
if (FULLNAME == "4") NAMESTRING=$4; \
if (FULLNAME == "5") NAMESTRING=$5; \
\
if (ADDRESS == "1") EMAIL=$1; \
if (ADDRESS == "2") EMAIL=$2; \
if (ADDRESS == "3") EMAIL=$3; \
if (ADDRESS == "4") EMAIL=$4; \
if (ADDRESS == "5") EMAIL=$5; \
\
if (NICKNAME == "1") NICK=$1; \
if (NICKNAME == "2") NICK=$2; \
if (NICKNAME == "3") NICK=$3; \
if (NICKNAME == "4") NICK=$4; \
if (NICKNAME == "5") NICK=$5; \
\
if (COMMENT == "1") COMMENTS=$1; \
if (COMMENT == "2") COMMENTS=$2; \
if (COMMENT == "3") COMMENTS=$3; \
if (COMMENT == "4") COMMENTS=$4; \
if (COMMENT == "5") COMMENTS=$5; \
\
if (substr(EMAIL,1,1) == "(") DISTLISTS="yes"; \
} \
\
NAMESTRING ~ /,/ { split(NAMESTRING,name,", "); \
FN = name[2] " " name[1]; \
N = name[1] ";" name[2] } \
NAMESTRING !~ /,/ {N = ""; FN = NAMESTRING} \
\
{ if (DISTLISTS!="yes") {count++; \
print "BEGIN:VCARD" >> DESTINATION; \
print "FN:" FN >> DESTINATION; \
if (N != "") print "N:" N >> DESTINATION; \
print "REV:" REV >> DESTINATION; \
print "EMAIL;INTERNET:" EMAIL >> DESTINATION; \
print "NOTE;PINE-ABBREVIATION:" NICK >> DESTINATION; \
if (COMMENTS != "") print "NOTE;QUOTED-PRINTABLE:" COMMENTS >> DESTINATION; \
print "END:VCARD\n" >> DESTINATION } } \
\
END {printf ("Converted %d addresses.\n", count)}; \
' REV="`date +%Y-%m-%dT%T`" NICKNAME="$NICKNAME" \
FULLNAME="$FULLNAME" ADDRESS="$ADDRESS" FCC="$FCC" \
COMMENT="$COMMENT" DESTINATION="$DESTINATION" $PINEADDRESSBOOK
|
