diff options
Diffstat (limited to 'projects/foaf/fbfixup.pl')
| -rwxr-xr-x | projects/foaf/fbfixup.pl | 41 |
1 files changed, 0 insertions, 41 deletions
diff --git a/projects/foaf/fbfixup.pl b/projects/foaf/fbfixup.pl deleted file mode 100755 index 5cc5f60..0000000 --- a/projects/foaf/fbfixup.pl +++ /dev/null @@ -1,41 +0,0 @@ -#!/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; -} |