From bc64b853a7f5bc04f1ee3752665e79bcbb52c7ce Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Mon, 16 Nov 2015 12:25:08 +0100
Subject: New tools localvcard2rdf and localrdf2vcard.

---
 localrdf2vcard | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 localrdf2vcard

(limited to 'localrdf2vcard')

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 );
+}
-- 
cgit v1.2.3