/* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed with
* this work for additional information regarding copyright ownership.
* The ASF licenses this file to You under the Apache License, Version 2.0
* (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
/* This file contains all output functions.
*/
#include "mod_mbox.h"
/* Define local prototypes, even if functions are declared before
they're called (avoid GCC warnings). */
void display_atom_entry(request_rec *r, Message *m, const char *mboxfile,
apr_pool_t *pool, apr_file_t *f);
void mbox_static_message_nav(request_rec *r, char **context,
char *baseURI, char *msgID);
char *mbox_months[12][2] = {
{"Jan", "January"},
{"Feb", "February"},
{"Mar", "March"},
{"Apr", "April"},
{"May", "May"},
{"Jun", "June"},
{"Jul", "July"},
{"Aug", "August"},
{"Sep", "September"},
{"Oct", "October"},
{"Nov", "November"},
{"Dec", "December"}
};
/* Display an ATOM feed entry from given message structure */
void display_atom_entry(request_rec *r, Message *m, const char *mboxfile,
apr_pool_t *pool, apr_file_t *f)
{
char dstr[100];
apr_size_t dlen;
apr_time_exp_t extime;
char *uid;
char *c;
ap_rputs("\n", r);
ap_rprintf(r, "%s\n", ESCAPE_OR_BLANK(pool, m->subject));
ap_rprintf(r, "%s\n",
ESCAPE_OR_BLANK(pool, m->from));
ap_rprintf(r, "\n",
ap_construct_url(r->pool, r->uri, r),
mboxfile, URI_ESCAPE_OR_BLANK(pool, m->msgID));
uid = URI_ESCAPE_OR_BLANK(pool, m->msgID);
c = uid;
while (*c != '\0') {
if (*c == '.') {
*c = '-';
}
*c++;
}
ap_rprintf(r, "urn:uuid:%s\n", uid);
apr_time_exp_gmt(&extime, m->date);
apr_strftime(dstr, &dlen, sizeof(dstr), "%G-%m-%dT%H:%M:%SZ", &extime);
ap_rprintf(r, "%s\n", dstr);
ap_rputs("\n"
"
\n", r);
return APR_SUCCESS;
}
/* Outputs an XHTML list of available mailboxes */
apr_status_t mbox_static_index_boxlist(request_rec *r, mbox_dir_cfg_t *conf,
mbox_cache_info *mli)
{
mbox_file_t *fi;
apr_array_header_t *files;
int side = 0, year_hdr = 0, i;
files = mbox_fetch_boxes_list(r, mli, r->filename);
if (!files) {
return HTTP_FORBIDDEN;
}
ap_rputs("
\n", r);
fi = (mbox_file_t *) files->elts;
for (i = 0; i < files->nelts; i++) {
/* Only display an entry if it has messages or if we don't
hide empty mailboxes */
if (fi[i].count || !conf->hide_empty) {
if (!year_hdr) {
if (!side) {
ap_rputs("
\n", r);
}
/* Display an XML message list entry */
static void display_xml_msglist_entry(request_rec *r, Message *m,
int linked, int depth)
{
mbox_dir_cfg_t *conf;
char *from;
conf = ap_get_module_config(r->per_dir_config, &mbox_module);
from = ESCAPE_OR_BLANK(r->pool, m->str_from);
from = mbox_cte_decode_header(r->pool, from);
if (conf->antispam) {
from = email_antispam(from);
}
ap_rprintf(r, " \n",
linked, depth, ESCAPE_OR_BLANK(r->pool, m->msgID));
ap_rprintf(r, " \n", from);
ap_rprintf(r, " \n",
ESCAPE_OR_BLANK(r->pool, m->str_date));
ap_rprintf(r, " \n",
ESCAPE_OR_BLANK(r->pool, m->subject));
ap_rprintf(r, " \n");
}
/* Display a threaded message list for Container 'c' */
static void display_msglist_thread(request_rec *r, Container *c,
int depth, int mode)
{
Message *m;
int linked = 1;
/* Under the rules of our threading tree, if we do not have a
* message, we MUST have at least one child. Therefore, print
* that child's subject when we don't have a message.
*/
if (c->message) {
m = c->message;
}
else {
m = c->child->message;
linked = 0;
}
if (mode == MBOX_OUTPUT_STATIC) {
display_static_msglist_entry(r, m, linked, depth);
}
else {
display_xml_msglist_entry(r, m, linked, depth);
}
/* Display children :
* Subject
* +-> Re: Subject */
if (c->child) {
display_msglist_thread(r, c->child, depth + 1, mode);
}
/* Display follow-ups :
* Subject
* +-> ...
* | +-> ...
* +-> Re: Subject */
if (depth && c->next) {
display_msglist_thread(r, c->next, depth, mode);
}
}
/* Display the XML index of the specified mbox file. */
apr_status_t mbox_xml_msglist(request_rec *r, apr_file_t *f, int sortFlags)
{
apr_finfo_t fi;
mbox_dir_cfg_t *conf;
MBOX_LIST *head;
Message *m;
Container *threads = NULL, *c;
int current_page = 0; /* Current page number, starting at 0 */
int pages; /* Number of pages */
int count = 0; /* Message count */
int i = 0;
conf = ap_get_module_config(r->per_dir_config, &mbox_module);
/* Fetch page number if present. Otherwise, assume page #1 */
if (r->args && strcmp(r->args, ""))
current_page = atoi(r->args);
/* Load the index of messages from the DB into the MBOX_LIST */
head = mbox_load_index(r, f, &count);
/* Compute the page count, depending on the sort flags */
if (sortFlags != MBOX_SORT_THREAD) {
pages = count / DEFAULT_MSGS_PER_PAGE;
if (count > pages * DEFAULT_MSGS_PER_PAGE) {
pages++;
}
}
else {
threads = calculate_threads(r->pool, head);
c = threads;
count = 0;
while (c) {
c = c->next;
count++;
}
pages = count / DEFAULT_THREADS_PER_PAGE;
if (count > pages * DEFAULT_THREADS_PER_PAGE) {
pages++;
}
}
/* This index only changes when the .mbox file changes. */
apr_file_info_get(&fi, APR_FINFO_MTIME, f);
r->mtime = fi.mtime;
ap_set_last_modified(r);
/* Send page header */
ap_rputs("\n", r);
ap_rprintf(r, "\n", current_page, pages);
/* For date and author sorts */
if (sortFlags != MBOX_SORT_THREAD) {
/* Sort the list */
head = mbox_sort_list(head, sortFlags);
/* Pass useless messages */
while (head && (i < current_page * DEFAULT_MSGS_PER_PAGE)) {
head = head->next;
i++;
}
/* Display current_page's messages */
while (head && (i < (current_page + 1) * DEFAULT_MSGS_PER_PAGE)) {
m = (Message *) head->value;
display_xml_msglist_entry(r, m, 1, 0);
head = head->next;
i++;
}
}
/* For threaded view */
else {
c = threads;
/* Pass useless threads */
while (c && (i < current_page * DEFAULT_THREADS_PER_PAGE)) {
c = c->next;
i++;
}
/* Display current_page's threads */
while (c && (i < (current_page + 1) * DEFAULT_THREADS_PER_PAGE)) {
display_msglist_thread(r, c, 0, MBOX_OUTPUT_AJAX);
c = c->next;
i++;
}
}
ap_rputs("", r);
return OK;
}
/* Display the page selector.
*
* FIXME: improve the algorithm in order to handle long pages list.
*/
static void mbox_static_msglist_page_selector(request_rec *r, char *baseURI,
int pages, int current_page)
{
int i;
/* If we don't have more than one page, the page selector is
useless. Just return silently. */
if (pages <= 1) {
return;
}
if (current_page) {
ap_rprintf(r, "« Previous · ",
baseURI, r->path_info, current_page - 1);
}
for (i = 0; i < pages; i++) {
if (i != 0) {
ap_rputs(" · ", r);
}
if (i != current_page) {
ap_rprintf(r, "%d",
baseURI, r->path_info, i, i + 1);
}
else {
ap_rprintf(r, "%d", i + 1);
}
}
if (current_page + 1 < pages) {
ap_rprintf(r, " · Next »",
baseURI, r->path_info, current_page + 1);
}
}
static void mbox_static_msglist_nav(request_rec *r, char *baseURI,
int pages, int current_page,
int sortFlags)
{
ap_rputs
("
\n", r);
}
/* Display a static XHTML mail */
int mbox_static_message(request_rec *r, apr_file_t *f)
{
int errstatus;
mbox_dir_cfg_t *conf;
Message *m;
char *baseURI, *from, **context, *msgID;
conf = ap_get_module_config(r->per_dir_config, &mbox_module);
baseURI = get_base_uri(r);
msgID = r->path_info + 1;
ap_unescape_url(msgID);
/* msgID should be the part of the URI that Apache could not resolve
* on its own. Grab it and skip over the expected /. */
m = fetch_message(r, f, msgID);
if (!m) {
return HTTP_NOT_FOUND;
}
if ((errstatus = ap_meets_conditions(r)) != OK) {
r->status = errstatus;
return r->status;
}
/* Parse multipart information */
m->mime_msg = mbox_mime_decode_multipart(r->pool, m->raw_body,
m->content_type,
m->cte, m->boundary);
ap_rputs("\n", r);
ap_rputs("\n\n", r);
ap_rputs("\n", r);
ap_rputs(" \n", r);
ap_rputs(" \n", r);
ap_rprintf(r, " %s\n",
ESCAPE_OR_BLANK(r->pool, m->subject));
if (conf->style_path) {
ap_rprintf(r,
" \n",
conf->style_path);
}
ap_rputs(" \n\n", r);
ap_rputs(" \n", r);
ap_rputs("
Mailing list archives
\n\n", r);
ap_rputs("
\n", r);
if (conf->root_path) {
ap_rprintf(r, ""
"Site index · ", conf->root_path);
}
ap_rprintf(r, ""
"List index
", get_base_path(r));
/* Display context message list */
from = ESCAPE_OR_BLANK(r->pool, m->from);
from = mbox_cte_decode_header(r->pool, from);
if (conf->antispam) {
from = email_antispam(from);
}
ap_rputs("