Patch by Sam Ziegler <ziegler@mediaguaranty.com> -- cope with product

names that have a "/" in them.

diff --git a/collectstats.pl b/collectstats.pl
index a40de3cf70954ff4dfa10fe4add8260e3befd213..05e6204cb378343d371b034529bd0ca845e8ad9a 100755 (executable)
--- 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 612a2576f8a88834913645f499f37d637d40d6e1..7456c054edce31632f35748a43fbc13ba3b3f087 100755 (executable)
--- 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)