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

names that have a "/" in them.
This commit is contained in:
terry%netscape.com 1998-11-09 23:19:37 +00:00
Родитель 79db619968
Коммит 87a8d40bbc
2 изменённых файлов: 7 добавлений и 2 удалений

Просмотреть файл

@ -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;

Просмотреть файл

@ -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)