mirror of
https://github.com/processone/ejabberd.git
synced 2024-11-22 16:20:52 +01:00
Update example extauth script with tryregister, removeuser and removeuser3 (EJAB-641)
This commit is contained in:
parent
27872c6022
commit
4e2bd18c7f
@ -42,6 +42,22 @@ while(1)
|
|||||||
# password is null. Return 1 if the user $user\@$domain exitst.
|
# password is null. Return 1 if the user $user\@$domain exitst.
|
||||||
$result = 1;
|
$result = 1;
|
||||||
},last SWITCH;
|
},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;
|
my $out = pack "nn",2,$result ? 1 : 0;
|
||||||
syswrite STDOUT,$out;
|
syswrite STDOUT,$out;
|
||||||
|
Loading…
Reference in New Issue
Block a user