fix for 44653: Products with / in don't get any chart data

patch submitted by gavins@iplbath.com

diff --git a/collectstats.pl b/collectstats.pl
index 4789440dd0db1a7392fba95ba10ccf8134a67cbe..12bf9fce4cbd4d0882cca804c3760a747c27ea97 100755 (executable)
--- a/collectstats.pl
+++ b/collectstats.pl
@@ -57,9 +57,11 @@ sub collect_stats {
     my $product = shift;
     my $when = localtime (time);
 
-
-    $product =~ s/\//-/gs;
-    my $file = join '/', $dir, $product;
+    # NB: Need to mangle the product for the filename, but use the real
+    # product name in the query
+    my $file_product = $product;
+    $file_product =~ s/\//-/gs;
+    my $file = join '/', $dir, $file_product;
     my $exists = -f $file;
 
     if (open DATA, ">>$file") {