diff options
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; |