strprompt("Email address", tmpemail, 31);
r = CtdlIPCDirectoryLookup(ipc, tmpemail, buf);
if (r / 100 == 2) {
extract_token(diruser, buf, 0, '@', sizeof diruser);
extract_token(dirnode, buf, 1, '@', sizeof dirnode);
strprompt("Email address", tmpemail, 31);
r = CtdlIPCDirectoryLookup(ipc, tmpemail, buf);
if (r / 100 == 2) {
extract_token(diruser, buf, 0, '@', sizeof diruser);
extract_token(dirnode, buf, 1, '@', sizeof dirnode);