webcit/useredit.c

   1 /*
   2  * $Id$
   3  */
   4
   5 #include "webcit.h"
   6 #include "webserver.h"
   7
   8
   9 /**
  10  *  show a list of available users to edit them
  11  *  message the header message???
  12  *  preselect which user should be selected in the browser
  13  */
  14 void select_user_to_edit(char *message, char *preselect)
  15 {/*
  16         char buf[SIZ];
  17         char username[SIZ];
  18  */
  19         output_headers(1, 0, 0, 0, 1, 0);
  20         do_template("edituser_select", NULL);
  21         end_burst();
  22
  23 /*
  24
  25         output_headers(1, 1, 2, 0, 0, 0);
  26         wprintf("<div id=\"banner\">\n");
  27         wprintf("<img src=\"static/usermanag_48x.gif\">");
  28         wprintf("<h1>");
  29         wprintf(_("Edit or delete users"));
  30         wprintf("</h1>");
  31         wprintf("</div>");
  32
  33         wprintf("<div id=\"content\" class=\"service\">\n");
  34
  35         if (message != NULL) wprintf(message);
  36
  37         wprintf("<table border=0 cellspacing=10><tr valign=top><td>\n");
  38
  39         svput("BOXTITLE", WCS_STRING, _("Add users"));
  40         do_template("beginbox", NULL);
  41
  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 />");
  45
  46         wprintf("<center><form method=\"POST\" action=\"create_user\">\n");
  47         wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%d\">\n", WC->nonce);
  48         wprintf(_("New user: "));
  49         wprintf("<input type=\"text\" name=\"username\"><br />\n"
  50                 "<input type=\"submit\" name=\"create_button\" value=\"%s\">"
  51                 "</form></center>\n", _("Create"));
  52
  53         do_template("endbox", NULL);
  54
  55         wprintf("</td><td>");
  56
  57         svput("BOXTITLE", WCS_STRING, _("Edit or Delete users"));
  58         do_template("beginbox", NULL);
  59
  60         wprintf(_("To edit an existing user account, select the user "
  61                 "name from the list and click 'Edit'."));
  62         wprintf("<br /><br />");
  63
  64         wprintf("<center>"
  65                 "<form method=\"POST\" action=\"display_edituser\">\n");
  66         wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%d\">\n", WC->nonce);
  67         wprintf("<select name=\"username\" size=10 style=\"width:100%%\">\n");
  68         serv_puts("LIST");
  69         serv_getln(buf, sizeof buf);
  70         if (buf[0] == '1') {
  71                 while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
  72                         extract_token(username, buf, 0, '|', sizeof username);
  73                         wprintf("<option");
  74                         if (preselect != NULL)
  75                            if (!strcasecmp(username, preselect))
  76                               wprintf(" selected");
  77                         wprintf(">");
  78                         escputs(username);
  79                         wprintf("\n");
  80                 }
  81         }
  82         wprintf("</select><br />\n");
  83
  84         wprintf("<input type=\"submit\" name=\"edit_config_button\" value=\"%s\">", _("Edit configuration"));
  85         wprintf("<input type=\"submit\" name=\"edit_abe_button\" value=\"%s\">", _("Edit address book entry"));
  86         wprintf("<input type=\"submit\" name=\"delete_button\" value=\"%s\" "
  87                 "onClick=\"return confirm('%s');\">", _("Delete user"), _("Delete this user?"));
  88         wprintf("</form></center>\n");
  89         do_template("endbox", NULL);
  90
  91         wprintf("</td></tr></table>\n");
  92
  93         wDumpContent(1);
  94 */
  95 }
  96
  97
  98 typedef struct _UserListEntry {
  99         int UID;
 100         int AccessLevel;
 101         int nLogons;
 102         int nPosts;
 103
 104         StrBuf *UserName;
 105         StrBuf *Passvoid;
 106         time_t LastLogonT;
 107         /* Just available for Single users to view: */
 108         unsigned int Flags;
 109         int DaysTillPurge;
 110 } UserListEntry;
 111
 112
 113 UserListEntry* NewUserListOneEntry(StrBuf *SerializedUser)
 114 {
 115         UserListEntry *ul;
 116
 117         if (StrLength(SerializedUser) < 8)
 118                 return NULL;
 119
 120         ul = (UserListEntry*) malloc(sizeof(UserListEntry));
 121         ul->UserName = NewStrBuf();
 122         ul->Passvoid = NewStrBuf();
 123
 124         StrBufExtract_token(ul->UserName, SerializedUser, 0, '|');
 125         StrBufExtract_token(ul->Passvoid, SerializedUser, 1, '|');
 126         ul->Flags = (unsigned int)StrBufExtract_long(SerializedUser, 2, '|');
 127         ul->nLogons = StrBufExtract_int(SerializedUser, 3, '|');
 128         ul->nPosts = StrBufExtract_int(SerializedUser, 4, '|');
 129         ul->AccessLevel = StrBufExtract_int(SerializedUser, 5, '|');
 130         ul->UID = StrBufExtract_int(SerializedUser, 6, '|');
 131         ul->LastLogonT = StrBufExtract_long(SerializedUser, 7, '|');
 132         ul->DaysTillPurge = StrBufExtract_int(SerializedUser, 8, '|');
 133         return ul;
 134 }
 135
 136 void DeleteUserListEntry(void *vUserList)
 137 {
 138         UserListEntry *ul = (UserListEntry*) vUserList;
 139         FreeStrBuf(&ul->UserName);
 140         FreeStrBuf(&ul->Passvoid);
 141         free(ul);
 142 }
 143
 144 UserListEntry* NewUserListEntry(StrBuf *SerializedUserList)
 145 {
 146         UserListEntry *ul;
 147
 148         if (StrLength(SerializedUserList) < 8)
 149                 return NULL;
 150
 151         ul = (UserListEntry*) malloc(sizeof(UserListEntry));
 152         ul->UserName = NewStrBuf();
 153         ul->Passvoid = NewStrBuf();
 154
 155         StrBufExtract_token(ul->UserName, SerializedUserList, 0, '|');
 156         ul->AccessLevel = StrBufExtract_int(SerializedUserList, 1, '|');
 157         ul->UID = StrBufExtract_int(SerializedUserList, 2, '|');
 158         ul->LastLogonT = StrBufExtract_long(SerializedUserList, 3, '|');
 159         ul->nLogons = StrBufExtract_int(SerializedUserList, 4, '|');
 160         ul->nPosts = StrBufExtract_int(SerializedUserList, 5, '|');
 161         StrBufExtract_token(ul->Passvoid, SerializedUserList, 6, '|');
 162         ul->Flags = 0;
 163         ul->DaysTillPurge = -1;
 164         return ul;
 165 }
 166
 167 /*
 168  * Sort by Username
 169  */
 170 int CompareUserListName(const void *vUser1, const void *vUser2)
 171 {
 172         UserListEntry *u1 = (UserListEntry*) vUser1;
 173         UserListEntry *u2 = (UserListEntry*) vUser2;
 174
 175         return strcmp(ChrPtr(u1->UserName), ChrPtr(u2->UserName));
 176 }
 177 int CompareUserListNameRev(const void *vUser1, const void *vUser2)
 178 {
 179         UserListEntry *u1 = (UserListEntry*) vUser1;
 180         UserListEntry *u2 = (UserListEntry*) vUser2;
 181         return strcmp(ChrPtr(u2->UserName), ChrPtr(u1->UserName));
 182 }
 183
 184 /*
 185  * Sort by AccessLevel
 186  */
 187 int CompareAccessLevel(const void *vUser1, const void *vUser2)
 188 {
 189         UserListEntry *u1 = (UserListEntry*) vUser1;
 190         UserListEntry *u2 = (UserListEntry*) vUser2;
 191
 192         return (u1->AccessLevel > u2->AccessLevel);
 193 }
 194 int CompareAccessLevelRev(const void *vUser1, const void *vUser2)
 195 {
 196         UserListEntry *u1 = (UserListEntry*) vUser1;
 197         UserListEntry *u2 = (UserListEntry*) vUser2;
 198
 199         return (u2->AccessLevel > u1->AccessLevel);
 200 }
 201
 202
 203 /*
 204  * Sort by UID
 205  */
 206 int CompareUID(const void *vUser1, const void *vUser2)
 207 {
 208         UserListEntry *u1 = (UserListEntry*) vUser1;
 209         UserListEntry *u2 = (UserListEntry*) vUser2;
 210
 211         return (u1->UID > u2->UID);
 212 }
 213 int CompareUIDRev(const void *vUser1, const void *vUser2)
 214 {
 215         UserListEntry *u1 = (UserListEntry*) vUser1;
 216         UserListEntry *u2 = (UserListEntry*) vUser2;
 217
 218         return (u2->UID > u1->UID);
 219 }
 220
 221 /*
 222  * Sort By Date /// TODO!
 223  */
 224 int CompareLastLogon(const void *vUser1, const void *vUser2)
 225 {
 226         UserListEntry *u1 = (UserListEntry*) vUser1;
 227         UserListEntry *u2 = (UserListEntry*) vUser2;
 228
 229         return (u1->LastLogonT > u2->LastLogonT);
 230 }
 231 int CompareLastLogonRev(const void *vUser1, const void *vUser2)
 232 {
 233         UserListEntry *u1 = (UserListEntry*) vUser1;
 234         UserListEntry *u2 = (UserListEntry*) vUser2;
 235
 236         return (u2->LastLogonT > u1->LastLogonT);
 237 }
 238
 239 /*
 240  * Sort By Number of Logons
 241  */
 242 int ComparenLogons(const void *vUser1, const void *vUser2)
 243 {
 244         UserListEntry *u1 = (UserListEntry*) vUser1;
 245         UserListEntry *u2 = (UserListEntry*) vUser2;
 246
 247         return (u1->nLogons > u2->nLogons);
 248 }
 249 int ComparenLogonsRev(const void *vUser1, const void *vUser2)
 250 {
 251         UserListEntry *u1 = (UserListEntry*) vUser1;
 252         UserListEntry *u2 = (UserListEntry*) vUser2;
 253
 254         return (u2->nLogons > u1->nLogons);
 255 }
 256
 257 /*
 258  * Sort By Number of Posts
 259  */
 260 int ComparenPosts(const void *vUser1, const void *vUser2)
 261 {
 262         UserListEntry *u1 = (UserListEntry*) vUser1;
 263         UserListEntry *u2 = (UserListEntry*) vUser2;
 264
 265         return (u1->nPosts > u2->nPosts);
 266 }
 267 int ComparenPostsRev(const void *vUser1, const void *vUser2)
 268 {
 269         UserListEntry *u1 = (UserListEntry*) vUser1;
 270         UserListEntry *u2 = (UserListEntry*) vUser2;
 271
 272         return (u2->nPosts > u1->nPosts);
 273 }
 274
 275
 276 HashList *iterate_load_userlist(StrBuf *Target, int nArgs, WCTemplateToken *Tokens, void *Context, int ContextType)
 277 {
 278         HashList *Hash;
 279         char buf[SIZ];
 280         StrBuf *Buf;
 281         UserListEntry* ul;
 282         char nnn[64];
 283         int nUsed;
 284         int Order;
 285         int len;
 286
 287         serv_puts("LIST");
 288         serv_getln(buf, sizeof buf);
 289         if (buf[0] == '1') {
 290                 Hash = NewHash(1, NULL);
 291
 292                 Buf = NewStrBuf();
 293                 while ((len = StrBuf_ServGetln(Buf),
 294                         strcmp(ChrPtr(Buf), "000"))) {
 295                         ul = NewUserListEntry(Buf);
 296                         if (ul == NULL)
 297                                 continue;
 298                         nUsed = GetCount(Hash);
 299                         nUsed = snprintf(nnn, sizeof(nnn), "%d", nUsed+1);
 300                         Put(Hash, nnn, nUsed, ul, DeleteUserListEntry);
 301                 }
 302                 FreeStrBuf(&Buf);
 303                 Order = ibstr("SortOrder");
 304                 switch (ibstr("SortBy")){
 305                 case 1: /*NAME*/
 306                         SortByPayload(Hash, (Order)?
 307                                       CompareUserListName:
 308                                       CompareUserListNameRev);
 309                         break;
 310                 case 2: /*AccessLevel*/
 311                         SortByPayload(Hash, (Order)?
 312                                       CompareAccessLevel:
 313                                       CompareAccessLevelRev);
 314                         break;
 315                 case 3: /*nLogons*/
 316                         SortByPayload(Hash, (Order)?
 317                                       ComparenLogons:
 318                                       ComparenLogonsRev);
 319                         break;
 320                 case 4: /*UID*/
 321                         SortByPayload(Hash, (Order)?
 322                                       CompareUID:
 323                                       CompareUIDRev);
 324                         break;
 325                 case 5: /*LastLogon*/
 326                         SortByPayload(Hash, (Order)?
 327                                       CompareLastLogon:
 328                                       CompareLastLogonRev);
 329                         break;
 330                 case 6: /* nLogons */
 331                         SortByPayload(Hash, (Order)?
 332                                       ComparenLogons:
 333                                       ComparenLogonsRev);
 334                         break;
 335                 case 7: /* Posts */
 336                         SortByPayload(Hash, (Order)?
 337                                       ComparenPosts:
 338                                       ComparenPostsRev);
 339                         break;
 340                 }
 341                 return Hash;
 342         }
 343         return NULL;
 344 }
 345
 346
 347 void tmplput_USERLIST_UserName(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
 348 {
 349         UserListEntry *ul = (UserListEntry*) Context;
 350 /// TODO: X
 351         StrBufAppendBuf(Target, ul->UserName, 0);
 352 }
 353
 354 void tmplput_USERLIST_AccessLevelNo(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
 355 {
 356         UserListEntry *ul = (UserListEntry*) Context;
 357
 358         StrBufAppendPrintf(Target, "%d", ul->AccessLevel, 0);
 359 }
 360
 361 void tmplput_USERLIST_AccessLevelStr(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
 362 {
 363         UserListEntry *ul = (UserListEntry*) Context;
 364
 365         StrBufAppendBufPlain(Target, _(axdefs[ul->AccessLevel]), -1, 0);
 366 }
 367
 368 void tmplput_USERLIST_UID(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
 369 {
 370         UserListEntry *ul = (UserListEntry*) Context;
 371
 372         StrBufAppendPrintf(Target, "%d", ul->UID, 0);
 373 }
 374
 375 void tmplput_USERLIST_LastLogonNo(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
 376 {
 377         UserListEntry *ul = (UserListEntry*) Context;
 378
 379         StrBufAppendPrintf(Target,"%ld", ul->LastLogonT, 0);
 380 }
 381 void tmplput_USERLIST_LastLogonStr(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
 382 {
 383         UserListEntry *ul = (UserListEntry*) Context;
 384         StrEscAppend(Target, NULL, asctime(localtime(&ul->LastLogonT)), 0, 0);
 385 }
 386
 387 void tmplput_USERLIST_nLogons(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
 388 {
 389         UserListEntry *ul = (UserListEntry*) Context;
 390
 391         StrBufAppendPrintf(Target, "%d", ul->nLogons, 0);
 392 }
 393
 394 void tmplput_USERLIST_nPosts(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
 395 {
 396         UserListEntry *ul = (UserListEntry*) Context;
 397
 398         StrBufAppendPrintf(Target, "%d", ul->nPosts, 0);
 399 }
 400
 401 void tmplput_USERLIST_Flags(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
 402 {
 403         UserListEntry *ul = (UserListEntry*) Context;
 404
 405         StrBufAppendPrintf(Target, "%d", ul->Flags, 0);
 406 }
 407
 408 void tmplput_USERLIST_DaysTillPurge(StrBuf *Target, int nArgs, WCTemplateToken *Token, void *Context, int ContextType)
 409 {
 410         UserListEntry *ul = (UserListEntry*) Context;
 411
 412         StrBufAppendPrintf(Target, "%d", ul->DaysTillPurge, 0);
 413 }
 414
 415 int ConditionalUser(WCTemplateToken *Tokens, void *Context, int ContextType)
 416 {
 417         UserListEntry *ul = (UserListEntry*) Context;
 418         if (havebstr("usernum")) {
 419                 return ibstr("usernum") == ul->UID;
 420         }
 421         else if (havebstr("username")) {
 422                 return strcmp(bstr("username"), ChrPtr(ul->UserName)) == 0;
 423         }
 424         else
 425                 return 0;
 426 }
 427
 428 int ConditionalFlagINetEmail(WCTemplateToken *Tokens, void *Context, int ContextType)
 429 {
 430         UserListEntry *ul = (UserListEntry*) Context;
 431         return (ul->Flags & US_INTERNET) != 0;
 432 }
 433
 434 int ConditionalUserAccess(WCTemplateToken *Tokens, void *Context, int ContextType)
 435 {
 436         UserListEntry *ul = (UserListEntry*) Context;
 437
 438         if (Tokens->Params[3]->Type == TYPE_LONG)
 439                 return (Tokens->Params[3]->lvalue == ul->AccessLevel);
 440         else
 441                 return 0;
 442 }
 443
 444 /**
 445  *  Locate the message number of a user's vCard in the current room
 446  *  username the plaintext name of the user
 447  *  usernum the number of the user on the citadel server
 448  * \return the message id of his vcard
 449  */
 450 long locate_user_vcard(char *username, long usernum) {
 451         char buf[SIZ];
 452         long vcard_msgnum = (-1L);
 453         char content_type[SIZ];
 454         char partnum[SIZ];
 455         int already_tried_creating_one = 0;
 456
 457         struct stuff_t {
 458                 struct stuff_t *next;
 459                 long msgnum;
 460         };
 461
 462         struct stuff_t *stuff = NULL;
 463         struct stuff_t *ptr;
 464
 465 TRYAGAIN:
 466         /** Search for the user's vCard */
 467         serv_puts("MSGS ALL");
 468         serv_getln(buf, sizeof buf);
 469         if (buf[0] == '1') while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
 470                 ptr = malloc(sizeof(struct stuff_t));
 471                 ptr->msgnum = atol(buf);
 472                 ptr->next = stuff;
 473                 stuff = ptr;
 474         }
 475
 476         /** Iterate through the message list looking for vCards */
 477         while (stuff != NULL) {
 478                 serv_printf("MSG0 %ld|2", stuff->msgnum);
 479                 serv_getln(buf, sizeof buf);
 480                 if (buf[0]=='1') {
 481                         while(serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
 482                                 if (!strncasecmp(buf, "part=", 5)) {
 483                                         extract_token(partnum, &buf[5], 2, '|', sizeof partnum);
 484                                         extract_token(content_type, &buf[5], 4, '|', sizeof content_type);
 485                                         if (  (!strcasecmp(content_type, "text/x-vcard"))
 486                                            || (!strcasecmp(content_type, "text/vcard")) ) {
 487                                                 vcard_msgnum = stuff->msgnum;
 488                                         }
 489                                 }
 490                         }
 491                 }
 492
 493                 ptr = stuff->next;
 494                 free(stuff);
 495                 stuff = ptr;
 496         }
 497
 498         /** If there's no vcard, create one */
 499         if ((vcard_msgnum < 0) && (already_tried_creating_one == 0)) {
 500                 already_tried_creating_one = 1;
 501                 serv_puts("ENT0 1|||4");
 502                 serv_getln(buf, sizeof buf);
 503                 if (buf[0] == '4') {
 504                         serv_puts("Content-type: text/x-vcard");
 505                         serv_puts("");
 506                         serv_puts("begin:vcard");
 507                         serv_puts("end:vcard");
 508                         serv_puts("000");
 509                 }
 510                 goto TRYAGAIN;
 511         }
 512
 513         return(vcard_msgnum);
 514 }
 515
 516
 517 /**
 518  *  Display the form for editing a user's address book entry
 519  *  username the name of the user
 520  *  usernum the citadel-uid of the user
 521  */
 522 void display_edit_address_book_entry(char *username, long usernum) {
 523         char roomname[SIZ];
 524         char buf[SIZ];
 525         char error_message[SIZ];
 526         long vcard_msgnum = (-1L);
 527
 528         /** Locate the user's config room, creating it if necessary */
 529         sprintf(roomname, "%010ld.%s", usernum, USERCONFIGROOM);
 530         serv_printf("GOTO %s||1", roomname);
 531         serv_getln(buf, sizeof buf);
 532         if (buf[0] != '2') {
 533                 serv_printf("CRE8 1|%s|5|||1|", roomname);
 534                 serv_getln(buf, sizeof buf);
 535                 serv_printf("GOTO %s||1", roomname);
 536                 serv_getln(buf, sizeof buf);
 537                 if (buf[0] != '2') {
 538                         sprintf(error_message,
 539                                 "<img src=\"static/error.gif\" align=center>"
 540                                 "%s<br /><br />\n", &buf[4]);
 541                         select_user_to_edit(error_message, username);
 542                         return;
 543                 }
 544         }
 545
 546         vcard_msgnum = locate_user_vcard(username, usernum);
 547
 548         if (vcard_msgnum < 0) {
 549                 sprintf(error_message,
 550                         "<img src=\"static/error.gif\" align=center>%s<br /><br />\n",
 551                         _("An error occurred while trying to create or edit this address book entry.")
 552                 );
 553                 select_user_to_edit(error_message, username);
 554                 return;
 555         }
 556
 557         do_edit_vcard(vcard_msgnum, "1", "select_user_to_edit", roomname);
 558 }
 559
 560
 561 void display_edituser(char *supplied_username, int is_new) {
 562         UserListEntry* UL;
 563         StrBuf *Buf;
 564         char error_message[1024];
 565         char MajorStatus;
 566         char username[256];
 567
 568         if (supplied_username != NULL) {
 569                 safestrncpy(username, supplied_username, sizeof username);
 570         }
 571         else {
 572                 safestrncpy(username, bstr("username"), sizeof username);
 573         }
 574
 575         Buf = NewStrBuf();
 576         serv_printf("AGUP %s", username);
 577         StrBuf_ServGetln(Buf);
 578         MajorStatus = ChrPtr(Buf)[0];
 579         StrBufCutLeft(Buf, 4);
 580         if (MajorStatus != '2') {
 581                 ///TODO ImportantMessage
 582                 sprintf(error_message,
 583                         "<img src=\"static/error.gif\" align=center>"
 584                         "%s<br /><br />\n", ChrPtr(Buf));
 585                 select_user_to_edit(error_message, username);
 586                 FreeStrBuf(&Buf);
 587                 return;
 588         }
 589         else {
 590                 UL = NewUserListOneEntry(Buf);
 591                 if (havebstr("edit_abe_button")) {
 592                         display_edit_address_book_entry(username, UL->UID);
 593                 }
 594                 else if (havebstr("delete_button")) {
 595                         delete_user(username);
 596                 }
 597                 else {
 598                         output_headers(1, 0, 0, 0, 1, 0);
 599                         DoTemplate(HKEY("userlist_detailview"), NULL, (void*) UL, CTX_USERLIST);
 600                         end_burst();
 601                 }
 602                 DeleteUserListEntry(UL);
 603
 604         }
 605         FreeStrBuf(&Buf);
 606 }
 607
 608
 609
 610 /* *
 611  *  Edit a user.
 612  * If supplied_username is null, look in the "username"
 613  * web variable for the name of the user to edit.
 614  *
 615  * If "is_new" is set to nonzero, this screen will set the web variables
 616  * to send the user to the vCard editor next.
 617  *  supplied_username user to look up or NULL if to search in the environment
 618  *  is_new should we create the user?
 619  * /
 620 void display_edituser(char *supplied_username, int is_new) {
 621         char buf[1024];
 622         char error_message[1024];
 623         time_t now;
 624
 625         char username[256];
 626         char password[256];
 627         unsigned int flags;
 628         int timescalled;
 629         int msgsposted;
 630         int axlevel;
 631         long usernum;
 632         time_t lastcall;
 633         int purgedays;
 634         int i;
 635
 636         if (supplied_username != NULL) {
 637                 safestrncpy(username, supplied_username, sizeof username);
 638         }
 639         else {
 640                 safestrncpy(username, bstr("username"), sizeof username);
 641         }
 642
 643         serv_printf("AGUP %s", username);
 644         serv_getln(buf, sizeof buf);
 645         if (buf[0] != '2') {
 646                 sprintf(error_message,
 647                         "<img src=\"static/error.gif\" align=center>"
 648                         "%s<br /><br />\n", &buf[4]);
 649                 select_user_to_edit(error_message, username);
 650                 return;
 651         }
 652
 653         extract_token(username, &buf[4], 0, '|', sizeof username);
 654         extract_token(password, &buf[4], 1, '|', sizeof password);
 655         flags = extract_int(&buf[4], 2);
 656         timescalled = extract_int(&buf[4], 3);
 657         msgsposted = extract_int(&buf[4], 4);
 658         axlevel = extract_int(&buf[4], 5);
 659         usernum = extract_long(&buf[4], 6);
 660         lastcall = extract_long(&buf[4], 7);
 661         purgedays = extract_long(&buf[4], 8);
 662
 663         if (havebstr("edit_abe_button")) {
 664                 display_edit_address_book_entry(username, usernum);
 665                 return;
 666         }
 667
 668         if (havebstr("delete_button")) {
 669                 delete_user(username);
 670                 return;
 671         }
 672
 673         output_headers(1, 1, 2, 0, 0, 0);
 674         wprintf("<div id=\"banner\">\n");
 675         wprintf("<h1>");
 676         wprintf(_("Edit user account: "));
 677         escputs(username);
 678         wprintf("</h1>");
 679         wprintf("</div>");
 680
 681         wprintf("<div id=\"content\" class=\"service\">\n");
 682
 683         wprintf("<div class=\"fix_scrollbar_bug\">"
 684                 "<table class=\"useredit_background\"><tr><td>\n");
 685         wprintf("<form method=\"POST\" action=\"edituser\">\n"
 686                 "<input type=\"hidden\" name=\"username\" value=\"");
 687         escputs(username);
 688         wprintf("\">\n");
 689         wprintf("<input type=\"hidden\" name=\"is_new\" value=\"%d\">\n"
 690                 "<input type=\"hidden\" name=\"usernum\" value=\"%ld\">\n",
 691                 is_new, usernum);
 692         wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%d\">\n", WC->nonce);
 693
 694         wprintf("<input type=\"hidden\" name=\"flags\" value=\"%d\">\n", flags);
 695
 696         wprintf("<center><table>");
 697
 698         wprintf("<tr><td>");
 699         wprintf(_("User name:"));
 700         wprintf("</td><td>"
 701                 "<input type=\"text\" name=\"newname\" value=\"");
 702         escputs(username);
 703         wprintf("\" maxlength=\"63\"></td></tr>\n");
 704
 705         wprintf("<tr><td>");
 706         wprintf(_("Password"));
 707         wprintf("</td><td>"
 708                 "<input type=\"password\" name=\"password\" value=\"");
 709         escputs(password);
 710         wprintf("\" maxlength=\"20\"></td></tr>\n");
 711
 712         wprintf("<tr><td>");
 713         wprintf(_("Permission to send Internet mail"));
 714         wprintf("</td><td>");
 715         wprintf("<input type=\"checkbox\" name=\"inetmail\" value=\"yes\" ");
 716         if (flags & US_INTERNET) {
 717                 wprintf("checked ");
 718         }
 719         wprintf("></td></tr>\n");
 720
 721         wprintf("<tr><td>");
 722         wprintf(_("Number of logins"));
 723         wprintf("</td><td>"
 724                 "<input type=\"text\" name=\"timescalled\" value=\"");
 725         wprintf("%d", timescalled);
 726         wprintf("\" maxlength=\"6\"></td></tr>\n");
 727
 728         wprintf("<tr><td>");
 729         wprintf(_("Messages submitted"));
 730         wprintf("</td><td>"
 731                 "<input type=\"text\" name=\"msgsposted\" value=\"");
 732         wprintf("%d", msgsposted);
 733         wprintf("\" maxlength=\"6\"></td></tr>\n");
 734
 735         wprintf("<tr><td>");
 736         wprintf(_("Access level"));
 737         wprintf("</td><td>"
 738                 "<select name=\"axlevel\">\n");
 739         for (i=0; i<7; ++i) {
 740                 wprintf("<option ");
 741                 if (axlevel == i) {
 742                         wprintf("selected ");
 743                 }
 744                 wprintf("value=\"%d\">%d - %s</option>\n",
 745                         i, i, axdefs[i]);
 746         }
 747         wprintf("</select></td></tr>\n");
 748
 749         wprintf("<tr><td>");
 750         wprintf(_("User ID number"));
 751         wprintf("</td><td>"
 752                 "<input type=\"text\" name=\"usernum\" value=\"");
 753         wprintf("%ld", usernum);
 754         wprintf("\" maxlength=\"7\"></td></tr>\n");
 755
 756         now = time(NULL);
 757         wprintf("<tr><td>");
 758         wprintf(_("Date and time of last login"));
 759         wprintf("</td><td>"
 760                 "<select name=\"lastcall\">\n");
 761
 762         wprintf("<option selected value=\"%ld\">", lastcall);
 763         escputs(asctime(localtime(&lastcall)));
 764         wprintf("</option>\n");
 765
 766         wprintf("<option value=\"%ld\">", now);
 767         escputs(asctime(localtime(&now)));
 768         wprintf("</option>\n");
 769
 770         wprintf("</select></td></tr>");
 771
 772         wprintf("<tr><td>");
 773         wprintf(_("Auto-purge after this many days"));
 774         wprintf("</td><td>"
 775                 "<input type=\"text\" name=\"purgedays\" value=\"");
 776         wprintf("%d", purgedays);
 777         wprintf("\" maxlength=\"5\"></td></tr>\n");
 778
 779         wprintf("</table>\n");
 780
 781         wprintf("<input type=\"submit\" name=\"ok_button\" value=\"%s\">\n"
 782                 "&nbsp;"
 783                 "<input type=\"submit\" name=\"cancel\" value=\"%s\">\n"
 784                 "<br /><br /></form>\n", _("Save changes"), _("Cancel"));
 785
 786         wprintf("</center>\n");
 787         wprintf("</td></tr></table></div>\n");
 788         wDumpContent(1);
 789
 790 }
 791 */
 792
 793 /**
 794  *  do the backend operation of the user edit on the server
 795  */
 796 void edituser(void) {
 797         char message[SIZ];
 798         char buf[SIZ];
 799         int is_new = 0;
 800         unsigned int flags = 0;
 801         char *username;
 802
 803         is_new = ibstr("is_new");
 804         safestrncpy(message, "", sizeof message);
 805         username = bstr("username");
 806
 807         if (!havebstr("ok_button")) {
 808                 safestrncpy(message, _("Changes were not saved."), sizeof message);
 809         }
 810
 811         else {
 812                 flags = ibstr("flags");
 813                 if (yesbstr("inetmail")) {
 814                         flags |= US_INTERNET;
 815                 }
 816                 else {
 817                         flags &= ~US_INTERNET ;
 818                 }
 819
 820                 if ((havebstr("newname")) && (strcasecmp(bstr("username"), bstr("newname")))) {
 821                         serv_printf("RENU %s|%s", bstr("username"), bstr("newname"));
 822                         serv_getln(buf, sizeof buf);
 823                         if (buf[0] != '2') {
 824                                 sprintf(&message[strlen(message)],
 825                                         "<img src=\"static/error.gif\" align=center>"
 826                                         "%s<br /><br />\n", &buf[4]);
 827                         }
 828                         else {
 829                                 username = bstr("newname");
 830                         }
 831                 }
 832
 833                 serv_printf("ASUP %s|%s|%d|%s|%s|%s|%s|%s|%s|",
 834                         username,
 835                         bstr("password"),
 836                         flags,
 837                         bstr("timescalled"),
 838                         bstr("msgsposted"),
 839                         bstr("axlevel"),
 840                         bstr("usernum"),
 841                         bstr("lastcall"),
 842                         bstr("purgedays")
 843                 );
 844                 serv_getln(buf, sizeof buf);
 845                 if (buf[0] != '2') {
 846                         sprintf(&message[strlen(message)],
 847                                 "<img src=\"static/error.gif\" align=center>"
 848                                 "%s<br /><br />\n", &buf[4]);
 849                 }
 850         }
 851
 852         /**
 853          * If we are in the middle of creating a new user, move on to
 854          * the vCard edit screen.
 855          */
 856         if (is_new) {
 857                 display_edit_address_book_entry(username, lbstr("usernum") );
 858         }
 859         else {
 860                 select_user_to_edit(message, username);
 861         }
 862 }
 863
 864 /*
 865  *  burge a user
 866  *  username the name of the user to remove
 867  */
 868 void delete_user(char *username) {
 869         char buf[SIZ];
 870         char message[SIZ];
 871
 872         serv_printf("ASUP %s|0|0|0|0|0|", username);
 873         serv_getln(buf, sizeof buf);
 874         if (buf[0] != '2') {
 875                 sprintf(message,
 876                         "<img src=\"static/error.gif\" align=center>"
 877                         "%s<br /><br />\n", &buf[4]);
 878         }
 879         else {
 880                 safestrncpy(message, "", sizeof message);
 881         }
 882         select_user_to_edit(message, bstr("username"));
 883 }
 884
 885
 886
 887 /**
 888  *  create a new user
 889  * take the web environment username and create it on the citadel server
 890  */
 891 void create_user(void) {
 892         char buf[SIZ];
 893         char error_message[SIZ];
 894         char username[SIZ];
 895
 896         safestrncpy(username, bstr("username"), sizeof username);
 897
 898         serv_printf("CREU %s", username);
 899         serv_getln(buf, sizeof buf);
 900
 901         if (buf[0] == '2') {
 902                 sprintf(WC->ImportantMessage, _("A new user has been created."));
 903                 display_edituser(username, 1);
 904         }
 905         else if (!strncmp(buf, "570", 3)) {
 906                 sprintf(error_message,
 907                         "<img src=\"static/error.gif\" align=center>"
 908                         "%s<br /><br />\n",
 909                         _("You are attempting to create a new user from within Citadel "
 910                         "while running in host based authentication mode.  In this mode, "
 911                         "you must create new users on the host system, not within Citadel.")
 912                 );
 913                 select_user_to_edit(error_message, NULL);
 914         }
 915         else {
 916                 sprintf(error_message,
 917                         "<img src=\"static/error.gif\" align=center>"
 918                         "%s<br /><br />\n", &buf[4]);
 919                 select_user_to_edit(error_message, NULL);
 920         }
 921
 922 }
 923
 924
 925 void _select_user_to_edit(void){select_user_to_edit(NULL, NULL);}
 926 void _display_edituser(void) {display_edituser(NULL, 0);}
 927
 928 void
 929 InitModule_USEREDIT
 930 (void)
 931 {
 932         WebcitAddUrlHandler(HKEY("select_user_to_edit"), _select_user_to_edit, 0);
 933         WebcitAddUrlHandler(HKEY("display_edituser"), _display_edituser, 0);
 934         WebcitAddUrlHandler(HKEY("edituser"), edituser, 0);
 935         WebcitAddUrlHandler(HKEY("create_user"), create_user, 0);
 936
 937         RegisterNamespace("USERLIST:USERNAME",      0, 1, tmplput_USERLIST_UserName, CTX_USERLIST);
 938         RegisterNamespace("USERLIST:ACCLVLNO",      0, 0, tmplput_USERLIST_AccessLevelNo, CTX_USERLIST);
 939         RegisterNamespace("USERLIST:ACCLVLSTR",     0, 0, tmplput_USERLIST_AccessLevelStr, CTX_USERLIST);
 940         RegisterNamespace("USERLIST:UID",           0, 0, tmplput_USERLIST_UID, CTX_USERLIST);
 941         RegisterNamespace("USERLIST:LASTLOGON:STR", 0, 0, tmplput_USERLIST_LastLogonStr, CTX_USERLIST);
 942         RegisterNamespace("USERLIST:LASTLOGON:NO",  0, 0, tmplput_USERLIST_LastLogonNo, CTX_USERLIST);
 943         RegisterNamespace("USERLIST:NLOGONS",       0, 0, tmplput_USERLIST_nLogons, CTX_USERLIST);
 944         RegisterNamespace("USERLIST:NPOSTS",        0, 0, tmplput_USERLIST_nPosts, CTX_USERLIST);
 945
 946         RegisterNamespace("USERLIST:FLAGS",         0, 0, tmplput_USERLIST_Flags, CTX_USERLIST);
 947         RegisterNamespace("USERLIST:DAYSTILLPURGE", 0, 0, tmplput_USERLIST_DaysTillPurge, CTX_USERLIST);
 948
 949         RegisterConditional(HKEY("COND:USERNAME"),  0,    ConditionalUser, CTX_USERLIST);
 950         RegisterConditional(HKEY("COND:USERACCESS"), 0,   ConditionalUserAccess, CTX_USERLIST);
 951         RegisterConditional(HKEY("COND:USERLIST:FLAG:USE_INTERNET"), 0, ConditionalFlagINetEmail, CTX_USERLIST);
 952
 953         RegisterIterator("USERLIST", 0, NULL, iterate_load_userlist, NULL, DeleteHash, CTX_USERLIST, CTX_NONE);
 954 }