From 8a6f120eeb9f2a540cfb07a8f984c22d29b33908 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Thu, 28 Oct 2010 19:47:48 +0200
Subject: Move projects/* → /.
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 foaf/fbfixup.pl | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100755 foaf/fbfixup.pl

(limited to 'foaf/fbfixup.pl')

diff --git a/foaf/fbfixup.pl b/foaf/fbfixup.pl
new file mode 100755
index 0000000..5cc5f60
--- /dev/null
+++ b/foaf/fbfixup.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/perl
+
+# Sanitize RDF from Facebook Exporter <http://apps.facebook.com/foaf_exporter/>
+
+undef $/;
+
+while (<>) {
+
+	s{
+  <foaf:locality>Mørkøv</foaf:locality>\n\s*
+  <foaf:region>Vestsjalland</foaf:region>\n\s*
+  <foaf:country>Denmark</foaf:country>\n\s*
+
+  <os:aboutMe></os:aboutMe>\n\s*
+  <os:relationshipStatus>.*?</os:relationshipStatus>\n\s*
+  <os:books></os:books>\n\s*
+  <os:music></os:music>\n\s*
+  <os:quotes></os:quotes>
+	}{}gsx;
+
+	s{
+    </foaf:Person>\n\s*
+    <foaf:Person>
+	}{</foaf:Person>
+  </foaf:knows>
+  <foaf:knows>
+    <foaf:Person>}gsx;
+
+	s{
+      <foaf:holdsAccount>\n\s*
+	<foaf:OnlineAccount>\n\s*
+	  <foaf:accountServiceHomepage\srdf:resource="http://www.facebook.com/"/>\n\s*
+	  <foaf:accountProfilePage\srdf:resource="(http://www.facebook.com/.*?)"/>\n\s*
+	  <foaf:accountName>.*?</foaf:accountName>\n\s*
+	</foaf:OnlineAccount>\n\s*
+      </foaf:holdsAccount>
+	}{<foaf:homepage rdf:resource="$1"/>}gsx;
+
+	s,(( *)<foaf:homepage rdf:resource="http://www.facebook.com/([a-z.]+)"/>),$1\n$2<foaf:jabberID>$3\@chat.facebook.com</foaf:jabberID>,gs;
+	print;
+}
-- 
cgit v1.2.3