X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmetadata%2Fpostgresql_V7_mowgli%2Fupload_sort.pl;fp=helm%2Fmetadata%2Fpostgresql_V7_mowgli%2Fupload_sort.pl;h=0000000000000000000000000000000000000000;hb=3ef089a4c58fbe429dd539af6215991ecbe11ee2;hp=1215ceb3aa84f7079508d2720ac0003187f0f02e;hpb=1c7fb836e2af4f2f3d18afd0396701f2094265ff;p=helm.git

diff --git a/helm/metadata/postgresql_V7_mowgli/upload_sort.pl b/helm/metadata/postgresql_V7_mowgli/upload_sort.pl
deleted file mode 100755
index 1215ceb3a..000000000
--- a/helm/metadata/postgresql_V7_mowgli/upload_sort.pl
+++ /dev/null
@@ -1,36 +0,0 @@
-#!/usr/bin/perl
-
-my $inputfile = $ARGV[0];
-
-#print "Now splitting file $inputfile\n";
-open(IN, "<$inputfile") or die "Error opening file $inputfile";
-while(($skip = <IN>) && not ($skip =~ /<rdf:RDF/)) {}
-while(($line0 = <IN>) && not ($line0 =~ /<\/rdf:RDF>/)) { # <h:Object
-  chomp($line0);
-  $line0 =~ s/^[^"]*"([^"]*)">$/$1/;
-  $line1 = <IN>; #<h:refRel..
-  $obj = $line1;
-  $line2 = <IN>; # <h:position rdf:resource="&hns;value"/>
-  $position = $line2;
-  chomp($position);
-  $position =~ s/^[ \t]*[^"]*"&hns;([^"]*)"\/>/$1/;
-  $position = "http://www.cs.unibo.it/helm/schemas/schema-helm#$position";
-  $line3 = <IN>;#<h:sort..
-  $sort = $line3; 
-  chomp($sort);
-  $sort =~ s/^[ \t]*[^"]*"&hns;([^"]*)"\/>/$1/;
-  $sort = "http://www.cs.unibo.it/helm/schemas/schema-helm#$sort";
-  $line4 = <IN>; #<h:depth..
-  $depth = $line4;
-  chomp($depth);
-  $depth =~ s/^[ \t]*<h:depth>([^<]*)<\/h:depth>$/$1/;
-  $line5 = <IN>; # </h:refRel
-  $line6 = <IN>; # </h:Object>
-   
-  $line0 =~ s/'/\\'/g; 
-  $position =~ s/'/\\'/g;
-  $depth =~ s/'/\\'/g;
-  $sort =~ s/'/\\'/g;
-  print "insert into hrefSort values ('$line0', '$position', '$sort', $depth);\n\n";
-}
-close(IN);