From: donm%bluemartini.com <>
Date: Wed, 26 Apr 2000 04:05:32 +0000 (+0000)
Subject: patch from bug 2178 applied and fix for versions of GD/Chart::Lines that won't
X-Git-Tag: bugzilla-2.12~310
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=e057014bdfe4e7441f44da458eabec52b13c7b22;p=thirdparty%2Fbugzilla.git

patch from bug 2178 applied and fix for versions of GD/Chart::Lines that won't
produce gifs.
---

diff --git a/reports.cgi b/reports.cgi
index 6b2d8cb1bc..be21d0d6c3 100755
--- a/reports.cgi
+++ b/reports.cgi
@@ -28,6 +28,7 @@
 
 use diagnostics;
 use strict;
+use GD;
 eval "use Chart::Lines";
 
 require "CGI.pl";
@@ -438,8 +439,14 @@ FIN
 
         $prodname =~ s/\//-/gs;
 
+	my $testimg = Chart::Lines->new(2,2);
+	my $x = '$testimg->gif()';
+	eval $x;
+	my $type = ($@ =~ /Can't locate object method/) ? "png" : "gif";
+
         my $file = join '/', $dir, $prodname;
-	my $image = "$file.gif";
+	my $image = "$file.$type";
+	my $url_image = $dir . "/" . url_quote($prodname) . ".$type";
 
 	if (! open FILE, $file)
 		{
@@ -495,11 +502,11 @@ FIN
 	$img->set (%settings);
 	
 	open IMAGE, ">$image" or die "$image: $!";
-	$img->gif (*IMAGE, \@data);
+	$img->$type (*IMAGE, \@data);
 	close IMAGE;
 
 	print <<FIN;
-<img src="$image">
+<img src="$url_image">
 <br clear=left>
 <br>
 FIN