From 5fcefed7417cd3580fc0779afb2793fac257d94b Mon Sep 17 00:00:00 2001 From: "lpsolit%gmail.com" <> Date: Wed, 21 May 2008 05:00:57 +0000 Subject: Bug 380756: Remove duplicates.xul (and all the code related to it) - Patch by Frédéric Buclin r=mkanat a=LpSolit MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- collectstats.pl | 26 -------------------------- 1 file changed, 26 deletions(-) (limited to 'collectstats.pl') 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 () { - 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; -- cgit v1.2.3-24-g4f1b