Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
bugzilla
Project
Project
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
etersoft
bugzilla
Commits
1cf02cc7
Commit
1cf02cc7
authored
Nov 10, 1998
by
terry%netscape.com
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Patch by Sam Ziegler <ziegler@mediaguaranty.com> -- cope with product
names that have a "/" in them.
parent
d123c1dc
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
7 additions
and
2 deletions
+7
-2
collectstats.pl
collectstats.pl
+2
-1
reports.cgi
reports.cgi
+5
-1
No files found.
collectstats.pl
View file @
1cf02cc7
...
@@ -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
;
...
...
reports.cgi
View file @
1cf02cc7
...
@@ -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
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment