58 lines
1.5 KiB
Text
58 lines
1.5 KiB
Text
|
#!/bin/sh
|
||
|
|
#
|
||
|
|
# Author: Nico Schottelius <nico@schottelius.(net|org)>
|
||
|
|
# Date: 7th of March 2002
|
||
|
|
# Last changed: 12th of March 2002
|
||
|
|
# Comment: convert netscapes addressbook to mutt's alias file
|
||
|
|
# Bugs:
|
||
|
|
# OldBugs:
|
||
|
|
# possibly add better alias [instead of ns] -- done, 12/March/2002
|
||
|
|
#
|
||
|
|
#
|
||
|
|
#
|
||
|
|
# Netscape sample:
|
||
|
|
#
|
||
|
|
# dn: cn=First middle lastname,mail=addressfrom@someone.org
|
||
|
|
#
|
||
|
|
# mutt sample:
|
||
|
|
#
|
||
|
|
# alias shortname more details <the@address>
|
||
|
|
#
|
||
|
|
|
||
|
|
NS_DATA_START="^dn:"
|
||
|
|
|
||
|
|
if [ $# -lt 1 ]; then
|
||
|
|
echo `basename $0`: 'netscapefile(s)'
|
||
|
|
echo 'Will output mutt alias format'
|
||
|
|
echo 'Attention: Short names are generated, please change them correctly'
|
||
|
|
exit 1
|
||
|
|
fi
|
||
|
|
|
||
|
|
# alias name1 name2 name3 <emailaddr> to
|
||
|
|
# alias name1name2name3 name1 name2 name3 <emailaddr>
|
||
|
|
|
||
|
|
# awk helper
|
||
|
|
awk_func()
|
||
|
|
{
|
||
|
|
awk '
|
||
|
|
/^alias .* <.*>$/ { # only use right pattern
|
||
|
|
save=ORS # is \n
|
||
|
|
ORS="" # reset, so we print one line
|
||
|
|
line++; # count lines
|
||
|
|
print $1 " " # == alias
|
||
|
|
for(j=2;j<NF;j++) # now everything before the email
|
||
|
|
print $j
|
||
|
|
# print line # if you like to have a number behind everyone...
|
||
|
|
for(i=2;i<=NF;i++) # now print it with spaces, included mail address
|
||
|
|
print " " $i
|
||
|
|
ORS=save # restore \n
|
||
|
|
print "" # and add line break
|
||
|
|
} '
|
||
|
|
}
|
||
|
|
|
||
|
|
# now convert the Addressbook!
|
||
|
|
for mfile in $@; do
|
||
|
|
cat $mfile | grep $NS_DATA_START | \
|
||
|
|
sed 's/dn: cn=\(.*\),mail=\(.*\)/alias \1 <\2>/g' | awk_func
|
||
|
|
done
|