first commit

[helm.git] / helm / metadata / dc_mowgli / upload.pl

diff --git a/helm/metadata/dc_mowgli/upload.pl b/helm/metadata/dc_mowgli/upload.pl
new file mode 100755 (executable)
index 0000000..944f21b
--- /dev/null
+++ b/helm/metadata/dc_mowgli/upload.pl
@@ -0,0 +1,51 @@
+#!/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;
+   }
+}