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

diff --git a/helm/metadata/dc_mowgli/upload.pl b/helm/metadata/dc_mowgli/upload.pl
deleted file mode 100755
index 944f21bc2..000000000
--- a/helm/metadata/dc_mowgli/upload.pl
+++ /dev/null
@@ -1,51 +0,0 @@
-#!/usr/bin/perl
-
-use XML::Parser;
-
-$p = new XML::Parser(Handlers => {Start => \&handle_start,
-                                  End   => \&handle_end,
-                                  Char  => \&handle_char});
-$p->parsefile($ARGV[0]);
-
-
-$skipped = 0;
-$open = 0;
-$content = "";
-$uri = "";
-
-sub handle_start
-{
-   my ($expat, $element, @attrs) = @_;
-   if ($skipped == 1) {
-      $uri = $attrs[1];
-      $uri =~ s/'/\\'/g;
-   }
-   if ($skipped < 2) { $skipped++ ; }
-   else {
-      $open++;
-      $content = "";
-   }
-}
-
-sub handle_end
-{
-   my ($expat,$element) = @_;
-   $open--;
-   if ($open >= 0) {
-      $content =~ s/'/\\'/g;
-      $element =~ s/://g;    # dc:pippo ==> dcpippo
-      print "insert into $element values ('$content','$uri');\n";
-   }
-}
-
-sub handle_char
-{
-   my ($expat,$char) = @_;
-   if ($open >= 1) {
-      chomp($char);
-      $char =~ s/ +/ /g;
-      $char =~ s/^ //g;
-      $char =~ s/ $//g;
-      $content .= $char;
-   }
-}