Commit 1cf02cc7 authored by terry%netscape.com's avatar terry%netscape.com

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

names that have a "/" in them.
parent d123c1dc
...@@ -34,6 +34,7 @@ GetVersionTable(); ...@@ -34,6 +34,7 @@ GetVersionTable();
foreach (@::legal_product) foreach (@::legal_product)
{ {
my $dir = "data/mining"; my $dir = "data/mining";
&check_data_dir ($dir); &check_data_dir ($dir);
&collect_stats ($dir, $_); &collect_stats ($dir, $_);
} }
...@@ -60,7 +61,7 @@ select count(bug_status) from bugs where ...@@ -60,7 +61,7 @@ select count(bug_status) from bugs where
(bug_status='NEW' or bug_status='ASSIGNED' or bug_status='REOPENED') (bug_status='NEW' or bug_status='ASSIGNED' or bug_status='REOPENED')
and product='$product' group by bug_status and product='$product' group by bug_status
FIN FIN
$product =~ s/\//-/gs;
my $file = join '/', $dir, $product; my $file = join '/', $dir, $product;
my $exists = -f $file; my $exists = -f $file;
......
...@@ -409,7 +409,11 @@ FIN ...@@ -409,7 +409,11 @@ FIN
my @dates; my @dates;
my @open; my @assigned; my @reopened; 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"; my $image = "$file.gif";
if (! open FILE, $file) if (! open FILE, $file)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment