helm/metadata/create_V7_mowgli/fix_rdf.pl

   1 #!/usr/bin/perl
   2
   3 $filename = $uri = $ARGV[0];
   4 $outputfile = $filename.".xml";
   5 $uri =~ s/^backward/cic:/;
   6 $uri =~ s/(.*),([^,]*),([^,]*)/$1#xpointer(1\/$2\/$3)/;
   7 $uri =~ s/(.*),([^,]*)/$1#xpointer(1\/$2)/;
   8
   9 print "Now processing file $filename\n";
  10
  11 open(HEADER,">>$outputfile");
  12 print HEADER <<EOT;
  13 <?xml version="1.0" encoding="ISO-8859-1"?>
  14
  15 <!DOCTYPE rdf:RDF [
  16         <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
  17         <!ENTITY hthns 'http://www.cs.unibo.it/helm/schemas/schema-helmth#'>
  18         <!ENTITY hns 'http://www.cs.unibo.it/helm/schemas/schema-helm#'>
  19
  20    ]>
  21 <rdf:RDF xml:lang="en" xmlns:rdf="&rdfns;" xmlns:h="&hns;" xmlns:hth="&hthns;">
  22         <h:Object rdf:about="$uri">
  23 EOT
  24 close(HEADER);
  25
  26 $quotedfilename = $filename;
  27 $quotedfilename =~ s/'/\\'/g;
  28 $quotedoutputfile = $outputfile;
  29 $quotedoutputfile =~ s/'/\\'/g;
  30 system("cat $quotedfilename >> $quotedoutputfile");
  31
  32 open(FOOTER,">>$outputfile");
  33 print FOOTER <<EOT;
  34         </h:Object>
  35 </rdf:RDF>
  36 EOT
  37 close(FOOTER);
  38
  39 unlink $filename;