From e057014bdfe4e7441f44da458eabec52b13c7b22 Mon Sep 17 00:00:00 2001
From: "donm%bluemartini.com" <>
Date: Wed, 26 Apr 2000 04:05:32 +0000
Subject: patch from bug 2178 applied and fix for versions of GD/Chart::Lines
 that won't produce gifs.

---
 reports.cgi | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

(limited to 'reports.cgi')

diff --git a/reports.cgi b/reports.cgi
index 6b2d8cb1b..be21d0d6c 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
-- 
cgit v1.2.3-24-g4f1b