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(WCTemplateToken *Token)
 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) if (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                 output_headers(1, 0, 0, 0, 1, 0);
 592                 DoTemplate(HKEY("userlist_detailview"), NULL, (void*) UL, CTX_USERLIST);
 593                 end_burst();
 594
 595         }
 596         FreeStrBuf(&Buf);
 597 }
 598
 599
 600
 601 /* *
 602  *  Edit a user.
 603  * If supplied_username is null, look in the "username"
 604  * web variable for the name of the user to edit.
 605  *
 606  * If "is_new" is set to nonzero, this screen will set the web variables
 607  * to send the user to the vCard editor next.
 608  *  supplied_username user to look up or NULL if to search in the environment
 609  *  is_new should we create the user?
 610  * /
 611 void display_edituser(char *supplied_username, int is_new) {
 612         char buf[1024];
 613         char error_message[1024];
 614         time_t now;
 615
 616         char username[256];
 617         char password[256];
 618         unsigned int flags;
 619         int timescalled;
 620         int msgsposted;
 621         int axlevel;
 622         long usernum;
 623         time_t lastcall;
 624         int purgedays;
 625         int i;
 626
 627         if (supplied_username != NULL) {
 628                 safestrncpy(username, supplied_username, sizeof username);
 629         }
 630         else {
 631                 safestrncpy(username, bstr("username"), sizeof username);
 632         }
 633
 634         serv_printf("AGUP %s", username);
 635         serv_getln(buf, sizeof buf);
 636         if (buf[0] != '2') {
 637                 sprintf(error_message,
 638                         "<img src=\"static/error.gif\" align=center>"
 639                         "%s<br /><br />\n", &buf[4]);
 640                 select_user_to_edit(error_message, username);
 641                 return;
 642         }
 643
 644         extract_token(username, &buf[4], 0, '|', sizeof username);
 645         extract_token(password, &buf[4], 1, '|', sizeof password);
 646         flags = extract_int(&buf[4], 2);
 647         timescalled = extract_int(&buf[4], 3);
 648         msgsposted = extract_int(&buf[4], 4);
 649         axlevel = extract_int(&buf[4], 5);
 650         usernum = extract_long(&buf[4], 6);
 651         lastcall = extract_long(&buf[4], 7);
 652         purgedays = extract_long(&buf[4], 8);
 653
 654         if (havebstr("edit_abe_button")) {
 655                 display_edit_address_book_entry(username, usernum);
 656                 return;
 657         }
 658
 659         if (havebstr("delete_button")) {
 660                 delete_user(username);
 661                 return;
 662         }
 663
 664         output_headers(1, 1, 2, 0, 0, 0);
 665         wprintf("<div id=\"banner\">\n");
 666         wprintf("<h1>");
 667         wprintf(_("Edit user account: "));
 668         escputs(username);
 669         wprintf("</h1>");
 670         wprintf("</div>");
 671
 672         wprintf("<div id=\"content\" class=\"service\">\n");
 673
 674         wprintf("<div class=\"fix_scrollbar_bug\">"
 675                 "<table class=\"useredit_background\"><tr><td>\n");
 676         wprintf("<form method=\"POST\" action=\"edituser\">\n"
 677                 "<input type=\"hidden\" name=\"username\" value=\"");
 678         escputs(username);
 679         wprintf("\">\n");
 680         wprintf("<input type=\"hidden\" name=\"is_new\" value=\"%d\">\n"
 681                 "<input type=\"hidden\" name=\"usernum\" value=\"%ld\">\n",
 682                 is_new, usernum);
 683         wprintf("<input type=\"hidden\" name=\"nonce\" value=\"%d\">\n", WC->nonce);
 684
 685         wprintf("<input type=\"hidden\" name=\"flags\" value=\"%d\">\n", flags);
 686
 687         wprintf("<center><table>");
 688
 689         wprintf("<tr><td>");
 690         wprintf(_("User name:"));
 691         wprintf("</td><td>"
 692                 "<input type=\"text\" name=\"newname\" value=\"");
 693         escputs(username);
 694         wprintf("\" maxlength=\"63\"></td></tr>\n");
 695
 696         wprintf("<tr><td>");
 697         wprintf(_("Password"));
 698         wprintf("</td><td>"
 699                 "<input type=\"password\" name=\"password\" value=\"");
 700         escputs(password);
 701         wprintf("\" maxlength=\"20\"></td></tr>\n");
 702
 703         wprintf("<tr><td>");
 704         wprintf(_("Permission to send Internet mail"));
 705         wprintf("</td><td>");
 706         wprintf("<input type=\"checkbox\" name=\"inetmail\" value=\"yes\" ");
 707         if (flags & US_INTERNET) {
 708                 wprintf("checked ");
 709         }
 710         wprintf("></td></tr>\n");
 711
 712         wprintf("<tr><td>");
 713         wprintf(_("Number of logins"));
 714         wprintf("</td><td>"
 715                 "<input type=\"text\" name=\"timescalled\" value=\"");
 716         wprintf("%d", timescalled);
 717         wprintf("\" maxlength=\"6\"></td></tr>\n");
 718
 719         wprintf("<tr><td>");
 720         wprintf(_("Messages submitted"));
 721         wprintf("</td><td>"
 722                 "<input type=\"text\" name=\"msgsposted\" value=\"");
 723         wprintf("%d", msgsposted);
 724         wprintf("\" maxlength=\"6\"></td></tr>\n");
 725
 726         wprintf("<tr><td>");
 727         wprintf(_("Access level"));
 728         wprintf("</td><td>"
 729                 "<select name=\"axlevel\">\n");
 730         for (i=0; i<7; ++i) {
 731                 wprintf("<option ");
 732                 if (axlevel == i) {
 733                         wprintf("selected ");
 734                 }
 735                 wprintf("value=\"%d\">%d - %s</option>\n",
 736                         i, i, axdefs[i]);
 737         }
 738         wprintf("</select></td></tr>\n");
 739
 740         wprintf("<tr><td>");
 741         wprintf(_("User ID number"));
 742         wprintf("</td><td>"
 743                 "<input type=\"text\" name=\"usernum\" value=\"");
 744         wprintf("%ld", usernum);
 745         wprintf("\" maxlength=\"7\"></td></tr>\n");
 746
 747         now = time(NULL);
 748         wprintf("<tr><td>");
 749         wprintf(_("Date and time of last login"));
 750         wprintf("</td><td>"
 751                 "<select name=\"lastcall\">\n");
 752
 753         wprintf("<option selected value=\"%ld\">", lastcall);
 754         escputs(asctime(localtime(&lastcall)));
 755         wprintf("</option>\n");
 756
 757         wprintf("<option value=\"%ld\">", now);
 758         escputs(asctime(localtime(&now)));
 759         wprintf("</option>\n");
 760
 761         wprintf("</select></td></tr>");
 762
 763         wprintf("<tr><td>");
 764         wprintf(_("Auto-purge after this many days"));
 765         wprintf("</td><td>"
 766                 "<input type=\"text\" name=\"purgedays\" value=\"");
 767         wprintf("%d", purgedays);
 768         wprintf("\" maxlength=\"5\"></td></tr>\n");
 769
 770         wprintf("</table>\n");
 771
 772         wprintf("<input type=\"submit\" name=\"ok_button\" value=\"%s\">\n"
 773                 "&nbsp;"
 774                 "<input type=\"submit\" name=\"cancel\" value=\"%s\">\n"
 775                 "<br /><br /></form>\n", _("Save changes"), _("Cancel"));
 776
 777         wprintf("</center>\n");
 778         wprintf("</td></tr></table></div>\n");
 779         wDumpContent(1);
 780
 781 }
 782 */
 783
 784 /**
 785  *  do the backend operation of the user edit on the server
 786  */
 787 void edituser(void) {
 788         char message[SIZ];
 789         char buf[SIZ];
 790         int is_new = 0;
 791         unsigned int flags = 0;
 792         char *username;
 793
 794         is_new = ibstr("is_new");
 795         safestrncpy(message, "", sizeof message);
 796         username = bstr("username");
 797
 798         if (!havebstr("ok_button")) {
 799                 safestrncpy(message, _("Changes were not saved."), sizeof message);
 800         }
 801
 802         else {
 803                 flags = ibstr("flags");
 804                 if (yesbstr("inetmail")) {
 805                         flags |= US_INTERNET;
 806                 }
 807                 else {
 808                         flags &= ~US_INTERNET ;
 809                 }
 810
 811                 if ((havebstr("newname")) && (strcasecmp(bstr("username"), bstr("newname")))) {
 812                         serv_printf("RENU %s|%s", bstr("username"), bstr("newname"));
 813                         serv_getln(buf, sizeof buf);
 814                         if (buf[0] != '2') {
 815                                 sprintf(&message[strlen(message)],
 816                                         "<img src=\"static/error.gif\" align=center>"
 817                                         "%s<br /><br />\n", &buf[4]);
 818                         }
 819                         else {
 820                                 username = bstr("newname");
 821                         }
 822                 }
 823
 824                 serv_printf("ASUP %s|%s|%d|%s|%s|%s|%s|%s|%s|",
 825                         username,
 826                         bstr("password"),
 827                         flags,
 828                         bstr("timescalled"),
 829                         bstr("msgsposted"),
 830                         bstr("axlevel"),
 831                         bstr("usernum"),
 832                         bstr("lastcall"),
 833                         bstr("purgedays")
 834                 );
 835                 serv_getln(buf, sizeof buf);
 836                 if (buf[0] != '2') {
 837                         sprintf(&message[strlen(message)],
 838                                 "<img src=\"static/error.gif\" align=center>"
 839                                 "%s<br /><br />\n", &buf[4]);
 840                 }
 841         }
 842
 843         /**
 844          * If we are in the middle of creating a new user, move on to
 845          * the vCard edit screen.
 846          */
 847         if (is_new) {
 848                 display_edit_address_book_entry(username, lbstr("usernum") );
 849         }
 850         else {
 851                 select_user_to_edit(message, username);
 852         }
 853 }
 854
 855 /*
 856  *  burge a user
 857  *  username the name of the user to remove
 858  */
 859 void delete_user(char *username) {
 860         char buf[SIZ];
 861         char message[SIZ];
 862
 863         serv_printf("ASUP %s|0|0|0|0|0|", username);
 864         serv_getln(buf, sizeof buf);
 865         if (buf[0] != '2') {
 866                 sprintf(message,
 867                         "<img src=\"static/error.gif\" align=center>"
 868                         "%s<br /><br />\n", &buf[4]);
 869         }
 870         else {
 871                 safestrncpy(message, "", sizeof message);
 872         }
 873         select_user_to_edit(message, bstr("username"));
 874 }
 875
 876
 877
 878 /**
 879  *  create a new user
 880  * take the web environment username and create it on the citadel server
 881  */
 882 void create_user(void) {
 883         char buf[SIZ];
 884         char error_message[SIZ];
 885         char username[SIZ];
 886
 887         safestrncpy(username, bstr("username"), sizeof username);
 888
 889         serv_printf("CREU %s", username);
 890         serv_getln(buf, sizeof buf);
 891
 892         if (buf[0] == '2') {
 893                 sprintf(WC->ImportantMessage, _("A new user has been created."));
 894                 display_edituser(username, 1);
 895         }
 896         else if (!strncmp(buf, "570", 3)) {
 897                 sprintf(error_message,
 898                         "<img src=\"static/error.gif\" align=center>"
 899                         "%s<br /><br />\n",
 900                         _("You are attempting to create a new user from within Citadel "
 901                         "while running in host based authentication mode.  In this mode, "
 902                         "you must create new users on the host system, not within Citadel.")
 903                 );
 904                 select_user_to_edit(error_message, NULL);
 905         }
 906         else {
 907                 sprintf(error_message,
 908                         "<img src=\"static/error.gif\" align=center>"
 909                         "%s<br /><br />\n", &buf[4]);
 910                 select_user_to_edit(error_message, NULL);
 911         }
 912
 913 }
 914
 915
 916 void _select_user_to_edit(void){select_user_to_edit(NULL, NULL);}
 917 void _display_edituser(void) {display_edituser(NULL, 0);}
 918
 919 void
 920 InitModule_USEREDIT
 921 (void)
 922 {
 923         WebcitAddUrlHandler(HKEY("select_user_to_edit"), _select_user_to_edit, 0);
 924         WebcitAddUrlHandler(HKEY("display_edituser"), _display_edituser, 0);
 925         WebcitAddUrlHandler(HKEY("edituser"), edituser, 0);
 926         WebcitAddUrlHandler(HKEY("create_user"), create_user, 0);
 927
 928         RegisterNamespace("USERLIST:USERNAME",      0, 1, tmplput_USERLIST_UserName, CTX_USERLIST);
 929         RegisterNamespace("USERLIST:ACCLVLNO",      0, 0, tmplput_USERLIST_AccessLevelNo, CTX_USERLIST);
 930         RegisterNamespace("USERLIST:ACCLVLSTR",     0, 0, tmplput_USERLIST_AccessLevelStr, CTX_USERLIST);
 931         RegisterNamespace("USERLIST:UID",           0, 0, tmplput_USERLIST_UID, CTX_USERLIST);
 932         RegisterNamespace("USERLIST:LASTLOGON:STR", 0, 0, tmplput_USERLIST_LastLogonStr, CTX_USERLIST);
 933         RegisterNamespace("USERLIST:LASTLOGON:NO",  0, 0, tmplput_USERLIST_LastLogonNo, CTX_USERLIST);
 934         RegisterNamespace("USERLIST:NLOGONS",       0, 0, tmplput_USERLIST_nLogons, CTX_USERLIST);
 935         RegisterNamespace("USERLIST:NPOSTS",        0, 0, tmplput_USERLIST_nPosts, CTX_USERLIST);
 936
 937         RegisterNamespace("USERLIST:FLAGS",         0, 0, tmplput_USERLIST_Flags, CTX_USERLIST);
 938         RegisterNamespace("USERLIST:DAYSTILLPURGE", 0, 0, tmplput_USERLIST_DaysTillPurge, CTX_USERLIST);
 939
 940         RegisterConditional(HKEY("COND:USERNAME"),  0,    ConditionalUser, CTX_USERLIST);
 941         RegisterConditional(HKEY("COND:USERACCESS"), 0,   ConditionalUserAccess, CTX_USERLIST);
 942         RegisterConditional(HKEY("COND:USERLIST:FLAG:USE_INTERNET"), 0, ConditionalFlagINetEmail, CTX_USERLIST);
 943
 944         RegisterIterator("USERLIST", 0, NULL, iterate_load_userlist, NULL, DeleteHash, CTX_USERLIST);
 945 }