webcit/dav_propfind.c

   1 /*
   2  * Handles GroupDAV PROPFIND requests.
   3  *
   4  * A few notes about our XML output:
   5  *
   6  * --> Yes, we are spewing tags directly instead of using an XML library.
   7  *     Whining about it will be summarily ignored.
   8  *
   9  * --> XML is deliberately output with no whitespace/newlines between tags.
  10  *     This makes it difficult to read, but we have discovered clients which
  11  *     crash when you try to pretty it up.
  12  *
  13  * Copyright (c) 2005-2011 by the citadel.org team
  14  *
  15  * This program is open source software; you can redistribute it and/or modify
  16  * it under the terms of the GNU General Public License as published by
  17  * the Free Software Foundation; either version 3 of the License, or
  18  * (at your option) any later version.
  19  *
  20  * This program is distributed in the hope that it will be useful,
  21  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  22  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23  * GNU General Public License for more details.
  24  *
  25  * You should have received a copy of the GNU General Public License
  26  * along with this program; if not, write to the Free Software
  27  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  28  */
  29
  30 #include "webcit.h"
  31 #include "webserver.h"
  32 #include "dav.h"
  33
  34 extern int DisableGzip;
  35
  36 /*
  37  * Given an encoded UID, translate that to an unencoded Citadel EUID and
  38  * then search for it in the current room.  Return a message number or -1
  39  * if not found.
  40  *
  41  */
  42 long locate_message_by_uid(const char *uid) {
  43         char buf[256];
  44         char decoded_uid[1024];
  45         long retval = (-1L);
  46
  47         /* decode the UID */
  48         euid_unescapize(decoded_uid, uid);
  49
  50         /* ask Citadel if we have this one */
  51         serv_printf("EUID %s", decoded_uid);
  52         serv_getln(buf, sizeof buf);
  53         if (buf[0] == '2') {
  54                 retval = atol(&buf[4]);
  55         }
  56
  57         return(retval);
  58 }
  59
  60
  61 /*
  62  * IgnoreFloor: set to 0 or 1 _nothing else_
  63  * Subfolders: direct child floors will be put here.
  64  */
  65 const folder *GetRESTFolder(int IgnoreFloor, HashList *Subfolders)
  66 {
  67         wcsession  *WCC = WC;
  68         void *vFolder;
  69         const folder *ThisFolder = NULL;
  70         const folder *FoundFolder = NULL;
  71         const folder *BestGuess = NULL;
  72         int nBestGuess = 0;
  73         HashPos    *itd, *itfl;
  74         StrBuf     * Dir;
  75         void       *vDir;
  76         long        len;
  77         const char *Key;
  78         int iRoom, jURL, urlp;
  79         int delta;
  80
  81 /*
  82  * Guess room: if the full URL matches a room, list thats it. We also need to remember direct sub rooms.
  83  * if the URL is longer, we need to find the "best guess" so we can find the room we're in, and the rest of the URL will be uids and so on.
  84  */
  85         itfl = GetNewHashPos(WCC->Floors, 0);
  86         urlp = GetCount(WCC->Directory);
  87
  88         while (GetNextHashPos(WCC->Floors, itfl, &len, &Key, &vFolder) &&
  89                (ThisFolder == NULL))
  90         {
  91                 ThisFolder = vFolder;
  92                 if (!IgnoreFloor && /* so we can handle legacy URLS... */
  93                     (ThisFolder->Floor != WCC->CurrentFloor))
  94                         continue;
  95
  96
  97                 if (ThisFolder->nRoomNameParts > 1)
  98                 {
  99                         /*TODO: is that number all right? */
 100 //                      if (urlp - ThisFolder->nRoomNameParts != 2) {
 101 //                              if (BestGuess != NULL)
 102 //                                      continue;
 103 //ThisFolder->name
 104 //                              itd  = GetNewHashPos(WCC->Directory, 0);
 105 //                              GetNextHashPos(WCC->Directory, itd, &len, &Key, &vDir); //TODO: how many to fast forward?
 106 //                      }
 107                         itd  = GetNewHashPos(WCC->Directory, 0);
 108                         GetNextHashPos(WCC->Directory, itd, &len, &Key, &vDir); //TODO: how many to fast forward?
 109
 110                         for (iRoom = 0, /* Fast forward the floorname as we checked it above: */ jURL = IgnoreFloor;
 111
 112                              (iRoom <= ThisFolder->nRoomNameParts) && (jURL <= urlp);
 113
 114                              iRoom++, jURL++, GetNextHashPos(WCC->Directory, itd, &len, &Key, &vDir))
 115                         {
 116                                 Dir = (StrBuf*)vDir;
 117                                 if (strcmp(ChrPtr(ThisFolder->RoomNameParts[iRoom]),
 118                                            ChrPtr(Dir)) != 0)
 119                                 {
 120                                         DeleteHashPos(&itd);
 121                                         continue;
 122                                 }
 123                         }
 124                         DeleteHashPos(&itd);
 125                         /* Gotcha? */
 126                         if ((iRoom == ThisFolder->nRoomNameParts) && (jURL == urlp))
 127                         {
 128                                 FoundFolder = ThisFolder;
 129                         }
 130                         /* URL got more parts then this room, so we remember it for the best guess*/
 131                         else if ((jURL <= urlp) &&
 132                                  (ThisFolder->nRoomNameParts <= nBestGuess))
 133                         {
 134                                 BestGuess = ThisFolder;
 135                                 nBestGuess = jURL - 1;
 136                         }
 137                         /* Room has more parts than the URL, it might be a sub-room? */
 138                         else if (iRoom <ThisFolder->nRoomNameParts)
 139                         {//// TODO: ThisFolder->nRoomNameParts == urlp - IgnoreFloor???
 140                                 Put(Subfolders, SKEY(ThisFolder->name),
 141                                     /* Cast away const, its a reference. */
 142                                     (void*)ThisFolder, reference_free_handler);
 143                         }
 144                 }
 145                 else {
 146                         delta = GetCount(WCC->Directory) - ThisFolder->nRoomNameParts;
 147                         if ((delta != 2) && (nBestGuess > 1))
 148                             continue;
 149
 150                         itd  = GetNewHashPos(WCC->Directory, 0);
 151
 152                         if (!GetNextHashPos(WCC->Directory,
 153                                             itd, &len, &Key, &vDir) ||
 154                             (vDir == NULL))
 155                         {
 156                                 DeleteHashPos(&itd);
 157
 158                                 syslog(0, "5\n");
 159                                 continue;
 160                         }
 161                         DeleteHashPos(&itd);
 162                         Dir = (StrBuf*) vDir;
 163                         if (strcmp(ChrPtr(ThisFolder->name),
 164                                                ChrPtr(Dir))
 165                             != 0)
 166                         {
 167                                 DeleteHashPos(&itd);
 168
 169                                 syslog(0, "5\n");
 170                                 continue;
 171                         }
 172                         DeleteHashPos(&itfl);
 173                         DeleteHashPos(&itd);
 174                         if (delta != 2) {
 175                                 nBestGuess = 1;
 176                                 BestGuess = ThisFolder;
 177                         }
 178                         else
 179                                 FoundFolder = ThisFolder;
 180                 }
 181         }
 182
 183 /* TODO: Subfolders: remove patterns not matching the best guess or thisfolder */
 184         DeleteHashPos(&itfl);
 185         if (FoundFolder != NULL)
 186                 return FoundFolder;
 187         else
 188                 return BestGuess;
 189 }
 190
 191
 192
 193
 194 long GotoRestRoom(HashList *SubRooms)
 195 {
 196         int IgnoreFloor = 0; /* deprecated... */
 197         wcsession *WCC = WC;
 198         long Count;
 199         long State;
 200         const folder *ThisFolder;
 201
 202         State = REST_TOPLEVEL;
 203
 204         if (WCC->Hdr->HR.Handler != NULL)
 205                 State |= REST_IN_NAMESPACE;
 206
 207         Count = GetCount(WCC->Directory);
 208
 209         if (Count == 0) return State;
 210
 211         if (Count >= 1) State |=REST_IN_FLOOR;
 212         if (Count == 1) return State;
 213
 214         /*
 215          * More than 3 params and no floor found?
 216          * -> fall back to old non-floored notation
 217          */
 218         if ((Count >= 3) && (WCC->CurrentFloor == NULL))
 219                 IgnoreFloor = 1;
 220         if (Count >= 3)
 221         {
 222                 IgnoreFloor = 0;
 223                 State |= REST_IN_FLOOR;
 224
 225                 ThisFolder = GetRESTFolder(IgnoreFloor, SubRooms);
 226                 if (ThisFolder != NULL)
 227                 {
 228                         if (WCC->ThisRoom != NULL)
 229                                 if (CompareRooms(WCC->ThisRoom, ThisFolder) != 0)
 230                                         gotoroom(ThisFolder->name);
 231                         State |= REST_IN_ROOM;
 232
 233                 }
 234                 if (GetCount(SubRooms) > 0)
 235                         State |= REST_HAVE_SUB_ROOMS;
 236         }
 237         if ((WCC->ThisRoom != NULL) &&
 238             (Count + IgnoreFloor > 3))
 239         {
 240                 if (WCC->Hdr->HR.Handler->RID(ExistsID, IgnoreFloor))
 241                 {
 242                         State |= REST_GOT_LOCAL_PART;
 243                 }
 244                 else {
 245                         /// WHOOPS, not there???
 246                         State |= REST_NONEXIST;
 247                 }
 248
 249
 250         }
 251         return State;
 252 }
 253
 254
 255
 256 /*
 257  * List rooms (or "collections" in DAV terminology) which contain
 258  * interesting groupware objects.
 259  */
 260 void dav_collection_list(void)
 261 {
 262         wcsession *WCC = WC;
 263         char buf[256];
 264         char roomname[256];
 265         int view;
 266         char datestring[256];
 267         time_t now;
 268         time_t mtime;
 269         int is_groupware_collection = 0;
 270         int starting_point = 1;         /**< 0 for /, 1 for /groupdav/ */
 271
 272         if (WCC->Hdr->HR.Handler == NULL) {
 273                 starting_point = 0;
 274         }
 275         else if (StrLength(WCC->Hdr->HR.ReqLine) == 0) {
 276                 starting_point = 1;
 277         }
 278         else {
 279                 starting_point = 2;
 280         }
 281
 282         now = time(NULL);
 283         http_datestring(datestring, sizeof datestring, now);
 284
 285         /*
 286          * Be rude.  Completely ignore the XML request and simply send them
 287          * everything we know about.  Let the client sort it out.
 288          */
 289         hprintf("HTTP/1.0 207 Multi-Status\r\n");
 290         dav_common_headers();
 291         hprintf("Date: %s\r\n", datestring);
 292         hprintf("Content-type: text/xml\r\n");
 293         if (DisableGzip || (!WCC->Hdr->HR.gzip_ok))
 294                 hprintf("Content-encoding: identity\r\n");
 295
 296         begin_burst();
 297
 298         wc_printf("<?xml version=\"1.0\" encoding=\"utf-8\"?>"
 299                 "<multistatus xmlns=\"DAV:\" xmlns:G=\"http://groupdav.org/\">"
 300         );
 301
 302         /*
 303          * If the client is requesting the root, show a root node.
 304          */
 305         if (starting_point == 0) {
 306                 wc_printf("<response>");
 307                         wc_printf("<href>");
 308                                 dav_identify_host();
 309                                 wc_printf("/");
 310                         wc_printf("</href>");
 311                         wc_printf("<propstat>");
 312                                 wc_printf("<status>HTTP/1.1 200 OK</status>");
 313                                 wc_printf("<prop>");
 314                                         wc_printf("<displayname>/</displayname>");
 315                                         wc_printf("<resourcetype><collection/></resourcetype>");
 316                                         wc_printf("<getlastmodified>");
 317                                                 escputs(datestring);
 318                                         wc_printf("</getlastmodified>");
 319                                 wc_printf("</prop>");
 320                         wc_printf("</propstat>");
 321                 wc_printf("</response>");
 322         }
 323
 324         /*
 325          * If the client is requesting "/groupdav", show a /groupdav subdirectory.
 326          */
 327         if ((starting_point + WCC->Hdr->HR.dav_depth) >= 1) {
 328                 wc_printf("<response>");
 329                         wc_printf("<href>");
 330                                 dav_identify_host();
 331                                 wc_printf("/groupdav");
 332                         wc_printf("</href>");
 333                         wc_printf("<propstat>");
 334                                 wc_printf("<status>HTTP/1.1 200 OK</status>");
 335                                 wc_printf("<prop>");
 336                                         wc_printf("<displayname>GroupDAV</displayname>");
 337                                         wc_printf("<resourcetype><collection/></resourcetype>");
 338                                         wc_printf("<getlastmodified>");
 339                                                 escputs(datestring);
 340                                         wc_printf("</getlastmodified>");
 341                                 wc_printf("</prop>");
 342                         wc_printf("</propstat>");
 343                 wc_printf("</response>");
 344         }
 345
 346         /*
 347          * Now go through the list and make it look like a DAV collection
 348          */
 349         serv_puts("LKRA");
 350         serv_getln(buf, sizeof buf);
 351         if (buf[0] == '1') while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) {
 352
 353                 extract_token(roomname, buf, 0, '|', sizeof roomname);
 354                 view = extract_int(buf, 7);
 355                 mtime = extract_long(buf, 8);
 356                 http_datestring(datestring, sizeof datestring, mtime);
 357
 358                 /*
 359                  * For now, only list rooms that we know a GroupDAV client
 360                  * might be interested in.  In the future we may add
 361                  * the rest.
 362                  *
 363                  * We determine the type of objects which are stored in each
 364                  * room by looking at the *default* view for the room.  This
 365                  * allows, for example, a Calendar room to appear as a
 366                  * GroupDAV calendar even if the user has switched it to a
 367                  * Calendar List view.
 368                  */
 369                 if (    (view == VIEW_CALENDAR) ||
 370                         (view == VIEW_TASKS) ||
 371                         (view == VIEW_ADDRESSBOOK) ||
 372                         (view == VIEW_NOTES) ||
 373                         (view == VIEW_JOURNAL) ||
 374                         (view == VIEW_WIKI)
 375                 ) {
 376                         is_groupware_collection = 1;
 377                 }
 378                 else {
 379                         is_groupware_collection = 0;
 380                 }
 381
 382                 if ( (is_groupware_collection) && ((starting_point + WCC->Hdr->HR.dav_depth) >= 2) ) {
 383                         wc_printf("<response>");
 384
 385                         wc_printf("<href>");
 386                         dav_identify_host();
 387                         wc_printf("/groupdav/");
 388                         urlescputs(roomname);
 389                         wc_printf("/</href>");
 390
 391                         wc_printf("<propstat>");
 392                         wc_printf("<status>HTTP/1.1 200 OK</status>");
 393                         wc_printf("<prop>");
 394                         wc_printf("<displayname>");
 395                         escputs(roomname);
 396                         wc_printf("</displayname>");
 397                         wc_printf("<resourcetype><collection/>");
 398
 399                         switch(view) {
 400                         case VIEW_CALENDAR:
 401                                 wc_printf("<G:vevent-collection />");
 402                                 break;
 403                         case VIEW_TASKS:
 404                                 wc_printf("<G:vtodo-collection />");
 405                                 break;
 406                         case VIEW_ADDRESSBOOK:
 407                                 wc_printf("<G:vcard-collection />");
 408                                 break;
 409                         case VIEW_NOTES:
 410                                 wc_printf("<G:vnotes-collection />");
 411                                 break;
 412                         case VIEW_JOURNAL:
 413                                 wc_printf("<G:vjournal-collection />");
 414                                 break;
 415                         case VIEW_WIKI:
 416                                 wc_printf("<G:wiki-collection />");
 417                                 break;
 418                         }
 419
 420                         wc_printf("</resourcetype>");
 421                         wc_printf("<getlastmodified>");
 422                                 escputs(datestring);
 423                         wc_printf("</getlastmodified>");
 424                         wc_printf("</prop>");
 425                         wc_printf("</propstat>");
 426                         wc_printf("</response>");
 427                 }
 428         }
 429         wc_printf("</multistatus>\n");
 430
 431         end_burst();
 432 }
 433
 434
 435
 436 /*
 437  * The pathname is always going to be /groupdav/room_name/msg_num
 438  */
 439 void dav_propfind(void)
 440 {
 441         wcsession *WCC = WC;
 442         StrBuf *dav_roomname;
 443         StrBuf *dav_uid;
 444         StrBuf *MsgNum;
 445         long BufLen;
 446         long dav_msgnum = (-1);
 447         char uid[256];
 448         char encoded_uid[256];
 449         long *msgs = NULL;
 450         int num_msgs = 0;
 451         int i;
 452         char datestring[256];
 453         time_t now;
 454
 455         now = time(NULL);
 456         http_datestring(datestring, sizeof datestring, now);
 457
 458         dav_roomname = NewStrBuf();
 459         dav_uid = NewStrBuf();
 460         StrBufExtract_token(dav_roomname, WCC->Hdr->HR.ReqLine, 0, '/');
 461         StrBufExtract_token(dav_uid, WCC->Hdr->HR.ReqLine, 1, '/');
 462
 463         /*
 464          * If the room name is blank, the client is requesting a
 465          * folder list.
 466          */
 467         if (StrLength(dav_roomname) == 0) {
 468                 dav_collection_list();
 469                 FreeStrBuf(&dav_roomname);
 470                 FreeStrBuf(&dav_uid);
 471                 return;
 472         }
 473
 474         /* Go to the correct room. */
 475         if (strcasecmp(ChrPtr(WCC->CurRoom.name), ChrPtr(dav_roomname))) {
 476                 gotoroom(dav_roomname);
 477         }
 478         if (strcasecmp(ChrPtr(WCC->CurRoom.name), ChrPtr(dav_roomname))) {
 479                 hprintf("HTTP/1.1 404 not found\r\n");
 480                 dav_common_headers();
 481                 hprintf("Date: %s\r\n", datestring);
 482                 hprintf("Content-Type: text/plain\r\n");
 483                 wc_printf("There is no folder called \"%s\" on this server.\r\n",
 484                         ChrPtr(dav_roomname)
 485                 );
 486                 end_burst();
 487                 FreeStrBuf(&dav_roomname);
 488                 FreeStrBuf(&dav_uid);
 489                 return;
 490         }
 491
 492         /* If dav_uid is non-empty, client is requesting a PROPFIND on
 493          * a specific item in the room.  This is not valid GroupDAV, but
 494          * it is valid WebDAV.
 495          */
 496         if (StrLength(dav_uid) != 0) {
 497
 498                 dav_msgnum = locate_message_by_uid(ChrPtr(dav_uid));
 499                 if (dav_msgnum < 0) {
 500                         hprintf("HTTP/1.1 404 not found\r\n");
 501                         dav_common_headers();
 502                         hprintf("Content-Type: text/plain\r\n");
 503                         wc_printf("Object \"%s\" was not found in the \"%s\" folder.\r\n",
 504                                 ChrPtr(dav_uid),
 505                                 ChrPtr(dav_roomname)
 506                         );
 507                         end_burst();
 508                         FreeStrBuf(&dav_roomname);
 509                         FreeStrBuf(&dav_uid);
 510                         return;
 511                 }
 512
 513                 /* Be rude.  Completely ignore the XML request and simply send them
 514                  * everything we know about (which is going to simply be the ETag and
 515                  * nothing else).  Let the client-side parser sort it out.
 516                  */
 517                 hprintf("HTTP/1.0 207 Multi-Status\r\n");
 518                 dav_common_headers();
 519                 hprintf("Date: %s\r\n", datestring);
 520                 hprintf("Content-type: text/xml\r\n");
 521                 if (DisableGzip || (!WCC->Hdr->HR.gzip_ok))
 522                         hprintf("Content-encoding: identity\r\n");
 523
 524                 begin_burst();
 525
 526                 wc_printf("<?xml version=\"1.0\" encoding=\"utf-8\"?>"
 527                         "<multistatus xmlns=\"DAV:\">"
 528                 );
 529
 530                 wc_printf("<response>");
 531
 532                 wc_printf("<href>");
 533                 dav_identify_host();
 534                 wc_printf("/groupdav/");
 535                 urlescputs(ChrPtr(WCC->CurRoom.name));
 536                 euid_escapize(encoded_uid, ChrPtr(dav_uid));
 537                 wc_printf("/%s", encoded_uid);
 538                 wc_printf("</href>");
 539                 wc_printf("<propstat>");
 540                 wc_printf("<status>HTTP/1.1 200 OK</status>");
 541                 wc_printf("<prop>");
 542                 wc_printf("<getetag>\"%ld\"</getetag>", dav_msgnum);
 543                 wc_printf("<getlastmodified>");
 544                 escputs(datestring);
 545                 wc_printf("</getlastmodified>");
 546                 wc_printf("</prop>");
 547                 wc_printf("</propstat>");
 548
 549                 wc_printf("</response>\n");
 550                 wc_printf("</multistatus>\n");
 551                 end_burst();
 552                 FreeStrBuf(&dav_roomname);
 553                 FreeStrBuf(&dav_uid);
 554                 return;
 555         }
 556         FreeStrBuf(&dav_roomname);
 557         FreeStrBuf(&dav_uid);
 558
 559
 560         /*
 561          * We got to this point, which means that the client is requesting
 562          * a 'collection' (i.e. a list of all items in the room).
 563          *
 564          * Be rude.  Completely ignore the XML request and simply send them
 565          * everything we know about (which is going to simply be the ETag and
 566          * nothing else).  Let the client-side parser sort it out.
 567          */
 568         hprintf("HTTP/1.0 207 Multi-Status\r\n");
 569         dav_common_headers();
 570         hprintf("Date: %s\r\n", datestring);
 571         hprintf("Content-type: text/xml\r\n");
 572         if (DisableGzip || (!WCC->Hdr->HR.gzip_ok))
 573                 hprintf("Content-encoding: identity\r\n");
 574
 575         begin_burst();
 576
 577         wc_printf("<?xml version=\"1.0\" encoding=\"utf-8\"?>"
 578                 "<multistatus xmlns=\"DAV:\" xmlns:G=\"http://groupdav.org/\">"
 579         );
 580
 581
 582         /* Transmit the collection resource (FIXME check depth and starting point) */
 583         wc_printf("<response>");
 584
 585         wc_printf("<href>");
 586         dav_identify_host();
 587         wc_printf("/groupdav/");
 588         urlescputs(ChrPtr(WCC->CurRoom.name));
 589         wc_printf("</href>");
 590
 591         wc_printf("<propstat>");
 592         wc_printf("<status>HTTP/1.1 200 OK</status>");
 593         wc_printf("<prop>");
 594         wc_printf("<displayname>");
 595         escputs(ChrPtr(WCC->CurRoom.name));
 596         wc_printf("</displayname>");
 597         wc_printf("<resourcetype><collection/>");
 598
 599         switch(WCC->CurRoom.defview) {
 600                 case VIEW_CALENDAR:
 601                         wc_printf("<G:vevent-collection />");
 602                         break;
 603                 case VIEW_TASKS:
 604                         wc_printf("<G:vtodo-collection />");
 605                         break;
 606                 case VIEW_ADDRESSBOOK:
 607                         wc_printf("<G:vcard-collection />");
 608                         break;
 609         }
 610
 611         wc_printf("</resourcetype>");
 612         /* FIXME get the mtime
 613         wc_printf("<getlastmodified>");
 614                 escputs(datestring);
 615         wc_printf("</getlastmodified>");
 616         */
 617         wc_printf("</prop>");
 618         wc_printf("</propstat>");
 619         wc_printf("</response>");
 620
 621         /* Transmit the collection listing (FIXME check depth and starting point) */
 622
 623         MsgNum = NewStrBuf();
 624         serv_puts("MSGS ALL");
 625
 626         StrBuf_ServGetln(MsgNum);
 627         if (GetServerStatus(MsgNum, NULL) == 1)
 628                 while (BufLen = StrBuf_ServGetln(MsgNum),
 629                        ((BufLen >= 0) &&
 630                         ((BufLen != 3) || strcmp(ChrPtr(MsgNum), "000"))  ))
 631                 {
 632                         msgs = realloc(msgs, ++num_msgs * sizeof(long));
 633                         msgs[num_msgs-1] = StrTol(MsgNum);
 634                 }
 635
 636         if (num_msgs > 0) for (i=0; i<num_msgs; ++i) {
 637
 638                 strcpy(uid, "");
 639                 now = (-1);
 640                 serv_printf("MSG0 %ld|3", msgs[i]);
 641                 StrBuf_ServGetln(MsgNum);
 642                 if (GetServerStatus(MsgNum, NULL) == 1)
 643                         while (BufLen = StrBuf_ServGetln(MsgNum),
 644                                ((BufLen >= 0) &&
 645                                 ((BufLen != 3) || strcmp(ChrPtr(MsgNum), "000")) ))
 646                         {
 647                                 if (!strncasecmp(ChrPtr(MsgNum), "exti=", 5)) {
 648                                         strcpy(uid, &ChrPtr(MsgNum)[5]);
 649                                 }
 650                                 else if (!strncasecmp(ChrPtr(MsgNum), "time=", 5)) {
 651                                         now = atol(&ChrPtr(MsgNum)[5]);
 652                         }
 653                 }
 654
 655                 if (!IsEmptyStr(uid)) {
 656                         wc_printf("<response>");
 657                                 wc_printf("<href>");
 658                                         dav_identify_host();
 659                                         wc_printf("/groupdav/");
 660                                         urlescputs(ChrPtr(WCC->CurRoom.name));
 661                                         euid_escapize(encoded_uid, uid);
 662                                         wc_printf("/%s", encoded_uid);
 663                                 wc_printf("</href>");
 664                                 switch(WCC->CurRoom.defview) {
 665                                 case VIEW_CALENDAR:
 666                                         wc_printf("<getcontenttype>text/x-ical</getcontenttype>");
 667                                         break;
 668                                 case VIEW_TASKS:
 669                                         wc_printf("<getcontenttype>text/x-ical</getcontenttype>");
 670                                         break;
 671                                 case VIEW_ADDRESSBOOK:
 672                                         wc_printf("<getcontenttype>text/x-vcard</getcontenttype>");
 673                                         break;
 674                                 }
 675                                 wc_printf("<propstat>");
 676                                         wc_printf("<status>HTTP/1.1 200 OK</status>");
 677                                         wc_printf("<prop>");
 678                                                 wc_printf("<getetag>\"%ld\"</getetag>", msgs[i]);
 679                                         if (now > 0L) {
 680                                                 http_datestring(datestring, sizeof datestring, now);
 681                                                 wc_printf("<getlastmodified>");
 682                                                 escputs(datestring);
 683                                                 wc_printf("</getlastmodified>");
 684                                         }
 685                                         wc_printf("</prop>");
 686                                 wc_printf("</propstat>");
 687                         wc_printf("</response>");
 688                 }
 689         }
 690         FreeStrBuf(&MsgNum);
 691
 692         wc_printf("</multistatus>\n");
 693         end_burst();
 694
 695         if (msgs != NULL) {
 696                 free(msgs);
 697         }
 698 }
 699
 700
 701
 702 int ParseMessageListHeaders_EUID(StrBuf *Line,
 703                                  const char **pos,
 704                                  message_summary *Msg,
 705                                  StrBuf *ConversionBuffer)
 706 {
 707         Msg->euid = NewStrBuf();
 708         StrBufExtract_NextToken(Msg->euid,  Line, pos, '|');
 709         Msg->date = StrBufExtractNext_long(Line, pos, '|');
 710
 711         return StrLength(Msg->euid) > 0;
 712 }
 713
 714 int DavUIDL_GetParamsGetServerCall(SharedMessageStatus *Stat,
 715                                     void **ViewSpecific,
 716                                     long oper,
 717                                     char *cmd,
 718                                     long len)
 719 {
 720         Stat->defaultsortorder = 0;
 721         Stat->sortit = 0;
 722         Stat->load_seen = 0;
 723         Stat->maxmsgs  = 9999999;
 724
 725         snprintf(cmd, len, "MSGS ALL|||2");
 726         return 200;
 727 }
 728
 729 int DavUIDL_RenderView_or_Tail(SharedMessageStatus *Stat,
 730                                 void **ViewSpecific,
 731                                 long oper)
 732 {
 733
 734         DoTemplate(HKEY("msg_listview"),NULL,&NoCtx);
 735
 736         return 0;
 737 }
 738
 739 int DavUIDL_Cleanup(void **ViewSpecific)
 740 {
 741         /* Note: wDumpContent() will output one additional </div> tag. */
 742         /* We ought to move this out into template */
 743         wDumpContent(1);
 744
 745         return 0;
 746 }
 747
 748
 749
 750
 751 void
 752 InitModule_PROPFIND
 753 (void)
 754 {
 755         RegisterReadLoopHandlerset(
 756                 eReadEUIDS,
 757                 DavUIDL_GetParamsGetServerCall,
 758                 NULL, /// TODO: is this right?
 759                 ParseMessageListHeaders_EUID,
 760                 NULL, //// ""
 761                 DavUIDL_RenderView_or_Tail,
 762                 DavUIDL_Cleanup);
 763
 764 }