2 * Claws Mail -- a GTK based, lightweight, and fast e-mail client
3 * Copyright (C) 2016-2022 the Claws Mail team
5 * This program is free software; you can redistribute it and/or modify
6 * it under the terms of the GNU General Public License as published by
7 * the Free Software Foundation; either version 3 of the License, or
8 * (at your option) any later version.
10 * This program is distributed in the hope that it will be useful,
11 * but WITHOUT ANY WARRANTY; without even the implied warranty of
12 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
13 * GNU General Public License for more details.
15 * You should have received a copy of the GNU General Public License
16 * along with this program. If not, see <http://www.gnu.org/licenses/>.
21 #include "claws-features.h"
25 #include <glib/gi18n.h>
33 #include "folder_item_prefs.h"
34 #include "prefs_account.h"
35 #include "prefs_common.h"
36 #include "alertpanel.h"
38 static gint starting_config_version = 0;
40 gboolean _version_check(gint ver)
42 if (ver > CLAWS_CONFIG_VERSION) {
47 markup = g_strdup_printf(
48 "<a href=\"%s\"><span underline=\"none\">",
50 msg = g_strdup_printf(
51 _("Your Claws Mail configuration is from a newer "
52 "version than the version which you are currently "
54 "This is not recommended.\n\n"
55 "For further information see the %sClaws Mail "
57 "Do you want to exit now?"),
58 markup, "</span></a>");
60 av = alertpanel_full(_("Configuration warning"), msg,
61 NULL, _("_No"), NULL, _("_Yes"),
62 NULL, NULL, ALERTFOCUS_SECOND,
63 FALSE, NULL, ALERT_ERROR);
66 if (av != G_ALERTDEFAULT)
67 return FALSE; /* abort startup */
69 return TRUE; /* hic sunt dracones */
75 static void _update_config_common(gint version)
77 debug_print("Updating config version %d to %d.\n", version, version + 1);
82 /* The autochk_interval preference is now
83 * interpreted as seconds instead of minutes */
84 prefs_common.autochk_itv *= 60;
96 static void _update_config_account(PrefsAccount *ac_prefs, gint version)
98 debug_print("Account '%s': Updating config version from %d to %d.\n",
99 ac_prefs->account_name, version, version + 1);
104 /* Removing A_APOP and A_RPOP from RecvProtocol enum,
105 * protocol numbers above A_POP3 need to be adjusted.
107 * In config_version=0:
111 * A_IMAP and the rest are from 3 up.
112 * We can't use the macros, since they may change in the
113 * future. Numbers do not change. :) */
114 if (ac_prefs->protocol == 1) {
115 ac_prefs->protocol = 0;
116 } else if (ac_prefs->protocol > 2) {
117 /* A_IMAP and above gets bumped down by 2. */
118 ac_prefs->protocol -= 2;
125 /* Introducing per-account mail check intervals, and separating
126 * recv_at_getall from autocheck function.
128 * If recv_at_getall is TRUE, the account's autocheck will be
129 * enabled, following global autocheck interval.
131 * The account's own autocheck interval will be set to the
132 * same value as the global interval, but will not be used.
134 * recv_at_getall will remain enabled, but will only be used
135 * to determine whether or not to include this account for
136 * manual 'Get all' check. */
137 ac_prefs->autochk_itv = prefs_common_get_prefs()->autochk_itv;
138 ac_prefs->autochk_use_custom = FALSE;
139 if (ac_prefs->recv_at_getall) {
140 ac_prefs->autochk_use_default = TRUE;
142 ac_prefs->autochk_use_default = FALSE;
148 /* With the introduction of OAuth2 support, the APOP option
149 * (use_apop_auth) has been swallowed into a combobox and
151 if (ac_prefs->use_apop_auth == 1) {
152 ac_prefs->use_pop_auth = 1;
153 ac_prefs->pop_auth_type = 1;
163 ac_prefs->config_version = version + 1;
166 static void _update_config_password_store(gint version)
168 debug_print("Password store: Updating config version from %d to %d.\n",
169 version, version + 1);
172 /* nothing here yet */
182 static void _update_config_folderlist(gint version)
184 debug_print("Folderlist: Updating config version from %d to %d.\n",
185 version, version + 1);
188 /* nothing here yet */
198 static void _update_config_folder_item(FolderItem *item,
201 debug_print("Updating config_version from %d to %d.\n",
202 version, version + 1);
205 /* nothing here yet */
213 item->prefs->config_version = version + 1;
214 folder_item_prefs_save_config(item);
217 int prefs_update_config_version_common()
219 gint ver = prefs_common_get_prefs()->config_version;
221 /* Store the starting version number for other components'
222 * migration functions. */
223 starting_config_version = ver;
225 if (!_version_check(ver))
228 debug_print("Starting config update at config_version %d.\n", ver);
229 if (ver == CLAWS_CONFIG_VERSION) {
230 debug_print("No update necessary, already at latest config_version.\n");
231 return 0; /* nothing to do */
234 while (ver < CLAWS_CONFIG_VERSION) {
235 _update_config_common(ver++);
236 prefs_common_get_prefs()->config_version = ver;
239 debug_print("Config update done.\n");
240 return 1; /* update done */
243 int prefs_update_config_version_accounts()
246 PrefsAccount *ac_prefs;
248 for (cur = account_get_list(); cur != NULL; cur = cur->next) {
249 ac_prefs = (PrefsAccount *)cur->data;
251 if (ac_prefs->config_version == -1) {
252 /* There was no config_version stored in the config, let's
253 * assume config_version same as what clawsrc started at
254 * this session, to avoid breaking the configuration by
255 * "upgrading" it unnecessarily. */
256 debug_print("Account '%s': config_version not saved, using one from clawsrc: %d\n", ac_prefs->account_name, starting_config_version);
257 ac_prefs->config_version = starting_config_version;
260 gint ver = ac_prefs->config_version;
262 debug_print("Account '%s': Starting config update at config_version %d.\n", ac_prefs->account_name, ver);
264 if (!_version_check(ver))
267 if (ver == CLAWS_CONFIG_VERSION) {
268 debug_print("Account '%s': No update necessary, already at latest config_version.\n", ac_prefs->account_name);
272 while (ver < CLAWS_CONFIG_VERSION) {
273 _update_config_account(ac_prefs, ver++);
277 debug_print("Accounts config update done.\n");
281 int prefs_update_config_version_password_store(gint from_version)
283 gint ver = from_version;
286 /* There was no config_version stored in the config, let's assume
287 * config_version same as what clawsrc started at this session,
288 * to avoid breaking the configuration by "upgrading" it unnecessarily. */
289 debug_print("Password store: config_version not saved, using one from clawsrc: %d\n", starting_config_version);
290 ver = starting_config_version;
293 debug_print("Starting config update at config_version %d.\n", ver);
295 if (!_version_check(ver))
298 if (ver == CLAWS_CONFIG_VERSION) {
299 debug_print("No update necessary, already at latest config_version.\n");
300 return 0; /* nothing to do */
303 while (ver < CLAWS_CONFIG_VERSION) {
304 _update_config_password_store(ver++);
307 debug_print("Passwordstore config update done.\n");
311 int prefs_update_config_version_folderlist(gint from_version)
313 gint ver = from_version;
316 /* There was no config_version stored in the config, let's assume
317 * config_version same as what clawsrc started at this session,
318 * to avoid breaking the configuration by "upgrading" it unnecessarily. */
319 debug_print("Folderlist: config_version not saved, using one from clawsrc: %d\n", starting_config_version);
320 ver = starting_config_version;
323 debug_print("Starting config_update at config_version %d,\n", ver);
325 if (!_version_check(ver))
328 if (ver == CLAWS_CONFIG_VERSION) {
329 debug_print("No update necessary, already at latest config_version.\n");
330 return 0; /* nothing to do */
333 while (ver < CLAWS_CONFIG_VERSION) {
334 _update_config_folderlist(ver++);
337 debug_print("Folderlist config update done.\n");
341 int prefs_update_config_version_folder_item(FolderItem *item)
346 cm_return_val_if_fail(item != NULL, 0);
348 id = folder_item_get_identifier(item);
350 if (item->prefs->config_version == -1) {
351 /* There was no config_version stored in the config, let's assume
352 * config_version same as what clawsrc started at this session,
353 * to avoid breaking the configuration by "upgrading" it unnecessarily. */
354 debug_print("Folder item '%s': config_version not saved, using one from clawsrc: %d\n", id, starting_config_version);
355 item->prefs->config_version = starting_config_version;
358 ver = item->prefs->config_version;
360 if (!_version_check(ver)) {
365 if (ver == CLAWS_CONFIG_VERSION) {
366 debug_print("Folder item '%s': No update necessary, already at latest config_version %d.\n", id, ver);
368 return 0; /* nothing to do */
371 debug_print("Folder item '%s': starting config_update at version %d.\n",
375 while (ver < CLAWS_CONFIG_VERSION) {
376 _update_config_folder_item(item, ver++);
379 debug_print("Folder item config update done.\n");