diff options
author | 2008-05-21 05:00:57 +0000 | |
---|---|---|
committer | 2008-05-21 05:00:57 +0000 | |
commit | 5fcefed7417cd3580fc0779afb2793fac257d94b (patch) | |
tree | ab1c0e8fedd4a4ca06d51c80261e4171b8e5ecf0 /collectstats.pl | |
parent | Bump version number after branching. (diff) | |
download | bugzilla-5fcefed7417cd3580fc0779afb2793fac257d94b.tar.gz bugzilla-5fcefed7417cd3580fc0779afb2793fac257d94b.tar.bz2 bugzilla-5fcefed7417cd3580fc0779afb2793fac257d94b.zip |
Bug 380756: Remove duplicates.xul (and all the code related to it) - Patch by Frédéric Buclin <LpSolit@gmail.com> r=mkanat a=LpSolit
Diffstat (limited to 'collectstats.pl')
-rwxr-xr-x | collectstats.pl | 26 |
1 files changed, 0 insertions, 26 deletions
diff --git a/collectstats.pl b/collectstats.pl index 4515b424c..4c66810a0 100755 --- a/collectstats.pl +++ b/collectstats.pl @@ -134,32 +134,6 @@ my $tend = time; CollectSeriesData(); -{ - local $ENV{'GATEWAY_INTERFACE'} = 'cmdline'; - local $ENV{'REQUEST_METHOD'} = 'GET'; - local $ENV{'QUERY_STRING'} = 'ctype=rdf'; - - my $perl = $^X; - trick_taint($perl); - - # Generate a static RDF file containing the default view of the duplicates data. - open(CGI, "$perl -T duplicates.cgi |") - || die "can't fork duplicates.cgi: $!"; - open(RDF, ">$datadir/duplicates.tmp") - || die "can't write to $datadir/duplicates.tmp: $!"; - my $headers_done = 0; - while (<CGI>) { - print RDF if $headers_done; - $headers_done = 1 if $_ eq "\r\n"; - } - close CGI; - close RDF; -} -if (-s "$datadir/duplicates.tmp") { - rename("$datadir/duplicates.rdf", "$datadir/duplicates-old.rdf"); - rename("$datadir/duplicates.tmp", "$datadir/duplicates.rdf"); -} - sub check_data_dir { my $dir = shift; |