/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -*- */
/*
*
* Copyright (C) 2001-2003 Ximian, Inc. <www.ximain.com>
*
* Authors: Christopher Toshok <toshok@ximian.com>
* Michael Zucchi <notzed@ximian.com>
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of version 2 of the GNU General Public
* License as published by the Free Software Foundation.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
* USA
*/
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sys/types.h>
#include <unistd.h>
#include <dirent.h>
#include <errno.h>
#include <camel/camel-url.h>
#include <camel/camel-string-utils.h>
#include <camel/camel-session.h>
#include <camel/camel-tcp-stream-raw.h>
#include <camel/camel-tcp-stream-ssl.h>
#include <camel/camel-stream-mem.h>
#include <camel/camel-data-cache.h>
#include <camel/camel-disco-store.h>
#include <camel/camel-disco-diary.h>
#include "camel-nntp-summary.h"
#include "camel-nntp-store.h"
#include "camel-nntp-store-summary.h"
#include "camel-nntp-folder.h"
#include "camel-nntp-private.h"
#include "camel-nntp-resp-codes.h"
#define w(x)
extern int camel_verbose_debug;
#define dd(x) (camel_verbose_debug?(x):0)
#define NNTP_PORT 119
#define NNTPS_PORT 563
#define DUMP_EXTENSIONS
static CamelDiscoStoreClass *parent_class = NULL;
static CamelServiceClass *service_class = NULL;
/* Returns the class for a CamelNNTPStore */
#define CNNTPS_CLASS(so) CAMEL_NNTP_STORE_CLASS (CAMEL_OBJECT_GET_CLASS(so))
#define CF_CLASS(so) CAMEL_FOLDER_CLASS (CAMEL_OBJECT_GET_CLASS(so))
#define CNNTPF_CLASS(so) CAMEL_NNTP_FOLDER_CLASS (CAMEL_OBJECT_GET_CLASS(so))
static void nntp_construct (CamelService *service, CamelSession *session,
CamelProvider *provider, CamelURL *url,
CamelException *ex);
static gboolean
nntp_can_work_offline(CamelDiscoStore *store)
{
return TRUE;
}
enum {
USE_SSL_NEVER,
USE_SSL_ALWAYS,
USE_SSL_WHEN_POSSIBLE
};
static struct {
const char *name;
int type;
} headers[] = {
{ "subject", 0 },
{ "from", 0 },
{ "date", 0 },
{ "message-id", 1 },
{ "references", 0 },
{ "bytes", 2 },
};
static int
xover_setup(CamelNNTPStore *store, CamelException *ex)
{
int ret, i;
char *line;
unsigned int len;
unsigned char c, *p;
struct _xover_header *xover, *last;
/* manual override */
if (store->xover || getenv("CAMEL_NNTP_DISABLE_XOVER") != NULL)
return 0;
ret = camel_nntp_raw_command(store, ex, &line, "list overview.fmt");
if (ret == -1) {
camel_exception_setv(ex, CAMEL_EXCEPTION_SYSTEM,
_("NNTP Command failed: %s"), g_strerror(errno));
return -1;
} else if (ret != 215)
/* unsupported command? ignore */
return 0;
last = (struct _xover_header *)&store->xover;
/* supported command */
while ((ret = camel_nntp_stream_line(store->stream, (unsigned char **)&line, &len)) > 0) {
p = line;
xover = g_malloc0(sizeof(*xover));
last->next = xover;
last = xover;
while ((c = *p++)) {
if (c == ':') {
p[-1] = 0;
for (i=0;i<sizeof(headers)/sizeof(headers[0]);i++) {
if (strcmp(line, headers[i].name) == 0) {
xover->name = headers[i].name;
if (strncmp(p, "full", 4) == 0)
xover->skip = strlen(xover->name)+1;
else
xover->skip = 0;
xover->type = headers[i].type;
break;
}
}
break;
} else {
p[-1] = camel_tolower(c);
}
}
}
return ret;
}
static gboolean
connect_to_server (CamelService *service, int ssl_mode, CamelException *ex)
{
CamelNNTPStore *store = (CamelNNTPStore *) service;
CamelDiscoStore *disco_store = (CamelDiscoStore*) service;
CamelStream *tcp_stream;
gboolean retval = FALSE;
unsigned char *buf;
unsigned int len;
struct hostent *h;
int port, ret;
char *path;
CAMEL_NNTP_STORE_LOCK(store, command_lock);
/* setup store-wide cache */
if (store->cache == NULL) {
if (store->storage_path == NULL)
goto fail;
store->cache = camel_data_cache_new (store->storage_path, 0, ex);
if (store->cache == NULL)
goto fail;
/* Default cache expiry - 2 weeks old, or not visited in 5 days */
camel_data_cache_set_expire_age (store->cache, 60*60*24*14);
camel_data_cache_set_expire_access (store->cache, 60*60*24*5);
}
if (!(h = camel_service_gethost (service, ex)))
goto fail;
port = service->url->port ? service->url->port : NNTP_PORT;
#ifdef HAVE_SSL
if (ssl_mode != USE_SSL_NEVER) {
port = service->url->port ? service->url->port : NNTPS_PORT;
tcp_stream = camel_tcp_stream_ssl_new (service->session, service->url->host, CAMEL_TCP_STREAM_SSL_ENABLE_SSL2 | CAMEL_TCP_STREAM_SSL_ENABLE_SSL3);
} else {
tcp_stream = camel_tcp_stream_raw_new ();
}
#else
tcp_stream = camel_tcp_stream_raw_new ();
#endif /* HAVE_SSL */
ret = camel_tcp_stream_connect (CAMEL_TCP_STREAM (tcp_stream), h, port);
camel_free_host (h);
if (ret == -1) {
if (errno == EINTR)
camel_exception_set (ex, CAMEL_EXCEPTION_USER_CANCEL,
_("Connection cancelled"));
else
camel_exception_setv (ex, CAMEL_EXCEPTION_SERVICE_UNAVAILABLE,
_("Could not connect to %s (port %d): %s"),
service->url->host, port, g_strerror (errno));
camel_object_unref (tcp_stream);
goto fail;
}
store->stream = (CamelNNTPStream *) camel_nntp_stream_new (tcp_stream);
camel_object_unref (tcp_stream);
/* Read the greeting, if any. */
if (camel_nntp_stream_line (store->stream, &buf, &len) == -1) {
if (errno == EINTR)
camel_exception_set (ex, CAMEL_EXCEPTION_USER_CANCEL,
_("Connection cancelled"));
else
camel_exception_setv (ex, CAMEL_EXCEPTION_SERVICE_UNAVAILABLE,
_("Could not read greeting from %s: %s"),
service->url->host, g_strerror (errno));
camel_object_unref (store->stream);
store->stream = NULL;
goto fail;
}
len = strtoul (buf, (char **) &buf, 10);
if (len != 200 && len != 201) {
camel_exception_setv (ex, CAMEL_EXCEPTION_SYSTEM,
_("NNTP server %s returned error code %d: %s"),
service->url->host, len, buf);
camel_object_unref (store->stream);
store->stream = NULL;
goto fail;
}
/* set 'reader' mode & ignore return code, also ping the server, inn goes offline very quickly otherwise */
if (camel_nntp_raw_command (store, ex, (char **) &buf, "mode reader") == -1
|| camel_nntp_raw_command (store, ex, (char **) &buf, "date") == -1)
goto fail;
if (xover_setup(store, ex) == -1)
goto fail;
path = g_build_filename (store->storage_path, ".ev-journal", NULL);
disco_store->diary = camel_disco_diary_new (disco_store, path, ex);
g_free (path);
retval = TRUE;
g_free(store->current_folder);
store->current_folder = NULL;
fail:
CAMEL_NNTP_STORE_UNLOCK(store, command_lock);
return retval;
}
static struct {
char *value;
int mode;
} ssl_options[] = {
{ "", USE_SSL_ALWAYS },
{ "always", USE_SSL_ALWAYS },
{ "when-possible", USE_SSL_WHEN_POSSIBLE },
{ "never", USE_SSL_NEVER },
{ NULL, USE_SSL_NEVER },
};
static gboolean
nntp_connect_online (CamelService *service, CamelException *ex)
{
#ifdef HAVE_SSL
const char *use_ssl;
int i, ssl_mode;
use_ssl = camel_url_get_param (service->url, "use_ssl");
if (use_ssl) {
for (i = 0; ssl_options[i].value; i++)
if (!strcmp (ssl_options[i].value, use_ssl))
break;
ssl_mode = ssl_options[i].mode;
} else
ssl_mode = USE_SSL_NEVER;
if (ssl_mode == USE_SSL_ALWAYS) {
/* Connect via SSL */
return connect_to_server (service, ssl_mode, ex);
} else if (ssl_mode == USE_SSL_WHEN_POSSIBLE) {
/* If the server supports SSL, use it */
if (!connect_to_server (service, ssl_mode, ex)) {
if (camel_exception_get_id (ex) == CAMEL_EXCEPTION_SERVICE_UNAVAILABLE) {
/* The ssl port seems to be unavailable, fall back to plain NNTP */
camel_exception_clear (ex);
return connect_to_server (service, USE_SSL_NEVER, ex);
} else {
return FALSE;
}
}
return TRUE;
} else {
/* User doesn't care about SSL */
return connect_to_server (service, ssl_mode, ex);
}
#else
return connect_to_server (service, USE_SSL_NEVER, ex);
#endif
}
static gboolean
nntp_connect_offline (CamelService *service, CamelException *ex)
{
CamelNNTPStore *nntp_store = CAMEL_NNTP_STORE(service);
CamelDiscoStore *disco_store = (CamelDiscoStore *) nntp_store;
char *path;
if (nntp_store->storage_path == NULL)
return FALSE;
/* setup store-wide cache */
if (nntp_store->cache == NULL) {
nntp_store->cache = camel_data_cache_new (nntp_store->storage_path, 0, ex);
if (nntp_store->cache == NULL)
return FALSE;
/* Default cache expiry - 2 weeks old, or not visited in 5 days */
camel_data_cache_set_expire_age (nntp_store->cache, 60*60*24*14);
camel_data_cache_set_expire_access (nntp_store->cache, 60*60*24*5);
}
path = g_build_filename (nntp_store->storage_path, ".ev-journal", NULL);
disco_store->diary = camel_disco_diary_new (disco_store, path, ex);
g_free (path);
if (!disco_store->diary)
return FALSE;
return TRUE;
}
static gboolean
nntp_disconnect_online (CamelService *service, gboolean clean, CamelException *ex)
{
CamelNNTPStore *store = CAMEL_NNTP_STORE (service);
char *line;
CAMEL_NNTP_STORE_LOCK(store, command_lock);
if (clean) {
camel_nntp_raw_command (store, ex, &line, "quit");
camel_exception_clear(ex);
}
if (!service_class->disconnect (service, clean, ex)) {
CAMEL_NNTP_STORE_UNLOCK(store, command_lock);
return FALSE;
}
camel_object_unref (store->stream);
store->stream = NULL;
g_free(store->current_folder);
store->current_folder = NULL;
CAMEL_NNTP_STORE_UNLOCK(store, command_lock);
return TRUE;
}
static gboolean
nntp_disconnect_offline (CamelService *service, gboolean clean, CamelException *ex)
{
CamelDiscoStore *disco = CAMEL_DISCO_STORE(service);
if (!service_class->disconnect (service, clean, ex))
return FALSE;
if (disco->diary) {
camel_object_unref (disco->diary);
disco->diary = NULL;
}
return TRUE;
}
static char *
nntp_store_get_name (CamelService *service, gboolean brief)
{
if (brief)
return g_strdup_printf ("%s", service->url->host);
else
return g_strdup_printf (_("USENET News via %s"), service->url->host);
}
extern CamelServiceAuthType camel_nntp_password_authtype;
static GList *
nntp_store_query_auth_types (CamelService *service, CamelException *ex)
{
return g_list_append (NULL, &camel_nntp_password_authtype);
}
static CamelFolder *
nntp_get_folder(CamelStore *store, const char *folder_name, guint32 flags, CamelException *ex)
{
CamelNNTPStore *nntp_store = CAMEL_NNTP_STORE (store);
CamelFolder *folder;
CAMEL_NNTP_STORE_LOCK(nntp_store, command_lock);
folder = camel_nntp_folder_new(store, folder_name, ex);
CAMEL_NNTP_STORE_UNLOCK(nntp_store, command_lock);
return folder;
}
/*
* Converts a fully-fledged newsgroup name to a name in short dotted notation,
* e.g. nl.comp.os.linux.programmeren becomes n.c.o.l.programmeren
*/
static char *
nntp_newsgroup_name_short (const char *name)
{
char *resptr, *tmp;
const char *ptr2;
resptr = tmp = g_malloc0 (strlen (name) + 1);
while ((ptr2 = strchr (name, '.'))) {
if (ptr2 == name) {
name++;
continue;
}
*resptr++ = *name;
*resptr++ = '.';
name = ptr2 + 1;
}
strcpy (resptr, name);
return tmp;
}
/*
* This function converts a NNTPStoreSummary item to a FolderInfo item that
* can be returned by the get_folders() call to the store. Both structs have
* essentially the same fields.
*/
static CamelFolderInfo *
nntp_folder_info_from_store_info (CamelNNTPStore *store, gboolean short_notation, CamelStoreInfo *si)
{
CamelURL *base_url = ((CamelService *) store)->url;
CamelFolderInfo *fi = g_malloc0(sizeof(*fi));
CamelURL *url;
char *path;
fi->full_name = g_strdup (si->path);
if (short_notation)
fi->name = nntp_newsgroup_name_short (si->path);
else
fi->name = g_strdup (si->path);
fi->unread = si->unread;
fi->total = si->total;
path = alloca(strlen(fi->full_name)+2);
sprintf(path, "/%s", fi->full_name);
url = camel_url_new_with_base (base_url, path);
fi->uri = camel_url_to_string (url, CAMEL_URL_HIDE_ALL);
camel_url_free (url);
return fi;
}
static CamelFolderInfo *
nntp_folder_info_from_name (CamelNNTPStore *store, gboolean short_notation, const char *name)
{
CamelFolderInfo *fi = g_malloc0(sizeof(*fi));
CamelURL *base_url = ((CamelService *)store)->url;
CamelURL *url;
char *path;
fi->full_name = g_strdup (name);
if (short_notation)
fi->name = nntp_newsgroup_name_short (name);
else
fi->name = g_strdup (name);
fi->unread = -1;
path = alloca(strlen(fi->full_name)+2);
sprintf(path, "/%s", fi->full_name);
url = camel_url_new_with_base (base_url, path);
fi->uri = camel_url_to_string (url, CAMEL_URL_HIDE_ALL);
camel_url_free (url);
return fi;
}
/* handle list/newgroups response */
static CamelNNTPStoreInfo *
nntp_store_info_update(CamelNNTPStore *store, char *line)
{
CamelStoreSummary *summ = (CamelStoreSummary *)store->summary;
CamelURL *base_url = ((CamelService *)store)->url;
CamelNNTPStoreInfo *si, *fsi;
CamelURL *url;
char *relpath, *tmp;
guint32 last = 0, first = 0, new = 0;
tmp = strchr(line, ' ');
if (tmp)
*tmp++ = 0;
fsi = si = (CamelNNTPStoreInfo *)camel_store_summary_path((CamelStoreSummary *)store->summary, line);
if (si == NULL) {
si = (CamelNNTPStoreInfo*)camel_store_summary_info_new(summ);
relpath = g_alloca(strlen(line)+2);
sprintf(relpath, "/%s", line);
url = camel_url_new_with_base (base_url, relpath);
si->info.uri = camel_url_to_string (url, CAMEL_URL_HIDE_ALL);
camel_url_free (url);
si->info.path = g_strdup (line);
si->full_name = g_strdup (line); /* why do we keep this? */
camel_store_summary_add((CamelStoreSummary *)store->summary, &si->info);
} else {
first = si->first;
last = si->last;
}
if (tmp && *tmp >= '0' && *tmp <= '9') {
last = strtoul(tmp, &tmp, 10);
if (*tmp == ' ' && tmp[1] >= '0' && tmp[1] <= '9') {
first = strtoul(tmp+1, &tmp, 10);
if (*tmp == ' ' && tmp[1] != 'y')
si->info.flags |= CAMEL_STORE_INFO_FOLDER_READONLY;
}
}
printf("store info update '%s' first '%d' last '%d'\n", line, first, last);
if (si->last) {
if (last > si->last)
new = last-si->last;
} else {
if (last > first)
new = last - first;
}
si->info.total = last > first?last-first:0;
si->info.unread += new; /* this is a _guess_ */
si->last = last;
si->first = first;
if (fsi)
camel_store_summary_info_free((CamelStoreSummary *)store->summary, &fsi->info);
else /* TODO see if we really did touch it */
camel_store_summary_touch ((CamelStoreSummary *)store->summary);
return si;
}
static CamelFolderInfo *
nntp_store_get_subscribed_folder_info (CamelNNTPStore *store, const char *top, guint flags, CamelException *ex)
{
int i;
CamelStoreInfo *si;
CamelFolderInfo *first = NULL, *last = NULL, *fi = NULL;
/* since we do not do a tree, any request that is not for root is sure to give no results */
if (top != NULL && top[0] != 0)
return NULL;
for (i=0;(si = camel_store_summary_index ((CamelStoreSummary *) store->summary, i));i++) {
if (si == NULL)
continue;
if (si->flags & CAMEL_STORE_INFO_FOLDER_SUBSCRIBED) {
/* slow mode? open and update the folder, always! this will implictly update
our storeinfo too; in a very round-about way */
if ((flags & CAMEL_STORE_FOLDER_INFO_FAST) == 0) {
CamelNNTPFolder *folder;
char *line;
folder = (CamelNNTPFolder *)camel_store_get_folder((CamelStore *)store, si->path, 0, ex);
if (folder) {
camel_nntp_command(store, ex, folder, &line, NULL);
camel_object_unref(folder);
}
camel_exception_clear(ex);
}
fi = nntp_folder_info_from_store_info (store, store->do_short_folder_notation, si);
fi->flags |= CAMEL_FOLDER_NOINFERIORS | CAMEL_FOLDER_NOCHILDREN | CAMEL_FOLDER_SYSTEM;
if (last)
last->next = fi;
else
first = fi;
last = fi;
}
camel_store_summary_info_free ((CamelStoreSummary *) store->summary, si);
}
return first;
}
/*
* get folder info, using the information in our StoreSummary
*/
static CamelFolderInfo *
nntp_store_get_cached_folder_info (CamelNNTPStore *store, const char *orig_top, guint flags, CamelException *ex)
{
int i;
int subscribed_or_flag = (flags & CAMEL_STORE_FOLDER_INFO_SUBSCRIBED) ? 0 : 1,
root_or_flag = (orig_top == NULL || orig_top[0] == '\0') ? 1 : 0,
recursive_flag = flags & CAMEL_STORE_FOLDER_INFO_RECURSIVE;
CamelStoreInfo *si;
CamelFolderInfo *first = NULL, *last = NULL, *fi = NULL;
char *tmpname;
char *top = g_strconcat(orig_top?orig_top:"", ".", NULL);
int toplen = strlen(top);
for (i = 0; (si = camel_store_summary_index ((CamelStoreSummary *) store->summary, i)); i++) {
if ((subscribed_or_flag || (si->flags & CAMEL_STORE_INFO_FOLDER_SUBSCRIBED)) &&
(root_or_flag || g_ascii_strncasecmp (si->path, top, toplen) == 0)) {
if (recursive_flag || strchr (si->path + toplen, '.') == NULL) {
/* add the item */
fi = nntp_folder_info_from_store_info(store, FALSE, si);
if (!fi)
continue;
if (store->folder_hierarchy_relative) {
g_free (fi->name);
fi->name = g_strdup (si->path + ((toplen == 1) ? 0 : toplen));
}
} else {
/* apparently, this is an indirect subitem. if it's not a subitem of
the item we added last, we need to add a portion of this item to
the list as a placeholder */
if (!last ||
g_ascii_strncasecmp(si->path, last->full_name, strlen(last->full_name)) != 0 ||
si->path[strlen(last->full_name)] != '.') {
tmpname = g_strdup(si->path);
*(strchr(tmpname + toplen, '.')) = '\0';
fi = nntp_folder_info_from_name(store, FALSE, tmpname);
fi->flags |= CAMEL_FOLDER_NOSELECT;
if (store->folder_hierarchy_relative) {
g_free(fi->name);
fi->name = g_strdup(tmpname + ((toplen==1) ? 0 : toplen));
}
g_free(tmpname);
} else {
continue;
}
}
if (last)
last->next = fi;
else
first = fi;
last = fi;
} else if (subscribed_or_flag && first) {
/* we have already added subitems, but this item is no longer a subitem */
camel_store_summary_info_free((CamelStoreSummary *)store->summary, si);
break;
}
camel_store_summary_info_free((CamelStoreSummary *)store->summary, si);
}
g_free(top);
return first;
}
/* retrieves the date from the NNTP server */
static gboolean
nntp_get_date(CamelNNTPStore *nntp_store, CamelException *ex)
{
unsigned char *line;
int ret = camel_nntp_command(nntp_store, ex, NULL, (char **)&line, "date");
char *ptr;
nntp_store->summary->last_newslist[0] = 0;
if (ret == 111) {
ptr = line + 3;
while (*ptr == ' ' || *ptr == '\t')
ptr++;
if (strlen (ptr) == NNTP_DATE_SIZE) {
memcpy (nntp_store->summary->last_newslist, ptr, NNTP_DATE_SIZE);
return TRUE;
}
}
return FALSE;
}
static void
store_info_remove(void *key, void *value, void *data)
{
CamelStoreSummary *summary = data;
CamelStoreInfo *si = value;
camel_store_summary_remove(summary, si);
}
static gint
store_info_sort (gconstpointer a, gconstpointer b)
{
return strcmp ((*(CamelNNTPStoreInfo**) a)->full_name, (*(CamelNNTPStoreInfo**) b)->full_name);
}
static CamelFolderInfo *
nntp_store_get_folder_info_all(CamelNNTPStore *nntp_store, const char *top, guint32 flags, gboolean online, CamelException *ex)
{
CamelNNTPStoreSummary *summary = nntp_store->summary;
CamelNNTPStoreInfo *si;
unsigned int len;
unsigned char *line;
int ret = -1;
if (top == NULL)
top = "";
if (online && (top == NULL || top[0] == 0)) {
/* we may need to update */
if (summary->last_newslist[0] != 0) {
char date[14];
memcpy(date, summary->last_newslist + 2, 6); /* YYMMDDD */
date[6] = ' ';
memcpy(date + 7, summary->last_newslist + 8, 6); /* HHMMSS */
date[13] = '\0';
if (!nntp_get_date (nntp_store, ex))
return NULL;
ret = camel_nntp_command (nntp_store, ex, NULL, (char **) &line, "newgroups %s", date);
if (ret == -1)
return NULL;
else if (ret != 231) {
/* newgroups not supported :S so reload the complete list */
summary->last_newslist[0] = 0;
goto do_complete_list;
}
while ((ret = camel_nntp_stream_line (nntp_store->stream, &line, &len)) > 0)
nntp_store_info_update(nntp_store, line);
} else {
GHashTable *all;
int i;
do_complete_list:
/* seems we do need a complete list */
/* at first, we do a DATE to find out the last load occasion */
if (!nntp_get_date (nntp_store, ex))
goto error;
ret = camel_nntp_command (nntp_store, ex, NULL, (char **)&line, "list");
if (ret == -1)
return NULL;
else if (ret != 215) {
camel_exception_setv (ex, CAMEL_EXCEPTION_SERVICE_INVALID,
_("Error retrieving newsgroups:\n\n%s"), line);
goto error;
}
all = g_hash_table_new(g_str_hash, g_str_equal);
for (i = 0; (si = (CamelNNTPStoreInfo *)camel_store_summary_index ((CamelStoreSummary *)nntp_store->summary, i)); i++)
g_hash_table_insert(all, si->info.path, si);
while ((ret = camel_nntp_stream_line(nntp_store->stream, &line, &len)) > 0) {
si = nntp_store_info_update(nntp_store, line);
g_hash_table_remove(all, si->info.path);
}
g_hash_table_foreach(all, store_info_remove, nntp_store->summary);
g_hash_table_destroy(all);
}
/* sort the list */
g_ptr_array_sort (CAMEL_STORE_SUMMARY (nntp_store->summary)->folders, store_info_sort);
if (ret < 0)
goto error;
camel_store_summary_save ((CamelStoreSummary *) nntp_store->summary);
}
return nntp_store_get_cached_folder_info (nntp_store, top, flags, ex);
error:
return NULL;
}
static CamelFolderInfo *
nntp_get_folder_info (CamelStore *store, const char *top, guint32 flags, gboolean online, CamelException *ex)
{
CamelNNTPStore *nntp_store = CAMEL_NNTP_STORE(store);
CamelFolderInfo *first = NULL;
dd(printf("g_f_i: fast %d subscr %d recursive %d online %d top \"%s\"\n",
flags & CAMEL_STORE_FOLDER_INFO_FAST,
flags & CAMEL_STORE_FOLDER_INFO_SUBSCRIBED,
flags & CAMEL_STORE_FOLDER_INFO_RECURSIVE,
online,
top?top:""));
CAMEL_NNTP_STORE_LOCK(nntp_store, command_lock);
if (flags & CAMEL_STORE_FOLDER_INFO_SUBSCRIBED)
first = nntp_store_get_subscribed_folder_info (nntp_store, top, flags, ex);
else
first = nntp_store_get_folder_info_all (nntp_store, top, flags, online, ex);
CAMEL_NNTP_STORE_UNLOCK(nntp_store, command_lock);
return first;
}
static CamelFolderInfo *
nntp_get_folder_info_online (CamelStore *store, const char *top, guint32 flags, CamelException *ex)
{
return nntp_get_folder_info (store, top, flags, TRUE, ex);
}
static CamelFolderInfo *
nntp_get_folder_info_offline(CamelStore *store, const char *top, guint32 flags, CamelException *ex)
{
return nntp_get_folder_info (store, top, flags, FALSE, ex);
}
static gboolean
nntp_store_folder_subscribed (CamelStore *store, const char *folder_name)
{
CamelNNTPStore *nntp_store = CAMEL_NNTP_STORE (store);
CamelStoreInfo *si;
int truth = FALSE;
si = camel_store_summary_path ((CamelStoreSummary *) nntp_store->summary, folder_name);
if (si) {
truth = (si->flags & CAMEL_STORE_INFO_FOLDER_SUBSCRIBED) != 0;
camel_store_summary_info_free ((CamelStoreSummary *) nntp_store->summary, si);
}
return truth;
}
static void
nntp_store_subscribe_folder (CamelStore *store, const char *folder_name,
CamelException *ex)
{
CamelNNTPStore *nntp_store = CAMEL_NNTP_STORE(store);
CamelStoreInfo *si;
CamelFolderInfo *fi;
CAMEL_NNTP_STORE_LOCK(nntp_store, command_lock);
si = camel_store_summary_path(CAMEL_STORE_SUMMARY(nntp_store->summary), folder_name);
if (!si) {
camel_exception_setv (ex, CAMEL_EXCEPTION_FOLDER_INVALID,
_("You cannot subscribe to this newsgroup:\n\n"
"No such newsgroup. The selected item is a probably a parent folder."));
} else {
if (!(si->flags & CAMEL_STORE_INFO_FOLDER_SUBSCRIBED)) {
si->flags |= CAMEL_STORE_INFO_FOLDER_SUBSCRIBED;
fi = nntp_folder_info_from_store_info(nntp_store, nntp_store->do_short_folder_notation, si);
fi->flags |= CAMEL_FOLDER_NOINFERIORS | CAMEL_FOLDER_NOCHILDREN;
camel_store_summary_touch ((CamelStoreSummary *) nntp_store->summary);
camel_store_summary_save ((CamelStoreSummary *) nntp_store->summary);
CAMEL_NNTP_STORE_UNLOCK(nntp_store, command_lock);
camel_object_trigger_event ((CamelObject *) nntp_store, "folder_subscribed", fi);
camel_folder_info_free (fi);
return;
}
}
CAMEL_NNTP_STORE_UNLOCK(nntp_store, command_lock);
}
static void
nntp_store_unsubscribe_folder (CamelStore *store, const char *folder_name,
CamelException *ex)
{
CamelNNTPStore *nntp_store = CAMEL_NNTP_STORE(store);
CamelFolderInfo *fi;
CamelStoreInfo *fitem;
CAMEL_NNTP_STORE_LOCK(nntp_store, command_lock);
fitem = camel_store_summary_path(CAMEL_STORE_SUMMARY(nntp_store->summary), folder_name);
if (!fitem) {
camel_exception_setv (ex, CAMEL_EXCEPTION_FOLDER_INVALID,
_("You cannot unsubscribe to this newsgroup:\n\n"
"newsgroup does not exist!"));
} else {
if (fitem->flags & CAMEL_STORE_INFO_FOLDER_SUBSCRIBED) {
fitem->flags &= ~CAMEL_STORE_INFO_FOLDER_SUBSCRIBED;
fi = nntp_folder_info_from_store_info (nntp_store, nntp_store->do_short_folder_notation, fitem);
camel_store_summary_touch ((CamelStoreSummary *) nntp_store->summary);
camel_store_summary_save ((CamelStoreSummary *) nntp_store->summary);
CAMEL_NNTP_STORE_UNLOCK(nntp_store, command_lock);
camel_object_trigger_event ((CamelObject *) nntp_store, "folder_unsubscribed", fi);
camel_folder_info_free (fi);
return;
}
}
CAMEL_NNTP_STORE_UNLOCK(nntp_store, command_lock);
}
/* stubs for various folder operations we're not implementing */
static CamelFolderInfo *
nntp_create_folder (CamelStore *store, const char *parent_name,
const char *folder_name, CamelException *ex)
{
camel_exception_setv (ex, CAMEL_EXCEPTION_FOLDER_INVALID,
_("You cannot create a folder in a News store: subscribe instead."));
return NULL;
}
static void
nntp_rename_folder (CamelStore *store, const char *old_name, const char *new_name_in, CamelException *ex)
{
camel_exception_setv (ex, CAMEL_EXCEPTION_FOLDER_INVALID,
_("You cannot rename a folder in a News store."));
}
static void
nntp_delete_folder (CamelStore *store, const char *folder_name, CamelException *ex)
{
nntp_store_subscribe_folder (store, folder_name, ex);
camel_exception_setv (ex, CAMEL_EXCEPTION_FOLDER_INVALID,
_("You cannot remove a folder in a News store: unsubscribe instead."));
return;
}
static void
nntp_store_finalize (CamelObject *object)
{
/* call base finalize */
CamelNNTPStore *nntp_store = CAMEL_NNTP_STORE (object);
struct _CamelNNTPStorePrivate *p = nntp_store->priv;
struct _xover_header *xover, *xn;
camel_service_disconnect ((CamelService *)object, TRUE, NULL);
if (nntp_store->summary) {
camel_store_summary_save ((CamelStoreSummary *) nntp_store->summary);
camel_object_unref (nntp_store->summary);
}
camel_object_unref (nntp_store->mem);
nntp_store->mem = NULL;
if (nntp_store->stream)
camel_object_unref (nntp_store->stream);
if (nntp_store->base_url)
g_free (nntp_store->base_url);
if (nntp_store->storage_path)
g_free (nntp_store->storage_path);
xover = nntp_store->xover;
while (xover) {
xn = xover->next;
g_free(xover);
xover = xn;
}
e_mutex_destroy(p->command_lock);
g_free(p);
}
static void
nntp_store_class_init (CamelNNTPStoreClass *camel_nntp_store_class)
{
CamelDiscoStoreClass *camel_disco_store_class = CAMEL_DISCO_STORE_CLASS (camel_nntp_store_class);
CamelStoreClass *camel_store_class = CAMEL_STORE_CLASS (camel_nntp_store_class);
CamelServiceClass *camel_service_class = CAMEL_SERVICE_CLASS (camel_nntp_store_class);
parent_class = CAMEL_DISCO_STORE_CLASS (camel_type_get_global_classfuncs (camel_disco_store_get_type ()));
service_class = CAMEL_SERVICE_CLASS (camel_type_get_global_classfuncs (camel_service_get_type ()));
/* virtual method overload */
camel_service_class->construct = nntp_construct;
camel_service_class->query_auth_types = nntp_store_query_auth_types;
camel_service_class->get_name = nntp_store_get_name;
camel_disco_store_class->can_work_offline = nntp_can_work_offline;
camel_disco_store_class->connect_online = nntp_connect_online;
camel_disco_store_class->connect_offline = nntp_connect_offline;
camel_disco_store_class->disconnect_online = nntp_disconnect_online;
camel_disco_store_class->disconnect_offline = nntp_disconnect_offline;
camel_disco_store_class->get_folder_online = nntp_get_folder;
camel_disco_store_class->get_folder_resyncing = nntp_get_folder;
camel_disco_store_class->get_folder_offline = nntp_get_folder;
camel_disco_store_class->get_folder_info_online = nntp_get_folder_info_online;
camel_disco_store_class->get_folder_info_resyncing = nntp_get_folder_info_online;
camel_disco_store_class->get_folder_info_offline = nntp_get_folder_info_offline;
camel_store_class->free_folder_info = camel_store_free_folder_info_full;
camel_store_class->folder_subscribed = nntp_store_folder_subscribed;
camel_store_class->subscribe_folder = nntp_store_subscribe_folder;
camel_store_class->unsubscribe_folder = nntp_store_unsubscribe_folder;
camel_store_class->create_folder = nntp_create_folder;
camel_store_class->delete_folder = nntp_delete_folder;
camel_store_class->rename_folder = nntp_rename_folder;
}
/* construction function in which we set some basic store properties */
static void
nntp_construct (CamelService *service, CamelSession *session,
CamelProvider *provider, CamelURL *url,
CamelException *ex)
{
CamelNNTPStore *nntp_store = CAMEL_NNTP_STORE(service);
CamelURL *summary_url;
char *tmp;
/* construct the parent first */
CAMEL_SERVICE_CLASS (parent_class)->construct (service, session, provider, url, ex);
if (camel_exception_is_set (ex))
return;
/* find out the storage path, base url */
nntp_store->storage_path = camel_session_get_storage_path (session, service, ex);
if (!nntp_store->storage_path)
return;
/* FIXME */
nntp_store->base_url = camel_url_to_string (service->url, (CAMEL_URL_HIDE_PASSWORD |
CAMEL_URL_HIDE_PARAMS |
CAMEL_URL_HIDE_AUTH));
tmp = g_build_filename (nntp_store->storage_path, ".ev-store-summary", NULL);
nntp_store->summary = camel_nntp_store_summary_new ();
camel_store_summary_set_filename ((CamelStoreSummary *) nntp_store->summary, tmp);
summary_url = camel_url_new (nntp_store->base_url, NULL);
camel_store_summary_set_uri_base ((CamelStoreSummary *) nntp_store->summary, summary_url);
g_free (tmp);
camel_url_free (summary_url);
if (camel_store_summary_load ((CamelStoreSummary *)nntp_store->summary) == 0)
;
/* get options */
if (camel_url_get_param (url, "show_short_notation"))
nntp_store->do_short_folder_notation = TRUE;
else
nntp_store->do_short_folder_notation = FALSE;
if (camel_url_get_param (url, "folder_hierarchy_relative"))
nntp_store->folder_hierarchy_relative = TRUE;
else
nntp_store->folder_hierarchy_relative = FALSE;
}
static void
nntp_store_init (gpointer object, gpointer klass)
{
CamelNNTPStore *nntp_store = CAMEL_NNTP_STORE(object);
CamelStore *store = CAMEL_STORE (object);
struct _CamelNNTPStorePrivate *p;
store->flags = CAMEL_STORE_SUBSCRIPTIONS;
nntp_store->mem = (CamelStreamMem *)camel_stream_mem_new();
p = nntp_store->priv = g_malloc0(sizeof(*p));
p->command_lock = e_mutex_new(E_MUTEX_REC);
}
CamelType
camel_nntp_store_get_type (void)
{
static CamelType camel_nntp_store_type = CAMEL_INVALID_TYPE;
if (camel_nntp_store_type == CAMEL_INVALID_TYPE) {
camel_nntp_store_type =
camel_type_register (CAMEL_DISCO_STORE_TYPE,
"CamelNNTPStore",
sizeof (CamelNNTPStore),
sizeof (CamelNNTPStoreClass),
(CamelObjectClassInitFunc) nntp_store_class_init,
NULL,
(CamelObjectInitFunc) nntp_store_init,
(CamelObjectFinalizeFunc) nntp_store_finalize);
}
return camel_nntp_store_type;
}
static int
camel_nntp_try_authenticate (CamelNNTPStore *store, CamelException *ex)
{
CamelService *service = (CamelService *) store;
CamelSession *session = camel_service_get_session (service);
int ret;
char *line;
if (!service->url->user) {
camel_exception_setv(ex, CAMEL_EXCEPTION_INVALID_PARAM,
_("Authentication requested but not username provided"));
return -1;
}
/* if nessecary, prompt for the password */
if (!service->url->passwd) {
char *prompt;
prompt = g_strdup_printf (_("Please enter the NNTP password for %s@%s"),
service->url->user,
service->url->host);
service->url->passwd =
camel_session_get_password (session, service, NULL,
prompt, "password", CAMEL_SESSION_PASSWORD_SECRET, ex);
g_free (prompt);
if (!service->url->passwd)
return -1;
}
/* now, send auth info (currently, only authinfo user/pass is supported) */
ret = camel_nntp_raw_command(store, ex, &line, "authinfo user %s", service->url->user);
if (ret == NNTP_AUTH_CONTINUE)
ret = camel_nntp_raw_command(store, ex, &line, "authinfo pass %s", service->url->passwd);
if (ret != NNTP_AUTH_ACCEPTED) {
if (ret != -1) {
/* Need to forget the password here since we have no context on it */
camel_session_forget_password(session, service, NULL, "password", ex);
camel_exception_setv(ex, CAMEL_EXCEPTION_SERVICE_CANT_AUTHENTICATE,
_("Cannot authenticate to server: %s"), line);
}
return -1;
}
return ret;
}
/* Enter owning lock */
int
camel_nntp_raw_commandv (CamelNNTPStore *store, CamelException *ex, char **line, const char *fmt, va_list ap)
{
const unsigned char *p, *ps;
unsigned char c;
char *s;
int d;
unsigned int u, u2;
e_mutex_assert_locked(store->priv->command_lock);
g_assert(store->stream->mode != CAMEL_NNTP_STREAM_DATA);
camel_nntp_stream_set_mode(store->stream, CAMEL_NNTP_STREAM_LINE);
ps = p = fmt;
while ((c = *p++)) {
switch (c) {
case '%':
c = *p++;
camel_stream_write ((CamelStream *) store->mem, ps, p - ps - (c == '%' ? 1 : 2));
ps = p;
switch (c) {
case 's':
s = va_arg(ap, char *);
camel_stream_write((CamelStream *)store->mem, s, strlen(s));
break;
case 'd':
d = va_arg(ap, int);
camel_stream_printf((CamelStream *)store->mem, "%d", d);
break;
case 'u':
u = va_arg(ap, unsigned int);
camel_stream_printf((CamelStream *)store->mem, "%u", u);
break;
case 'm':
s = va_arg(ap, char *);
camel_stream_printf((CamelStream *)store->mem, "<%s>", s);
break;
case 'r':
u = va_arg(ap, unsigned int);
u2 = va_arg(ap, unsigned int);
if (u == u2)
camel_stream_printf((CamelStream *)store->mem, "%u", u);
else
camel_stream_printf((CamelStream *)store->mem, "%u-%u", u, u2);
break;
default:
g_warning("Passing unknown format to nntp_command: %c\n", c);
g_assert(0);
}
}
}
camel_stream_write ((CamelStream *) store->mem, ps, p-ps-1);
dd(printf("NNTP_COMMAND: '%.*s'\n", (int)store->mem->buffer->len, store->mem->buffer->data));
camel_stream_write ((CamelStream *) store->mem, "\r\n", 2);
if (camel_stream_write((CamelStream *) store->stream, store->mem->buffer->data, store->mem->buffer->len) == -1)
goto ioerror;
/* FIXME: hack */
camel_stream_reset ((CamelStream *) store->mem);
g_byte_array_set_size (store->mem->buffer, 0);
if (camel_nntp_stream_line (store->stream, (unsigned char **) line, &u) == -1)
goto ioerror;
u = strtoul (*line, NULL, 10);
/* Handle all switching to data mode here, to make callers job easier */
if (u == 215 || (u >= 220 && u <=224) || (u >= 230 && u <= 231))
camel_nntp_stream_set_mode(store->stream, CAMEL_NNTP_STREAM_DATA);
return u;
ioerror:
if (errno == EINTR)
camel_exception_setv(ex, CAMEL_EXCEPTION_USER_CANCEL, _("Cancelled."));
else
camel_exception_setv(ex, CAMEL_EXCEPTION_SYSTEM, _("NNTP Command failed: %s"), g_strerror(errno));
return -1;
}
int
camel_nntp_raw_command(CamelNNTPStore *store, CamelException *ex, char **line, const char *fmt, ...)
{
int ret;
va_list ap;
va_start(ap, fmt);
ret = camel_nntp_raw_commandv(store, ex, line, fmt, ap);
va_end(ap);
return ret;
}
int
camel_nntp_command (CamelNNTPStore *store, CamelException *ex, CamelNNTPFolder *folder, char **line, const char *fmt, ...)
{
const unsigned char *p;
va_list ap;
int ret, retry;
unsigned int u;
e_mutex_assert_locked(store->priv->command_lock);
if (((CamelDiscoStore *)store)->status == CAMEL_DISCO_STORE_OFFLINE) {
camel_exception_setv(ex, CAMEL_EXCEPTION_SERVICE_NOT_CONNECTED,
_("Not connected."));
return -1;
}
retry = 0;
do {
retry ++;
if (store->stream == NULL
&& !camel_service_connect (CAMEL_SERVICE (store), ex))
return -1;
/* Check for unprocessed data, ! */
if (store->stream->mode == CAMEL_NNTP_STREAM_DATA) {
g_warning("Unprocessed data left in stream, flushing");
while (camel_nntp_stream_getd(store->stream, (unsigned char **)&p, &u) > 0)
;
}
camel_nntp_stream_set_mode(store->stream, CAMEL_NNTP_STREAM_LINE);
if (folder != NULL
&& (store->current_folder == NULL || strcmp(store->current_folder, ((CamelFolder *)folder)->full_name) != 0)) {
ret = camel_nntp_raw_command(store, ex, line, "group %s", ((CamelFolder *)folder)->full_name);
if (ret == 211) {
g_free(store->current_folder);
store->current_folder = g_strdup(((CamelFolder *)folder)->full_name);
camel_nntp_folder_selected(folder, *line, ex);
if (camel_exception_is_set(ex))
return -1;
} else {
goto error;
}
}
/* dummy fmt, we just wanted to select the folder */
if (fmt == NULL)
return 0;
va_start(ap, fmt);
ret = camel_nntp_raw_commandv(store, ex, line, fmt, ap);
va_end(ap);
error:
switch (ret) {
case NNTP_AUTH_REQUIRED:
if (camel_nntp_try_authenticate(store, ex) != NNTP_AUTH_ACCEPTED)
return -1;
continue;
case 411: /* no such group */
camel_exception_setv(ex, CAMEL_EXCEPTION_FOLDER_INVALID,
_("No such folder: %s"), line);
return -1;
case 400: /* service discontinued */
case 401: /* wrong client state - this should quit but this is what the old code did */
case 503: /* information not available - this should quit but this is what the old code did (?) */
camel_service_disconnect (CAMEL_SERVICE (store), FALSE, NULL);
continue;
case -1: /* i/o error */
camel_service_disconnect (CAMEL_SERVICE (store), FALSE, NULL);
if (camel_exception_get_id(ex) == CAMEL_EXCEPTION_USER_CANCEL)
return -1;
camel_exception_clear(ex);
break;
}
} while (ret == -1 && retry < 3);
if (ret == -1) {
if (errno == EINTR)
camel_exception_setv(ex, CAMEL_EXCEPTION_USER_CANCEL, _("Cancelled."));
else
camel_exception_setv(ex, CAMEL_EXCEPTION_SYSTEM, _("NNTP Command failed: %s"), g_strerror(errno));
}
return ret;
}