5 * \defgroup AdminTasks Administrative screen to add/change/delete user accounts
11 #include "webserver.h"
15 * \brief show a list of available users to edit them
16 * \param message the header message???
17 * \param preselect which user should be selected in the browser
19 void select_user_to_edit(char *message, char *preselect)
24 output_headers(1, 1, 2, 0, 0, 0);
25 wprintf("<div id=\"banner\">\n");
26 wprintf("<table width=100%% border=0 bgcolor=#444455><tr>"
28 "<span class=\"titlebar\">"
29 "<img src=\"static/usermanag_48x.gif\">");
30 wprintf(_("Edit or delete users"));
31 wprintf("</span></td></tr></table>\n"
32 "</div>\n<div id=\"content\">\n"
35 if (message != NULL) wprintf(message);
37 wprintf("<TABLE border=0 CELLSPACING=10><TR VALIGN=TOP><TD>\n");
39 svprintf("BOXTITLE", WCS_STRING, _("Add users"));
40 do_template("beginbox");
42 wprintf(_("To create a new user account, enter the desired "
43 "user name in the box below and click 'Create'."));
44 wprintf("<br /><br />");
46 wprintf("<CENTER><FORM METHOD=\"POST\" action=\"create_user\">\n");
47 wprintf(_("New user: "));
48 wprintf("<input type=\"text\" name=\"username\"><br />\n"
49 "<input type=\"submit\" name=\"create_button\" value=\"%s\">"
50 "</FORM></CENTER>\n", _("Create"));
52 do_template("endbox");
56 svprintf("BOXTITLE", WCS_STRING, _("Edit or Delete users"));
57 do_template("beginbox");
59 wprintf(_("To edit an existing user account, select the user "
60 "name from the list and click 'Edit'."));
61 wprintf("<br /><br />");
64 "<FORM METHOD=\"POST\" action=\"display_edituser\">\n");
65 wprintf("<SELECT NAME=\"username\" SIZE=10 STYLE=\"width:100%%\">\n");
67 serv_getln(buf, sizeof buf);
69 while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
70 extract_token(username, buf, 0, '|', sizeof username);
72 if (preselect != NULL)
73 if (!strcasecmp(username, preselect))
80 wprintf("</SELECT><br />\n");
82 wprintf("<input type=\"submit\" name=\"edit_config_button\" value=\"%s\">", _("Edit configuration"));
83 wprintf("<input type=\"submit\" name=\"edit_abe_button\" value=\"%s\">", _("Edit address book entry"));
84 wprintf("<input type=\"submit\" name=\"delete_button\" value=\"%s\" "
85 "onClick=\"return confirm('%s');\">", _("Delete user"), _("Delete this user?"));
86 wprintf("</FORM></CENTER>\n");
87 do_template("endbox");
89 wprintf("</TD></TR></TABLE>\n");
97 * \brief Locate the message number of a user's vCard in the current room
98 * \param username the plaintext name of the user
99 * \param usernum the number of the user on the citadel server
100 * \return the message id of his vcard
102 long locate_user_vcard(char *username, long usernum) {
104 long vcard_msgnum = (-1L);
105 char content_type[SIZ];
107 int already_tried_creating_one = 0;
110 struct stuff_t *next;
114 struct stuff_t *stuff = NULL;
118 /** Search for the user's vCard */
119 serv_puts("MSGS ALL");
120 serv_getln(buf, sizeof buf);
121 if (buf[0] == '1') while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
122 ptr = malloc(sizeof(struct stuff_t));
123 ptr->msgnum = atol(buf);
128 /** Iterate through the message list looking for vCards */
129 while (stuff != NULL) {
130 serv_printf("MSG0 %ld|2", stuff->msgnum);
131 serv_getln(buf, sizeof buf);
133 while(serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
134 if (!strncasecmp(buf, "part=", 5)) {
135 extract_token(partnum, &buf[5], 2, '|', sizeof partnum);
136 extract_token(content_type, &buf[5], 4, '|', sizeof content_type);
137 if (!strcasecmp(content_type,
139 vcard_msgnum = stuff->msgnum;
150 /** If there's no vcard, create one */
151 if (vcard_msgnum < 0) if (already_tried_creating_one == 0) {
152 already_tried_creating_one = 1;
153 serv_puts("ENT0 1|||4");
154 serv_getln(buf, sizeof buf);
156 serv_puts("Content-type: text/x-vcard");
158 serv_puts("begin:vcard");
159 serv_puts("end:vcard");
165 return(vcard_msgnum);
170 * \brief Display the form for editing a user's address book entry
171 * \param username the name of the user
172 * \param usernum the citadel-uid of the user
174 void display_edit_address_book_entry(char *username, long usernum) {
177 char error_message[SIZ];
178 long vcard_msgnum = (-1L);
180 /** Locate the user's config room, creating it if necessary */
181 sprintf(roomname, "%010ld.%s", usernum, USERCONFIGROOM);
182 serv_printf("GOTO %s||1", roomname);
183 serv_getln(buf, sizeof buf);
185 serv_printf("CRE8 1|%s|5|||1|", roomname);
186 serv_getln(buf, sizeof buf);
187 serv_printf("GOTO %s||1", roomname);
188 serv_getln(buf, sizeof buf);
190 sprintf(error_message,
191 "<img src=\"static/error.gif\" ALIGN=CENTER>"
192 "%s<br /><br />\n", &buf[4]);
193 select_user_to_edit(error_message, username);
198 vcard_msgnum = locate_user_vcard(username, usernum);
200 if (vcard_msgnum < 0) {
201 sprintf(error_message,
202 "<img src=\"static/error.gif\" ALIGN=CENTER>%s<br /><br />\n",
203 _("An error occurred while trying to create or edit this address book entry.")
205 select_user_to_edit(error_message, username);
209 do_edit_vcard(vcard_msgnum, "1", "select_user_to_edit");
216 * \brief Edit a user.
217 * If supplied_username is null, look in the "username"
218 * web variable for the name of the user to edit.
220 * If "is_new" is set to nonzero, this screen will set the web variables
221 * to send the user to the vCard editor next.
222 * \param supplied_username user to look up or NULL if to search in the environment
223 * \param is_new should we create the user?
225 void display_edituser(char *supplied_username, int is_new) {
227 char error_message[1024];
241 if (supplied_username != NULL) {
242 safestrncpy(username, supplied_username, sizeof username);
245 safestrncpy(username, bstr("username"), sizeof username);
248 serv_printf("AGUP %s", username);
249 serv_getln(buf, sizeof buf);
251 sprintf(error_message,
252 "<img src=\"static/error.gif\" ALIGN=CENTER>"
253 "%s<br /><br />\n", &buf[4]);
254 select_user_to_edit(error_message, username);
258 extract_token(username, &buf[4], 0, '|', sizeof username);
259 extract_token(password, &buf[4], 1, '|', sizeof password);
260 flags = extract_int(&buf[4], 2);
261 timescalled = extract_int(&buf[4], 3);
262 msgsposted = extract_int(&buf[4], 4);
263 axlevel = extract_int(&buf[4], 5);
264 usernum = extract_long(&buf[4], 6);
265 lastcall = extract_long(&buf[4], 7);
266 purgedays = extract_long(&buf[4], 8);
268 if (strlen(bstr("edit_abe_button")) > 0) {
269 display_edit_address_book_entry(username, usernum);
273 if (strlen(bstr("delete_button")) > 0) {
274 delete_user(username);
278 output_headers(1, 1, 2, 0, 0, 0);
279 wprintf("<div id=\"banner\">\n");
280 wprintf("<TABLE WIDTH=100%% BORDER=0 BGCOLOR=\"#444455\"><TR><TD>");
281 wprintf("<SPAN CLASS=\"titlebar\">");
282 wprintf(_("Edit user account: "));
284 wprintf("</SPAN></TD></TR></TABLE>\n");
285 wprintf("</div>\n<div id=\"content\">\n");
287 wprintf("<div class=\"fix_scrollbar_bug\">"
288 "<table border=0 width=100%% bgcolor=\"#ffffff\"><tr><td>\n");
289 wprintf("<FORM METHOD=\"POST\" action=\"edituser\">\n"
290 "<INPUT TYPE=\"hidden\" NAME=\"username\" VALUE=\"");
293 wprintf("<INPUT TYPE=\"hidden\" NAME=\"is_new\" VALUE=\"%d\">\n"
294 "<INPUT TYPE=\"hidden\" NAME=\"usernum\" VALUE=\"%ld\">\n",
297 wprintf("<INPUT TYPE=\"hidden\" NAME=\"flags\" VALUE=\"%d\">\n", flags);
299 wprintf("<CENTER><TABLE>");
302 wprintf(_("Password"));
304 "<INPUT TYPE=\"password\" NAME=\"password\" VALUE=\"");
306 wprintf("\" MAXLENGTH=\"20\"></TD></TR>\n");
309 wprintf(_("Permission to send Internet mail"));
310 wprintf("</td><td>");
311 wprintf("<input type=\"checkbox\" name=\"inetmail\" value=\"yes\" ");
312 if (flags & US_INTERNET) {
315 wprintf("></td></tr>\n");
318 wprintf(_("Number of logins"));
320 "<INPUT TYPE=\"text\" NAME=\"timescalled\" VALUE=\"");
321 wprintf("%d", timescalled);
322 wprintf("\" MAXLENGTH=\"6\"></TD></TR>\n");
325 wprintf(_("Messages submitted"));
327 "<INPUT TYPE=\"text\" NAME=\"msgsposted\" VALUE=\"");
328 wprintf("%d", msgsposted);
329 wprintf("\" MAXLENGTH=\"6\"></TD></TR>\n");
332 wprintf(_("Access level"));
334 "<SELECT NAME=\"axlevel\">\n");
335 for (i=0; i<7; ++i) {
338 wprintf("SELECTED ");
340 wprintf("VALUE=\"%d\">%d - %s</OPTION>\n",
343 wprintf("</SELECT></TD></TR>\n");
346 wprintf(_("User ID number"));
348 "<INPUT TYPE=\"text\" NAME=\"usernum\" VALUE=\"");
349 wprintf("%ld", usernum);
350 wprintf("\" MAXLENGTH=\"7\"></TD></TR>\n");
354 wprintf(_("Date and time of last login"));
356 "<SELECT NAME=\"lastcall\">\n");
358 wprintf("<OPTION SELECTED VALUE=\"%ld\">", lastcall);
359 escputs(asctime(localtime(&lastcall)));
360 wprintf("</OPTION>\n");
362 wprintf("<OPTION VALUE=\"%ld\">", now);
363 escputs(asctime(localtime(&now)));
364 wprintf("</OPTION>\n");
366 wprintf("</SELECT></TD></TR>");
369 wprintf(_("Auto-purge after this many days"));
371 "<INPUT TYPE=\"text\" NAME=\"purgedays\" VALUE=\"");
372 wprintf("%d", purgedays);
373 wprintf("\" MAXLENGTH=\"5\"></TD></TR>\n");
375 wprintf("</TABLE>\n");
377 wprintf("<INPUT type=\"submit\" NAME=\"ok_button\" VALUE=\"%s\">\n"
379 "<INPUT type=\"submit\" NAME=\"cancel\" VALUE=\"%s\">\n"
380 "<br /><br /></FORM>\n", _("Save changes"), _("Cancel"));
382 wprintf("</CENTER>\n");
383 wprintf("</td></tr></table></div>\n");
390 * \brief do the backend operation of the user edit on the server
392 void edituser(void) {
396 unsigned int flags = 0;
398 is_new = atoi(bstr("is_new"));
400 if (strlen(bstr("ok_button")) == 0) {
401 safestrncpy(message, _("Changes were not saved."), sizeof message);
404 flags = atoi(bstr("flags"));
405 if (!strcasecmp(bstr("inetmail"), "yes")) {
406 flags |= US_INTERNET;
409 flags &= ~US_INTERNET ;
412 serv_printf("ASUP %s|%s|%d|%s|%s|%s|%s|%s|%s|",
423 serv_getln(buf, sizeof buf);
426 "<img src=\"static/error.gif\" ALIGN=CENTER>"
427 "%s<br /><br />\n", &buf[4]);
430 safestrncpy(message, "", sizeof message);
435 * If we are in the middle of creating a new user, move on to
436 * the vCard edit screen.
439 display_edit_address_book_entry( bstr("username"), atol(bstr("usernum")) );
442 select_user_to_edit(message, bstr("username"));
447 * \brief burge a user
448 * \param username the name of the user to remove
450 void delete_user(char *username) {
454 serv_printf("ASUP %s|0|0|0|0|0|", username);
455 serv_getln(buf, sizeof buf);
458 "<img src=\"static/error.gif\" ALIGN=CENTER>"
459 "%s<br /><br />\n", &buf[4]);
462 safestrncpy(message, "", sizeof message);
464 select_user_to_edit(message, bstr("username"));
470 * \brief create a new user
471 * take the web environment username and create it on the citadel server
473 void create_user(void) {
475 char error_message[SIZ];
478 safestrncpy(username, bstr("username"), sizeof username);
480 serv_printf("CREU %s", username);
481 serv_getln(buf, sizeof buf);
484 sprintf(WC->ImportantMessage,
485 _("A new user has been created."));
486 display_edituser(username, 1);
489 sprintf(error_message,
490 "<img src=\"static/error.gif\" ALIGN=CENTER>"
491 "%s<br /><br />\n", &buf[4]);
492 select_user_to_edit(error_message, NULL);