X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmetadata%2Fcreate_V7_mowgli%2Ffix_rdf.pl;fp=helm%2Fmetadata%2Fcreate_V7_mowgli%2Ffix_rdf.pl;h=0000000000000000000000000000000000000000;hb=c7514aaa249a96c5fdd39b1123fbdb38d92f20b6;hp=23b4b7fda2f6f438dd039eae7d1d7f687b96c10b;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;p=helm.git

diff --git a/helm/metadata/create_V7_mowgli/fix_rdf.pl b/helm/metadata/create_V7_mowgli/fix_rdf.pl
deleted file mode 100755
index 23b4b7fda..000000000
--- a/helm/metadata/create_V7_mowgli/fix_rdf.pl
+++ /dev/null
@@ -1,39 +0,0 @@
-#!/usr/bin/perl
-
-$filename = $uri = $ARGV[0];
-$outputfile = $filename.".xml";
-$uri =~ s/^backward/cic:/;
-$uri =~ s/(.*),([^,]*),([^,]*)/$1#xpointer(1\/$2\/$3)/;
-$uri =~ s/(.*),([^,]*)/$1#xpointer(1\/$2)/;
-
-print "Now processing file $filename\n";
-
-open(HEADER,">>$outputfile");
-print HEADER <<EOT;
-<?xml version="1.0" encoding="ISO-8859-1"?>
-
-<!DOCTYPE rdf:RDF [
-        <!ENTITY rdfns 'http://www.w3.org/1999/02/22-rdf-syntax-ns#'>
-        <!ENTITY hthns 'http://www.cs.unibo.it/helm/schemas/schema-helmth#'>
-        <!ENTITY hns 'http://www.cs.unibo.it/helm/schemas/schema-helm#'>
-
-   ]>
-<rdf:RDF xml:lang="en" xmlns:rdf="&rdfns;" xmlns:h="&hns;" xmlns:hth="&hthns;">
-	<h:Object rdf:about="$uri">
-EOT
-close(HEADER);
-
-$quotedfilename = $filename;
-$quotedfilename =~ s/'/\\'/g;
-$quotedoutputfile = $outputfile;
-$quotedoutputfile =~ s/'/\\'/g;
-system("cat $quotedfilename >> $quotedoutputfile");
-
-open(FOOTER,">>$outputfile");
-print FOOTER <<EOT;
-	</h:Object>
-</rdf:RDF>
-EOT
-close(FOOTER);
-
-unlink $filename;