From 1cf02cc7c177a691ae9980f928ae30efb84a8c99 Mon Sep 17 00:00:00 2001
From: "terry%netscape.com" <>
Date: Tue, 10 Nov 1998 07:19:37 +0000
Subject: Patch by Sam Ziegler <ziegler@mediaguaranty.com> -- cope with product
 names that have a "/" in them.

---
 collectstats.pl | 3 ++-
 reports.cgi     | 6 +++++-
 2 files changed, 7 insertions(+), 2 deletions(-)

diff --git a/collectstats.pl b/collectstats.pl
index a40de3cf7..05e6204cb 100755
--- a/collectstats.pl
+++ b/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/reports.cgi b/reports.cgi
index 612a2576f..7456c054e 100755
--- a/reports.cgi
+++ b/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)
-- 
cgit v1.2.3-24-g4f1b