dovecot - Aug 2022 - Get a list of currently active IMAP connections?

> On 16/08/2022 23:34 EEST Jaroslaw Rafa <raj at rafa.eu.org> wrote:
> 
>  
> Dnia 16.08.2022 o godz. 23:19:14 Aki Tuomi pisze:
> > Have you tried `doveadm who`?
> 
> Why haven't I found it in the documentation? I was really searching...
:)
> Thank you!
> 
> But this still requires launching an external executable for each
connection
> request. Optimal solution would be to get it via some socket, or something
> like this...
> -- 
> Regards,
>    Jaroslaw Rafa
>    raj at rafa.eu.org
doveadm_password = secret

service doveadm {
  inet_listener http {
     port = 8080
  }
}

should allow you to use `who` command over HTTP API. 

Aki

Dnia 16.08.2022 o godz. 23:37:05 Aki Tuomi pisze:
> 
> doveadm_password = secret
> 
> service doveadm {
>   inet_listener http {
>      port = 8080
>   }
> }
> 
> should allow you to use `who` command over HTTP API. 
It's an interesting option, but after looking into "doveadm"
source code I
was able to reimplement the query that "doveadm who" does with a few
lines
of simple Perl code. It's exactly what I want, as it can be easily
integrated into a policy service written in Perl.

Thanks again for pointing me in the right direction.

If anybody is interested, here's the code:


#!/usr/bin/perl

use IO::Socket::UNIX qw( SOCK_STREAM );

$sockpath="/var/run/dovecot/anvil";

my $socket = IO::Socket::UNIX->new(
   Type => SOCK_STREAM,
   Peer => $sockpath,
)
   or die("Can't connect to $sockpath");

$ANVIL_HANDSHAKE="VERSION\tanvil\t1\t0\n";
$ANVIL_CMD=$ANVIL_HANDSHAKE."CONNECT-DUMP\n";

$socket->send($ANVIL_CMD) or die "Socket write error";
$socket->recv($buffer, 65536, 0) or die "Socket read error";
chomp($buffer);
close($socket);

@lines=split(/\n/, $buffer);
foreach $line (@lines) {
  #print "$line\n";
  if ($line =~ m#^imap/([0-9A-Fa-f.:]+)/([^\t]+)\t#) {
    print "IP=$1 user=$2\n";
  }
}

-- 
Regards,
   Jaroslaw Rafa
   raj at rafa.eu.org
--
"In a million years, when kids go to school, they're gonna know: once
there
was a Hushpuppy, and she lived with her daddy in the Bathtub."