mirror of git://git.psyced.org/git/psyced
79 lines
1.7 KiB
C
79 lines
1.7 KiB
C
// $Id: server.c,v 1.14 2007/09/27 11:01:04 lynx Exp $ // vim:syntax=lpc
|
|
#include <net.h>
|
|
#include <person.h>
|
|
#include <server.h>
|
|
|
|
volatile array(string) legal_vars = ({
|
|
"password", "place", "agent", "layout", "language"
|
|
});
|
|
volatile mapping vars;
|
|
|
|
qScheme() { return "applet"; }
|
|
|
|
createUser(nick) {
|
|
return named_clone(APPLET_PATH "user", nick);
|
|
}
|
|
|
|
keepUserObject(user) {
|
|
// P1(("app: %O, %O\n",user, abbrev(APPLET_PATH "user", o2s(user))))
|
|
return abbrev(APPLET_PATH "user", o2s(user));
|
|
// return user->vQuery("scheme") == "applet";
|
|
}
|
|
|
|
// the following is new..
|
|
|
|
logon() {
|
|
vars = ([]);
|
|
return ::logon();
|
|
}
|
|
|
|
hello(in) {
|
|
string vnam, vval;
|
|
|
|
P2(("%O applet says: %O\n", ME, in))
|
|
if (sscanf(in, "=_%s%t%s", vnam, vval)) {
|
|
if (vval && strlen(vval)) {
|
|
// D2(D("applet says: '"+in+"'\n");)
|
|
if (vnam == "lang") vnam = "language";
|
|
if (index(legal_vars, vnam) != -1) { vars[vnam] = vval; }
|
|
}
|
|
next_input_to(#'hello);
|
|
return 1;
|
|
}
|
|
if (member(vars, "language"))
|
|
sTextPath(vars["layout"] || qLayout(), vars["language"], qScheme());
|
|
|
|
return ::hello(in);
|
|
}
|
|
|
|
promptForPassword() {
|
|
// don't impose room on registered users
|
|
vars = m_delete(vars, "place");
|
|
|
|
if (member(vars, "password")) return password(vars["password"]);
|
|
|
|
// pr("_query_password_person",
|
|
// "Please supply password for %s.\n", nick);
|
|
return ::promptForPassword();
|
|
}
|
|
|
|
morph() {
|
|
// don't overwrite password
|
|
vars = m_delete(vars, "password");
|
|
|
|
if (user) {
|
|
user -> vDel("agent"); // is this really useful?
|
|
if (vars) user -> vMerge(vars);
|
|
}
|
|
return ::morph();
|
|
}
|
|
|
|
pr(mc, fmt, a,b,c,d,e,f,g,h,i,j,k) {
|
|
if (mc) {
|
|
unless (fmt = T(mc, fmt)) return;
|
|
if (abbrev("_query", mc)) fmt = "|?"+ fmt;
|
|
}
|
|
printf(fmt, a,b,c,d,e,f,g,h,i,j,k);
|
|
return 1;
|
|
}
|