mirror of git://git.psyced.org/git/psyced
78 lines
2.1 KiB
C
78 lines
2.1 KiB
C
// this code contributed from symlynX webchat. currently not in use.
|
|
|
|
#include <ht/http.h>
|
|
#include <net.h>
|
|
#include <text.h>
|
|
#include <person.h>
|
|
|
|
htget(prot, query, headers, qs) {
|
|
string nick, pw, email, lang, layout;
|
|
mixed user;
|
|
array(string) t;
|
|
|
|
if (mappingp(query)) {
|
|
nick = query["user"];
|
|
email = query["email"];
|
|
pw = query["pass", 0];
|
|
lang = query["lang", 0];
|
|
}
|
|
sTextPath(0, lang, "ht");
|
|
|
|
htok(prot);
|
|
unless (nick) {
|
|
printf(hthead("register") + T("_PAGES_register_nickless",
|
|
"Who are you?<br>"));
|
|
return 1;
|
|
}
|
|
if (!pw || pw == "" && !email) {
|
|
write( hthead("register") + psyctext(
|
|
T("_PAGES_register_form", 0), ([
|
|
"_nick": nick,
|
|
"_FORM_start": "\
|
|
<form name=f method=GET action=\""+object2url(ME)+"\">\n\
|
|
<input type=hidden name=user value=\""+nick+"\">\n\
|
|
<input type=hidden name=lang value=\""+lang+"\">\n\
|
|
<input type=hidden name=layout value=\""+layout+"\">",
|
|
"_EDIT_email": email || "",
|
|
"_EDIT_subscription_politik": "checked",
|
|
"_EDIT_subscription_wirtschaft": "checked",
|
|
"_EDIT_subscription_vermischtes": "checked",
|
|
"_FORM_end": "</form>",
|
|
]) ));
|
|
return 1;
|
|
}
|
|
if (t = legal_password(pw, nick)) {
|
|
write(hthead("illegal password") +
|
|
T(t[0],t[1]) + T("_HTML_back", "") );
|
|
return 1;
|
|
}
|
|
if (pw != query["pass2"]) {
|
|
write(hthead("mistyped") +
|
|
T("_error_invalid_password_repetition",
|
|
"Sorry, but the repetition does not match the password. Please check.") +
|
|
T("_HTML_back", "") );
|
|
return 1;
|
|
}
|
|
unless (user = find_person(nick)) {
|
|
write(hthead("register") +
|
|
T("_PAGES_register_offline",
|
|
"You're not in the chat?<br>Please enter it.\n"));
|
|
return 1;
|
|
}
|
|
if (user ->checkPassword()) {
|
|
string token;
|
|
|
|
user->vSet("password", pw);
|
|
if (email) user->vSet("email", email);
|
|
#ifdef NEWSTICKER
|
|
user->subscribe(!member(query, "sub-dpa-PL"), "dpa-PL", 1);
|
|
user->subscribe(!member(query, "sub-dpa-WI"), "dpa-WI", 1);
|
|
user->subscribe(!member(query, "sub-dpa-VM"), "dpa-VM", 1);
|
|
#endif
|
|
return 1;
|
|
}
|
|
write( hthead("register") + T("_PAGES_register_taken",
|
|
"This nickname is already registered."));
|
|
return 1;
|
|
}
|