--Michael Carmack wrote on 01.01.2002 16:20 +0000:

> 
> I created a test user and captured the strace output from both the 
> IMAP process and the mail client. Rather than send the output to the 
> list (the files are a bit long), I've made them availabe at:
> 
> http://karmak.org/2002/01/courier/strace-imap.txt
> http://karmak.org/2002/01/courier/strace-mutt.txt

There is no answer from authdaemond at all. Check with
authtest (somewhere in the sources) or use this script
with $prefix changed to:
/pkg/courier/0.36.1/.i686-pc-linux-gnu/.karmak-standard.1
(Hope you dont have Courier in multiple directories...)


#!/usr/bin/perl

my $prefix = '/usr/lib/courier';
my $authsock = $prefix.'/var/authdaemon/socket';
(-S $authsock) or die "no socket: $authsock";

my $user = $ARGV[0];
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: $!";
}
elsif($user)
{ send SOCK, "PRE . login $user\n", 0 or die "$authsock: $!";
}
else
{ print "Socket OK: $authsock\n";
  print "Usage: $0 loginname [password]\n";
  exit(3);
}

my @data = <SOCK>;
close SOCK;

if ( @data =~ /FAIL/ )
{ print "*** AUTH FAILED ***\n";
  exit(2);
}

print @data;

if ( !$pass )   { exit(1); }
exit(0);


_______________________________________________
courier-users mailing list
[EMAIL PROTECTED]
Unsubscribe: https://lists.sourceforge.net/lists/listinfo/courier-users

Reply via email to