1 files changed, 29 insertions, 0 deletions
diff --git a/appl/cmd/auth/factotum/proto/pass.b b/appl/cmd/auth/factotum/proto/pass.b
new file mode 100644
index 00000000..9c4462b3
--- /dev/null
+++ b/appl/cmd/auth/factotum/proto/pass.b
@@ -0,0 +1,29 @@
+implement Authproto;
+
+include "sys.m";
+	sys: Sys;
+
+include "../authio.m";
+	authio:	Authio;
+	Attr, IO: import authio;
+
+init(f: Authio): string
+{
+	sys = load Sys Sys->PATH;
+	authio = f;
+	return nil;
+}
+
+interaction(attrs: list of ref Attr, io: ref Authio->IO): string
+{
+	(key, err) := io.findkey(attrs, "user? !password?");
+	if(key == nil)
+		return err;
+	user := authio->lookattrval(key.attrs, "user");
+	if(user == nil)
+		return "unknown user";
+	pass := authio->lookattrval(key.secrets, "!password");
+	a := sys->aprint("%q %q", user, pass);
+	io.write(a, len a);
+	return nil;
+}