citadel/modules/rssclient/serv_rssclient.c

   1 /*
   2  * Bring external RSS feeds into rooms.
   3  *
   4  * Copyright (c) 2007-2016 by the citadel.org team
   5  *
   6  * This program is open source software; you can redistribute it and/or modify
   7  * it under the terms of the GNU General Public License version 3.
   8  *
   9  * This program is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.See the
  12  * GNU General Public License for more details.
  13  */
  14
  15 #include <stdlib.h>
  16 #include <unistd.h>
  17 #include <stdio.h>
  18
  19 #if TIME_WITH_SYS_TIME
  20 # include <sys/time.h>
  21 # include <time.h>
  22 #else
  23 # if HAVE_SYS_TIME_H
  24 #include <sys/time.h>
  25 # else
  26 #include <time.h>
  27 # endif
  28 #endif
  29
  30 #include <ctype.h>
  31 #include <string.h>
  32 #include <errno.h>
  33 #include <sys/types.h>
  34 #include <sys/stat.h>
  35 #include <expat.h>
  36 #include <curl/curl.h>
  37 #include <libcitadel.h>
  38 #include "citadel.h"
  39 #include "server.h"
  40 #include "citserver.h"
  41 #include "support.h"
  42 #include "config.h"
  43 #include "threads.h"
  44 #include "ctdl_module.h"
  45 #include "msgbase.h"
  46 #include "parsedate.h"
  47 #include "database.h"
  48 #include "citadel_dirs.h"
  49 #include "md5.h"
  50 #include "context.h"
  51 #include "event_client.h"
  52 #include "rss_atom_parser.h"
  53
  54
  55 #define TMP_MSGDATA 0xFF
  56 #define TMP_SHORTER_URL_OFFSET 0xFE
  57 #define TMP_SHORTER_URLS 0xFD
  58
  59 time_t last_run = 0L;
  60
  61 pthread_mutex_t RSSQueueMutex; /* locks the access to the following vars: */
  62 HashList *RSSQueueRooms = NULL; /* rss_room_counter */
  63 HashList *RSSFetchUrls = NULL; /*->rss_aggregator;->RefCount access locked*/
  64
  65 eNextState RSSAggregator_Terminate(AsyncIO *IO);
  66 eNextState RSSAggregator_TerminateDB(AsyncIO *IO);
  67 eNextState RSSAggregator_ShutdownAbort(AsyncIO *IO);
  68 struct CitContext rss_CC;
  69
  70 struct rssnetcfg *rnclist = NULL;
  71 int RSSClientDebugEnabled = 0;
  72 #define N ((rss_aggregator*)IO->Data)->Cfg.QRnumber
  73
  74 #define DBGLOG(LEVEL) if ((LEVEL != LOG_DEBUG) || (RSSClientDebugEnabled != 0))
  75
  76 #define EVRSSC_syslog(LEVEL, FORMAT, ...)                               \
  77         DBGLOG(LEVEL) syslog(LEVEL,                                     \
  78                              "%s[%ld]CC[%d][%ld]RSS" FORMAT,            \
  79                              IOSTR, IO->ID, CCID, N, __VA_ARGS__)
  80
  81 #define EVRSSCM_syslog(LEVEL, FORMAT)                                   \
  82         DBGLOG(LEVEL) syslog(LEVEL,                                     \
  83                              "%s[%ld]CC[%d][%ld]RSS" FORMAT,            \
  84                              IOSTR, IO->ID, CCID, N)
  85
  86 #define EVRSSQ_syslog(LEVEL, FORMAT, ...)                               \
  87         DBGLOG(LEVEL) syslog(LEVEL, "RSS" FORMAT,                       \
  88                              __VA_ARGS__)
  89 #define EVRSSQM_syslog(LEVEL, FORMAT)                   \
  90         DBGLOG(LEVEL) syslog(LEVEL, "RSS" FORMAT)
  91
  92 #define EVRSSCSM_syslog(LEVEL, FORMAT)                                  \
  93         DBGLOG(LEVEL) syslog(LEVEL, "%s[%ld][%ld]RSS" FORMAT,           \
  94                              IOSTR, IO->ID, N)
  95
  96 typedef enum _RSSState {
  97         eRSSCreated,
  98         eRSSFetching,
  99         eRSSFailure,
 100         eRSSParsing,
 101         eRSSUT
 102 } RSSState;
 103 ConstStr RSSStates[] = {
 104         {HKEY("Aggregator created")},
 105         {HKEY("Fetching content")},
 106         {HKEY("Failed")},
 107         {HKEY("parsing content")},
 108         {HKEY("checking usetable")}
 109 };
 110
 111
 112 static size_t GetLocationString( void *ptr, size_t size, size_t nmemb, void *userdata)
 113 {
 114 #define LOCATION "location"
 115         if (strncasecmp((char*)ptr, LOCATION, sizeof(LOCATION) - 1) == 0)
 116         {
 117                 AsyncIO *IO = (AsyncIO *) userdata;
 118                 rss_aggregator *RSSAggr = (rss_aggregator *)IO->Data;
 119
 120                 char *pch = (char*) ptr;
 121                 char *pche;
 122
 123                 pche = pch + (size * nmemb);
 124                 pch += sizeof(LOCATION);
 125
 126                 while (isspace(*pch) || (*pch == ':'))
 127                         pch ++;
 128
 129                 while (isspace(*pche) || (*pche == '\0'))
 130                         pche--;
 131                 if (RSSAggr->RedirectUrl == NULL) {
 132                         RSSAggr->RedirectUrl = NewStrBufPlain(pch, pche - pch + 1);
 133                 }
 134                 else {
 135                         FlushStrBuf(RSSAggr->RedirectUrl);
 136                         StrBufPlain(RSSAggr->RedirectUrl, pch, pche - pch + 1);
 137                 }
 138         }
 139         return size * nmemb;
 140 }
 141
 142
 143 static void SetRSSState(AsyncIO *IO, RSSState State)
 144 {
 145         CitContext* CCC = IO->CitContext;
 146         if (CCC != NULL) {
 147                 memcpy(CCC->cs_clientname, RSSStates[State].Key, RSSStates[State].len + 1);
 148         }
 149 }
 150
 151
 152 void DeleteRoomReference(long QRnumber)
 153 {
 154         HashPos *At;
 155         long HKLen;
 156         const char *HK;
 157         void *vData = NULL;
 158         rss_room_counter *pRoomC;
 159
 160         At = GetNewHashPos(RSSQueueRooms, 0);
 161
 162         if (GetHashPosFromKey(RSSQueueRooms, LKEY(QRnumber), At))
 163         {
 164                 GetHashPos(RSSQueueRooms, At, &HKLen, &HK, &vData);
 165                 if (vData != NULL)
 166                 {
 167                         pRoomC = (rss_room_counter *) vData;
 168                         pRoomC->count --;
 169                         if (pRoomC->count == 0)
 170                                 DeleteEntryFromHash(RSSQueueRooms, At);
 171                 }
 172         }
 173         DeleteHashPos(&At);
 174 }
 175
 176 void UnlinkRooms(rss_aggregator *RSSAggr)
 177 {
 178         DeleteRoomReference(RSSAggr->Cfg.QRnumber);
 179         if (RSSAggr->OtherQRnumbers != NULL)
 180         {
 181                 long HKLen;
 182                 const char *HK;
 183                 HashPos *At;
 184                 void *vData;
 185
 186                 At = GetNewHashPos(RSSAggr->OtherQRnumbers, 0);
 187                 while (! server_shutting_down &&
 188                        GetNextHashPos(RSSAggr->OtherQRnumbers,
 189                                       At,
 190                                       &HKLen, &HK,
 191                                       &vData) &&
 192                        (vData != NULL))
 193                 {
 194                         pRSSConfig *Data = (pRSSConfig*) vData;
 195                         DeleteRoomReference(Data->QRnumber);
 196                 }
 197
 198                 DeleteHashPos(&At);
 199         }
 200 }
 201
 202 void UnlinkRSSAggregator(rss_aggregator *RSSAggr)
 203 {
 204         HashPos *At;
 205
 206         pthread_mutex_lock(&RSSQueueMutex);
 207         UnlinkRooms(RSSAggr);
 208
 209         At = GetNewHashPos(RSSFetchUrls, 0);
 210         if (GetHashPosFromKey(RSSFetchUrls, SKEY(RSSAggr->Url), At))
 211         {
 212                 DeleteEntryFromHash(RSSFetchUrls, At);
 213         }
 214         DeleteHashPos(&At);
 215         last_run = time(NULL);
 216         pthread_mutex_unlock(&RSSQueueMutex);
 217 }
 218
 219 void DeleteRssCfg(void *vptr)
 220 {
 221         rss_aggregator *RSSAggr = (rss_aggregator *)vptr;
 222         AsyncIO *IO = &RSSAggr->IO;
 223
 224         if (IO->CitContext != NULL) {
 225                 EVRSSCM_syslog(LOG_DEBUG, "RSS: destroying");
 226         }
 227
 228         FreeStrBuf(&RSSAggr->Url);
 229         FreeStrBuf(&RSSAggr->RedirectUrl);
 230         FreeStrBuf(&RSSAggr->rooms);
 231         FreeStrBuf(&RSSAggr->CData);
 232         FreeStrBuf(&RSSAggr->Key);
 233         DeleteHash(&RSSAggr->OtherQRnumbers);
 234
 235         DeleteHashPos (&RSSAggr->Pos);
 236         DeleteHash (&RSSAggr->Messages);
 237         if (RSSAggr->recp.recp_room != NULL)
 238                 free(RSSAggr->recp.recp_room);
 239
 240
 241         if (RSSAggr->Item != NULL)
 242         {
 243                 flush_rss_item(RSSAggr->Item);
 244
 245                 free(RSSAggr->Item);
 246         }
 247
 248         FreeAsyncIOContents(&RSSAggr->IO);
 249         memset(RSSAggr, 0, sizeof(rss_aggregator));
 250         free(RSSAggr);
 251 }
 252
 253 eNextState RSSAggregator_Terminate(AsyncIO *IO)
 254 {
 255         rss_aggregator *RSSAggr = (rss_aggregator *)IO->Data;
 256
 257         EVRSSCM_syslog(LOG_DEBUG, "RSS: Terminating.");
 258
 259         StopCurlWatchers(IO);
 260         UnlinkRSSAggregator(RSSAggr);
 261         return eAbort;
 262 }
 263
 264 eNextState RSSAggregator_TerminateDB(AsyncIO *IO)
 265 {
 266         rss_aggregator *RSSAggr = (rss_aggregator *)IO->Data;
 267
 268         EVRSSCM_syslog(LOG_DEBUG, "RSS: Terminating.");
 269
 270
 271         StopDBWatchers(&RSSAggr->IO);
 272         UnlinkRSSAggregator(RSSAggr);
 273         return eAbort;
 274 }
 275
 276 eNextState RSSAggregator_ShutdownAbort(AsyncIO *IO)
 277 {
 278         const char *pUrl;
 279         rss_aggregator *RSSAggr = (rss_aggregator *)IO->Data;
 280
 281         pUrl = IO->ConnectMe->PlainUrl;
 282         if (pUrl == NULL)
 283                 pUrl = "";
 284
 285         EVRSSC_syslog(LOG_DEBUG, "RSS: Aborting by shutdown: %s.", pUrl);
 286
 287         StopCurlWatchers(IO);
 288         UnlinkRSSAggregator(RSSAggr);
 289         return eAbort;
 290 }
 291
 292 void AppendLink(StrBuf *Message,
 293                 StrBuf *link,
 294                 StrBuf *LinkTitle,
 295                 const char *Title)
 296 {
 297         if (StrLength(link) > 0)
 298         {
 299                 StrBufAppendBufPlain(Message, HKEY("<a href=\""), 0);
 300                 StrBufAppendBuf(Message, link, 0);
 301                 StrBufAppendBufPlain(Message, HKEY("\">"), 0);
 302                 if (StrLength(LinkTitle) > 0)
 303                         StrBufAppendBuf(Message, LinkTitle, 0);
 304                 else if ((Title != NULL) && !IsEmptyStr(Title))
 305                         StrBufAppendBufPlain(Message, Title, -1, 0);
 306                 else
 307                         StrBufAppendBuf(Message, link, 0);
 308                 StrBufAppendBufPlain(Message, HKEY("</a><br>\n"), 0);
 309         }
 310 }
 311
 312
 313 int rss_format_item(AsyncIO *IO, networker_save_message *SaveMsg)
 314 {
 315         StrBuf *Message;
 316         int msglen = 0;
 317
 318         if (StrLength(SaveMsg->description) +
 319             StrLength(SaveMsg->link) +
 320             StrLength(SaveMsg->linkTitle) +
 321             StrLength(SaveMsg->reLink) +
 322             StrLength(SaveMsg->reLinkTitle) +
 323             StrLength(SaveMsg->title) == 0)
 324         {
 325                 EVRSSCM_syslog(LOG_INFO, "Refusing to save empty message.");
 326                 return 0;
 327         }
 328
 329         CM_Flush(&SaveMsg->Msg);
 330
 331         if (SaveMsg->author_or_creator != NULL) {
 332
 333                 char *From;
 334                 StrBuf *Encoded = NULL;
 335                 int FromAt;
 336
 337                 From = html_to_ascii(ChrPtr(SaveMsg->author_or_creator),
 338                                      StrLength(SaveMsg->author_or_creator),
 339                                      512, 0);
 340                 StrBufPlain(SaveMsg->author_or_creator, From, -1);
 341                 StrBufTrim(SaveMsg->author_or_creator);
 342                 free(From);
 343
 344                 FromAt = strchr(ChrPtr(SaveMsg->author_or_creator), '@') != NULL;
 345                 if (!FromAt && StrLength (SaveMsg->author_email) > 0)
 346                 {
 347                         StrBufRFC2047encode(&Encoded, SaveMsg->author_or_creator);
 348                         CM_SetAsFieldSB(&SaveMsg->Msg, eAuthor, &Encoded);
 349                         CM_SetAsFieldSB(&SaveMsg->Msg, eMessagePath, &SaveMsg->author_email);
 350                 }
 351                 else
 352                 {
 353                         if (FromAt)
 354                         {
 355                                 CM_SetAsFieldSB(&SaveMsg->Msg, eAuthor, &SaveMsg->author_or_creator);
 356                                 CM_CopyField(&SaveMsg->Msg, eMessagePath, eAuthor);
 357                         }
 358                         else
 359                         {
 360                                 StrBufRFC2047encode(&Encoded,
 361                                                     SaveMsg->author_or_creator);
 362                                 CM_SetAsFieldSB(&SaveMsg->Msg, eAuthor, &Encoded);
 363                                 CM_SetField(&SaveMsg->Msg, eMessagePath, HKEY("rss@localhost"));
 364
 365                         }
 366                 }
 367         }
 368         else {
 369                 CM_SetField(&SaveMsg->Msg, eAuthor, HKEY("rss"));
 370         }
 371
 372         CM_SetField(&SaveMsg->Msg, eNodeName, CtdlGetConfigStr("c_nodename"), strlen(CtdlGetConfigStr("c_nodename")));
 373         if (SaveMsg->title != NULL) {
 374                 long len;
 375                 char *Sbj;
 376                 StrBuf *Encoded, *QPEncoded;
 377
 378                 QPEncoded = NULL;
 379                 StrBufSpaceToBlank(SaveMsg->title);
 380                 len = StrLength(SaveMsg->title);
 381                 Sbj = html_to_ascii(ChrPtr(SaveMsg->title), len, 512, 0);
 382                 if (!IsEmptyStr(Sbj)) {
 383                         len = strlen(Sbj);
 384                         if ((Sbj[len - 1] == '\n'))
 385                         {
 386                                 len --;
 387                                 Sbj[len] = '\0';
 388                         }
 389                         Encoded = NewStrBufPlain(Sbj, len);
 390
 391
 392                         StrBufTrim(Encoded);
 393                         StrBufRFC2047encode(&QPEncoded, Encoded);
 394
 395                         CM_SetAsFieldSB(&SaveMsg->Msg, eMsgSubject, &QPEncoded);
 396                         FreeStrBuf(&Encoded);
 397                 }
 398                 if (Sbj != NULL) {
 399                         free(Sbj);
 400                 }
 401         }
 402         if (SaveMsg->link == NULL)
 403                 SaveMsg->link = NewStrBufPlain(HKEY(""));
 404
 405 #if 0 /* temporarily disable shorter urls. */
 406         SaveMsg->Msg.cm_fields[TMP_SHORTER_URLS] =
 407                 GetShorterUrls(SaveMsg->description);
 408 #endif
 409
 410         msglen += 1024 + StrLength(SaveMsg->link) + StrLength(SaveMsg->description) ;
 411
 412         Message = NewStrBufPlain(NULL, msglen);
 413
 414         StrBufPlain(Message, HKEY(
 415                             "Content-type: text/html; charset=\"UTF-8\"\r\n\r\n"
 416                             "<html><body>\n"));
 417 #if 0 /* disable shorter url for now. */
 418         SaveMsg->Msg.cm_fields[TMP_SHORTER_URL_OFFSET] = StrLength(Message);
 419 #endif
 420         StrBufAppendBuf(Message, SaveMsg->description, 0);
 421         StrBufAppendBufPlain(Message, HKEY("<br><br>\n"), 0);
 422
 423         AppendLink(Message, SaveMsg->link, SaveMsg->linkTitle, NULL);
 424         AppendLink(Message, SaveMsg->reLink, SaveMsg->reLinkTitle, "Reply to this");
 425         StrBufAppendBufPlain(Message, HKEY("</body></html>\n"), 0);
 426
 427         SaveMsg->Message = Message;
 428         return 1;
 429 }
 430
 431 eNextState RSSSaveMessage(AsyncIO *IO)
 432 {
 433         long len;
 434         const char *Key;
 435         rss_aggregator *RSSAggr = (rss_aggregator *) IO->Data;
 436
 437         if (rss_format_item(IO, RSSAggr->ThisMsg))
 438         {
 439                 CM_SetAsFieldSB(&RSSAggr->ThisMsg->Msg, eMesageText, &RSSAggr->ThisMsg->Message);
 440                 CtdlSubmitMsg(&RSSAggr->ThisMsg->Msg, &RSSAggr->recp, NULL, 0);
 441
 442                 /* write the uidl to the use table so we don't store this item again */
 443                 CheckIfAlreadySeen("RSS Item Insert", RSSAggr->ThisMsg->MsgGUID, EvGetNow(IO), 0, eWrite, CCID, IO->ID);
 444         }
 445
 446         if (GetNextHashPos(RSSAggr->Messages,
 447                            RSSAggr->Pos,
 448                            &len, &Key,
 449                            (void**) &RSSAggr->ThisMsg))
 450                 return NextDBOperation(IO, RSS_FetchNetworkUsetableEntry);
 451         else
 452                 return eAbort;
 453 }
 454
 455 eNextState RSS_FetchNetworkUsetableEntry(AsyncIO *IO)
 456 {
 457         static const time_t antiExpire = USETABLE_ANTIEXPIRE_HIRES;
 458 #ifndef DEBUG_RSS
 459         time_t seenstamp = 0;
 460         const char *Key;
 461         long len;
 462         rss_aggregator *Ctx = (rss_aggregator *) IO->Data;
 463
 464         /* Find out if we've already seen this item */
 465 // todo: expiry?
 466         SetRSSState(IO, eRSSUT);
 467         seenstamp = CheckIfAlreadySeen("RSS Item Seen",
 468                                        Ctx->ThisMsg->MsgGUID,
 469                                        EvGetNow(IO),
 470                                        antiExpire,
 471                                        eCheckUpdate,
 472                                        CCID, IO->ID);
 473         if (seenstamp != 0)
 474         {
 475                 /* Item has already been seen */
 476                 EVRSSC_syslog(LOG_DEBUG,
 477                               "%s has already been seen - %ld < %ld",
 478                               ChrPtr(Ctx->ThisMsg->MsgGUID),
 479                               seenstamp, antiExpire);
 480
 481                 SetRSSState(IO, eRSSParsing);
 482
 483                 if (GetNextHashPos(Ctx->Messages,
 484                                    Ctx->Pos,
 485                                    &len, &Key,
 486                                    (void**) &Ctx->ThisMsg))
 487                         return NextDBOperation(
 488                                 IO,
 489                                 RSS_FetchNetworkUsetableEntry);
 490                 else
 491                         return eAbort;
 492         }
 493         else
 494 #endif
 495         {
 496                 /* Item has already been seen */
 497                 EVRSSC_syslog(LOG_DEBUG,
 498                               "%s Parsing - %ld >= %ld",
 499                               ChrPtr(Ctx->ThisMsg->MsgGUID),
 500                               seenstamp, antiExpire);
 501                 SetRSSState(IO, eRSSParsing);
 502
 503                 NextDBOperation(IO, RSSSaveMessage);
 504                 return eSendMore;
 505         }
 506         return eSendMore;
 507 }
 508
 509 void UpdateLastKnownGood(pRSSConfig *pCfg, time_t now)
 510 {
 511         OneRoomNetCfg *pRNCfg;
 512         begin_critical_section(S_NETCONFIGS);
 513         pRNCfg = CtdlGetNetCfgForRoom(pCfg->QRnumber);
 514         if (pRNCfg != NULL)
 515         {
 516                 RSSCfgLine *RSSCfg = (RSSCfgLine *)pRNCfg->NetConfigs[rssclient];
 517
 518                 while (RSSCfg != NULL)
 519                 {
 520                         if (RSSCfg == pCfg->pCfg)
 521                                 break;
 522
 523                         RSSCfg = RSSCfg->next;
 524                 }
 525                 if (RSSCfg != NULL)
 526                 {
 527                         RSSCfg->last_known_good = now;
 528                 }
 529         }
 530         SaveRoomNetConfigFile(pRNCfg, pCfg->QRnumber);
 531         FreeRoomNetworkStruct(&pRNCfg);
 532         end_critical_section(S_NETCONFIGS);
 533 }
 534
 535 eNextState RSSAggregator_AnalyseReply(AsyncIO *IO)
 536 {
 537         HashPos *it = NULL;
 538         long len;
 539         const char *Key;
 540         pRSSConfig *pCfg;
 541         u_char rawdigest[MD5_DIGEST_LEN];
 542         struct MD5Context md5context;
 543         StrBuf *guid;
 544         rss_aggregator *Ctx = (rss_aggregator *) IO->Data;
 545
 546
 547         if ((IO->HttpReq.httpcode >= 300) && (IO->HttpReq.httpcode < 400)  && (Ctx->RedirectUrl != NULL))
 548         {
 549                 StrBuf *ErrMsg;
 550                 long lens[2];
 551                 const char *strs[2];
 552
 553                 SetRSSState(IO, eRSSFailure);
 554                 ErrMsg = NewStrBuf();
 555                 if (IO) {
 556                         EVRSSC_syslog(LOG_INFO, "need a 200, got a %ld !",
 557                                       IO->HttpReq.httpcode);
 558                 }
 559                 strs[0] = ChrPtr(Ctx->Url);
 560                 lens[0] = StrLength(Ctx->Url);
 561
 562                 strs[1] = ChrPtr(Ctx->rooms);
 563                 lens[1] = StrLength(Ctx->rooms);
 564
 565                 if (IO->HttpReq.CurlError == NULL)
 566                         IO->HttpReq.CurlError = "";
 567
 568                 StrBufPrintf(ErrMsg,
 569                              "Error while RSS-Aggregation Run of %s\n"
 570                              " need a 200, got a %ld !\n"
 571                              " Curl Error message: \n%s / %s\n"
 572                              " Redirect header points to: %s\n"
 573                              " Response text was: \n"
 574                              " \n %s\n",
 575                              ChrPtr(Ctx->Url),
 576                              IO->HttpReq.httpcode,
 577                              IO->HttpReq.errdesc,
 578                              IO->HttpReq.CurlError,
 579                              ChrPtr(Ctx->RedirectUrl),
 580                              ChrPtr(IO->HttpReq.ReplyData)
 581                         );
 582
 583                 CtdlAideFPMessage(
 584                         ChrPtr(ErrMsg),
 585                         "RSS Aggregation run failure",
 586                         2, strs, (long*) &lens,
 587                         CCID,
 588                         IO->ID,
 589                         EvGetNow(IO));
 590
 591                 FreeStrBuf(&ErrMsg);
 592                 EVRSSC_syslog(LOG_DEBUG,
 593                               "RSS feed returned an invalid http status code. <%s><HTTP %ld>",
 594                               ChrPtr(Ctx->Url),
 595                               IO->HttpReq.httpcode);
 596                 return eAbort;
 597         }
 598         else if (IO->HttpReq.httpcode != 200)
 599         {
 600                 StrBuf *ErrMsg;
 601                 long lens[2];
 602                 const char *strs[2];
 603
 604                 SetRSSState(IO, eRSSFailure);
 605                 ErrMsg = NewStrBuf();
 606                 if (IO) {
 607                         EVRSSC_syslog(LOG_ALERT, "need a 200, got a %ld !",
 608                                       IO->HttpReq.httpcode);
 609                 }
 610                 strs[0] = ChrPtr(Ctx->Url);
 611                 lens[0] = StrLength(Ctx->Url);
 612
 613                 strs[1] = ChrPtr(Ctx->rooms);
 614                 lens[1] = StrLength(Ctx->rooms);
 615
 616                 if (IO->HttpReq.CurlError == NULL)
 617                         IO->HttpReq.CurlError = "";
 618
 619                 StrBufPrintf(ErrMsg,
 620                              "Error while RSS-Aggregation Run of %s\n"
 621                              " need a 200, got a %ld !\n"
 622                              " Curl Error message: \n%s / %s\n"
 623                              " Response text was: \n"
 624                              " \n %s\n",
 625                              ChrPtr(Ctx->Url),
 626                              IO->HttpReq.httpcode,
 627                              IO->HttpReq.errdesc,
 628                              IO->HttpReq.CurlError,
 629                              ChrPtr(IO->HttpReq.ReplyData)
 630                         );
 631
 632                 CtdlAideFPMessage(
 633                         ChrPtr(ErrMsg),
 634                         "RSS Aggregation run failure",
 635                         2, strs, (long*) &lens,
 636                         CCID,
 637                         IO->ID,
 638                         EvGetNow(IO));
 639
 640                 FreeStrBuf(&ErrMsg);
 641                 EVRSSC_syslog(LOG_DEBUG,
 642                               "RSS feed returned an invalid http status code. <%s><HTTP %ld>",
 643                               ChrPtr(Ctx->Url),
 644                               IO->HttpReq.httpcode);
 645                 return eAbort;
 646         }
 647
 648         pCfg = &Ctx->Cfg;
 649
 650         while (pCfg != NULL)
 651         {
 652                 UpdateLastKnownGood (pCfg, EvGetNow(IO));
 653                 if ((Ctx->roomlist_parts > 1) &&
 654                     (it == NULL))
 655                 {
 656                         it = GetNewHashPos(RSSFetchUrls, 0);
 657                 }
 658                 if (it != NULL)
 659                 {
 660                         void *vptr;
 661                         if (GetNextHashPos(Ctx->OtherQRnumbers, it, &len, &Key, &vptr))
 662                                 pCfg = vptr;
 663                         else
 664                                 pCfg = NULL;
 665                 }
 666                 else
 667                         pCfg = NULL;
 668         }
 669         DeleteHashPos (&it);
 670
 671         SetRSSState(IO, eRSSUT);
 672
 673         MD5Init(&md5context);
 674
 675         MD5Update(&md5context,
 676                   (const unsigned char*)SKEY(IO->HttpReq.ReplyData));
 677
 678         MD5Update(&md5context,
 679                   (const unsigned char*)SKEY(Ctx->Url));
 680
 681         MD5Final(rawdigest, &md5context);
 682         guid = NewStrBufPlain(NULL,
 683                               MD5_DIGEST_LEN * 2 + 12 /* _rss2ctdl*/);
 684         StrBufHexEscAppend(guid, NULL, rawdigest, MD5_DIGEST_LEN);
 685         StrBufAppendBufPlain(guid, HKEY("_rssFM"), 0);
 686         if (StrLength(guid) > 40)
 687                 StrBufCutAt(guid, 40, NULL);
 688         /* Find out if we've already seen this item */
 689
 690 #ifndef DEBUG_RSS
 691
 692         if (CheckIfAlreadySeen("RSS Whole",
 693                                guid,
 694                                EvGetNow(IO),
 695                                EvGetNow(IO) - USETABLE_ANTIEXPIRE,
 696                                eUpdate,
 697                                CCID, IO->ID)
 698             != 0)
 699         {
 700                 FreeStrBuf(&guid);
 701
 702                 EVRSSC_syslog(LOG_DEBUG, "RSS feed already seen. <%s>", ChrPtr(Ctx->Url));
 703                 return eAbort;
 704         }
 705         FreeStrBuf(&guid);
 706 #endif
 707         SetRSSState(IO, eRSSParsing);
 708         return RSSAggregator_ParseReply(IO);
 709 }
 710
 711 eNextState RSSAggregator_FinishHttp(AsyncIO *IO)
 712 {
 713         return CurlQueueDBOperation(IO, RSSAggregator_AnalyseReply);
 714 }
 715
 716 /*
 717  * Begin a feed parse
 718  */
 719 int rss_do_fetching(rss_aggregator *RSSAggr)
 720 {
 721         AsyncIO         *IO = &RSSAggr->IO;
 722         rss_item *ri;
 723         time_t now;
 724         CURLcode sta;
 725         CURL *chnd;
 726
 727
 728         now = time(NULL);
 729
 730         if ((RSSAggr->next_poll != 0) && (now < RSSAggr->next_poll))
 731                 return 0;
 732
 733         ri = (rss_item*) malloc(sizeof(rss_item));
 734         memset(ri, 0, sizeof(rss_item));
 735         RSSAggr->Item = ri;
 736
 737         if (! InitcURLIOStruct(&RSSAggr->IO,
 738                                RSSAggr,
 739                                "Citadel RSS Client",
 740                                RSSAggregator_FinishHttp,
 741                                RSSAggregator_Terminate,
 742                                RSSAggregator_TerminateDB,
 743                                RSSAggregator_ShutdownAbort))
 744         {
 745                 EVRSSCM_syslog(LOG_ALERT, "Unable to initialize libcurl.");
 746                 return 0;
 747         }
 748         chnd = IO->HttpReq.chnd;
 749         OPT(HEADERDATA, IO);
 750         OPT(HEADERFUNCTION, GetLocationString);
 751         SetRSSState(IO, eRSSCreated);
 752
 753         safestrncpy(((CitContext*)RSSAggr->IO.CitContext)->cs_host,
 754                     ChrPtr(RSSAggr->Url),
 755                     sizeof(((CitContext*)RSSAggr->IO.CitContext)->cs_host));
 756
 757         EVRSSC_syslog(LOG_DEBUG, "Fetching RSS feed <%s>", ChrPtr(RSSAggr->Url));
 758         ParseURL(&RSSAggr->IO.ConnectMe, RSSAggr->Url, 80);
 759         CurlPrepareURL(RSSAggr->IO.ConnectMe);
 760
 761         SetRSSState(IO, eRSSFetching);
 762         QueueCurlContext(&RSSAggr->IO);
 763         return 1;
 764 }
 765
 766 /*
 767  * Scan a room's netconfig to determine whether it is requesting any RSS feeds
 768  */
 769 void rssclient_scan_room(struct ctdlroom *qrbuf, void *data, OneRoomNetCfg *OneRNCFG)
 770 {
 771         const RSSCfgLine *RSSCfg = (RSSCfgLine *)OneRNCFG->NetConfigs[rssclient];
 772         rss_aggregator *RSSAggr = NULL;
 773         rss_aggregator *use_this_RSSAggr = NULL;
 774         void *vptr;
 775
 776         EVRSSQ_syslog(LOG_DEBUG, "rssclient_scan_room(%s)", qrbuf->QRname);
 777         pthread_mutex_lock(&RSSQueueMutex);
 778         if (GetHash(RSSQueueRooms, LKEY(qrbuf->QRnumber), &vptr))
 779         {
 780                 EVRSSQ_syslog(LOG_DEBUG,
 781                               "rssclient: [%ld] %s already in progress.",
 782                               qrbuf->QRnumber,
 783                               qrbuf->QRname);
 784                 pthread_mutex_unlock(&RSSQueueMutex);
 785                 return;
 786         }
 787         pthread_mutex_unlock(&RSSQueueMutex);
 788
 789         if (server_shutting_down) return;
 790
 791         while (RSSCfg != NULL)
 792         {
 793                 pthread_mutex_lock(&RSSQueueMutex);
 794                 GetHash(RSSFetchUrls, SKEY(RSSCfg->Url), &vptr);
 795
 796                 use_this_RSSAggr = (rss_aggregator *)vptr;
 797                 if (use_this_RSSAggr != NULL)
 798                 {
 799                         pRSSConfig *pRSSCfg;
 800
 801                         StrBufAppendBufPlain(use_this_RSSAggr->rooms, qrbuf->QRname, -1, 0);
 802                         if (use_this_RSSAggr->roomlist_parts==1)
 803                         {
 804                                 use_this_RSSAggr->OtherQRnumbers
 805                                         = NewHash(1, lFlathash);
 806                         }
 807
 808                         pRSSCfg = (pRSSConfig *) malloc(sizeof(pRSSConfig));
 809
 810                         pRSSCfg->QRnumber = qrbuf->QRnumber;
 811                         pRSSCfg->pCfg = RSSCfg;
 812
 813                         Put(use_this_RSSAggr->OtherQRnumbers,
 814                             LKEY(qrbuf->QRnumber),
 815                             pRSSCfg,
 816                             NULL);
 817                         use_this_RSSAggr->roomlist_parts++;
 818
 819                         pthread_mutex_unlock(&RSSQueueMutex);
 820
 821                         RSSCfg = RSSCfg->next;
 822                         continue;
 823                 }
 824                 pthread_mutex_unlock(&RSSQueueMutex);
 825
 826                 RSSAggr = (rss_aggregator *) malloc(
 827                         sizeof(rss_aggregator));
 828
 829                 memset (RSSAggr, 0, sizeof(rss_aggregator));
 830                 RSSAggr->Cfg.QRnumber = qrbuf->QRnumber;
 831                 RSSAggr->Cfg.pCfg = RSSCfg;
 832                 RSSAggr->roomlist_parts = 1;
 833                 RSSAggr->Url = NewStrBufDup(RSSCfg->Url);
 834
 835                 RSSAggr->ItemType = RSS_UNSET;
 836
 837                 RSSAggr->rooms = NewStrBufPlain(
 838                         qrbuf->QRname, -1);
 839
 840                 pthread_mutex_lock(&RSSQueueMutex);
 841
 842                 Put(RSSFetchUrls,
 843                     SKEY(RSSAggr->Url),
 844                     RSSAggr,
 845                     DeleteRssCfg);
 846
 847                 pthread_mutex_unlock(&RSSQueueMutex);
 848                 RSSCfg = RSSCfg->next;
 849         }
 850 }
 851
 852 /*
 853  * Scan for rooms that have RSS client requests configured
 854  */
 855 void rssclient_scan(void) {
 856         int RSSRoomCount, RSSCount;
 857         rss_aggregator *rptr = NULL;
 858         void *vrptr = NULL;
 859         HashPos *it;
 860         long len;
 861         const char *Key;
 862         time_t now = time(NULL);
 863
 864         /* Run no more than once every 15 minutes. */
 865         if ((now - last_run) < 900) {
 866                 EVRSSQ_syslog(LOG_DEBUG,
 867                               "Client: polling interval not yet reached; last run was %ldm%lds ago",
 868                               ((now - last_run) / 60),
 869                               ((now - last_run) % 60)
 870                 );
 871                 return;
 872         }
 873
 874         /*
 875          * This is a simple concurrency check to make sure only one rssclient
 876          * run is done at a time.
 877          */
 878         pthread_mutex_lock(&RSSQueueMutex);
 879         RSSCount = GetCount(RSSFetchUrls);
 880         RSSRoomCount = GetCount(RSSQueueRooms);
 881         pthread_mutex_unlock(&RSSQueueMutex);
 882
 883         if ((RSSRoomCount > 0) || (RSSCount > 0)) {
 884                 EVRSSQ_syslog(LOG_DEBUG,
 885                               "rssclient: concurrency check failed; %d rooms and %d url's are queued",
 886                               RSSRoomCount, RSSCount
 887                         );
 888                 abort();
 889                 return;
 890         }
 891
 892         become_session(&rss_CC);
 893         EVRSSQM_syslog(LOG_DEBUG, "rssclient started");
 894         CtdlForEachNetCfgRoom(rssclient_scan_room, NULL);
 895
 896         if (GetCount(RSSFetchUrls) > 0)
 897         {
 898                 pthread_mutex_lock(&RSSQueueMutex);
 899                 EVRSSQ_syslog(LOG_DEBUG,
 900                                "rssclient starting %d Clients",
 901                                GetCount(RSSFetchUrls));
 902
 903                 it = GetNewHashPos(RSSFetchUrls, 0);
 904                 while (!server_shutting_down &&
 905                        GetNextHashPos(RSSFetchUrls, it, &len, &Key, &vrptr) &&
 906                        (vrptr != NULL)) {
 907                         rptr = (rss_aggregator *)vrptr;
 908                         if (!rss_do_fetching(rptr))
 909                                 UnlinkRSSAggregator(rptr);
 910                 }
 911                 DeleteHashPos(&it);
 912                 pthread_mutex_unlock(&RSSQueueMutex);
 913         }
 914         else
 915                 EVRSSQM_syslog(LOG_DEBUG, "Nothing to do.");
 916
 917         EVRSSQM_syslog(LOG_DEBUG, "rssclient ended");
 918         return;
 919 }
 920
 921 void rss_cleanup(void)
 922 {
 923         /* citthread_mutex_destroy(&RSSQueueMutex); TODO */
 924         DeleteHash(&RSSFetchUrls);
 925         DeleteHash(&RSSQueueRooms);
 926 }
 927
 928 void LogDebugEnableRSSClient(const int n)
 929 {
 930         RSSClientDebugEnabled = n;
 931 }
 932
 933
 934 typedef struct __RSSVetoInfo {
 935         StrBuf *ErrMsg;
 936         time_t Now;
 937         int Veto;
 938 }RSSVetoInfo;
 939
 940 void rssclient_veto_scan_room(struct ctdlroom *qrbuf, void *data, OneRoomNetCfg *OneRNCFG)
 941 {
 942         RSSVetoInfo *Info = (RSSVetoInfo *) data;
 943         const RSSCfgLine *RSSCfg = (RSSCfgLine *)OneRNCFG->NetConfigs[rssclient];
 944
 945         while (RSSCfg != NULL)
 946         {
 947                 if ((RSSCfg->last_known_good != 0) &&
 948                     (RSSCfg->last_known_good + USETABLE_ANTIEXPIRE < Info->Now))
 949                 {
 950                         StrBufAppendPrintf(Info->ErrMsg,
 951                                            "RSS feed not seen for a %d days:: <",
 952                                            (Info->Now - RSSCfg->last_known_good) / (24 * 60 * 60));
 953
 954                         StrBufAppendBuf(Info->ErrMsg, RSSCfg->Url, 0);
 955                         StrBufAppendBufPlain(Info->ErrMsg, HKEY(">\n"), 0);
 956                 }
 957                 RSSCfg = RSSCfg->next;
 958         }
 959 }
 960
 961 int RSSCheckUsetableVeto(StrBuf *ErrMsg)
 962 {
 963         RSSVetoInfo Info;
 964
 965         Info.ErrMsg = ErrMsg;
 966         Info.Now = time (NULL);
 967         Info.Veto = 0;
 968
 969         CtdlForEachNetCfgRoom(rssclient_veto_scan_room, &Info);
 970
 971         return Info.Veto;;
 972 }
 973
 974
 975
 976
 977 void ParseRSSClientCfgLine(const CfgLineType *ThisOne, StrBuf *Line, const char *LinePos, OneRoomNetCfg *OneRNCFG)
 978 {
 979         RSSCfgLine *RSSCfg;
 980
 981         RSSCfg = (RSSCfgLine *) malloc (sizeof(RSSCfgLine));
 982         RSSCfg->Url = NewStrBufPlain (NULL, StrLength (Line));
 983
 984
 985         StrBufExtract_NextToken(RSSCfg->Url, Line, &LinePos, '|');
 986         RSSCfg->last_known_good = StrBufExtractNext_long(Line, &LinePos, '|');
 987
 988
 989         RSSCfg->next = (RSSCfgLine *)OneRNCFG->NetConfigs[ThisOne->C];
 990         OneRNCFG->NetConfigs[ThisOne->C] = (RoomNetCfgLine*) RSSCfg;
 991 }
 992
 993 void SerializeRSSClientCfgLine(const CfgLineType *ThisOne, StrBuf *OutputBuffer, OneRoomNetCfg *RNCfg, RoomNetCfgLine *data)
 994 {
 995         RSSCfgLine *RSSCfg = (RSSCfgLine*) data;
 996
 997         StrBufAppendBufPlain(OutputBuffer, CKEY(ThisOne->Str), 0);
 998         StrBufAppendBufPlain(OutputBuffer, HKEY("|"), 0);
 999         StrBufAppendBufPlain(OutputBuffer, SKEY(RSSCfg->Url), 0);
1000         StrBufAppendPrintf(OutputBuffer, "|%ld\n", RSSCfg->last_known_good);
1001 }
1002
1003 void DeleteRSSClientCfgLine(const CfgLineType *ThisOne, RoomNetCfgLine **data)
1004 {
1005         RSSCfgLine *RSSCfg = (RSSCfgLine*) *data;
1006
1007         FreeStrBuf(&RSSCfg->Url);
1008         free(*data);
1009         *data = NULL;
1010 }
1011
1012
1013 CTDL_MODULE_INIT(rssclient)
1014 {
1015         if (!threading)
1016         {
1017                 CtdlRegisterTDAPVetoHook (RSSCheckUsetableVeto, CDB_USETABLE, 0);
1018
1019                 CtdlREGISTERRoomCfgType(rssclient, ParseRSSClientCfgLine, 0, 1, SerializeRSSClientCfgLine, DeleteRSSClientCfgLine);
1020                 pthread_mutex_init(&RSSQueueMutex, NULL);
1021                 RSSQueueRooms = NewHash(1, lFlathash);
1022                 RSSFetchUrls = NewHash(1, NULL);
1023                 syslog(LOG_INFO, "%s\n", curl_version());
1024                 CtdlRegisterSessionHook(rssclient_scan, EVT_TIMER, PRIO_AGGR + 300);
1025                 CtdlRegisterEVCleanupHook(rss_cleanup);
1026                 CtdlRegisterDebugFlagHook(HKEY("rssclient"), LogDebugEnableRSSClient, &RSSClientDebugEnabled);
1027         }
1028         else
1029         {
1030                 CtdlFillSystemContext(&rss_CC, "rssclient");
1031         }
1032         return "rssclient";
1033 }