Thanks a lot for pointing out what should have been obvious!, that got me a long way towards my goal.
Now I just need to cleanly get rid of the following footer which seems to get appended to my file each time, confusing the XML parsers:
...the response...
<!--
my comments...
followed by two offending lines.
-->
Date: Tue, 09 Jul 2002 13:17:37 GMT
Server: libwww-perl-daemon/1.21
When I go into HTTP::Daemon and comment out these two lines:
#(from HTTP::Daemon line 563)
sub send_basic_header
{
my $self = shift;
return if $self->antique_client;
$self->send_status_line(@_);
#taken out print $self "Date: ", time2str(time), $CRLF;
my $product = $self->daemon->product_tokens;
#taken out print $self "Server: $product$CRLF" if $product;
}
then the offending footers dissapear. Do you know what these two footer lines do, and should they not be in the header rather than in the footer? I can't find any way to override them other than by removing them from the module.
ps. you had the wrong mime type in your solution (just to be clear about that). The SVG mimetype is image/svg+xml
$c->send_response(
"Content-type: image/svg+xml\r\n\r\n".
$svg->xmlify());
hackmare.
|