From 548be4cf3df92b01244c1b21fb9daf506537d4fb Mon Sep 17 00:00:00 2001
From: Badlop <badlop@process-one.net>
Date: Fri, 3 Dec 2010 17:21:50 +0100
Subject: [PATCH] Update example extauth script with tryregister, removeuser
 and removeuser3 (EJAB-641)

---
 examples/extauth/check_pass_null.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/examples/extauth/check_pass_null.pl b/examples/extauth/check_pass_null.pl
index f15fe910b..cbf179202 100755
--- a/examples/extauth/check_pass_null.pl
+++ b/examples/extauth/check_pass_null.pl
@@ -42,6 +42,22 @@ while(1)
              # password is null. Return 1 if the user $user\@$domain exitst.
              $result = 1;
           },last SWITCH;
+
+        $op eq 'tryregister' and do
+          {
+             $result = 1;
+          },last SWITCH;
+
+        $op eq 'removeuser' and do
+          {
+             # password is null. Return 1 if the user $user\@$domain exitst.
+             $result = 1;
+          },last SWITCH;
+
+        $op eq 'removeuser3' and do
+          {
+             $result = 1;
+          },last SWITCH;
       };
     my $out = pack "nn",2,$result ? 1 : 0;
     syswrite STDOUT,$out;