Re: [sqwebmail] sqwebmail, authdaemond in chroot

[Brian Candler]

On Thu, Oct 09, 2003 at 05:52:21PM +0200, Holger Hecht wrote:
> Can I somehow 
> test the authdaemon alone?

Try this (adjust socket path to suit):

#!/usr/bin/perl
use Socket;

$authsock = "/var/sqwebmail/authdaemon/socket";
$authtype = "webmail";

$|=1;
print "Username? ";
$user = <>;
chomp($user);
print "Password? ";
$pass = <>;
chomp($pass);

$astr = "$authtype\nlogin\n$user\n$pass\n";
$astr = "AUTH " . length($astr) . "\n" . $astr;

# See 'man perlipc'
socket(SOCK,PF_UNIX,SOCK_STREAM,0) || die "socket: $!";
connect(SOCK, sockaddr_un($authsock)) || die "connect: $!";
syswrite(SOCK, $astr, length($astr));
$resp = "";
while ($line = <SOCK>, defined($line)) {
  $resp .= $line;
}
close SOCK;
print $resp;