Skip Menu |

This queue is for tickets about the Catalyst-View-GraphViz CPAN distribution.

Report information
The Basics
Id: 52605
Status: new
Priority: 0/
Queue: Catalyst-View-GraphViz

People
Owner: Nobody in particular
Requestors: peter.oliver [...] eon-is.co.uk
Cc:
AdminCc:

Bug Information
Severity: Wishlist
Broken in: 0.05
Fixed in: (no value)



Subject: Allow more output formats
The attached patch adds support for a number of output formats supported by newer versions of GraphViz. Note that for this to actually work, you also need the patch found in https://rt.cpan.org/Ticket/Display.html?id=44756.
Subject: Catalyst-View-GraphViz-newer-output-formats.diff
diff -ur Catalyst-View-GraphViz-0.05~/lib/Catalyst/View/GraphViz.pm Catalyst-View-GraphViz-0.05/lib/Catalyst/View/GraphViz.pm --- Catalyst-View-GraphViz-0.05~/lib/Catalyst/View/GraphViz.pm 2005-11-17 22:40:12.000000000 +0000 +++ Catalyst-View-GraphViz-0.05/lib/Catalyst/View/GraphViz.pm 2009-12-09 14:32:02.000000000 +0000 @@ -287,30 +287,43 @@ my $plain = 'text/plain; charset=utf-8'; my $html = 'text/html; charset=utf-8'; my %hExtType = ( - ps => 'application/postscript', - hpgl => $plain, - pcl => $plain, - mif => 'application/x-mif', - pic => 'image/x-pict', + bmp => 'image/bmp', + canon => $plain, + cmap => $plain, + cmapx => $plain, + cmapx_np => $plain, + dot => $plain, + dia => 'application/x-dia-diagram', + eps => 'application/postscript', + fig => $plain, gd => $plain, gd2 => $plain, gif => 'image/gif', - jpeg => 'image/jpeg', - png => 'image/x-png', - wbmp => 'image/x-ms-bmp', - cmap => $plain, - cmapx => $plain, - ismap => $plain, + hpgl => $plain, imap => $plain, - vrml => 'x-world/x-vrml', - vtx => $plain, #? - mp => $plain, #? - fig => $plain, #? + imap_np => $plain, + ismap => $plain, + jpeg => 'image/jpeg', + mif => 'application/x-mif', + mp => $plain, + pcl => $plain, + pdf => 'application/pdf', + pic => 'image/x-pict', + plain => $plain, + png => 'image/png', + ps => 'application/postscript', svg => 'image/svg+xml', svgz => 'image/svg+xml', - dot => $plain, - canon => $plain, - plain => $plain, + tga => 'image/x-targa', + tiff => 'image/tiff', + tk => $plain, + vdx => 'application/vnd.visio', + vml => 'text/html', + vmlz => 'text/html', + vrml => 'x-world/x-vrml', + vtx => $plain, + wbmp => 'image/x-ms-bmp', + xdot => $plain, ); sub process { my ($self, $c) = @_;