[Clipart] upload_svg.cgi

[Jonadab the Unsightly One]

Nicu Buculei <nicu at apsro.com> writes:

> http://nicubunu.ro/clipart/svg/happy/candy_30.svg

This file's RDF has the author's name in a dc:title element within an
Agent element within the dc:rights element.  SVG::Metadata puts the
author's name in a dc:title element within an Agent element within the
dc:creator element, not within the dc:rights element.

Should I detect this both ways?  I should think that would be possible...
Hmmm...  This is funny.  The current version of SVG::Metadata seems to
see the author correctly...

 +----------------------------------------------
 | root at vestibule ~/img/svg/temp2 :) # perl -e '
 |   use SVG::Metadata;
 |   my $m = SVG::Metadata->new();
 |   $m->parse("candy_30.svg");
 |   print "Author: " . $m->author() . "\n\n";
 | ' 
 | Author: Nicu Buculei
 +----------------------------------------------

Further, on my workstation, the upload script handles this file just
fine; I can upload it without specifying any metadata beyond what are
embedded.

I wonder if this could be related to the problem...

 +-------------------------------------------------------
 | jonadab at pdx:/projects/clipart/clipart_web$ perl -e '
 | > use lib "/projects/clipart/share/perl/5.8.3/";
 | > use lib "/projects/clipart/lib/perl/5.8.3/";
 | > use SVG::Metadata;
 | > print "$SVG::Metadata::VERSION$/";
 | > '
 | 0.08
 | jonadab at pdx:/projects/clipart/clipart_web$
 +-------------------------------------------------------

I bet the keyword stuff wasn't working like it was supposed to either.
Let's see what I can do about that, shall we?

 +------------------------------------------------------------------------------------
 | jonadab at pdx:/projects/clipart/share/perl/5.8.3/SVG$ cp Metadata.pm Metadata.pm.0.8
 | jonadab at pdx:/projects/clipart/share/perl/5.8.3/SVG$ wget http://search.cpan.org/src/BRYCE/SVG-Metadata-0.11/lib/SVG/Metadata.pm
 | --09:02:20--  http://search.cpan.org/src/BRYCE/SVG-Metadata-0.11/lib/SVG/Metadata.pm
 |            => `Metadata.pm.1'
 | Resolving search.cpan.org... done.
 | Connecting to search.cpan.org[198.246.0.28]:80... connected.
 | HTTP request sent, awaiting response... 200 OK
 | Length: 16,232 [text/plain]
 |  
 | 100%[========================================================================>] 16,232       141.53K/s    ETA 00:00
 |  
 | 09:02:20 (141.53 KB/s) - `Metadata.pm.1' saved [16232/16232]
 |  
 | jonadab at pdx:/projects/clipart/share/perl/5.8.3/SVG$ mv Metadata.pm.1 Metadata.pm
 | jonadab at pdx:/projects/clipart/share/perl/5.8.3/SVG$
 +------------------------------------------------------------------------------------

I uploaded candy_30.svg to the site as a test, without specifying any
extra metadata beyond what were embedded, and it seems to work now.

HTH.HAND.

-- 
$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,"ten.thgirb\@badanoj$/ --";$\=$ ;-> ();print$/