# Convert output of DOS DIR command to RDF with a single File class.
# See also dir2nfordf.pl. Run with
# dir  | perl dir2df.pl
# 2009-11-06 Bob DuCharme no warrantee expressed or implied

$header =
"<rdf:RDF
    xmlns:rdf='http://www.w3.org/1999/02/22-rdf-syntax-ns#'
    xmlns:owl='http://www.w3.org/2002/07/owl#'
    xmlns='http://www.snee.com/ns/simpledir#'
    xmlns:xsd='http://www.w3.org/2001/XMLSchema#'
    xmlns:rdfs='http://www.w3.org/2000/01/rdf-schema#'
    xml:base='http://www.snee.com/ns/simpledir'
    xmlns:sd='http://www.snee.com/ns/simpledir#'>
  <owl:Class rdf:ID='File'>
    <rdfs:subClassOf rdf:resource='http://www.w3.org/2002/07/owl#Thing'/>
  </owl:Class>
  <owl:DatatypeProperty rdf:ID='fileSize'>
    <rdfs:range rdf:resource='http://www.w3.org/2001/XMLSchema#integer'/>
    <rdfs:domain rdf:resource='#File'/>
  </owl:DatatypeProperty>
  <owl:DatatypeProperty rdf:ID='fileName'>
    <rdfs:range rdf:resource='http://www.w3.org/2001/XMLSchema#string'/>
    <rdfs:domain rdf:resource='#File'/>
  </owl:DatatypeProperty>
  <owl:DatatypeProperty rdf:ID='lastModified'>
    <rdfs:domain rdf:resource='#File'/>
    <rdfs:range rdf:resource='http://www.w3.org/2001/XMLSchema#dateTime'/>
  </owl:DatatypeProperty>
";

print $header;

$fn = 1;

while (<>) {
    chop($_);
    if (/(\d\d\/\d\d\/\d\d\d\d)\s+(\d\d):(\d\d) ([A|P]M)\s+((\d+,)?\d+) (.*)/) {

        $date = $1;
        $hour = $2;
        $fileSize = $5;
        $filename = $7;

        # Convert date to ISO 8609 format
        $hour += 12 if ($4 == "PM");

        @dateFields = split(/\//,$date);
        $dateTime = @dateFields[2] . "-" . @dateFields[0] . "-" . @dateFields[1] . "T" . $hour . ":" . $2 . ":00";

        $fileSize =~ s/\,//g; # remove commas

        print "  <File rdf:ID='file$fn' sd:lastModified='$dateTime'\n";
        print "        sd:fileName='$filename' sd:fileSize='$fileSize'\n";
        print "        rdfs:comment=''/>\n";
        
        $fn++;
    }
}

print "<\/rdf:RDF>\n";