New tools localvcard2rdf and localrdf2vcard.

1 files changed, 29 insertions, 0 deletions

diff --git a/localrdf2vcard b/localrdf2vcard
new file mode 100755
index 0000000..ce5f205
--- /dev/null
+++ b/localrdf2vcard
@@ -0,0 +1,29 @@
+#!/usr/bin/perl
+# Copyright © 2015 Jonas Smedegaard <dr@jones.dk>
+# Description: Recode RDF file(s) to vCard data on STDOUT
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 3, or (at your option)
+# any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program.  If not, see <http://www.gnu.org/licenses/>.
+#
+# Depends: librdf-vcard-perl
+
+use strict;
+use warnings;
+
+use RDF::vCard::Exporter;
+
+my $exporter = RDF::vCard::Exporter->new;
+
+while (my $input = shift @ARGV) {
+	print $_ foreach $exporter->export_cards( $input, sort => 1 );
+}