- { "id"=>"png","qs"=>0.9,"content-type"=>"image/png" },
- { "id"=>"gif","qs"=>0.7,"content-type"=>"image/gif" },
- );
-my $img_variants_re='[.](?:'.join('|',"jpeg",map(($_->{"id"}),@img_variants)).')$';
+ { "id"=>"svg","qs"=>0.9,"content-type"=>"image/svg+xml" },
+ { "id"=>"png","qs"=>0.8,"content-type"=>"image/png" },
+ { "id"=>"gif","qs"=>0.7,"content-type"=>"image/gif" },
+ # Do not prefer these to avoid fedding them for '*/*' browsers.
+ { "id"=>"dia","qs"=>0.6,"content-type"=>"application/x-dia-diagram" },
+ { "id"=>"fig","qs"=>0.6,"content-type"=>"image/x-xfig" },
+ { "id"=>"fig","qs"=>0.6,"content-type"=>"application/x-xfig" },
+ { "id"=>"sxd","qs"=>0.6,"content-type"=>"application/vnd.sun.xml.draw" },
+ { "id"=>"sxi","qs"=>0.6,"content-type"=>"application/vnd.sun.xml.impress" },
+ );
+# Unsupported by Image::Size 2.992: sxd sxi dia
+# Supported by Image::Size 2.992: fig png gif jpeg
+# Expensive by Image::Size 2.992: svg
+my %img_map=(
+ "svg" =>[qw(png gif)], # svg
+ "png" =>[qw(png gif)],
+ "jpeg"=>[qw(jpeg)],
+ "dia" =>[qw(png gif)], # svg
+ "fig" =>[qw(fig png gif)],
+ "sxd" =>[qw(png gif)],
+ "sxi" =>[qw(png gif)],
+ );