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(const char *preselect)
  15 {
  16         output_headers(1, 0, 0, 0, 1, 0);
  17         do_template("aide_edituser_select", NULL);
  18         end_burst();
  19 }
  20
  21
  22 typedef struct _UserListEntry {
  23         int UID;
  24         int AccessLevel;
  25         int nLogons;
  26         int nPosts;
  27
  28         StrBuf *UserName;
  29         StrBuf *Passvoid;
  30         time_t LastLogonT;
  31         /* Just available for Single users to view: */
  32         unsigned int Flags;
  33         int DaysTillPurge;
  34 } UserListEntry;
  35
  36
  37 UserListEntry* NewUserListOneEntry(StrBuf *SerializedUser, const char *Pos)
  38 {
  39         UserListEntry *ul;
  40
  41         if (StrLength(SerializedUser) < 8)
  42                 return NULL;
  43
  44         ul = (UserListEntry*) malloc(sizeof(UserListEntry));
  45         ul->UserName = NewStrBuf();
  46         ul->Passvoid = NewStrBuf();
  47
  48         StrBufExtract_NextToken(ul->UserName,               SerializedUser, &Pos, '|');
  49         StrBufExtract_NextToken(ul->Passvoid,               SerializedUser, &Pos, '|');
  50         ul->Flags         = StrBufExtractNext_unsigned_long(SerializedUser, &Pos, '|');
  51         ul->nLogons       = StrBufExtractNext_int(          SerializedUser, &Pos, '|');
  52         ul->nPosts        = StrBufExtractNext_int(          SerializedUser, &Pos, '|');
  53         ul->AccessLevel   = StrBufExtractNext_int(          SerializedUser, &Pos, '|');
  54         ul->UID           = StrBufExtractNext_int(          SerializedUser, &Pos, '|');
  55         ul->LastLogonT    = StrBufExtractNext_long(         SerializedUser, &Pos, '|');
  56         ul->DaysTillPurge = StrBufExtractNext_int(          SerializedUser, &Pos, '|');
  57         return ul;
  58 }
  59
  60 void DeleteUserListEntry(void *vUserList)
  61 {
  62         UserListEntry *ul = (UserListEntry*) vUserList;
  63         if (!ul) return;
  64         FreeStrBuf(&ul->UserName);
  65         FreeStrBuf(&ul->Passvoid);
  66         free(ul);
  67 }
  68
  69 UserListEntry* NewUserListEntry(StrBuf *SerializedUserList)
  70 {
  71         const char *Pos = NULL;
  72         UserListEntry *ul;
  73
  74         if (StrLength(SerializedUserList) < 8)
  75                 return NULL;
  76
  77         ul = (UserListEntry*) malloc(sizeof(UserListEntry));
  78         ul->UserName = NewStrBuf();
  79         ul->Passvoid = NewStrBuf();
  80
  81         StrBufExtract_NextToken(ul->UserName,    SerializedUserList, &Pos, '|');
  82         ul->AccessLevel = StrBufExtractNext_int( SerializedUserList, &Pos, '|');
  83         ul->UID         = StrBufExtractNext_int( SerializedUserList, &Pos, '|');
  84         ul->LastLogonT  = StrBufExtractNext_long(SerializedUserList, &Pos, '|');
  85         ul->nLogons     = StrBufExtractNext_int( SerializedUserList, &Pos, '|');
  86         ul->nPosts      = StrBufExtractNext_int( SerializedUserList, &Pos, '|');
  87         StrBufExtract_NextToken(ul->Passvoid,    SerializedUserList, &Pos, '|');
  88         ul->Flags = 0;
  89         ul->DaysTillPurge = -1;
  90         return ul;
  91 }
  92
  93 /*
  94  * Sort by Username
  95  */
  96 int CompareUserListName(const void *vUser1, const void *vUser2)
  97 {
  98         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
  99         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 100
 101         return strcmp(ChrPtr(u1->UserName), ChrPtr(u2->UserName));
 102 }
 103
 104 int CompareUserListNameRev(const void *vUser1, const void *vUser2)
 105 {
 106         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 107         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 108         return strcmp(ChrPtr(u2->UserName), ChrPtr(u1->UserName));
 109 }
 110
 111 int GroupchangeUserListName(const void *vUser1, const void *vUser2)
 112 {
 113         UserListEntry *u1 = (UserListEntry*) vUser1;
 114         UserListEntry *u2 = (UserListEntry*) vUser2;
 115         return ChrPtr(u2->UserName)[0] != ChrPtr(u1->UserName)[0];
 116 }
 117
 118 /*
 119  * Sort by access level
 120  */
 121 int CompareAccessLevel(const void *vUser1, const void *vUser2)
 122 {
 123         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 124         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 125
 126         return (u1->AccessLevel > u2->AccessLevel);
 127 }
 128
 129 int CompareAccessLevelRev(const void *vUser1, const void *vUser2)
 130 {
 131         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 132         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 133
 134         return (u2->AccessLevel > u1->AccessLevel);
 135 }
 136
 137 int GroupchangeAccessLevel(const void *vUser1, const void *vUser2)
 138 {
 139         UserListEntry *u1 = (UserListEntry*) vUser1;
 140         UserListEntry *u2 = (UserListEntry*) vUser2;
 141
 142         return u2->AccessLevel != u1->AccessLevel;
 143 }
 144
 145 /*
 146  * Sort by UID
 147  */
 148 int CompareUID(const void *vUser1, const void *vUser2)
 149 {
 150         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 151         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 152
 153         return (u1->UID > u2->UID);
 154 }
 155
 156 int CompareUIDRev(const void *vUser1, const void *vUser2)
 157 {
 158         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 159         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 160
 161         return (u2->UID > u1->UID);
 162 }
 163
 164 int GroupchangeUID(const void *vUser1, const void *vUser2)
 165 {
 166         UserListEntry *u1 = (UserListEntry*) vUser1;
 167         UserListEntry *u2 = (UserListEntry*) vUser2;
 168
 169         return (u2->UID / 10) != (u1->UID / 10);
 170 }
 171
 172 /*
 173  * Sort By Date /// TODO!
 174  */
 175 int CompareLastLogon(const void *vUser1, const void *vUser2)
 176 {
 177         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 178         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 179
 180         return (u1->LastLogonT > u2->LastLogonT);
 181 }
 182
 183 int CompareLastLogonRev(const void *vUser1, const void *vUser2)
 184 {
 185         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 186         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 187
 188         return (u2->LastLogonT > u1->LastLogonT);
 189 }
 190
 191 int GroupchangeLastLogon(const void *vUser1, const void *vUser2)
 192 {
 193         UserListEntry *u1 = (UserListEntry*) vUser1;
 194         UserListEntry *u2 = (UserListEntry*) vUser2;
 195
 196         return (u2->LastLogonT != u1->LastLogonT);
 197 }
 198
 199 /*
 200  * Sort By Number of Logons
 201  */
 202 int ComparenLogons(const void *vUser1, const void *vUser2)
 203 {
 204         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 205         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 206
 207         return (u1->nLogons > u2->nLogons);
 208 }
 209
 210 int ComparenLogonsRev(const void *vUser1, const void *vUser2)
 211 {
 212         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 213         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 214
 215         return (u2->nLogons > u1->nLogons);
 216 }
 217
 218 int GroupchangenLogons(const void *vUser1, const void *vUser2)
 219 {
 220         UserListEntry *u1 = (UserListEntry*) vUser1;
 221         UserListEntry *u2 = (UserListEntry*) vUser2;
 222
 223         return (u2->nLogons / 100) != (u1->nLogons / 100);
 224 }
 225
 226 /*
 227  * Sort By Number of Posts
 228  */
 229 int ComparenPosts(const void *vUser1, const void *vUser2)
 230 {
 231         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 232         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 233
 234         return (u1->nPosts > u2->nPosts);
 235 }
 236
 237 int ComparenPostsRev(const void *vUser1, const void *vUser2)
 238 {
 239         UserListEntry *u1 = (UserListEntry*) GetSearchPayload(vUser1);
 240         UserListEntry *u2 = (UserListEntry*) GetSearchPayload(vUser2);
 241
 242         return (u2->nPosts > u1->nPosts);
 243 }
 244
 245 int GroupchangenPosts(const void *vUser1, const void *vUser2)
 246 {
 247         UserListEntry *u1 = (UserListEntry*) vUser1;
 248         UserListEntry *u2 = (UserListEntry*) vUser2;
 249
 250         return (u2->nPosts / 100) != (u1->nPosts / 100);
 251 }
 252
 253
 254 HashList *iterate_load_userlist(StrBuf *Target, WCTemplputParams *TP)
 255 {
 256         int Done = 0;
 257         CompareFunc SortIt;
 258         HashList *Hash = NULL;
 259         StrBuf *Buf;
 260         UserListEntry* ul;
 261         char nnn[64];
 262         int nUsed;
 263         int len;
 264         WCTemplputParams SubTP;
 265
 266         memset(&SubTP, 0, sizeof(WCTemplputParams));
 267         serv_puts("LIST");
 268         Buf = NewStrBuf();
 269         StrBuf_ServGetln(Buf);
 270         if (GetServerStatus(Buf, NULL) == 1) {
 271                 Hash = NewHash(1, NULL);
 272
 273                 while (!Done) {
 274                         len = StrBuf_ServGetln(Buf);
 275                         if ((len <0) ||
 276                             ((len == 3) &&
 277                              !strcmp(ChrPtr(Buf), "000")))
 278                         {
 279                                 Done = 1;
 280                                 break;
 281                         }
 282                         ul = NewUserListEntry(Buf);
 283                         if (ul == NULL)
 284                                 continue;
 285                         nUsed = GetCount(Hash);
 286                         nUsed = snprintf(nnn, sizeof(nnn), "%d", nUsed+1);
 287                         Put(Hash, nnn, nUsed, ul, DeleteUserListEntry);
 288                 }
 289                 SubTP.Filter.ContextType = CTX_USERLIST;
 290                 SortIt = RetrieveSort(&SubTP, HKEY("USER"), HKEY("user:uid"), 0);
 291                 if (SortIt != NULL)
 292                         SortByPayload(Hash, SortIt);
 293                 else
 294                         SortByPayload(Hash, CompareUID);
 295         }
 296         FreeStrBuf(&Buf);
 297         return Hash;
 298 }
 299
 300
 301 void tmplput_USERLIST_UserName(StrBuf *Target, WCTemplputParams *TP)
 302 {
 303         UserListEntry *ul = (UserListEntry*) CTX;
 304         StrBufAppendTemplate(Target, TP, ul->UserName, 0);
 305 }
 306
 307 void tmplput_USERLIST_Password(StrBuf *Target, WCTemplputParams *TP)
 308 {
 309         UserListEntry *ul = (UserListEntry*) CTX;
 310         StrBufAppendTemplate(Target, TP, ul->Passvoid, 0);
 311 }
 312
 313 void tmplput_USERLIST_AccessLevelNo(StrBuf *Target, WCTemplputParams *TP)
 314 {
 315         UserListEntry *ul = (UserListEntry*) CTX;
 316
 317         StrBufAppendPrintf(Target, "%d", ul->AccessLevel, 0);
 318 }
 319
 320 void tmplput_USERLIST_AccessLevelStr(StrBuf *Target, WCTemplputParams *TP)
 321 {
 322         UserListEntry *ul = (UserListEntry*) CTX;
 323
 324         StrBufAppendBufPlain(Target, _(axdefs[ul->AccessLevel]), -1, 0);
 325 }
 326
 327 void tmplput_USERLIST_UID(StrBuf *Target, WCTemplputParams *TP)
 328 {
 329         UserListEntry *ul = (UserListEntry*) CTX;
 330
 331         StrBufAppendPrintf(Target, "%d", ul->UID, 0);
 332 }
 333
 334 void tmplput_USERLIST_LastLogonNo(StrBuf *Target, WCTemplputParams *TP)
 335 {
 336         UserListEntry *ul = (UserListEntry*) CTX;
 337
 338         StrBufAppendPrintf(Target,"%ld", ul->LastLogonT, 0);
 339 }
 340 void tmplput_USERLIST_LastLogonStr(StrBuf *Target, WCTemplputParams *TP)
 341 {
 342         UserListEntry *ul = (UserListEntry*) CTX;
 343         StrEscAppend(Target, NULL, asctime(localtime(&ul->LastLogonT)), 0, 0);
 344 }
 345
 346 void tmplput_USERLIST_nLogons(StrBuf *Target, WCTemplputParams *TP)
 347 {
 348         UserListEntry *ul = (UserListEntry*) CTX;
 349
 350         StrBufAppendPrintf(Target, "%d", ul->nLogons, 0);
 351 }
 352
 353 void tmplput_USERLIST_nPosts(StrBuf *Target, WCTemplputParams *TP)
 354 {
 355         UserListEntry *ul = (UserListEntry*) CTX;
 356
 357         StrBufAppendPrintf(Target, "%d", ul->nPosts, 0);
 358 }
 359
 360 void tmplput_USERLIST_Flags(StrBuf *Target, WCTemplputParams *TP)
 361 {
 362         UserListEntry *ul = (UserListEntry*) CTX;
 363
 364         StrBufAppendPrintf(Target, "%d", ul->Flags, 0);
 365 }
 366
 367 void tmplput_USERLIST_DaysTillPurge(StrBuf *Target, WCTemplputParams *TP)
 368 {
 369         UserListEntry *ul = (UserListEntry*) CTX;
 370
 371         StrBufAppendPrintf(Target, "%d", ul->DaysTillPurge, 0);
 372 }
 373
 374 int ConditionalUser(StrBuf *Target, WCTemplputParams *TP)
 375 {
 376         UserListEntry *ul = (UserListEntry*) CTX;
 377         if (havebstr("usernum")) {
 378                 return ibstr("usernum") == ul->UID;
 379         }
 380         else if (havebstr("username")) {
 381                 return strcmp(bstr("username"), ChrPtr(ul->UserName)) == 0;
 382         }
 383         else
 384                 return 0;
 385 }
 386
 387 int ConditionalFlagINetEmail(StrBuf *Target, WCTemplputParams *TP)
 388 {
 389         UserListEntry *ul = (UserListEntry*) CTX;
 390         return (ul->Flags & US_INTERNET) != 0;
 391 }
 392
 393 int ConditionalUserAccess(StrBuf *Target, WCTemplputParams *TP)
 394 {
 395         UserListEntry *ul = (UserListEntry*) CTX;
 396
 397         if (ul == NULL)
 398                 return 0;
 399
 400         return GetTemplateTokenNumber(Target,
 401                                       TP,
 402                                       3,
 403                                       AxNewU)
 404                 ==
 405                 ul->AccessLevel;
 406 }
 407
 408 /*
 409  *  Locate the message number of a user's vCard in the current room
 410  *  Returns the message id of his vcard
 411  */
 412 long locate_user_vcard_in_this_room(message_summary **VCMsg, wc_mime_attachment **VCAtt)
 413 {
 414         wcsession *WCC = WC;
 415         HashPos *at;
 416         HashPos *att;
 417         const char *HashKey;
 418         long HKLen;
 419         void *vMsg;
 420         message_summary *Msg;
 421         wc_mime_attachment *Att;
 422         int Done;
 423         StrBuf *Buf;
 424         long vcard_msgnum = (-1L);
 425         int already_tried_creating_one = 0;
 426         StrBuf *FoundCharset = NewStrBuf();
 427         StrBuf *Error = NULL;
 428         SharedMessageStatus Stat;
 429
 430
 431         Buf = NewStrBuf();
 432 TRYAGAIN:
 433         memset(&Stat, 0, sizeof(SharedMessageStatus));
 434         Stat.maxload = 10000;
 435         Stat.lowest_found = (-1);
 436         Stat.highest_found = (-1);
 437         Done = 0;
 438         /* Search for the user's vCard */
 439         if (load_msg_ptrs("MSGS ALL||||1", &Stat, NULL) > 0) {
 440                 at = GetNewHashPos(WCC->summ, 0);
 441                 while (GetNextHashPos(WCC->summ, at, &HKLen, &HashKey, &vMsg)) {
 442                         Msg = (message_summary*) vMsg;
 443                         Msg->MsgBody =  (wc_mime_attachment*) malloc(sizeof(wc_mime_attachment));
 444                         memset(Msg->MsgBody, 0, sizeof(wc_mime_attachment));
 445                         Msg->MsgBody->msgnum = Msg->msgnum;
 446
 447                         load_message(Msg, FoundCharset, &Error);
 448
 449                         if (Msg->AllAttach != NULL) {
 450                                 att = GetNewHashPos(Msg->AllAttach, 0);
 451                                 while (GetNextHashPos(Msg->AllAttach, att, &HKLen, &HashKey, &vMsg) &&
 452                                        (vcard_msgnum == -1)) {
 453                                         Att = (wc_mime_attachment*) vMsg;
 454                                         if (
 455                                                 (strcasecmp(ChrPtr(Att->ContentType), "text/x-vcard") == 0)
 456                                                 || (strcasecmp(ChrPtr(Att->ContentType), "text/vcard") == 0)
 457                                         ) {
 458                                                 *VCAtt = Att;
 459                                                 *VCMsg = Msg;
 460                                                 vcard_msgnum = Msg->msgnum;
 461                                                 if (Att->Data == NULL) {
 462                                                         MimeLoadData(Att);
 463                                                 }
 464                                         }
 465                                 }
 466                                 DeleteHashPos(&att);
 467                         }
 468                         FreeStrBuf(&Error);     /* don't care... */
 469
 470                 }
 471                 DeleteHashPos(&at);
 472         }
 473
 474         /* If there's no vcard, create one */
 475         if ((*VCMsg == NULL) && (already_tried_creating_one == 0)) {
 476                 FlushStrBuf(Buf);
 477                 already_tried_creating_one = 1;
 478                 serv_puts("ENT0 1|||4");
 479                 StrBuf_ServGetln(Buf);
 480                 if (GetServerStatus(Buf, NULL) == 4) {
 481                         serv_puts("Content-type: text/x-vcard");
 482                         serv_puts("");
 483                         serv_puts("begin:vcard");
 484                         serv_puts("end:vcard");
 485                         serv_puts("000");
 486                 }
 487                 else
 488                         lprintf(1, "Error while creating user vcard: %s\n", ChrPtr(Buf));
 489                 goto TRYAGAIN;
 490         }
 491         FreeStrBuf(&Buf);
 492         FreeStrBuf(&FoundCharset);
 493
 494         return(vcard_msgnum);
 495 }
 496
 497
 498 /*
 499  *  Display the form for editing a user's address book entry
 500  *  username the name of the user
 501  *  usernum the citadel-uid of the user
 502  */
 503 void display_edit_address_book_entry(const char *username, long usernum) {
 504         wcsession *WCC = WC;
 505         message_summary *VCMsg = NULL;
 506         wc_mime_attachment *VCAtt = NULL;
 507         StrBuf *roomname;
 508         StrBuf *Buf;
 509         long vcard_msgnum = (-1L);
 510
 511         /* Locate the user's config room, creating it if necessary */
 512         Buf = NewStrBuf();
 513         roomname = NewStrBuf();
 514         StrBufPrintf(roomname, "%010ld.%s", usernum, USERCONFIGROOM);
 515         serv_printf("GOTO %s||1", ChrPtr(roomname));
 516         StrBuf_ServGetln(Buf);
 517         if (GetServerStatus(Buf, NULL) != 2) {
 518                 serv_printf("CRE8 1|%s|5|||1|", ChrPtr(roomname));
 519                 StrBuf_ServGetln(Buf);
 520                 GetServerStatus(Buf, NULL);
 521                 serv_printf("GOTO %s||1", ChrPtr(roomname));
 522                 StrBuf_ServGetln(Buf);
 523                 if (GetServerStatus(Buf, NULL) != 2) {
 524                         FlushStrBuf(WCC->ImportantMsg);
 525                         StrBufAppendBuf(WCC->ImportantMsg, Buf, 4);
 526                         select_user_to_edit(username);
 527                         FreeStrBuf(&Buf);
 528                         FreeStrBuf(&roomname);
 529                         return;
 530                 }
 531         }
 532         FreeStrBuf(&Buf);
 533
 534         locate_user_vcard_in_this_room(&VCMsg, &VCAtt);
 535
 536         if (VCMsg == NULL) {
 537                 StrBufPlain(WCC->ImportantMsg,
 538                             _("An error occurred while trying to create or edit this address book entry."),
 539                             0);
 540                 select_user_to_edit(username);
 541                 FreeStrBuf(&roomname);
 542                 return;
 543         }
 544
 545         do_edit_vcard(vcard_msgnum, "1",
 546                       VCMsg,
 547                       VCAtt,
 548                       "select_user_to_edit",
 549                       ChrPtr(roomname));
 550         FreeStrBuf(&roomname);
 551 }
 552
 553
 554 void display_edituser(const char *supplied_username, int is_new) {
 555         const char *Pos;
 556         wcsession *WCC = WC;
 557         UserListEntry* UL;
 558         StrBuf *Buf;
 559         char username[256];
 560
 561         if (supplied_username != NULL) {
 562                 safestrncpy(username, supplied_username, sizeof username);
 563         }
 564         else {
 565                 safestrncpy(username, bstr("username"), sizeof username);
 566         }
 567
 568         Buf = NewStrBuf();
 569         serv_printf("AGUP %s", username);
 570         StrBuf_ServGetln(Buf);
 571         if (GetServerStatus(Buf, NULL) != 2) {
 572                 FlushStrBuf(WCC->ImportantMsg);
 573                 StrBufAppendBuf(WCC->ImportantMsg, Buf, 4);
 574                 select_user_to_edit(username);
 575                 FreeStrBuf(&Buf);
 576                 return;
 577         }
 578         else {
 579                 Pos = ChrPtr(Buf) + 4;
 580                 UL = NewUserListOneEntry(Buf, Pos);
 581                 if ((UL != NULL) && havebstr("edit_abe_button")) {
 582                         display_edit_address_book_entry(username, UL->UID);
 583                 }
 584                 else if ((UL != NULL) && havebstr("delete_button")) {
 585                         delete_user(username);
 586                 }
 587                 else if (UL != NULL) {
 588                         WCTemplputParams SubTP;
 589                         memset(&SubTP, 0, sizeof(WCTemplputParams));
 590                         SubTP.Filter.ContextType = CTX_USERLIST;
 591                         SubTP.Context = UL;
 592                         output_headers(1, 0, 0, 0, 1, 0);
 593                         DoTemplate(HKEY("aide_edituser_detailview"), NULL, &SubTP);
 594                         end_burst();
 595                 }
 596                 DeleteUserListEntry(UL);
 597
 598         }
 599         FreeStrBuf(&Buf);
 600 }
 601
 602 /*
 603  *  do the backend operation of the user edit on the server
 604  */
 605 void edituser(void) {
 606         wcsession *WCC = WC;
 607         int is_new = 0;
 608         unsigned int flags = 0;
 609         const char *username;
 610
 611         is_new = ibstr("is_new");
 612         username = bstr("username");
 613
 614         if (!havebstr("ok_button")) {
 615                 StrBufPlain(WCC->ImportantMsg, _("Changes were not saved."), -1);
 616         }
 617         else {
 618                 StrBuf *Buf = NewStrBuf();
 619
 620                 flags = ibstr("flags");
 621                 if (yesbstr("inetmail")) {
 622                         flags |= US_INTERNET;
 623                 }
 624                 else {
 625                         flags &= ~US_INTERNET ;
 626                 }
 627
 628                 if ((havebstr("newname")) && (strcasecmp(bstr("username"), bstr("newname")))) {
 629                         serv_printf("RENU %s|%s", bstr("username"), bstr("newname"));
 630                         StrBuf_ServGetln(Buf);
 631                         if (GetServerStatus(Buf, NULL) == 2) {
 632                                 FlushStrBuf(WCC->ImportantMsg);
 633                                 StrBufAppendBuf(WCC->ImportantMsg, Buf, 4);
 634                         }
 635                         else {
 636                                 username = bstr("newname");
 637                         }
 638                 }
 639
 640                 serv_printf("ASUP %s|%s|%d|%s|%s|%s|%s|%s|%s|",
 641                         username,
 642                         bstr("password"),
 643                         flags,
 644                         bstr("timescalled"),
 645                         bstr("msgsposted"),
 646                         bstr("axlevel"),
 647                         bstr("usernum"),
 648                         bstr("lastcall"),
 649                         bstr("purgedays")
 650                 );
 651                 StrBuf_ServGetln(Buf);
 652                 if (GetServerStatus(Buf, NULL) == 2) {
 653                         StrBufAppendBuf(WCC->ImportantMsg, Buf, 4);
 654                 }
 655                 FreeStrBuf(&Buf);
 656         }
 657
 658         /*
 659          * If we are in the middle of creating a new user, move on to
 660          * the vCard edit screen.
 661          */
 662         if (is_new) {
 663                 display_edit_address_book_entry(username, lbstr("usernum") );
 664         }
 665         else {
 666                 select_user_to_edit(username);
 667         }
 668 }
 669
 670 /*
 671  *  burge a user
 672  *  username the name of the user to remove
 673  */
 674 void delete_user(char *username) {
 675         wcsession *WCC = WC;
 676         StrBuf *Buf;
 677
 678         Buf = NewStrBuf();
 679         serv_printf("ASUP %s|0|0|0|0|0|", username);
 680         StrBuf_ServGetln(Buf);
 681         if (GetServerStatus(Buf, NULL) != 2)
 682                 StrBufAppendBuf(WCC->ImportantMsg, Buf, 4);
 683
 684         select_user_to_edit( bstr("username"));
 685         FreeStrBuf(&Buf);
 686 }
 687
 688
 689
 690 /*
 691  *  create a new user
 692  * take the web environment username and create it on the citadel server
 693  */
 694 void create_user(void) {
 695         wcsession *WCC = WC;
 696         long FullState;
 697         StrBuf *Buf;
 698         const char *username;
 699
 700         Buf = NewStrBuf();
 701         username = bstr("username");
 702         serv_printf("CREU %s", username);
 703         StrBuf_ServGetln(Buf);
 704         if (GetServerStatus(Buf, &FullState) == 2) {
 705                 sprintf(WC->ImportantMessage, _("A new user has been created."));
 706                 display_edituser(username, 1);
 707         }
 708         else if (FullState == 570) {
 709                 StrBufPlain(WCC->ImportantMsg,
 710                             _("You are attempting to create a new user from within Citadel "
 711                               "while running in host based authentication mode.  In this mode, "
 712                               "you must create new users on the host system, not within Citadel."),
 713                             0);
 714                 select_user_to_edit(NULL);
 715         }
 716         else {
 717                 StrBufAppendBuf(WCC->ImportantMsg, Buf, 4);
 718                 select_user_to_edit(NULL);
 719         }
 720         FreeStrBuf(&Buf);
 721 }
 722
 723
 724 void _select_user_to_edit(void) {
 725         select_user_to_edit(NULL);
 726 }
 727
 728
 729 void _display_edituser(void) {
 730         display_edituser(NULL, 0);
 731 }
 732
 733
 734 void
 735 InitModule_USEREDIT
 736 (void)
 737 {
 738         WebcitAddUrlHandler(HKEY("select_user_to_edit"), "", 0, _select_user_to_edit, 0);
 739         WebcitAddUrlHandler(HKEY("display_edituser"), "", 0, _display_edituser, 0);
 740         WebcitAddUrlHandler(HKEY("edituser"), "", 0, edituser, 0);
 741         WebcitAddUrlHandler(HKEY("create_user"), "", 0, create_user, 0);
 742
 743         RegisterNamespace("USERLIST:USERNAME",      0, 1, tmplput_USERLIST_UserName, NULL, CTX_USERLIST);
 744         RegisterNamespace("USERLIST:PASSWD",        0, 1, tmplput_USERLIST_Password, NULL, CTX_USERLIST);
 745         RegisterNamespace("USERLIST:ACCLVLNO",      0, 0, tmplput_USERLIST_AccessLevelNo, NULL, CTX_USERLIST);
 746         RegisterNamespace("USERLIST:ACCLVLSTR",     0, 0, tmplput_USERLIST_AccessLevelStr, NULL, CTX_USERLIST);
 747         RegisterNamespace("USERLIST:UID",           0, 0, tmplput_USERLIST_UID, NULL, CTX_USERLIST);
 748         RegisterNamespace("USERLIST:LASTLOGON:STR", 0, 0, tmplput_USERLIST_LastLogonStr, NULL, CTX_USERLIST);
 749         RegisterNamespace("USERLIST:LASTLOGON:NO",  0, 0, tmplput_USERLIST_LastLogonNo, NULL, CTX_USERLIST);
 750         RegisterNamespace("USERLIST:NLOGONS",       0, 0, tmplput_USERLIST_nLogons, NULL, CTX_USERLIST);
 751         RegisterNamespace("USERLIST:NPOSTS",        0, 0, tmplput_USERLIST_nPosts, NULL, CTX_USERLIST);
 752
 753         RegisterNamespace("USERLIST:FLAGS",         0, 0, tmplput_USERLIST_Flags, NULL, CTX_USERLIST);
 754         RegisterNamespace("USERLIST:DAYSTILLPURGE", 0, 0, tmplput_USERLIST_DaysTillPurge, NULL, CTX_USERLIST);
 755
 756         RegisterConditional(HKEY("COND:USERNAME"),  0,    ConditionalUser, CTX_USERLIST);
 757         RegisterConditional(HKEY("COND:USERACCESS"), 0,   ConditionalUserAccess, CTX_USERLIST);
 758         RegisterConditional(HKEY("COND:USERLIST:FLAG:USE_INTERNET"), 0, ConditionalFlagINetEmail, CTX_USERLIST);
 759
 760         RegisterIterator("USERLIST", 0, NULL, iterate_load_userlist, NULL, DeleteHash, CTX_USERLIST, CTX_NONE, IT_FLAG_DETECT_GROUPCHANGE);
 761
 762
 763
 764         RegisterSortFunc(HKEY("user:name"),
 765                          HKEY("userlist"),
 766                          CompareUserListName,
 767                          CompareUserListNameRev,
 768                          GroupchangeUserListName,
 769                          CTX_USERLIST);
 770         RegisterSortFunc(HKEY("user:accslvl"),
 771                          HKEY("userlist"),
 772                          CompareAccessLevel,
 773                          CompareAccessLevelRev,
 774                          GroupchangeAccessLevel,
 775                          CTX_USERLIST);
 776
 777         RegisterSortFunc(HKEY("user:nlogons"),
 778                          HKEY("userlist"),
 779                          ComparenLogons,
 780                          ComparenLogonsRev,
 781                          GroupchangenLogons,
 782                          CTX_USERLIST);
 783
 784         RegisterSortFunc(HKEY("user:uid"),
 785                          HKEY("userlist"),
 786                          CompareUID,
 787                          CompareUIDRev,
 788                          GroupchangeUID,
 789                          CTX_USERLIST);
 790
 791         RegisterSortFunc(HKEY("user:lastlogon"),
 792                          HKEY("userlist"),
 793                          CompareLastLogon,
 794                          CompareLastLogonRev,
 795                          GroupchangeLastLogon,
 796                          CTX_USERLIST);
 797
 798         RegisterSortFunc(HKEY("user:nmsgposts"),
 799                          HKEY("userlist"),
 800                          ComparenPosts,
 801                          ComparenPostsRev,
 802                          GroupchangenPosts,
 803                          CTX_USERLIST);
 804
 805         REGISTERTokenParamDefine(AxDeleted);
 806         REGISTERTokenParamDefine(AxNewU);
 807         REGISTERTokenParamDefine(AxProbU);
 808         REGISTERTokenParamDefine(AxLocU);
 809         REGISTERTokenParamDefine(AxNetU);
 810         REGISTERTokenParamDefine(AxPrefU);
 811         REGISTERTokenParamDefine(AxAideU);
 812 }
 813