josch
/
yolanda
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

added second part of upload xform

Browse Source 
git-svn-id: http://yolanda.mister-muffin.de/svn@332 7eef14d0-6ed0-489d-bf55-20463b2d70db
main
josch 16 years ago
parent e45f3c4c12
commit e757b4bab6
1 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File

41
trunk/upload.pl
Unescape Escape View File

@ -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);

Write Preview
Loading…
Cancel
Save