From 54ec141a856fa12362d5189bea980639cac7ffdf Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <terry%netscape.com>
Date: Mon, 9 Nov 1998 23:19:37 +0000
Subject: [PATCH] Patch by Sam Ziegler <ziegler@mediaguaranty.com> -- cope with
product names that have a "/" in them.
---
webtools/bugzilla/collectstats.pl | 3 ++-
webtools/bugzilla/reports.cgi | 6 +++++-
2 files changed, 7 insertions(+), 2 deletions(-)
diff --git a/webtools/bugzilla/collectstats.pl b/webtools/bugzilla/collectstats.pl
index a40de3cf70954..05e6204cb3783 100755
--- a/webtools/bugzilla/collectstats.pl
+++ b/webtools/bugzilla/collectstats.pl
@@ -34,6 +34,7 @@ GetVersionTable();
foreach (@::legal_product)
{
my $dir = "data/mining";
+
&check_data_dir ($dir);
&collect_stats ($dir, $_);
}
@@ -60,7 +61,7 @@ select count(bug_status) from bugs where
(bug_status='NEW' or bug_status='ASSIGNED' or bug_status='REOPENED')
and product='$product' group by bug_status
FIN
-
+ $product =~ s/\//-/gs;
my $file = join '/', $dir, $product;
my $exists = -f $file;
diff --git a/webtools/bugzilla/reports.cgi b/webtools/bugzilla/reports.cgi
index 612a2576f8a88..7456c054edce3 100755
--- a/webtools/bugzilla/reports.cgi
+++ b/webtools/bugzilla/reports.cgi
@@ -409,7 +409,11 @@ FIN
my @dates;
my @open; my @assigned; my @reopened;
- my $file = join '/', $dir, $::FORM{'product'};
+ my $prodname = $::FORM{'product'};
+
+ $prodname =~ s/\//-/gs;
+
+ my $file = join '/', $dir, $prodname;
my $image = "$file.gif";
if (! open FILE, $file)
--
GitLab