summaryrefslogtreecommitdiff
path: root/projects/foaf/mkfoaf.sh
diff options
context:
space:
mode:
authorJonas Smedegaard <dr@jones.dk>2010-10-28 19:47:48 +0200
committerJonas Smedegaard <dr@jones.dk>2010-10-28 19:47:48 +0200
commit8a6f120eeb9f2a540cfb07a8f984c22d29b33908 (patch)
treefe1b9257cef995186ab1e0eeff412dcff09411ad /projects/foaf/mkfoaf.sh
parentbd219c948736cb4e935d4efcb67bf597a4be920e (diff)
Move projects/* → /.
Diffstat (limited to 'projects/foaf/mkfoaf.sh')
-rwxr-xr-xprojects/foaf/mkfoaf.sh78
1 files changed, 0 insertions, 78 deletions
diff --git a/projects/foaf/mkfoaf.sh b/projects/foaf/mkfoaf.sh
deleted file mode 100755
index e8ee107..0000000
--- a/projects/foaf/mkfoaf.sh
+++ /dev/null
@@ -1,78 +0,0 @@
-#!/bin/sh
-
-# Origin: http://code.google.com/p/lindenb/source/browse/trunk/src/xsl/linkedin2foaf.xsl
-# info: http://plindenbaum.blogspot.com/2010/02/linkedinxslt-foaf-people-from.html
-
-set -e
-
-exit1() {
- echo "ERROR: $1"
- exit 1
-}
-
-bindir=$(dirname "$0")
-xsltdir="$bindir"
-
-turtle2foaf() {
- inpath="$1"
- outpath="$2"
- [ -n "$outpath" ] || outpath=$(echo "$inpath" | perl -pe 's/\.ttl$/.rdf/ or exit 1') || exit1 "Failed resolving output RDF file from input Turtle file \"$inpath\"."
-
- [ -e "$inpath" ] || exit1 "Turtle file \"$inpath\" does not exist."
-# [ ! -e "$outpath" ] || exit1 "RDF file \"$outpath\" already exists."
-
- base="$(perl -ne '/^\@base\s+<(http.+)>/ and print $1 and exit;' "$inpath")" || true
- rapper ${base:+-I "$base"} -i turtle -o rdfxml-abbrev "$inpath" > "$outpath"
- foafsign "$outpath"
-}
-
-linkedin2foaf() {
- inpath="$1"
- outpath="$2"
- [ -n "$outpath" ] || outfile=index.rdf && outpath="$(dirname "$inpath")/linkedin/$outfile"
- outdir=$(dirname "$outpath")
- tmppath="$outdir/index.html"
-
- [ -e "$inpath" ] || exit1 "Turtle file \"$inpath\" does not exist."
- [ ! -e "$tmppath" ] || exit1 "Tempfile \"$tmppath\" already exists."
-
-# TODO: support homepage as fallback for accountName
-# id=$(perl -0 -ne '/foaf:accountServiceHomepage\s+<http:\/\/www.linkedin.com\/>\s+;\s+foaf:(?:homepage\s+<(?=http)|accountName\s+")([^<"\s]+)/ and print $1 and exit;' "$inpath") #'
- id=$(perl -0 -ne '/^:me.*?foaf:accountServiceHomepage\s+<http:\/\/www.linkedin.com\/>\s+;\s+foaf:accountName\s+"([^<"\s]+)/ms and print $1 and exit;' "$inpath") #'
- [ -n "$id" ] || exit1 "Failed to resolve LinkedIn account name."
-
- mkdir -p "$outdir"
-# work around unescaped &'s in linkedin pages
-# xsltproc --html "$bindir/linkedin2foaf.xsl" "http://www.linkedin.com/in/$id" > "$outpath"
- wget -q -O "$tmppath" "http://www.linkedin.com/in/$id"
- perl -i -pe 's/&([a-zA-Z0-9]+=)/&amp;$1/g' "$tmppath"
- xsltproc --html "$xsltdir/linkedin2foaf.xsl" "$tmppath" > "$outpath"
- rm -f "$tmppath"
- foafsign "$outpath"
-}
-
-tidyfacebookfoaf() {
- inpath="$1"
- outpath="$2"
-
- [ -e "$inpath" ] || exit1 "Facebook Exporter RDF file \"$inpath\" does not exist."
-
- perl "$bindir/fbfixup.pl" "$inpath" > "$outpath"
- foafsign "$outpath"
-}
-
-foafsign() {
- inpath="$1"
- outpath="$inpath.asc"
- gpg -a -o- --detach-sign "$inpath" > "$outpath"
-}
-
-paths="$@"
-[ -n "$paths" ] || paths=index.ttl
-
-for path in $paths; do
- basedir=$(dirname "$path")
- turtle2foaf "$path"
- linkedin2foaf "$path" || true
- tidyfacebookfoaf "$basedir/facebook/foaf.xml" "$basedir/facebook/index.rdf" || true
-done