From 63aace3446a6e709e794dc5bbaff5d3040b031bb Mon Sep 17 00:00:00 2001
From: Gerhard Gonter <ggonter@gmail.com>
Date: Mon, 15 Apr 2019 15:29:21 +0200
Subject: [PATCH] redirect wdq3 diagnostic output
---
wdq3.pl | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
diff --git a/wdq3.pl b/wdq3.pl
index a3da04f..fd903f8 100755
--- a/wdq3.pl
+++ b/wdq3.pl
@@ -62,9 +62,14 @@ while (my $arg= shift (@ARGV))
($fnm, $data_dir, $out_dir)= WikiData::Utils::get_paths ($date, $seq) if ($upd_paths);
my $fnm_authctrl_json= join ('/', $data_dir, 'authctrl.json');
my $fnm_authctrl_tsv= join ('/', $data_dir, 'authctrl.tsv');
+my $fnm_diag= join ('/', $data_dir, '@wdq3.diag');
+
+open (DIAG, '>:utf8', $fnm_diag); # or be grumpy about that
parse_authctrl($fnm_authctrl_json, $fnm_authctrl_tsv);
+close (DIAG);
+
exit (0);
sub usage
@@ -150,7 +155,7 @@ sub parse_authctrl
close (FO);
- print __LINE__, " P31: ", main::Dumper(\%p31);
+ print DIAG __LINE__, " P31: ", main::Dumper(\%p31);
$fo_lines;
}
--
GitLab