From f250ee9de6e9255856da1de4c5ea9ee909894564 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micka=C3=ABl=20R=C3=A9mond?=
 <mickael.remond@process-one.net>
Date: Thu, 22 Nov 2007 13:46:50 +0000
Subject: [PATCH] * examples/extauth/check_pass_null.pl: Fixed external
 authentication example script (EJAB-404)

SVN Revision: 973
---
 ChangeLog                           | 9 +++++++--
 examples/extauth/check_pass_null.pl | 2 +-
 2 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 30f88d3f6..76abd9abe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,7 +1,12 @@
 2007-11-16  Christophe Romain <christophe.romain@process-one.net>
 
-	* src/ejabberd_auth_internal.erl: Better count management and batch users
-	retrieval internal database
+	* src/ejabberd_auth_internal.erl: Better count management and
+	batch users retrieval internal database
+
+2007-11-14  Mickael Remond  <mremond@process-one.net>
+
+	* examples/extauth/check_pass_null.pl: Fixed external
+	authentication example script (EJAB-404)
 
 2007-11-05  Mickael Remond  <mremond@process-one.net>
 
diff --git a/examples/extauth/check_pass_null.pl b/examples/extauth/check_pass_null.pl
index 90e575fcf..f15fe910b 100644
--- a/examples/extauth/check_pass_null.pl
+++ b/examples/extauth/check_pass_null.pl
@@ -18,7 +18,7 @@ while(1)
     my $len = unpack "n",$buf;
     my $nread = sysread STDIN,$buf,$len;
 
-    my ($op,$user,$password) = split /:/,$buf;
+    my ($op,$user,$host,$password) = split /:/,$buf;
     #$user =~ s/\./\//og;
     my $jid = "$user\@$domain";
     my $result;