X-Git-Url: https://code.citadel.org/?a=blobdiff_plain;f=webcit%2Fserv_func.c;h=88289bde65adabc9c242d14b94dac00a303fef1a;hb=1f494963f66495189901c38c84cbc6d6b3e9f952;hp=9e7f0524fc816e27aaf46317e5d8d363b71423e2;hpb=3f1b85695cf9338d2b5f7fc7f9f8afedcb9d608c;p=citadel.git diff --git a/webcit/serv_func.c b/webcit/serv_func.c index 9e7f0524f..88289bde6 100644 --- a/webcit/serv_func.c +++ b/webcit/serv_func.c @@ -5,32 +5,52 @@ #include "webcit.h" #include "webserver.h" -struct serv_info serv_info; /**< our connection data to the server */ -HashList *ServHash = NULL;//// TODO; +int is_uds = 0; +char serv_sock_name[PATH_MAX] = ""; + +void DeleteServInfo(ServInfo **FreeMe) +{ + if (*FreeMe == NULL) + return; + FreeStrBuf(&(*FreeMe)->serv_nodename); + FreeStrBuf(&(*FreeMe)->serv_humannode); + FreeStrBuf(&(*FreeMe)->serv_fqdn); + FreeStrBuf(&(*FreeMe)->serv_software); + FreeStrBuf(&(*FreeMe)->serv_bbs_city); + FreeStrBuf(&(*FreeMe)->serv_sysadm); + FreeStrBuf(&(*FreeMe)->serv_moreprompt); + FreeStrBuf(&(*FreeMe)->serv_default_cal_zone); + FreeStrBuf(&(*FreeMe)->serv_svn_revision); + free(*FreeMe); + *FreeMe = NULL; +} + /* * get info about the server we've connected to * * browser_host the citadell we want to connect to * user_agent which browser uses our client? */ -void get_serv_info(char *browser_host, char *user_agent) +ServInfo *get_serv_info(StrBuf *browser_host, StrBuf *user_agent) { - char buf[SIZ]; + ServInfo *info; + StrBuf *Buf; int a; + Buf = NewStrBuf(); /** Tell the server what kind of client is connecting */ serv_printf("IDEN %d|%d|%d|%s|%s", - DEVELOPER_ID, - CLIENT_ID, - CLIENT_VERSION, - user_agent, - browser_host + DEVELOPER_ID, + CLIENT_ID, + CLIENT_VERSION, + ChrPtr(user_agent), + ChrPtr(browser_host) ); - serv_getln(buf, sizeof buf); + StrBuf_ServGetln(Buf); /** Tell the server what kind of richtext we prefer */ - serv_puts("MSGP text/html|text/plain"); - serv_getln(buf, sizeof buf); + serv_puts("MSGP text/calendar|text/vnote|text/html|text/plain"); + StrBuf_ServGetln(Buf); /* * Tell the server that when we save a calendar event, we @@ -38,84 +58,249 @@ void get_serv_info(char *browser_host, char *user_agent) * instead of by the client. */ serv_puts("ICAL sgi|1"); - serv_getln(buf, sizeof buf); + StrBuf_ServGetln(Buf); /** Now ask the server to tell us a little bit about itself... */ serv_puts("INFO"); - serv_getln(buf, sizeof buf); - if (buf[0] != '1') - return; + StrBuf_ServGetln(Buf); + if (GetServerStatus(Buf, NULL) != 1) { + FreeStrBuf(&Buf); + return NULL; + } + info = (ServInfo*)malloc(sizeof(ServInfo)); + memset(info, 0, sizeof(ServInfo)); a = 0; - while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) { + while (StrBuf_ServGetln(Buf), (strcmp(ChrPtr(Buf), "000")!= 0)) { +/* lprintf (1, "a: %d [%s]", a, ChrPtr(Buf));*/ switch (a) { case 0: - serv_info.serv_pid = atoi(buf); - WC->ctdl_pid = serv_info.serv_pid; + info->serv_pid = StrToi(Buf); + WC->ctdl_pid = info->serv_pid; break; case 1: - safestrncpy(serv_info.serv_nodename, buf, sizeof serv_info.serv_nodename); + info->serv_nodename = NewStrBufDup(Buf); break; case 2: - safestrncpy(serv_info.serv_humannode, buf, sizeof serv_info.serv_humannode); + info->serv_humannode = NewStrBufDup(Buf); break; case 3: - safestrncpy(serv_info.serv_fqdn, buf, sizeof serv_info.serv_fqdn); + info->serv_fqdn = NewStrBufDup(Buf); break; case 4: - safestrncpy(serv_info.serv_software, buf, sizeof serv_info.serv_software); + info->serv_software = NewStrBufDup(Buf); break; case 5: - serv_info.serv_rev_level = atoi(buf); + info->serv_rev_level = StrToi(Buf); break; case 6: - safestrncpy(serv_info.serv_bbs_city, buf, sizeof serv_info.serv_bbs_city); + info->serv_bbs_city = NewStrBufDup(Buf); break; case 7: - safestrncpy(serv_info.serv_sysadm, buf, sizeof serv_info.serv_sysadm); + info->serv_sysadm = NewStrBufDup(Buf); break; case 9: - safestrncpy(serv_info.serv_moreprompt, buf, sizeof serv_info.serv_moreprompt); + info->serv_moreprompt = NewStrBufDup(Buf); break; case 14: - serv_info.serv_supports_ldap = atoi(buf); + info->serv_supports_ldap = StrToi(Buf); break; case 15: - serv_info.serv_newuser_disabled = atoi(buf); + info->serv_newuser_disabled = StrToi(Buf); break; case 16: - safestrncpy(serv_info.serv_default_cal_zone, buf, sizeof serv_info.serv_default_cal_zone); + info->serv_default_cal_zone = NewStrBufDup(Buf); break; case 20: - serv_info.serv_supports_sieve = atoi(buf); + info->serv_supports_sieve = StrToi(Buf); break; case 21: - serv_info.serv_fulltext_enabled = atoi(buf); + info->serv_fulltext_enabled = StrToi(Buf); break; case 22: - safestrncpy(serv_info.serv_svn_revision, buf, sizeof serv_info.serv_svn_revision); + info->serv_svn_revision = NewStrBufDup(Buf); break; case 23: - serv_info.serv_supports_openid = atoi(buf); + info->serv_supports_openid = StrToi(Buf); break; } ++a; } + FreeStrBuf(&Buf); + return info; } +int GetConnected (void) +{ + StrBuf *Buf; + wcsession *WCC = WC; + + if (WCC->ReadBuf == NULL) + WCC->ReadBuf = NewStrBuf(); + if (is_uds) /* unix domain socket */ + WCC->serv_sock = uds_connectsock(serv_sock_name); + else /* tcp socket */ + WCC->serv_sock = tcp_connectsock(ctdlhost, ctdlport); + + if (WCC->serv_sock < 0) { + do_logout(); + FreeStrBuf(&WCC->ReadBuf); + return 1; + } + else { + long Status; + Buf = NewStrBuf(); + WCC->connected = 1; + StrBuf_ServGetln(Buf); /* get the server greeting */ + GetServerStatus(Buf, &Status); + FreeStrBuf(&Buf); + /* Are there too many users already logged in? */ + if (Status == 571) { + wprintf(_("This server is already serving its maximum number of users and cannot accept any additional logins at this time. Please try again later or contact your system administrator.")); + end_burst(); + end_webcit_session(); + return 1; + } + /* + * From what host is our user connecting? Go with + * the host at the other end of the HTTP socket, + * unless we are following X-Forwarded-For: headers + * and such a header has already turned up something. + */ + if ( (!follow_xff) || (StrLength(WCC->Hdr->browser_host) == 0) ) { + if (WCC->Hdr->browser_host == NULL) { + WCC->Hdr->browser_host = NewStrBuf(); + Put(WCC->Hdr->HTTPHeaders, HKEY("FreeMeWithTheOtherHeaders"), + WCC->Hdr->browser_host, HFreeStrBuf); + } + locate_host(WCC->Hdr->browser_host, WCC->Hdr->http_sock); + } + if (WCC->serv_info == NULL) + WCC->serv_info = get_serv_info(WCC->Hdr->browser_host, WCC->Hdr->user_agent); + if (WCC->serv_info == NULL){ + begin_burst(); + wprintf(_("Received unexpected answer from Citadel " + "server; bailing out.")); + hprintf("HTTP/1.1 200 OK\r\n"); + hprintf("Content-type: text/plain; charset=utf-8\r\n"); + end_burst(); + end_webcit_session(); + return 1; + } + if (WCC->serv_info->serv_rev_level < MINIMUM_CIT_VERSION) { + begin_burst(); + wprintf(_("You are connected to a Citadel " + "server running Citadel %d.%02d. \n" + "In order to run this version of WebCit " + "you must also have Citadel %d.%02d or" + " newer.\n\n\n"), + WCC->serv_info->serv_rev_level / 100, + WCC->serv_info->serv_rev_level % 100, + MINIMUM_CIT_VERSION / 100, + MINIMUM_CIT_VERSION % 100 + ); + hprintf("HTTP/1.1 200 OK\r\n"); + hprintf("Content-type: text/plain; charset=utf-8\r\n"); + end_burst(); + end_webcit_session(); + return 1; + } + } + if (WCC->ReadBuf == NULL) + WCC->ReadBuf = NewStrBuf(); + if (is_uds)/* unix domain socket */ + WCC->serv_sock = uds_connectsock(serv_sock_name); + else /* tcp socket */ + WCC->serv_sock = tcp_connectsock(ctdlhost, ctdlport); + + if (WCC->serv_sock < 0) { + do_logout(); + FreeStrBuf(&WCC->ReadBuf); + return 1; + } + else { + long Status; + StrBuf *Buf; + + Buf = NewStrBuf(); + WCC->connected = 1; + StrBuf_ServGetln(Buf); + GetServerStatus(Buf,&Status); + /* get the server greeting */ + + /* Are there too many users already logged in? */ + if (Status == 571) { + wprintf(_("This server is already serving its maximum number of users and cannot accept any additional logins at this time. Please try again later or contact your system administrator.")); + end_burst(); + end_webcit_session(); + return 1; + } + + /* + * From what host is our user connecting? Go with + * the host at the other end of the HTTP socket, + * unless we are following X-Forwarded-For: headers + * and such a header has already turned up something. + */ + if ( (!follow_xff) || (StrLength(WCC->Hdr->browser_host) == 0) ) { + if (WCC->Hdr->browser_host == NULL) { + WCC->Hdr->browser_host = NewStrBuf(); + Put(WCC->Hdr->HTTPHeaders, HKEY("FreeMeWithTheOtherHeaders"), + WCC->Hdr->browser_host, HFreeStrBuf); + } + locate_host(WCC->Hdr->browser_host, WCC->Hdr->http_sock); + } + if (WCC->serv_info == NULL) + WCC->serv_info = get_serv_info(WCC->Hdr->browser_host, WCC->Hdr->user_agent); + if (WCC->serv_info == NULL){ + begin_burst(); + wprintf(_("Received unexpected answer from Citadel " + "server; bailing out.")); + hprintf("HTTP/1.1 200 OK\r\n"); + hprintf("Content-type: text/plain; charset=utf-8\r\n"); + end_burst(); + end_webcit_session(); + return 1; + } + if (WCC->serv_info->serv_rev_level < MINIMUM_CIT_VERSION) { + begin_burst(); + wprintf(_("You are connected to a Citadel " + "server running Citadel %d.%02d. \n" + "In order to run this version of WebCit " + "you must also have Citadel %d.%02d or" + " newer.\n\n\n"), + WCC->serv_info->serv_rev_level / 100, + WCC->serv_info->serv_rev_level % 100, + MINIMUM_CIT_VERSION / 100, + MINIMUM_CIT_VERSION % 100 + ); + hprintf("HTTP/1.1 200 OK\r\n"); + hprintf("Content-type: text/plain; charset=utf-8\r\n"); + end_burst(); + end_webcit_session(); + return 1; + } + } + return 0; +} /** - * \brief Read Citadel variformat text and spit it out as HTML. - * \param align html align string + * Read Citadel variformat text and spit it out as HTML. + * align html align string */ -void fmout(char *align) +inline void fmout(char *align) +{ + _fmout(WC->WBuf, align); +} + +void _fmout(StrBuf *Target, char *align) { int intext = 0; int bq = 0; char buf[SIZ]; - wprintf("
\n", align); + StrBufAppendPrintf(Target, "
\n", align); while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) { if ((intext == 1) && (isspace(buf[0]))) { @@ -129,10 +314,10 @@ void fmout(char *align) * " >" quotes and will convert to
tags. */ if ((bq == 0) && (!strncmp(buf, " >", 2))) { - wprintf("
"); + StrBufAppendBufPlain(Target, HKEY("
"), 0); bq = 1; } else if ((bq == 1) && (strncmp(buf, " >", 2))) { - wprintf("
"); + StrBufAppendBufPlain(Target, HKEY("
"), 0); bq = 0; } if ((bq == 1) && (!strncmp(buf, " >", 2))) { @@ -142,7 +327,7 @@ void fmout(char *align) url(buf, sizeof(buf)); escputs(buf); - wprintf("\n"); + StrBufAppendBufPlain(Target, HKEY("\n"), 0); } if (bq == 1) { wprintf(""); @@ -150,11 +335,79 @@ void fmout(char *align) wprintf("

\n"); } +void FmOut(StrBuf *Target, char *align, StrBuf *Source) +{ + const char *ptr, *pte; + const char *BufPtr = NULL; + StrBuf *Line = NewStrBuf(); + StrBuf *Line1 = NewStrBuf(); + StrBuf *Line2 = NewStrBuf(); + int bn = 0; + int bq = 0; + int i, n, done = 0; + long len; + int intext = 0; + + StrBufAppendPrintf(Target, "
\n", align); + while ((n = StrBufSipLine(Line, Source, &BufPtr), n >= 0) && !done) + { + done = n == 0; + bq = 0; + i = 0; + ptr = ChrPtr(Line); + len = StrLength(Line); + pte = ptr + len; + + if ((intext == 1) && (isspace(*ptr))) { + StrBufAppendBufPlain(Target, HKEY("
"), 0); + } + intext = 1; + if (isspace(*ptr)) while ((ptr < pte) && + ((*ptr == '>') || + isspace(*ptr))) + { + if (*ptr == '>') + bq++; + ptr ++; + i++; + } + + /** + * Quoted text should be displayed in italics and in a + * different colour. This code understands Citadel-style + * " >" quotes and will convert to
tags. + */ + if (i > 0) StrBufCutLeft(Line, i); + + + for (i = bn; i < bq; i++) + StrBufAppendBufPlain(Target, HKEY("
"), 0); + for (i = bq; i < bn; i++) + StrBufAppendBufPlain(Target, HKEY("
"), 0); + bn = bq; + + if (StrLength(Line) == 0) + continue; + /** Activate embedded URL's */ + UrlizeText(Line1, Line, Line2); + + StrEscAppend(Target, Line1, NULL, 0, 0); + + StrBufAppendBufPlain(Target, HKEY("\n"), 0); + } + for (i = 0; i < bn; i++) + StrBufAppendBufPlain(Target, HKEY("
"), 0); + StrBufAppendBufPlain(Target, HKEY("

\n"), 0); + FreeStrBuf(&Line); + FreeStrBuf(&Line1); + FreeStrBuf(&Line2); +} + /** - * \brief Read Citadel variformat text and spit it out as HTML in a form + * Read Citadel variformat text and spit it out as HTML in a form * suitable for embedding in another message (forward/quote). * (NO LINEBREAKS ALLOWED HERE!) */ @@ -197,9 +450,9 @@ void pullquote_fmout(void) { /** - * \brief Transmit message text (in memory) to the server. + * Transmit message text (in memory) to the server. * - * \param ptr Pointer to the message being transmitted + * ptr Pointer to the message being transmitted */ void text_to_server(char *ptr) { @@ -240,10 +493,10 @@ void text_to_server(char *ptr) /** - * \brief Transmit message text (in memory) to the server, + * Transmit message text (in memory) to the server, * converting to Quoted-Printable encoding as we go. * - * \param ptr Pointer to the message being transmitted + * ptr Pointer to the message being transmitted */ void text_to_server_qp(char *ptr) { @@ -316,7 +569,7 @@ void text_to_server_qp(char *ptr) /** - * \brief translate server message output to text + * translate server message output to text * (used for editing room info files and such) */ void server_to_text() @@ -339,74 +592,225 @@ void server_to_text() /** * Read binary data from server into memory using a series of * server READ commands. - * \param buffer the output buffer - * \param total_len the maximal length of buffer + * \return the read content as StrBuf */ -void read_server_binary(char *buffer, size_t total_len) { +int read_server_binary(StrBuf *Ret, size_t total_len, StrBuf *Buf) +{ char buf[SIZ]; size_t bytes = 0; size_t thisblock = 0; + + if (Ret == NULL) + return -1; - memset(buffer, 0, total_len); while (bytes < total_len) { thisblock = 4095; if ((total_len - bytes) < thisblock) { thisblock = total_len - bytes; - if (thisblock == 0) return; + if (thisblock == 0) { + FlushStrBuf(Ret); + FreeStrBuf(&Buf); + return -1; + } } serv_printf("READ %d|%d", (int)bytes, (int)thisblock); - serv_getln(buf, sizeof buf); - if (buf[0] == '6') { - thisblock = (size_t)atoi(&buf[4]); - if (!WC->connected) return; - serv_read(&buffer[bytes], thisblock); - bytes += thisblock; - } - else { - lprintf(3, "Error: %s\n", &buf[4]); - return; + if (StrBuf_ServGetln(Buf) > 0) + { + if (GetServerStatus(Buf, NULL) == 6) + { + StrBufCutLeft(Buf, 4); + thisblock = StrTol(Buf); + if (!WC->connected) { + FlushStrBuf(Ret); + FreeStrBuf(&Buf); + return -1; + } + StrBuf_ServGetBLOBBuffered(Ret, thisblock); + bytes += thisblock; + } + else { + FreeStrBuf(&Buf); + lprintf(3, "Error: %s\n", &buf[4]); + return -1; + } } } + return StrLength(Ret); } /** - * \brief Read text from server, appending to a string buffer until the + * Read text from server, appending to a string buffer until the * usual 000 terminator is found. Caller is responsible for freeing * the returned pointer. */ -char *read_server_text(void) { - char *text = NULL; - size_t bytes_allocated = 0; - size_t bytes_read = 0; - int linelen; - char buf[SIZ]; - - text = malloc(SIZ); - if (text == NULL) { - return(NULL); +int read_server_text(StrBuf *Buf, long *nLines) +{ + wcsession *WCC = WC; + long nRead; + long nTotal = 0; + long nlines; + + nlines = 0; + while ((WCC->serv_sock!=-1) && + (nRead = StrBuf_ServGetln(Buf), (nRead >= 0) )) + { + if (strcmp(ChrPtr(Buf) + nTotal, "000") != 0) { + StrBufCutRight(Buf, nRead); + break; + } + nTotal += nRead; + nlines ++; } - text[0] = 0; - bytes_allocated = SIZ; - while (serv_getln(buf, sizeof buf), strcmp(buf, "000")) { - linelen = strlen(buf); - buf[linelen] = '\n'; - buf[linelen+1] = 0; - ++linelen; - - if ((bytes_read + linelen) >= (bytes_allocated - 2)) { - bytes_allocated = 2 * bytes_allocated; - text = realloc(text, bytes_allocated); - } + *nLines = nlines; + return nTotal; +} + + + + + + +int GetServerStatus(StrBuf *Line, long* FullState) +{ + if (FullState != NULL) + *FullState = StrTol(Line); + return ChrPtr(Line)[0] - 48; +} + + +void tmplput_serv_ip(StrBuf *Target, WCTemplputParams *TP) +{ + StrBufAppendPrintf(Target, "%d", WC->ctdl_pid); +} + +void tmplput_serv_nodename(StrBuf *Target, WCTemplputParams *TP) +{ + wcsession *WCC = WC; + if (WCC->serv_info == NULL) + return; + StrBufAppendTemplate(Target, TP, WCC->serv_info->serv_nodename, 0); +} + +void tmplput_serv_humannode(StrBuf *Target, WCTemplputParams *TP) +{ + wcsession *WCC = WC; + if (WCC->serv_info == NULL) + return; + StrBufAppendTemplate(Target, TP, WCC->serv_info->serv_humannode, 0); +} + +void tmplput_serv_fqdn(StrBuf *Target, WCTemplputParams *TP) +{ + wcsession *WCC = WC; + if (WCC->serv_info == NULL) + return; + StrBufAppendTemplate(Target, TP, WCC->serv_info->serv_fqdn, 0); +} - strcpy(&text[bytes_read], buf); - bytes_read += linelen; +void tmplput_serv_software(StrBuf *Target, WCTemplputParams *TP) +{ + wcsession *WCC = WC; + if (WCC->serv_info == NULL) + return; + StrBufAppendTemplate(Target, TP, WCC->serv_info->serv_software, 0); +} + +void tmplput_serv_rev_level(StrBuf *Target, WCTemplputParams *TP) +{ + wcsession *WCC = WC; + if (WCC->serv_info == NULL) + return; + StrBufAppendPrintf(Target, "%d.%02d", + WCC->serv_info->serv_rev_level / 100, + WCC->serv_info->serv_rev_level % 100); +} +int conditional_serv_newuser_disabled(StrBuf *Target, WCTemplputParams *TP) +{ + wcsession *WCC = WC; + if (WCC->serv_info == NULL) + return 0; + return WCC->serv_info->serv_newuser_disabled != 0; +} +int conditional_serv_supports_openid(StrBuf *Target, WCTemplputParams *TP) +{ + wcsession *WCC = WC; + if (WCC->serv_info == NULL) + return 0; + return WCC->serv_info->serv_supports_openid != 0; +} + +void tmplput_serv_bbs_city(StrBuf *Target, WCTemplputParams *TP) +{ + wcsession *WCC = WC; + if (WCC->serv_info == NULL) + return; + StrBufAppendTemplate(Target, TP, WC->serv_info->serv_bbs_city, 0); +} + + +void tmplput_mesg(StrBuf *Target, WCTemplputParams *TP) +{ + int n = 0; + int Done = 0; + StrBuf *Line; + StrBuf *Buf; + + Buf = NewStrBuf(); + Line = NewStrBuf(); + serv_printf("MESG %s", TP->Tokens->Params[0]->Start); + + StrBuf_ServGetln(Line); + if (GetServerStatus(Line, NULL) == 1) { + while (!Done && (StrBuf_ServGetln(Line)>=0)) { + if ( (StrLength(Line)==3) && + !strcmp(ChrPtr(Line), "000")) + Done = 1; + else + { + if (n > 0) + StrBufAppendBufPlain(Buf, "\n", 1, 0); + StrBufAppendBuf(Buf, Line, 0); + } + n++; + } + + FlushStrBuf(Line); + FmOut(Line, "center", Buf); + StrBufAppendTemplate(Target, TP, Line, 1); } + FreeStrBuf(&Buf); + FreeStrBuf(&Line); +} - return(text); +void +InitModule_SERVFUNC +(void) +{ + is_uds = strcasecmp(ctdlhost, "uds") == 0; + if (is_uds) + snprintf(serv_sock_name, PATH_MAX, "%s/citadel.socket", ctdlport); + + RegisterConditional(HKEY("COND:SERV:OPENID"), 2, conditional_serv_supports_openid, CTX_NONE); + RegisterConditional(HKEY("COND:SERV:NEWU"), 2, conditional_serv_newuser_disabled, CTX_NONE); + RegisterNamespace("SERV:PID", 0, 0, tmplput_serv_ip, CTX_NONE); + RegisterNamespace("SERV:NODENAME", 0, 1, tmplput_serv_nodename, CTX_NONE); + RegisterNamespace("SERV:HUMANNODE", 0, 1, tmplput_serv_humannode, CTX_NONE); + RegisterNamespace("SERV:FQDN", 0, 1, tmplput_serv_fqdn, CTX_NONE); + RegisterNamespace("SERV:SOFTWARE", 0, 1, tmplput_serv_software, CTX_NONE); + RegisterNamespace("SERV:REV_LEVEL", 0, 0, tmplput_serv_rev_level, CTX_NONE); + RegisterNamespace("SERV:BBS_CITY", 0, 1, tmplput_serv_bbs_city, CTX_NONE); + RegisterNamespace("SERV:MESG", 1, 2, tmplput_mesg, CTX_NONE); +/*TODO // RegisterNamespace("SERV:LDAP_SUPP", 0, 0, tmplput_serv_ldap_enabled, 0); */ } +void +SessionDestroyModule_SERVFUNC +(wcsession *sess) +{ + DeleteServInfo(&sess->serv_info); +} /*@}*/