In case somebody wants to look behind the authsocket stuff
or integrate courier-authentification into other programs.
I also noticed that AUTHMODULES= in etc/pop3d has no effect,
only the module specified at build-time (either userdb if
configured --without-authdaemon or authdaemon) will be used.
No chance to use userdb exclusively for incoming (Delivery)
and mysql exclusively for outgoing (Retrival) anymore.
#!/usr/bin/perl
my $prefix = '/usr/lib/courier'; # set this
my $authsock = $prefix.'/var/authdaemon/socket';
(-S $authsock) or die "no socket: $authsock";
my $user = $ARGV[0] || die "Usage: $0 loginname [password]\n";
my $pass = $ARGV[1];
print "# $0 $user $pass\n";
use Socket;
socket(SOCK, PF_UNIX, SOCK_STREAM, 0);
connect(SOCK, sockaddr_un($authsock)) or die "$authsock: $!";
if($pass)
{ my $authstring = "login\nlogin\n$user\n$pass";
my $authlength = length($authstring);
send SOCK, "AUTH $authlength\n$authstring\n", 0 or die "$authsock: $!";
}
else
{ send SOCK, "PRE . login $user\n", 0 or die "$authsock: $!";
}
# while( <SOCK> ) { print $_; }
print <SOCK>;
_______________________________________________
courier-users mailing list
[EMAIL PROTECTED]
Unsubscribe: https://lists.sourceforge.net/lists/listinfo/courier-users
