Ajax Timelines and the Semantic Web

Listing 18. Glue to Transform find Results to RDF

#!/usr/bin/perl

use POSIX;
use File::Basename;
use RDF::Redland;

$storage=new RDF::Redland::Storage(
 "hashes", "test", "new='yes',hash-type='memory'");
$model=new RDF::Redland::Model($storage, "");

$rdfns = "http://witme.sf.net/rdf/filesystem/";

$/="\0";
while( <> ) {
 $url=$_;
 # remove pesky null char at end-of-string
 chomp($url);
 ($dev, $ino, $mode, $nlink, $uid,$gid,$rdev,
   $size,$atime,$mtime,$ctime) = lstat($_);

 $model->add(
  new RDF::Redland::URI( "${rdfns}${ino}" ),
  new RDF::Redland::URI( "${rdfns}inode" ),
  new RDF::Redland::LiteralNode( "$ino" ) );
 $model->add(
  new RDF::Redland::URI( "${rdfns}${ino}" ),
  new RDF::Redland::URI( "${rdfns}url" ),
  new RDF::Redland::LiteralNode( "$url" ) );
 $model->add(
  new RDF::Redland::URI( "${rdfns}${ino}" ),
  new RDF::Redland::URI( "${rdfns}basename" ),
  new RDF::Redland::LiteralNode(basename("$url")));
 $model->add(
  new RDF::Redland::URI( "${rdfns}${ino}" ),
  new RDF::Redland::URI( "${rdfns}title" ),
  new RDF::Redland::LiteralNode(
   substr basename("$url"), 0, 25 ) );
 $model->add(
  new RDF::Redland::URI( "${rdfns}${ino}" ),
  new RDF::Redland::URI( "${rdfns}mtime" ),
  new RDF::Redland::LiteralNode( strftime(
   "%Y-%m-%d %H:%M:%S", localtime($mtime)) ) );
 $model->add(
  new RDF::Redland::URINode( "${rdfns}${ino}" ),
  new RDF::Redland::URINode( "${rdfns}size" ),
  new RDF::Redland::LiteralNode( "$size" ) );
 $model->add(
  new RDF::Redland::URI( "${rdfns}${ino}" ),
  new RDF::Redland::URI( "${rdfns}content" ),
  new RDF::Redland::LiteralNode( "$url<br>" ) );

 $desc = "<a href=\"${url}\">$url</a><br></br>"
 . "<iframe src=\"${url}\" "
 . "width=\"95%\" height=\"75%\"></iframe>";
 $model->add(
  new RDF::Redland::URI( "${rdfns}${ino}" ),
  new RDF::Redland::URI( "${rdfns}description" ),
  RDF::Redland::Node->new_xml_literal( $desc ) );
}

$model->sync();
print $model->to_string() , "\n";

Listing 19. SPARQL to Query an RDF Store for Filesystem Data

PREFIX rdf: <http://www.w3.org/1999/02/22-rdf-syntax-ns#>
PREFIX dc: <http://purl.org/dc/elements/1.1/>
PREFIX fs: <http://witme.sf.net/rdf/filesystem/>

SELECT distinct ?uid ?title ?date ?description
WHERE {


  ?x fs:inode       ?uid .
  ?x fs:title       ?title .
  ?x fs:mtime       ?date .
  ?x fs:description ?description .

}
ORDER BY DESC(?date)

Listing 20. My File Modifications for This Week

$ find ~ -name ".*" -prune -o -name "*~" -prune \
  -o -mtime -7 -print0 | \
  ./find-to-rdf.pl >| filesystem.rdf
$ java jena.sparql \
   --data filesystem.rdf \
   --query  filesystem-to-timeline.rq \
   --results xml >| filesystem.xml
$ xsltproc sparql2timeline.xsl filesystem.xml \
   | tr '\n' ' '  >| filesystem.json