summaryrefslogtreecommitdiffstats
path: root/contrib
diff options
context:
space:
mode:
Diffstat (limited to 'contrib')
-rwxr-xr-xcontrib/recode.pl13
1 files changed, 11 insertions, 2 deletions
diff --git a/contrib/recode.pl b/contrib/recode.pl
index 741c62e2a..49e824f6d 100755
--- a/contrib/recode.pl
+++ b/contrib/recode.pl
@@ -251,6 +251,13 @@ foreach my $table ($dbh->bz_table_list_real) {
my $data = shift @result;
my $digest = md5_base64($data);
+ my @primary_keys = reverse split(',', $pk);
+ # We copy the array so that we can pop things from it without
+ # affecting the original.
+ my @pk_data = @result;
+ my $pk_line = join (', ',
+ map { "$_ = " . pop @pk_data } @primary_keys);
+
my $encoding;
if ($switch{'guess'}) {
$encoding = do_guess($data);
@@ -261,7 +268,8 @@ foreach my $table ($dbh->bz_table_list_real) {
&& !is_valid_utf8($data))
{
my $truncated = trunc($data);
- print "Failed to guess: Key: $digest",
+ print "Row: [$pk_line]\n",
+ "Failed to guess: Key: $digest",
" DATA: $truncated\n";
}
@@ -283,7 +291,8 @@ foreach my $table ($dbh->bz_table_list_real) {
if ($encoding && !grep($_ eq $encoding, IGNORE_ENCODINGS)) {
my $decoded = encode('utf8', decode($encoding, $data));
if ($switch{'dry-run'} && $data ne $decoded) {
- print "From: [" . trunc($data) . "] Key: $digest\n",
+ print "Row: [$pk_line]\n",
+ "From: [" . trunc($data) . "] Key: $digest\n",
"To: [" . trunc($decoded) . "]",
" Encoding : $encoding\n";
}