How did you solve that error?

calavera — Wed, 27 Dec 2006 08:53:17 +0000

Hi, I have the same error but i don't know how to solve.

Sorry, errors was in my

shumkov — Tue, 04 Jul 2006 12:01:21 +0000

Sorry, errors was in my scripts. Now extauth work.

I'm try my perl script to

shumkov — Mon, 03 Jul 2006 09:09:26 +0000

I'm try my perl script to auth, but it does not run too. Perhaps i'm not correct connect my script in ejabberd.cfg? I'm use this string:

Quote:

{auth_method, external}.
{extauth_program, "/usr/local/etc/ejabberd/auth/auth.pl"}.

My perl script:

Quote:

#!/usr/bin/perl -w
use strict;
use DBI();

my $g_db = DBI->connect("DBI:mysql:database=billing;host=192.168.0.137", "billing", "billing") or die "DB connect error\n";

while(1)
{
my $buf = "";
my $nread = sysread STDIN, $buf, 2;
last if $nread != 2;
my $len = unpack "n", $buf;
$nread = sysread STDIN, $buf, $len;
last if $nread != $len;

my($op, $user, $password) = split /:/, $buf;

my $result = 0;

if ($op eq 'auth')
{
$result = 1 if $g_db->selectcol_arrayref("SELECT 1 FROM user WHERE login = ? AND password = ?", undef, $user, $password);
}
elsif ($op eq 'setpass')
{
$result = 0;
}
elsif ($op eq 'isuser')
{
$result = 1 if $g_db->selectcol_arrayref("SELECT 1 FROM user WHERE login = ?", undef, $user);
}
else
{
$result = 0;
}
syswrite STDOUT, (pack "nn", 2, $result);

}

$g_db->disconnect;

Sorry for my english.

ejabberd - Comments for "extauth: ejabberd not exec my script"

How did you solve that error?

Sorry, errors was in my

I'm try my perl script to