2vcard-0.6 0040755 0001750 0000144 00000000000 12633113261 0012175 5 ustar jschauma users 2vcard-0.6/doc 0040700 0001750 0000144 00000000000 11127734013 0012731 5 ustar jschauma users 2vcard-0.6/doc/html 0040700 0001750 0000144 00000000000 10272774105 0013703 5 ustar jschauma users 2vcard-0.6/doc/html/index-1.html 0100600 0001750 0000144 00000003220 10272774021 0016106 0 ustar jschauma users
The 2vcard Handbook: Introduction
Next Previous Table of Contents
2vcard
is a little perl script to convert an addressbook to the popular
VCARD file format. Currently, 2vcard can convert addressbooks
and alias files from the following formats: abook, eudora, juno,
ldif, mutt, mh and pine.
The VCARD format is used by gnomecard, for example, which in turn is used
by the balsa email client.
This is version 0.6 of 2vcard.
Next Previous Table of Contents
2vcard-0.6/doc/html/index-2.html 0100600 0001750 0000144 00000006151 10272774024 0016120 0 ustar jschauma users
The 2vcard Handbook: Installation
Next Previous Table of
Contents
2vcard 0.6 can be obtained from:
In order to successfully use 2vcard, you need the
following programs and libraries which are available on most
platforms as distribution packages and thereby can be installed
easily.
Required:
2vcard assumes that the Perl executable lives in
/usr/bin/perl - if that is not the case, use your
favorite editor to modify the first line of the file
2vcard accordingly.
In order to install 2vcard from sources, type the
following in the directory to which you downloaded the
2vcard distribution:
% tar zxvf 2vcard-0.6.tar.gz
% cd 2vcard-0.6
% less README
% su
% make install
This will install 2vcard in
/usr/local/bin, the man page in
/usr/local/share/man/man1/ and the documentation in
/usr/local/share/doc/2vcard/
Should you run into problems please report them to the the
author at jschauma@netmeister.org
Next Previous Table of
Contents
2vcard-0.6/doc/html/index-3.html 0100600 0001750 0000144 00000003537 07675156525 0016143 0 ustar jschauma users
The 2vcard Handbook: Usage
Next Previous Table of
Contents
Per default, 2vcard reads from stdin and writes to stdout.
Alternatively, the input- and output-files can be specified as command-line options.
Examples:
In a pipe:
tr '^M' '\n' < EudoraNicknames | 2vcard -f eudora > out
Alone:
2vcard -i ~/.aliases -o ~/.addbook.grcd
If you run into any problems, if you encounter bugs, or if
you have any other comments on this program,please don't
hesitate to email
me.
Next Previous Table of
Contents
2vcard-0.6/doc/html/index-4.html 0100600 0001750 0000144 00000005517 07632465760 0016141 0 ustar jschauma users
The 2vcard Handbook: Copyright
Next Previous Table of
Contents
2vcard Copyright 2001,2002,2003 Jan Schaumann, jschauma@netmeister.org
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
* Redistributions of source code must retain the above copyright notice,
this list of conditions and the following disclaimer.
* Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
* The name of the author may not be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
POSSIBILITY OF SUCH DAMAGE.
Next Previous Table of
Contents
2vcard-0.6/doc/html/index-5.html 0100600 0001750 0000144 00000003424 07361177146 0016132 0 ustar jschauma users
The 2vcard Handbook: Misc
Next Previous Table of Contents
Please take the time to visit these websites:
Take the time to think about it.
Next Previous Table of Contents
2vcard-0.6/doc/html/index.html 0100600 0001750 0000144 00000004325 10272774101 0015756 0 ustar jschauma users
The 2vcard Handbook
Next Previous Table
of Contents
The 2vcard Handbook
Jan Schaumann jschauma@netmeister.org
Version 0.6 , Sat Jul 30 17:59:11 EDT 2005
Back to
netmeister.org
This Handbook describes 2vcard Version 0.6
Next Previous Table
of Contents
2vcard-0.6/doc/2vcard.1 0100600 0001750 0000144 00000004001 10272774003 0014250 0 ustar jschauma users .\"
.\" This page was created on 2001-10-10 22:04:52 by makeman.pl
.\" ``makeman.pl'' is part of the ``MakeMan'' project.
.\" For more information, please see http://mama.sourceforge.net
.\"
.TH 2VCARD 1 "July 30th, 2005" "2vcard" "Addressbook conversion tools"
.SH NAME
2vcard \- convert addressbooks to VCARD format
.SH SYNOPSIS
\fB2vcard\fR
[ \fI\-F | \-f | \-h | \-v \fR ] [ \fI
\-i \fR\fIFILE\fR ] [ \fI
\-o \fR\fIFILE\fR ]
.SH "DESCRIPTION"
.PP
\fB2vcard\fR is a little perl script to convert an
addressbook to the popular VCARD file format.
Currently,
\fB2vcard\fR can convert addressbooks and alias files from the following
formats: \fBabook\fR, \fBeudora\fR, \fBjuno\fR, \fBldif\fR,
\fBmutt\fR, \fBmh\fR and \fBpine\fR.
.PP
The VCARD format is used by \fBgnomecard\fR, for
example, which, in turn is used by the \fBbalsa\fR
email client.
.SH "USAGE"
.PP
Per default, \fB2vcard\fR reads
from \fIstdin\fR and
writes to \fIstdout\fR. Alternatively,
the input\- and output\-files can be specified as command\-line
options.
.SH "OPTIONS"
.PP
A summary of the options supported by
\fB2vcard\fR is included below.
.\" Begin List
.TP
\fB\-F\fR
print a list of the currently supported formats
.TP
\fB\-f \fR\fIformat\fR
convert from \fIformat\fR [
default: mutt ]
.TP
\fB\-h\fR
Show summary of options and exit.
.TP
\fB\-i \fR\fIFILE\fR
Read input from \fIFILE\fR.
.TP
\fB\-o \fR\fIFILE\fR
Write output to \fIFILE\fR.
.TP
\fB\-v\fR
Show version information and exit.
.\" End List
.SH "EXAMPLES"
.\" Begin List
.TP
In a pipe:
tr \fI'^M'\fR \fI'\\n'\fR < EudoraNicknames |
\fB2vcard \-f\fR \fIeudora\fR > out
.TP
Alone:
\fB2vcard \-i\fR
\fI~/.aliases\fR \fB\-o\fR
\fI~/.addbook.grcd\fR
.\" End List
.SH "VERSION"
.PP
0.6
.SH "BUGS"
.PP
Please report all bugs to the author.
.SH "SEE ALSO"
.PP
\fBmutt(1)\fR, \fBpine(1)\fR,
\fBgnomecard(1)\fR, \fBbalsa(1)\fR,
\fBnmh(1)\fR, \fBexmh(1)\fR,
\fBabook(1)\fR
.PP
The 2vcard
Handbook (Link to \fIhttp://www.netmeister.org/apps/2vcard/\fR)
.SH "AUTHOR"
.PP
Jan Schaumann
2vcard-0.6/src 0040700 0001750 0000144 00000000000 12633113120 0012744 5 ustar jschauma users 2vcard-0.6/src/2vcard 0100700 0001750 0000144 00000036054 12633113120 0014137 0 ustar jschauma users #!/usr/pkg/bin/perl -w
use strict;
# Hint from http://www.seligma.com/download/palm-ldif2csv
use MIME::Base64;
use MIME::QuotedPrint;
###############################################################################
#
# $Author: Jan Schaumann $
#
# Copyright (c) 2001,2002,2003,2005 Jan Schaumann
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
# * Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer.
# * Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# * The name of the author may not be used to endorse or promote products
# derived from this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
###############################################################################
use Getopt::Std;
my $NAME = "2vcard";
my $VERSION = "0.6";
my %SUPPORTED = ("abook" => 0, "mh" => 0, "mutt" => 1,
"pine" => 0, "juno" => 0, "ldif" => 0,
"eudora" => 0);
init();
main();
done();
#we're done - bye, bye
exit 0;
######### #########
######### Functions #########
######### #########
###
# parses command-line options etc.
###
sub init
{
my %Options;
my $ok = getopts('Ff:hi:o:v', \%Options);
if (!$ok) {
my $i;
my @values = keys(%Options);
foreach $i (@values) {
if (!$Options{$i}) {
print STDERR "Option '$i' requires an argument.\n";
print STDERR "Try $NAME -h for details.\n";
exit(1);
}
}
usage();
exit(1);
}
open (READ, "<&STDIN") ||
die "Can't read from STDIN!\n";
open (WRITE, ">&STDOUT") ||
die "Can't write to STDOUT!\n";
if ($Options{'f'}) {
setFormat("$Options{'f'}");
}
if ($Options{'F'}) {
formats();
exit 0;
}
if ($Options{'h'}) {
usage();
exit 0;
}
if ($Options{'v'}) {
print "$NAME Version $VERSION\n";
exit 0;
}
if ($Options{'i'}) {
open(READ, "$Options{'i'}") ||
die "Can't open \"$Options{'i'}\" for reading!\n";
}
if ($Options{'o'}) {
open(WRITE, ">$Options{'o'}") ||
die "Can't open \"$Options{'o'}\" for writing!\n";
}
if ($#ARGV > -1) {
usage();
exit(1);
}
}
###
# sets the current format
###
sub setFormat
{
my ($which) = @_;
my $key;
foreach $key (keys %SUPPORTED) {
$SUPPORTED{"$key"} = 0;
}
if ($which =~ m/(abook)|(eudora)|(juno)|(ldif)|(mh)|(mutt)|(pine)/) {
$SUPPORTED{"$which"} = 1;
} else {
print STDERR "$NAME: ERROR:\n";
print STDERR "Format \"$which\" not supported.\n";
print STDERR "Try \"-F\" and/or \"-h\".\n";
exit(1);
}
}
###
# check which format we want to read and dispatch to the proper function
###
sub main
{
parseAbook() if ($SUPPORTED{"abook"});
parseEudora() if ($SUPPORTED{"eudora"});
parseJuno() if ($SUPPORTED{"juno"});
parseLdif() if ($SUPPORTED{"ldif"});
parseMH() if ($SUPPORTED{"mh"});
parseMutt() if ($SUPPORTED{"mutt"});
parsePine() if ($SUPPORTED{"pine"});
}
###
# cleanup before we say bye bye
###
sub done
{
close WRITE;
close READ;
}
###
# Outputs one info line
###
sub Oneline
{
if ($_[0]) {
print WRITE "$_[1]";
if ($_[2]) {print WRITE ";quoted-printable";}
print WRITE ":$_[0]\n";
}
}
###
# print a warning to stderr
###
sub warnFormat
{
my ($line) = @_;
print STDERR "Skipping ill-formatted line:\n";
print STDERR " $line\n";
}
###
# begin a new VCARD entry
###
sub beginVcard
{
my ($fn, $n) = @_;
print WRITE "BEGIN:VCARD\n";
print WRITE "FN:$fn\n";
print WRITE "N:";
}
###
# write an email entry to a VCARD
sub writeEmail
{
foreach my $i (@_) {
my $email = $i;
$email =~ s/.*<(.*\@.*)>/$1/;
print WRITE "EMAIL;INTERNET:$email\n";
}
}
###
# end a VCARD entry
###
sub endVcard
{
print WRITE "END:VCARD\n\n";
}
###
# parse Eudora alias file
###
sub parseEudora
{
my %eudoras = ();
while () {
#s/
/\n/g;
# Format is:
# alias nick email@address
# alias nick2 email@address
# ...
# note nick ...unknown^Cfields
# nicks first
if (m/^alias (.*) (.*@.*)$/) {
my $nick = $1;
my $email = $2;
$eudoras{"$nick"} = ();
$eudoras{"$nick"}{"email"} = $email;
}
elsif (m/^alias (.*) ,$/) {
my $nick = $1;
$eudoras{"$nick"} = ();
}
# all else later
if (m/note (.*) <(.*)$/) {
my $nick = $1;
my $info = $2;
if ($info =~ m/.*name:([^>]*)>[<\$]/) {
$eudoras{"$nick"}{"name"} = $1;
}
if ($info =~ m/.*phone:([^>]*)>.*/) {
$eudoras{"$nick"}{"phone"} = $1;
}
if ($info =~ m/.*address:([^>]*)>.*/) {
my $add = $1;
$add =~ s//;/g;
$eudoras{"$nick"}{"address"} = $add;
}
if ($info =~ m/.*fax:([^>]*)>.*/) {
$eudoras{"$nick"}{"fax"} = $1;
print $1;
}
if ($info =~ m/>([^<>]*)$/) {
$eudoras{"$nick"}{"note"} = $1;
}
}
}
my $key;
foreach $key (keys %eudoras) {
print WRITE "BEGIN:VCARD\n";
print WRITE "NICKNAME:$key\n";
my $fn = $eudoras{"$key"}{"name"};
if ($fn) {
my @name = split / /, $fn, 2;
my $x;
print WRITE "FN:$fn\n";
print WRITE "N:";
foreach $x (reverse @name) {
print WRITE "$x;";
}
print WRITE "\n";
}
my $email = $eudoras{"$key"}{"email"};
writeEmail($email);
my $phone = $eudoras{"$key"}{"phone"};
if ($phone) {
print WRITE "TEL;HOME:$phone\n";
}
my $fax = $eudoras{"$key"}{"fax"};
if ($fax) {
print WRITE "TEL;FAX:$fax\n";
}
my $addr = $eudoras{"$key"}{"address"};
if ($addr) {
print WRITE "ADR;HOME:Default;;$addr\n";
}
my $note = $eudoras{"$key"}{"note"};
if ($note) {
$note =~ s//;/g;
print WRITE "NOTE:$note\n";
}
endVcard();
}
}
###
# parses a mutt aliases file
###
sub parseMutt
{
while () {
# alias nick email@address (full name)
if (m/^alias\s+(\S+)\s+(.*)\s+(<.*>)/) {
my @name = split / /, $3, 2;
my $x;
beginVcard($3);
foreach $x (reverse @name) {
print WRITE "$x;";
}
print WRITE "\n";
$x = $2;
if ($x =~ m/(.*,.*)/) {
my @emails = split /,/, $1;
writeEmail(@emails);
} else {
writeEmail($x);
}
endVcard();
} elsif (m/^alias ([^\s]*) (.*) (<.*>)/) {
# alias nick full name
my @name = split / /, $2, 2;
my $x;
beginVcard($2);
foreach $x (reverse @name) {
print WRITE "$x;";
}
print WRITE "\n";
$x = $3;
if ($x =~ m/(.*,.*)/) {
my @emails = split /,/, $1;
foreach $x (@emails) {
$x =~ s/[<>]//g;
writeEmail($x);
}
} else {
$x =~ s/[<>]//g;
writeEmail($x);
}
endVcard();
} else {
warnFormat($_);
}
}
}
###
# parses a mh alias file
###
sub parseMH
{
while () {
# alias: email@address, email@address
if (m/^(.*): (.*)/) {
my $x;
beginVcard($1, $1);
$x = $2;
if ($x =~ m/(.*,.*)/) {
my @emails = split /,/, $1;
foreach $x (@emails) {
$x =~ s/\s//g;
writeEmail($x);
}
} else {
writeEmail($x);
}
endVcard();
} else {
warnFormat($_);
}
}
}
###
# parses a pine addressbook file
###
sub parsePine
{
while () {
# nick\tFull Name\temail@address
# nick\tFull Name\tName
# nick\tFull Name\t(email@address,email@address)
# nick\tFull Name\t(Name ,Name )
# in all of the above, 'Full Name' could also be 'Last, First'
# TODO - Continuations: m/[\t,]$/
if (m/^(.*)\t(.*)\t(.*\@.*)$/) {
my $ns = $2;
my $x = $3;
my @name = split / /, $ns, 2;
if ($2 =~ m/(.*), (.*)/) {
my $ln = $1;
my $fn = $2;
beginVcard("$fn $ln");
print WRITE "$1;$2;";
} else {
beginVcard($ns);
foreach $x (reverse @name) {
print WRITE "$x;";
}
}
print WRITE "\n";
if ($x =~ m/\((.*)\)/) {
my @emails = split /,/, $1;
writeEmail(@emails);
} else {
writeEmail($x);
}
endVcard();
} else {
warnFormat($_);
}
}
}
###
# parses a abook addressbook file
###
sub parseAbook
{
my $count = 0;
my %info;
LOOP:
while () {
# [num]
# name=Full Name
# email=foo@bar.com,foo@barbar.com
# address=Street
# city=City
# state=State
# zip=123123
# country=Country
# phone=1234/1234525
# workphone=1234/123455
# fax=fax
# mobile=mobile
# nick=Nick
# url=http://bl;ahlbahl.com
# notes=CellPhone#: 12345678901
next LOOP if (m/^#/);
if (m/^\[\d+\]$/) {
$count++;
next LOOP;
}
if (m/^$/) {
my $x;
# no entries without a note
if ($info{'name'}) {
my @name = split / /, $info{'name'}, 2;
beginVcard($info{'name'});
foreach $x (reverse @name) {
print WRITE "$x;";
}
print WRITE "\n";
my @emails = split /,/, $info{'email'};
writeEmail(@emails);
if ($info{'address'}) {
print WRITE "ADR;HOME:Default;;$info{'address'};";
foreach $x ("city", "address", "zip", "country") {
print WRITE "$info{$x};";
}
print WRITE "\n";
}
if ($info{'phone'}) {
print WRITE "TEL;HOME:$info{'phone'}\n";
}
if ($info{'workphone'}) {
print write "TEL;WORK:$info{'workphone'}\n";
}
if ($info{'fax'}) {
print write "TEL;FAX:$info{'fax'}\n";
}
if ($info{'mobile'}) {
print write "TEL;CELL:$info{'mobile'}\n";
}
if ($info{'url'}) {
print WRITE "URL:$info{'url'}\n";
}
if ($info{'notes'}) {
print WRITE "NOTE:$info{'notes'}\n";
}
endVcard();
}
foreach $x (keys %info) {
$info{$x} = "";
}
next LOOP;
}
if ($count) {
my ($key, $val) = split /=/;
if ($val) {
chomp($val);
$info{$key} = $val;
}
next LOOP;
}
}
}
###
# parses a Juno address book export file
###
sub parseJuno
{
my $count = 0;
my %info;
LOOP:
while () {
# Type:Entry
# Name:Burdell, George P.
# Email:burdell@gatech.edu,gburdell@cc.gatech.edu
# Alias:YellowJacket
next LOOP if (m/^#/);
if (m/^Type:Entry$/) {
$count++;
next LOOP;
}
if (m/^$/) {
my $x;
# no entries without a note
if ($info{'Name'}) {
my @name = split /,/, $info{'Name'}, 2;
print WRITE "BEGIN:VCARD\n";
print WRITE "FN:";
foreach $x (reverse @name) {
# Trim leading/trailing whitespace
$x =~ s/^\s+//;
$x =~ s/\s+$//;
print WRITE "$x ";
}
print WRITE "\n";
print WRITE "N:";
foreach $x (@name) {
# Trim leading/trailing whitespace
$x =~ s/^\s+//;
$x =~ s/\s+$//;
print WRITE "$x;";
}
print WRITE "\n";
my @emails = split /,/, $info{'Email'};
writeEmail(@emails);
if ($info{'Alias'}) {
print WRITE "NOTE:$info{'Alias'}\n";
}
endVcard();
}
foreach $x (keys %info) {
$info{$x} = "";
}
next LOOP;
}
if ($count) {
my ($key, $val) = split /:/;
if ($val) {
chomp($val);
$info{$key} = $val;
}
next LOOP;
}
}
}
###
# parses a ldif addressbook file
###
sub parseLdif
{
my $count = 1;
my $key;
my $val;
my %info;
my %qp;
my %v;
LOOP:
while () {
# dn: cn=FIRST LNAME,mail=EM
# modifytimestamp: 20030227150502Z
# cn: FIRST LNAME
# mail: EM
# xmozillausehtmlmail: TRUE
# o: ORG
# locality: CITY
# givenname: FIRST
# sn: LNAME
# title: TITLE
# streetaddress:: QUREMQ0KQU
# QUREMQ0KQUREMg==
# postalcode: ZIP
# countryname: COUN
# telephonenumber: WORKph
# facsimiletelephonenumber: FAX
# xmozillaanyphone: WORKph
# homephone: HOMEPH
# cellphone: CELL
# ou: DPT
# homeurl: URL
# st: STAT
# xmozillanickname: NICK
# description:: Tk9UMQ0KTk9UMg==
# pagerphone: PAGER
# objectclass: top
# objectclass: person
next LOOP if (m/^#/);
# if newline is followed by space, remove both
if (s/^ //ms) {
chomp();
s/\r?\n$//;
$info{$key} .= $_;
next LOOP;
}
if ($key && $qp{$key}) {
$val = decode_base64($info{$key});
$val = encode_qp($val);
$val =~ s/\n/=0A/g;
$info{$key} = $val;
}
if (m/^\r?$/) {
my $x;
# no entries without a note
if ($info{'dn'}) {
my @name = split /[=,]/, $info{'dn'}, 2;
beginVcard($info{'cn'});
if ($info{'sn'}) {print WRITE "$info{'sn'};";}
if ($info{'givenname'}) {print WRITE "$info{'givenname'}";}
print WRITE "\n";
my @emails = split /,/, $info{'mail'};
writeEmail(@emails);
if ($info{'streetaddress'}) {
print WRITE "ADR";
if ( $qp{"streetaddress"} || $qp{"locality"} ||
$qp{"address"} || $qp{"st"} ||
$qp{"postalcode"} || $qp{"countryname"}) {
print WRITE ";quoted-printable";
}
print WRITE ":;;$info{'streetaddress'};";
foreach $x ("locality", "address", "st", "postalcode", "countryname") {
print WRITE "$info{$x};";
}
print WRITE "\n";
}
Oneline($info{'homephone'}, 'TEL;HOME', $qp{'homephone'});
Oneline($info{'telephonenumber'}, 'TEL;WORK', $qp{'telephonenumber'});
Oneline($info{'facsimiletelephonenumber'}, 'TEL;FAX', $qp{'facsimiletelephonenumber'});
Oneline($info{'cellphone'}, 'TEL;CELL', $qp{'cellphone'});
Oneline($info{'pagerphone'}, 'tel;pager', $qp{'pagerphone'});
Oneline($info{'xmozillausehtmlmail'}, 'x-mozilla-html', $qp{'xmozillausehtmlmail'});
Oneline($info{'title'}, 'title', $qp{'title'});
Oneline($info{'homeurl'}, 'URL', $qp{'homeurl'});
Oneline($info{'description'}, 'NOTE', $qp{'description'});
if ($info{'o'}) {
print WRITE "org:$info{'o'};";
if ($info{'ou'}) {print WRITE "$info{'ou'}";}
print WRITE "\n";
}
endVcard();
}
foreach $x (keys %info) {
$info{$x} = "";
$qp{$x} = "";
}
$key = "";
next LOOP;
}
($key, $val) = split /: /;
if ($val) {
chomp($val);
$val =~ s/\r$//;
if ($key =~ s/:$//) {
$qp{$key} = 1;
}
$info{$key} = $val;
}
next LOOP;
}
}
###
# prints a list of supported formats
###
sub formats
{
my $key;
print "$NAME $VERSION can convert the addressbooks of the following:\n";
foreach $key (sort(keys %SUPPORTED)) {
print "\t$key\n";
}
}
###
# prints out helpful information
###
sub usage
{
print "$NAME: convert an addressbook to vcard format\n";
print "Usage: $NAME [OPTION...]\n";
print "Options:\n";
print " -F\t\tshow supported formats\n";
print " -f FORMAT\tconvert from FROMAT [ default: mutt ]\n";
print " -h\t\tprint this message and exit\n";
print " -i FILE\tread input from FILE\n";
print " -o FILE\twrite output to FILE\n";
print " -v\t\tprint version number and exit\n";
}
2vcard-0.6/Makefile 0100600 0001750 0000144 00000000705 07571447137 0013724 0 ustar jschauma users DOC = doc/html/index.html doc/html/index-1.html doc/html/index-2.html \
doc/html/index-3.html doc/html/index-4.html doc/html/index-5.html
INSTALL = install -c -m 644
PREFIX= /usr/local
all:
install: $(DOC)
install -d $(PREFIX)/bin
install -d $(PREFIX)/share/man/man1
install -d $(PREFIX)/share/doc/2vcard
install -c -m 755 src/2vcard $(PREFIX)/bin
$(INSTALL) doc/2vcard.1 $(PREFIX)/share/man/man1
$(INSTALL) $(DOC) $(PREFIX)/share/doc/2vcard
2vcard-0.6/AUTHORS 0100600 0001750 0000144 00000000345 10272773417 0013327 0 ustar jschauma users Jan Schaumann
Support for Juno format by
Support for LDIF format by
Patches and suggestions from:
- Neale Banks
2vcard-0.6/CHANGES 0100600 0001750 0000144 00000002304 12633113261 0013233 0 ustar jschauma users 2015-07-31: Actually release version 0.6:
- incorporate fix from Riley Baird to handle multiple
whitespaces in mutt alias formats
2005-07-30: Released version 0.6:
- improve support for pine formats via patch/suggestions
from Neale Banks :
- email address might be
- name fields can be either 'Full Name' or 'Last, First'
- lists can contain name fields (ignore for now)
- code cleanup:
- use subroutines for repeatedly used statements
2003-06-22: Released version 0.5:
- support conversion from eudora
- import changes from christophe.huibonhoa@memscap.com to
enable support for LDIF
- minor bugfix in getopts handling
- minor code cleanup
2002-11-27: Released version 0.4:
- import changes from Gregory.Krohne@AFRC.AF.MIL to
enable conversion from Juno
- change license to BSD style license
2001-10-10: Released version 0.3:
- now supports conversion from abook-addressbook files
2001-09-24: Released version 0.2:
- now supports conversion from mh-alias files
2001-09-23: Released first version of 2vcard to the world
2vcard-0.6/COPYING 0100600 0001750 0000144 00000003337 10272774311 0013310 0 ustar jschauma users ###############################################################################
#
# $Author: Jan Schaumann $
#
# Copyright (c) 2001,2002,2003,2005 Jan Schaumann
# All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are met:
#
# * Redistributions of source code must retain the above copyright notice,
# this list of conditions and the following disclaimer.
# * Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# * The name of the author may not be used to endorse or promote products
# derived from this software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
###############################################################################
2vcard-0.6/README 0100600 0001750 0000144 00000010161 10272773743 0013136 0 ustar jschauma users The 2vcard Handbook
Jan Schaumann jschauma@netmeister.org
Version 0.6, Sat Jul 30 17:57:34 EDT 2005
This Handbook describes 2vcard Version 0.6
1. Introduction
2. Installation
2.1 How to obtain 2vcard
2.2 Requirements
2.3 Compilation and installation
3. Usage
4. Copyright
5. Misc
------------------------------------------
1. Introduction
2vcard is a little perl script to convert an addressbook to the popular VCARD
file format. Currently, 2vcard can convert mutt's and mh's alias as well as
pine's, abook's and juno's addressbook format.
The VCARD format is used by gnomecard, for example, which in turn is used by
the balsa email client.
This is version 0.6 of 2vcard.
------------------------------------------
2. Installation
2.1 How to obtain 2vcard
2vcard 0.4 can be obtained from:
http://www.netmeister.org/apps/2vcard/2vcard-0.6.tar.gz - as a gzipped source-tarball
http://www.netmeister.org/apps/2vcard/2vcard-0.6.tar.bz2 - as a bzip2'ed source-tarball
2.2 Requirements
In order to successfully use 2vcard, you need the following programs and
libraries which are available on most platforms as distribution packages and
thereby can be installed easily.
Required:
Perl http://www.perl.com
2.3 Compilation and installation
2vcard assumes that the Perl executable lives in /usr/bin/perl - if that is
not the case, use your favorite editor to modify the first line of the file
2vcard accordingly.
In order to install 2vcard from sources, type the following in the directory
to which you downloaded the 2vcard distribution:
% tar zxvf 2vcard-0.6.tar.gz
% cd 2vcard-0.6
% less README
% su
% make install
This will install 2vcard in /usr/local/bin, the man page in /usr/local/share/man/man1/ and
the documentation in /usr/local/share/doc/2vcard/.
Should you run into problems please report them to the the author at
jschauma@netmeister.org
------------------------------------------
3. Usage
Per default, 2vcard reads from stdin and writes to stdout. Alternatively, the
input- and output-files can be specified as command-line options.
Examples:
In a pipe:
cat ~/.addressbook | 2vcard -p
Alone:
2vcard -i ~/.aliases -o ~/.addbook.grcd
If you run into any problems, if you encounter bugs, or if you have any other
comments on this program,please don't hesitate to email me.
------------------------------------------
4. Copyright
2vcard Copyright 2001,2002,2003 Jan Schaumann, jschauma@netmeister.org
All rights reserved.
Redistribution and use in source and binary forms, with or without
modification, are permitted provided that the following conditions are met:
* Redistributions of source code must retain the above copyright notice,
this list of conditions and the following disclaimer.
* Redistributions in binary form must reproduce the above copyright
notice, this list of conditions and the following disclaimer in the
documentation and/or other materials provided with the distribution.
* The name of the author may not be used to endorse or promote products
derived from this software without specific prior written permission.
THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
POSSIBILITY OF SUCH DAMAGE.
------------------------------------------
5. Misc
Please take the time to visit these websites:
http://www.hrweb.org/legal/udhr.html
http://www.aclu.org
http://www.amnesty.org
http://www.worldwildlife.org
http://www.ncadp.org
Take the time to think about it.