From 16677c4cb5044c63f5b1a39afb69afff69787ace Mon Sep 17 00:00:00 2001
From: Ben <im_dev@barracuda.com>
Date: Fri, 29 Jan 2010 14:53:14 -0500
Subject: [PATCH] Can pass account config (like OSCAR use_clientlogin) from
 Thrasher config file.

---
 perl/lib/Thrasher/Protocol/Purple.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/perl/lib/Thrasher/Protocol/Purple.pm b/perl/lib/Thrasher/Protocol/Purple.pm
index 64b589b..8fd5195 100644
--- a/perl/lib/Thrasher/Protocol/Purple.pm
+++ b/perl/lib/Thrasher/Protocol/Purple.pm
@@ -550,6 +550,7 @@ sub create_login_session {
         jid => Encode::encode("UTF-8", $jid),
         proto => $self->prpl,
         %$registration_info,
+        %{ $self->{'configuration'}->{'extra_login_args'} || {} },
     });
     if ($login_error == 2) {
         # PurpleAccount already exists. But if component called here,
-- 
2.11.4.GIT