From 9174e204250f0d256e33c045637ee6c1e930509e Mon Sep 17 00:00:00 2001
From: Ben <im_dev@barracuda.com>
Date: Fri, 30 Apr 2010 17:18:41 +0000
Subject: [PATCH] Debug log when legacy username mappings are created.

---
 perl/lib/Thrasher/Backend/DBI.pm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/perl/lib/Thrasher/Backend/DBI.pm b/perl/lib/Thrasher/Backend/DBI.pm
index 2302049..d44510c 100644
--- a/perl/lib/Thrasher/Backend/DBI.pm
+++ b/perl/lib/Thrasher/Backend/DBI.pm
@@ -694,9 +694,11 @@ sub store_username_mapping {
     my $legacy_username = shift;
     my $mapped_jid = shift;
 
+    debug("store_username_mapping($user_jid, $legacy_username, $mapped_jid)\n");
+
     my $jid_id = $self->jid_id($user_jid, 1);
     my $legacy_id = $self->legacy_id($legacy_username);
-    
+
     $self->call('store_username_mapping',
                 $self->{id}, $jid_id, $legacy_id,
                 $mapped_jid);
-- 
2.11.4.GIT