implement Auth;

include "sys.m";
	sys: Sys;

include "keyring.m";
	kr: Keyring;	# TO DO: needed to avoid compiler error

include "factotum.m";
	factotum: Factotum;

include "sshio.m";
	sshio: Sshio;
	Conn, Msg: import sshio;

id(): int
{
	return SSH_AUTH_PASSWORD;
}

init(mod: Sshio)
{
	sys = load Sys Sys->PATH;
	sshio = mod;
}

firstmsg(): int
{
	return SSH_CMSG_AUTH_PASSWORD;
}

authsrv(c: ref Conn, m: ref Msg): ref AuthInfo
{
	pass := m.getstring();
#	return auth_userpasswd(c.user, pass);
	return ref AuthInfo(c.user, nil);	# TO DO:
}

auth(c: ref Conn): int
{
	if(factotum == nil)
		factotum = load Factotum Factotum->PATH;
	(user, pass) := factotum->getuserpasswd(sys->sprint("proto=pass service=ssh server=%q user=%q", c.host, c.user));
	if(user == nil){
		sshio->debug(DBG_AUTH, "getuserpasswd failed");
		return -1;
	}

	sshio->debug(DBG_AUTH, "try using password from factotum\n");
	m := Msg.mk(SSH_CMSG_AUTH_PASSWORD, 4+Sys->UTFmax*len pass);
	m.putstring(pass);
	c.out <-= m;

	m = sshio->recvmsg(c, -1);
	case m.mtype {
	SSH_SMSG_SUCCESS =>
		return 0;
	SSH_SMSG_FAILURE =>
		return -1;
	* =>
		sshio->badmsg(m, 0, nil);
		return -1;
	}
}