From e757b4bab6b57b6f5c966bdc9ea68ffd3c0bd61e Mon Sep 17 00:00:00 2001
From: josch <josch@7eef14d0-6ed0-489d-bf55-20463b2d70db>
Date: Tue, 29 Apr 2008 14:07:28 +0000
Subject: [PATCH] added second part of upload xform

git-svn-id: http://yolanda.mister-muffin.de/svn@332 7eef14d0-6ed0-489d-bf55-20463b2d70db
---
 trunk/upload.pl | 41 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 41 insertions(+)

diff --git a/trunk/upload.pl b/trunk/upload.pl
index e3b2447..7d17adf 100644
--- a/trunk/upload.pl
+++ b/trunk/upload.pl
@@ -68,6 +68,47 @@ $node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
 $node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:language" );
 $video->appendChild($node);
 
+$node = XML::LibXML::Element->new( "Creator" );
+$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
+$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
+$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:normalizedString" );
+$video->appendChild($node);
+
+$node = XML::LibXML::Element->new( "Contributor" );
+$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
+$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
+$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:normalizedString" );
+$video->appendChild($node);
+
+$node = XML::LibXML::Element->new( "Publisher" );
+$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
+$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
+$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:normalizedString" );
+$video->appendChild($node);
+
+$node = XML::LibXML::Element->new( "Relation" );
+$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
+$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
+$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:anyURI" );
+$video->appendChild($node);
+
+$node = XML::LibXML::Element->new( "Rights" );
+$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
+$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
+$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:anyURI" );
+$video->appendChild($node);
+
+$node = XML::LibXML::Element->new( "Source" );
+$node->setNamespace( "http://purl.org/dc/elements/1.1/", "dc" );
+$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
+$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:anyURI" );
+$video->appendChild($node);
+
+$node = XML::LibXML::Element->new( "data" );
+$node->setNamespace( "http://www.w3.org/2001/XMLSchema-instance", "xsi", 0 );
+$node->setAttributeNS( "http://www.w3.org/2001/XMLSchema-instance", "type", "xsd:base64Binary" );
+$video->appendChild($node);
+
 $instance->appendChild($video);
 
 $page->appendChild($instance);