]> asedeno.scripts.mit.edu Git - PuTTY.git/blob - settings.c
Merge r9351 (release checklist update). I can easily see myself using
[PuTTY.git] / settings.c
1 /*
2  * settings.c: read and write saved sessions. (platform-independent)
3  */
4
5 #include <assert.h>
6 #include <stdio.h>
7 #include <stdlib.h>
8 #include "putty.h"
9 #include "storage.h"
10
11 /* The cipher order given here is the default order. */
12 static const struct keyvalwhere ciphernames[] = {
13     { "aes",        CIPHER_AES,             -1, -1 },
14     { "blowfish",   CIPHER_BLOWFISH,        -1, -1 },
15     { "3des",       CIPHER_3DES,            -1, -1 },
16     { "WARN",       CIPHER_WARN,            -1, -1 },
17     { "arcfour",    CIPHER_ARCFOUR,         -1, -1 },
18     { "des",        CIPHER_DES,             -1, -1 }
19 };
20
21 static const struct keyvalwhere kexnames[] = {
22     { "dh-gex-sha1",        KEX_DHGEX,      -1, -1 },
23     { "dh-group14-sha1",    KEX_DHGROUP14,  -1, -1 },
24     { "dh-group1-sha1",     KEX_DHGROUP1,   -1, -1 },
25     { "rsa",                KEX_RSA,        KEX_WARN, -1 },
26     { "WARN",               KEX_WARN,       -1, -1 }
27 };
28
29 /*
30  * All the terminal modes that we know about for the "TerminalModes"
31  * setting. (Also used by config.c for the drop-down list.)
32  * This is currently precisely the same as the set in ssh.c, but could
33  * in principle differ if other backends started to support tty modes
34  * (e.g., the pty backend).
35  */
36 const char *const ttymodes[] = {
37     "INTR",     "QUIT",     "ERASE",    "KILL",     "EOF",
38     "EOL",      "EOL2",     "START",    "STOP",     "SUSP",
39     "DSUSP",    "REPRINT",  "WERASE",   "LNEXT",    "FLUSH",
40     "SWTCH",    "STATUS",   "DISCARD",  "IGNPAR",   "PARMRK",
41     "INPCK",    "ISTRIP",   "INLCR",    "IGNCR",    "ICRNL",
42     "IUCLC",    "IXON",     "IXANY",    "IXOFF",    "IMAXBEL",
43     "ISIG",     "ICANON",   "XCASE",    "ECHO",     "ECHOE",
44     "ECHOK",    "ECHONL",   "NOFLSH",   "TOSTOP",   "IEXTEN",
45     "ECHOCTL",  "ECHOKE",   "PENDIN",   "OPOST",    "OLCUC",
46     "ONLCR",    "OCRNL",    "ONOCR",    "ONLRET",   "CS7",
47     "CS8",      "PARENB",   "PARODD",   NULL
48 };
49
50 /*
51  * Convenience functions to access the backends[] array
52  * (which is only present in tools that manage settings).
53  */
54
55 Backend *backend_from_name(const char *name)
56 {
57     Backend **p;
58     for (p = backends; *p != NULL; p++)
59         if (!strcmp((*p)->name, name))
60             return *p;
61     return NULL;
62 }
63
64 Backend *backend_from_proto(int proto)
65 {
66     Backend **p;
67     for (p = backends; *p != NULL; p++)
68         if ((*p)->protocol == proto)
69             return *p;
70     return NULL;
71 }
72
73 int get_remote_username(Config *cfg, char *user, size_t len)
74 {
75     if (*cfg->username) {
76         strncpy(user, cfg->username, len);
77         user[len-1] = '\0';
78     } else {
79         if (cfg->username_from_env) {
80             /* Use local username. */
81             char *luser = get_username();
82             if (luser) {
83                 strncpy(user, luser, len);
84                 user[len-1] = '\0';
85                 sfree(luser);
86             } else {
87                 *user = '\0';
88             }
89         } else {
90             *user = '\0';
91         }
92     }
93     return (*user != '\0');
94 }
95
96 static void gpps(void *handle, const char *name, const char *def,
97                  char *val, int len)
98 {
99     if (!read_setting_s(handle, name, val, len)) {
100         char *pdef;
101
102         pdef = platform_default_s(name);
103         if (pdef) {
104             strncpy(val, pdef, len);
105             sfree(pdef);
106         } else {
107             strncpy(val, def, len);
108         }
109
110         val[len - 1] = '\0';
111     }
112 }
113
114 /*
115  * gppfont and gppfile cannot have local defaults, since the very
116  * format of a Filename or Font is platform-dependent. So the
117  * platform-dependent functions MUST return some sort of value.
118  */
119 static void gppfont(void *handle, const char *name, FontSpec *result)
120 {
121     if (!read_setting_fontspec(handle, name, result))
122         *result = platform_default_fontspec(name);
123 }
124 static void gppfile(void *handle, const char *name, Filename *result)
125 {
126     if (!read_setting_filename(handle, name, result))
127         *result = platform_default_filename(name);
128 }
129
130 static void gppi(void *handle, char *name, int def, int *i)
131 {
132     def = platform_default_i(name, def);
133     *i = read_setting_i(handle, name, def);
134 }
135
136 /*
137  * Read a set of name-value pairs in the format we occasionally use:
138  *   NAME\tVALUE\0NAME\tVALUE\0\0 in memory
139  *   NAME=VALUE,NAME=VALUE, in storage
140  * `def' is in the storage format.
141  */
142 static void gppmap(void *handle, char *name, char *def, char *val, int len)
143 {
144     char *buf = snewn(2*len, char), *p, *q;
145     gpps(handle, name, def, buf, 2*len);
146     p = buf;
147     q = val;
148     while (*p) {
149         while (*p && *p != ',') {
150             int c = *p++;
151             if (c == '=')
152                 c = '\t';
153             if (c == '\\')
154                 c = *p++;
155             *q++ = c;
156         }
157         if (*p == ',')
158             p++;
159         *q++ = '\0';
160     }
161     *q = '\0';
162     sfree(buf);
163 }
164
165 /*
166  * Write a set of name/value pairs in the above format.
167  */
168 static void wmap(void *handle, char const *key, char const *value, int len)
169 {
170     char *buf = snewn(2*len, char), *p;
171     const char *q;
172     p = buf;
173     q = value;
174     while (*q) {
175         while (*q) {
176             int c = *q++;
177             if (c == '=' || c == ',' || c == '\\')
178                 *p++ = '\\';
179             if (c == '\t')
180                 c = '=';
181             *p++ = c;
182         }
183         *p++ = ',';
184         q++;
185     }
186     *p = '\0';
187     write_setting_s(handle, key, buf);
188     sfree(buf);
189 }
190
191 static int key2val(const struct keyvalwhere *mapping,
192                    int nmaps, char *key)
193 {
194     int i;
195     for (i = 0; i < nmaps; i++)
196         if (!strcmp(mapping[i].s, key)) return mapping[i].v;
197     return -1;
198 }
199
200 static const char *val2key(const struct keyvalwhere *mapping,
201                            int nmaps, int val)
202 {
203     int i;
204     for (i = 0; i < nmaps; i++)
205         if (mapping[i].v == val) return mapping[i].s;
206     return NULL;
207 }
208
209 /*
210  * Helper function to parse a comma-separated list of strings into
211  * a preference list array of values. Any missing values are added
212  * to the end and duplicates are weeded.
213  * XXX: assumes vals in 'mapping' are small +ve integers
214  */
215 static void gprefs(void *sesskey, char *name, char *def,
216                    const struct keyvalwhere *mapping, int nvals,
217                    int *array)
218 {
219     char commalist[256];
220     char *p, *q;
221     int i, j, n, v, pos;
222     unsigned long seen = 0;            /* bitmap for weeding dups etc */
223
224     /*
225      * Fetch the string which we'll parse as a comma-separated list.
226      */
227     gpps(sesskey, name, def, commalist, sizeof(commalist));
228
229     /*
230      * Go through that list and convert it into values.
231      */
232     n = 0;
233     p = commalist;
234     while (1) {
235         while (*p && *p == ',') p++;
236         if (!*p)
237             break;                     /* no more words */
238
239         q = p;
240         while (*p && *p != ',') p++;
241         if (*p) *p++ = '\0';
242
243         v = key2val(mapping, nvals, q);
244         if (v != -1 && !(seen & (1 << v))) {
245             seen |= (1 << v);
246             array[n++] = v;
247         }
248     }
249
250     /*
251      * Now go through 'mapping' and add values that weren't mentioned
252      * in the list we fetched. We may have to loop over it multiple
253      * times so that we add values before other values whose default
254      * positions depend on them.
255      */
256     while (n < nvals) {
257         for (i = 0; i < nvals; i++) {
258             assert(mapping[i].v < 32);
259
260             if (!(seen & (1 << mapping[i].v))) {
261                 /*
262                  * This element needs adding. But can we add it yet?
263                  */
264                 if (mapping[i].vrel != -1 && !(seen & (1 << mapping[i].vrel)))
265                     continue;          /* nope */
266
267                 /*
268                  * OK, we can work out where to add this element, so
269                  * do so.
270                  */
271                 if (mapping[i].vrel == -1) {
272                     pos = (mapping[i].where < 0 ? n : 0);
273                 } else {
274                     for (j = 0; j < n; j++)
275                         if (array[j] == mapping[i].vrel)
276                             break;
277                     assert(j < n);     /* implied by (seen & (1<<vrel)) */
278                     pos = (mapping[i].where < 0 ? j : j+1);
279                 }
280
281                 /*
282                  * And add it.
283                  */
284                 for (j = n-1; j >= pos; j--)
285                     array[j+1] = array[j];
286                 array[pos] = mapping[i].v;
287                 n++;
288             }
289         }
290     }
291 }
292
293 /* 
294  * Write out a preference list.
295  */
296 static void wprefs(void *sesskey, char *name,
297                    const struct keyvalwhere *mapping, int nvals,
298                    int *array)
299 {
300     char *buf, *p;
301     int i, maxlen;
302
303     for (maxlen = i = 0; i < nvals; i++) {
304         const char *s = val2key(mapping, nvals, array[i]);
305         if (s) {
306             maxlen += (maxlen > 0 ? 1 : 0) + strlen(s);
307         }
308     }
309
310     buf = snewn(maxlen + 1, char);
311     p = buf;
312
313     for (i = 0; i < nvals; i++) {
314         const char *s = val2key(mapping, nvals, array[i]);
315         if (s) {
316             p += sprintf(p, "%s%s", (p > buf ? "," : ""), s);
317         }
318     }
319
320     assert(p - buf == maxlen);
321     *p = '\0';
322
323     write_setting_s(sesskey, name, buf);
324
325     sfree(buf);
326 }
327
328 char *save_settings(char *section, Config * cfg)
329 {
330     void *sesskey;
331     char *errmsg;
332
333     sesskey = open_settings_w(section, &errmsg);
334     if (!sesskey)
335         return errmsg;
336     save_open_settings(sesskey, cfg);
337     close_settings_w(sesskey);
338     return NULL;
339 }
340
341 void save_open_settings(void *sesskey, Config *cfg)
342 {
343     int i;
344     char *p;
345
346     write_setting_i(sesskey, "Present", 1);
347     write_setting_s(sesskey, "HostName", cfg->host);
348     write_setting_filename(sesskey, "LogFileName", cfg->logfilename);
349     write_setting_i(sesskey, "LogType", cfg->logtype);
350     write_setting_i(sesskey, "LogFileClash", cfg->logxfovr);
351     write_setting_i(sesskey, "LogFlush", cfg->logflush);
352     write_setting_i(sesskey, "SSHLogOmitPasswords", cfg->logomitpass);
353     write_setting_i(sesskey, "SSHLogOmitData", cfg->logomitdata);
354     p = "raw";
355     {
356         const Backend *b = backend_from_proto(cfg->protocol);
357         if (b)
358             p = b->name;
359     }
360     write_setting_s(sesskey, "Protocol", p);
361     write_setting_i(sesskey, "PortNumber", cfg->port);
362     /* The CloseOnExit numbers are arranged in a different order from
363      * the standard FORCE_ON / FORCE_OFF / AUTO. */
364     write_setting_i(sesskey, "CloseOnExit", (cfg->close_on_exit+2)%3);
365     write_setting_i(sesskey, "WarnOnClose", !!cfg->warn_on_close);
366     write_setting_i(sesskey, "PingInterval", cfg->ping_interval / 60);  /* minutes */
367     write_setting_i(sesskey, "PingIntervalSecs", cfg->ping_interval % 60);      /* seconds */
368     write_setting_i(sesskey, "TCPNoDelay", cfg->tcp_nodelay);
369     write_setting_i(sesskey, "TCPKeepalives", cfg->tcp_keepalives);
370     write_setting_s(sesskey, "TerminalType", cfg->termtype);
371     write_setting_s(sesskey, "TerminalSpeed", cfg->termspeed);
372     wmap(sesskey, "TerminalModes", cfg->ttymodes, lenof(cfg->ttymodes));
373
374     /* Address family selection */
375     write_setting_i(sesskey, "AddressFamily", cfg->addressfamily);
376
377     /* proxy settings */
378     write_setting_s(sesskey, "ProxyExcludeList", cfg->proxy_exclude_list);
379     write_setting_i(sesskey, "ProxyDNS", (cfg->proxy_dns+2)%3);
380     write_setting_i(sesskey, "ProxyLocalhost", cfg->even_proxy_localhost);
381     write_setting_i(sesskey, "ProxyMethod", cfg->proxy_type);
382     write_setting_s(sesskey, "ProxyHost", cfg->proxy_host);
383     write_setting_i(sesskey, "ProxyPort", cfg->proxy_port);
384     write_setting_s(sesskey, "ProxyUsername", cfg->proxy_username);
385     write_setting_s(sesskey, "ProxyPassword", cfg->proxy_password);
386     write_setting_s(sesskey, "ProxyTelnetCommand", cfg->proxy_telnet_command);
387     wmap(sesskey, "Environment", cfg->environmt, lenof(cfg->environmt));
388     write_setting_s(sesskey, "UserName", cfg->username);
389     write_setting_i(sesskey, "UserNameFromEnvironment", cfg->username_from_env);
390     write_setting_s(sesskey, "LocalUserName", cfg->localusername);
391     write_setting_i(sesskey, "NoPTY", cfg->nopty);
392     write_setting_i(sesskey, "Compression", cfg->compression);
393     write_setting_i(sesskey, "TryAgent", cfg->tryagent);
394     write_setting_i(sesskey, "AgentFwd", cfg->agentfwd);
395     write_setting_i(sesskey, "GssapiFwd", cfg->gssapifwd);
396     write_setting_i(sesskey, "ChangeUsername", cfg->change_username);
397     wprefs(sesskey, "Cipher", ciphernames, CIPHER_MAX,
398            cfg->ssh_cipherlist);
399     wprefs(sesskey, "KEX", kexnames, KEX_MAX, cfg->ssh_kexlist);
400     write_setting_i(sesskey, "RekeyTime", cfg->ssh_rekey_time);
401     write_setting_s(sesskey, "RekeyBytes", cfg->ssh_rekey_data);
402     write_setting_i(sesskey, "SshNoAuth", cfg->ssh_no_userauth);
403     write_setting_i(sesskey, "SshBanner", cfg->ssh_show_banner);
404     write_setting_i(sesskey, "AuthTIS", cfg->try_tis_auth);
405     write_setting_i(sesskey, "AuthKI", cfg->try_ki_auth);
406     write_setting_i(sesskey, "AuthGSSAPI", cfg->try_gssapi_auth);
407 #ifndef NO_GSSAPI
408     wprefs(sesskey, "GSSLibs", gsslibkeywords, ngsslibs,
409            cfg->ssh_gsslist);
410     write_setting_filename(sesskey, "GSSCustom", cfg->ssh_gss_custom);
411 #endif
412     write_setting_i(sesskey, "SshNoShell", cfg->ssh_no_shell);
413     write_setting_i(sesskey, "SshProt", cfg->sshprot);
414     write_setting_s(sesskey, "LogHost", cfg->loghost);
415     write_setting_i(sesskey, "SSH2DES", cfg->ssh2_des_cbc);
416     write_setting_filename(sesskey, "PublicKeyFile", cfg->keyfile);
417     write_setting_s(sesskey, "RemoteCommand", cfg->remote_cmd);
418     write_setting_i(sesskey, "RFCEnviron", cfg->rfc_environ);
419     write_setting_i(sesskey, "PassiveTelnet", cfg->passive_telnet);
420     write_setting_i(sesskey, "BackspaceIsDelete", cfg->bksp_is_delete);
421     write_setting_i(sesskey, "RXVTHomeEnd", cfg->rxvt_homeend);
422     write_setting_i(sesskey, "LinuxFunctionKeys", cfg->funky_type);
423     write_setting_i(sesskey, "NoApplicationKeys", cfg->no_applic_k);
424     write_setting_i(sesskey, "NoApplicationCursors", cfg->no_applic_c);
425     write_setting_i(sesskey, "NoMouseReporting", cfg->no_mouse_rep);
426     write_setting_i(sesskey, "NoRemoteResize", cfg->no_remote_resize);
427     write_setting_i(sesskey, "NoAltScreen", cfg->no_alt_screen);
428     write_setting_i(sesskey, "NoRemoteWinTitle", cfg->no_remote_wintitle);
429     write_setting_i(sesskey, "RemoteQTitleAction", cfg->remote_qtitle_action);
430     write_setting_i(sesskey, "NoDBackspace", cfg->no_dbackspace);
431     write_setting_i(sesskey, "NoRemoteCharset", cfg->no_remote_charset);
432     write_setting_i(sesskey, "ApplicationCursorKeys", cfg->app_cursor);
433     write_setting_i(sesskey, "ApplicationKeypad", cfg->app_keypad);
434     write_setting_i(sesskey, "NetHackKeypad", cfg->nethack_keypad);
435     write_setting_i(sesskey, "AltF4", cfg->alt_f4);
436     write_setting_i(sesskey, "AltSpace", cfg->alt_space);
437     write_setting_i(sesskey, "AltOnly", cfg->alt_only);
438     write_setting_i(sesskey, "ComposeKey", cfg->compose_key);
439     write_setting_i(sesskey, "CtrlAltKeys", cfg->ctrlaltkeys);
440     write_setting_i(sesskey, "TelnetKey", cfg->telnet_keyboard);
441     write_setting_i(sesskey, "TelnetRet", cfg->telnet_newline);
442     write_setting_i(sesskey, "LocalEcho", cfg->localecho);
443     write_setting_i(sesskey, "LocalEdit", cfg->localedit);
444     write_setting_s(sesskey, "Answerback", cfg->answerback);
445     write_setting_i(sesskey, "AlwaysOnTop", cfg->alwaysontop);
446     write_setting_i(sesskey, "FullScreenOnAltEnter", cfg->fullscreenonaltenter);
447     write_setting_i(sesskey, "HideMousePtr", cfg->hide_mouseptr);
448     write_setting_i(sesskey, "SunkenEdge", cfg->sunken_edge);
449     write_setting_i(sesskey, "WindowBorder", cfg->window_border);
450     write_setting_i(sesskey, "CurType", cfg->cursor_type);
451     write_setting_i(sesskey, "BlinkCur", cfg->blink_cur);
452     write_setting_i(sesskey, "Beep", cfg->beep);
453     write_setting_i(sesskey, "BeepInd", cfg->beep_ind);
454     write_setting_filename(sesskey, "BellWaveFile", cfg->bell_wavefile);
455     write_setting_i(sesskey, "BellOverload", cfg->bellovl);
456     write_setting_i(sesskey, "BellOverloadN", cfg->bellovl_n);
457     write_setting_i(sesskey, "BellOverloadT", cfg->bellovl_t
458 #ifdef PUTTY_UNIX_H
459                     * 1000
460 #endif
461                     );
462     write_setting_i(sesskey, "BellOverloadS", cfg->bellovl_s
463 #ifdef PUTTY_UNIX_H
464                     * 1000
465 #endif
466                     );
467     write_setting_i(sesskey, "ScrollbackLines", cfg->savelines);
468     write_setting_i(sesskey, "DECOriginMode", cfg->dec_om);
469     write_setting_i(sesskey, "AutoWrapMode", cfg->wrap_mode);
470     write_setting_i(sesskey, "LFImpliesCR", cfg->lfhascr);
471     write_setting_i(sesskey, "CRImpliesLF", cfg->crhaslf);
472     write_setting_i(sesskey, "DisableArabicShaping", cfg->arabicshaping);
473     write_setting_i(sesskey, "DisableBidi", cfg->bidi);
474     write_setting_i(sesskey, "WinNameAlways", cfg->win_name_always);
475     write_setting_s(sesskey, "WinTitle", cfg->wintitle);
476     write_setting_i(sesskey, "TermWidth", cfg->width);
477     write_setting_i(sesskey, "TermHeight", cfg->height);
478     write_setting_fontspec(sesskey, "Font", cfg->font);
479     write_setting_i(sesskey, "FontQuality", cfg->font_quality);
480     write_setting_i(sesskey, "FontVTMode", cfg->vtmode);
481     write_setting_i(sesskey, "UseSystemColours", cfg->system_colour);
482     write_setting_i(sesskey, "TryPalette", cfg->try_palette);
483     write_setting_i(sesskey, "ANSIColour", cfg->ansi_colour);
484     write_setting_i(sesskey, "Xterm256Colour", cfg->xterm_256_colour);
485     write_setting_i(sesskey, "BoldAsColour", cfg->bold_colour);
486
487     for (i = 0; i < 22; i++) {
488         char buf[20], buf2[30];
489         sprintf(buf, "Colour%d", i);
490         sprintf(buf2, "%d,%d,%d", cfg->colours[i][0],
491                 cfg->colours[i][1], cfg->colours[i][2]);
492         write_setting_s(sesskey, buf, buf2);
493     }
494     write_setting_i(sesskey, "RawCNP", cfg->rawcnp);
495     write_setting_i(sesskey, "PasteRTF", cfg->rtf_paste);
496     write_setting_i(sesskey, "MouseIsXterm", cfg->mouse_is_xterm);
497     write_setting_i(sesskey, "RectSelect", cfg->rect_select);
498     write_setting_i(sesskey, "MouseOverride", cfg->mouse_override);
499     for (i = 0; i < 256; i += 32) {
500         char buf[20], buf2[256];
501         int j;
502         sprintf(buf, "Wordness%d", i);
503         *buf2 = '\0';
504         for (j = i; j < i + 32; j++) {
505             sprintf(buf2 + strlen(buf2), "%s%d",
506                     (*buf2 ? "," : ""), cfg->wordness[j]);
507         }
508         write_setting_s(sesskey, buf, buf2);
509     }
510     write_setting_s(sesskey, "LineCodePage", cfg->line_codepage);
511     write_setting_i(sesskey, "CJKAmbigWide", cfg->cjk_ambig_wide);
512     write_setting_i(sesskey, "UTF8Override", cfg->utf8_override);
513     write_setting_s(sesskey, "Printer", cfg->printer);
514     write_setting_i(sesskey, "CapsLockCyr", cfg->xlat_capslockcyr);
515     write_setting_i(sesskey, "ScrollBar", cfg->scrollbar);
516     write_setting_i(sesskey, "ScrollBarFullScreen", cfg->scrollbar_in_fullscreen);
517     write_setting_i(sesskey, "ScrollOnKey", cfg->scroll_on_key);
518     write_setting_i(sesskey, "ScrollOnDisp", cfg->scroll_on_disp);
519     write_setting_i(sesskey, "EraseToScrollback", cfg->erase_to_scrollback);
520     write_setting_i(sesskey, "LockSize", cfg->resize_action);
521     write_setting_i(sesskey, "BCE", cfg->bce);
522     write_setting_i(sesskey, "BlinkText", cfg->blinktext);
523     write_setting_i(sesskey, "X11Forward", cfg->x11_forward);
524     write_setting_s(sesskey, "X11Display", cfg->x11_display);
525     write_setting_i(sesskey, "X11AuthType", cfg->x11_auth);
526     write_setting_filename(sesskey, "X11AuthFile", cfg->xauthfile);
527     write_setting_i(sesskey, "LocalPortAcceptAll", cfg->lport_acceptall);
528     write_setting_i(sesskey, "RemotePortAcceptAll", cfg->rport_acceptall);
529     wmap(sesskey, "PortForwardings", cfg->portfwd, lenof(cfg->portfwd));
530     write_setting_i(sesskey, "BugIgnore1", 2-cfg->sshbug_ignore1);
531     write_setting_i(sesskey, "BugPlainPW1", 2-cfg->sshbug_plainpw1);
532     write_setting_i(sesskey, "BugRSA1", 2-cfg->sshbug_rsa1);
533     write_setting_i(sesskey, "BugIgnore2", 2-cfg->sshbug_ignore2);
534     write_setting_i(sesskey, "BugHMAC2", 2-cfg->sshbug_hmac2);
535     write_setting_i(sesskey, "BugDeriveKey2", 2-cfg->sshbug_derivekey2);
536     write_setting_i(sesskey, "BugRSAPad2", 2-cfg->sshbug_rsapad2);
537     write_setting_i(sesskey, "BugPKSessID2", 2-cfg->sshbug_pksessid2);
538     write_setting_i(sesskey, "BugRekey2", 2-cfg->sshbug_rekey2);
539     write_setting_i(sesskey, "BugMaxPkt2", 2-cfg->sshbug_maxpkt2);
540     write_setting_i(sesskey, "StampUtmp", cfg->stamp_utmp);
541     write_setting_i(sesskey, "LoginShell", cfg->login_shell);
542     write_setting_i(sesskey, "ScrollbarOnLeft", cfg->scrollbar_on_left);
543     write_setting_fontspec(sesskey, "BoldFont", cfg->boldfont);
544     write_setting_fontspec(sesskey, "WideFont", cfg->widefont);
545     write_setting_fontspec(sesskey, "WideBoldFont", cfg->wideboldfont);
546     write_setting_i(sesskey, "ShadowBold", cfg->shadowbold);
547     write_setting_i(sesskey, "ShadowBoldOffset", cfg->shadowboldoffset);
548     write_setting_s(sesskey, "SerialLine", cfg->serline);
549     write_setting_i(sesskey, "SerialSpeed", cfg->serspeed);
550     write_setting_i(sesskey, "SerialDataBits", cfg->serdatabits);
551     write_setting_i(sesskey, "SerialStopHalfbits", cfg->serstopbits);
552     write_setting_i(sesskey, "SerialParity", cfg->serparity);
553     write_setting_i(sesskey, "SerialFlowControl", cfg->serflow);
554     write_setting_s(sesskey, "WindowClass", cfg->winclass);
555 }
556
557 void load_settings(char *section, Config * cfg)
558 {
559     void *sesskey;
560
561     sesskey = open_settings_r(section);
562     load_open_settings(sesskey, cfg);
563     close_settings_r(sesskey);
564
565     if (cfg_launchable(cfg))
566         add_session_to_jumplist(section);
567 }
568
569 void load_open_settings(void *sesskey, Config *cfg)
570 {
571     int i;
572     char prot[10];
573
574     cfg->ssh_subsys = 0;               /* FIXME: load this properly */
575     cfg->remote_cmd_ptr = NULL;
576     cfg->remote_cmd_ptr2 = NULL;
577     cfg->ssh_nc_host[0] = '\0';
578
579     gpps(sesskey, "HostName", "", cfg->host, sizeof(cfg->host));
580     gppfile(sesskey, "LogFileName", &cfg->logfilename);
581     gppi(sesskey, "LogType", 0, &cfg->logtype);
582     gppi(sesskey, "LogFileClash", LGXF_ASK, &cfg->logxfovr);
583     gppi(sesskey, "LogFlush", 1, &cfg->logflush);
584     gppi(sesskey, "SSHLogOmitPasswords", 1, &cfg->logomitpass);
585     gppi(sesskey, "SSHLogOmitData", 0, &cfg->logomitdata);
586
587     gpps(sesskey, "Protocol", "default", prot, 10);
588     cfg->protocol = default_protocol;
589     cfg->port = default_port;
590     {
591         const Backend *b = backend_from_name(prot);
592         if (b) {
593             cfg->protocol = b->protocol;
594             gppi(sesskey, "PortNumber", default_port, &cfg->port);
595         }
596     }
597
598     /* Address family selection */
599     gppi(sesskey, "AddressFamily", ADDRTYPE_UNSPEC, &cfg->addressfamily);
600
601     /* The CloseOnExit numbers are arranged in a different order from
602      * the standard FORCE_ON / FORCE_OFF / AUTO. */
603     gppi(sesskey, "CloseOnExit", 1, &i); cfg->close_on_exit = (i+1)%3;
604     gppi(sesskey, "WarnOnClose", 1, &cfg->warn_on_close);
605     {
606         /* This is two values for backward compatibility with 0.50/0.51 */
607         int pingmin, pingsec;
608         gppi(sesskey, "PingInterval", 0, &pingmin);
609         gppi(sesskey, "PingIntervalSecs", 0, &pingsec);
610         cfg->ping_interval = pingmin * 60 + pingsec;
611     }
612     gppi(sesskey, "TCPNoDelay", 1, &cfg->tcp_nodelay);
613     gppi(sesskey, "TCPKeepalives", 0, &cfg->tcp_keepalives);
614     gpps(sesskey, "TerminalType", "xterm", cfg->termtype,
615          sizeof(cfg->termtype));
616     gpps(sesskey, "TerminalSpeed", "38400,38400", cfg->termspeed,
617          sizeof(cfg->termspeed));
618     {
619         /* This hardcodes a big set of defaults in any new saved
620          * sessions. Let's hope we don't change our mind. */
621         int i;
622         char *def = dupstr("");
623         /* Default: all set to "auto" */
624         for (i = 0; ttymodes[i]; i++) {
625             char *def2 = dupprintf("%s%s=A,", def, ttymodes[i]);
626             sfree(def);
627             def = def2;
628         }
629         gppmap(sesskey, "TerminalModes", def,
630                cfg->ttymodes, lenof(cfg->ttymodes));
631         sfree(def);
632     }
633
634     /* proxy settings */
635     gpps(sesskey, "ProxyExcludeList", "", cfg->proxy_exclude_list,
636          sizeof(cfg->proxy_exclude_list));
637     gppi(sesskey, "ProxyDNS", 1, &i); cfg->proxy_dns = (i+1)%3;
638     gppi(sesskey, "ProxyLocalhost", 0, &cfg->even_proxy_localhost);
639     gppi(sesskey, "ProxyMethod", -1, &cfg->proxy_type);
640     if (cfg->proxy_type == -1) {
641         int i;
642         gppi(sesskey, "ProxyType", 0, &i);
643         if (i == 0)
644             cfg->proxy_type = PROXY_NONE;
645         else if (i == 1)
646             cfg->proxy_type = PROXY_HTTP;
647         else if (i == 3)
648             cfg->proxy_type = PROXY_TELNET;
649         else if (i == 4)
650             cfg->proxy_type = PROXY_CMD;
651         else {
652             gppi(sesskey, "ProxySOCKSVersion", 5, &i);
653             if (i == 5)
654                 cfg->proxy_type = PROXY_SOCKS5;
655             else
656                 cfg->proxy_type = PROXY_SOCKS4;
657         }
658     }
659     gpps(sesskey, "ProxyHost", "proxy", cfg->proxy_host,
660          sizeof(cfg->proxy_host));
661     gppi(sesskey, "ProxyPort", 80, &cfg->proxy_port);
662     gpps(sesskey, "ProxyUsername", "", cfg->proxy_username,
663          sizeof(cfg->proxy_username));
664     gpps(sesskey, "ProxyPassword", "", cfg->proxy_password,
665          sizeof(cfg->proxy_password));
666     gpps(sesskey, "ProxyTelnetCommand", "connect %host %port\\n",
667          cfg->proxy_telnet_command, sizeof(cfg->proxy_telnet_command));
668     gppmap(sesskey, "Environment", "", cfg->environmt, lenof(cfg->environmt));
669     gpps(sesskey, "UserName", "", cfg->username, sizeof(cfg->username));
670     gppi(sesskey, "UserNameFromEnvironment", 0, &cfg->username_from_env);
671     gpps(sesskey, "LocalUserName", "", cfg->localusername,
672          sizeof(cfg->localusername));
673     gppi(sesskey, "NoPTY", 0, &cfg->nopty);
674     gppi(sesskey, "Compression", 0, &cfg->compression);
675     gppi(sesskey, "TryAgent", 1, &cfg->tryagent);
676     gppi(sesskey, "AgentFwd", 0, &cfg->agentfwd);
677     gppi(sesskey, "ChangeUsername", 0, &cfg->change_username);
678     gppi(sesskey, "GssapiFwd", 0, &cfg->gssapifwd);
679     gprefs(sesskey, "Cipher", "\0",
680            ciphernames, CIPHER_MAX, cfg->ssh_cipherlist);
681     {
682         /* Backward-compatibility: we used to have an option to
683          * disable gex under the "bugs" panel after one report of
684          * a server which offered it then choked, but we never got
685          * a server version string or any other reports. */
686         char *default_kexes;
687         gppi(sesskey, "BugDHGEx2", 0, &i); i = 2-i;
688         if (i == FORCE_ON)
689             default_kexes = "dh-group14-sha1,dh-group1-sha1,rsa,WARN,dh-gex-sha1";
690         else
691             default_kexes = "dh-gex-sha1,dh-group14-sha1,dh-group1-sha1,rsa,WARN";
692         gprefs(sesskey, "KEX", default_kexes,
693                kexnames, KEX_MAX, cfg->ssh_kexlist);
694     }
695     gppi(sesskey, "RekeyTime", 60, &cfg->ssh_rekey_time);
696     gpps(sesskey, "RekeyBytes", "1G", cfg->ssh_rekey_data,
697          sizeof(cfg->ssh_rekey_data));
698     gppi(sesskey, "SshProt", 2, &cfg->sshprot);
699     gpps(sesskey, "LogHost", "", cfg->loghost, sizeof(cfg->loghost));
700     gppi(sesskey, "SSH2DES", 0, &cfg->ssh2_des_cbc);
701     gppi(sesskey, "SshNoAuth", 0, &cfg->ssh_no_userauth);
702     gppi(sesskey, "SshBanner", 1, &cfg->ssh_show_banner);
703     gppi(sesskey, "AuthTIS", 0, &cfg->try_tis_auth);
704     gppi(sesskey, "AuthKI", 1, &cfg->try_ki_auth);
705     gppi(sesskey, "AuthGSSAPI", 1, &cfg->try_gssapi_auth);
706 #ifndef NO_GSSAPI
707     gprefs(sesskey, "GSSLibs", "\0",
708            gsslibkeywords, ngsslibs, cfg->ssh_gsslist);
709     gppfile(sesskey, "GSSCustom", &cfg->ssh_gss_custom);
710 #endif
711     gppi(sesskey, "SshNoShell", 0, &cfg->ssh_no_shell);
712     gppfile(sesskey, "PublicKeyFile", &cfg->keyfile);
713     gpps(sesskey, "RemoteCommand", "", cfg->remote_cmd,
714          sizeof(cfg->remote_cmd));
715     gppi(sesskey, "RFCEnviron", 0, &cfg->rfc_environ);
716     gppi(sesskey, "PassiveTelnet", 0, &cfg->passive_telnet);
717     gppi(sesskey, "BackspaceIsDelete", 1, &cfg->bksp_is_delete);
718     gppi(sesskey, "RXVTHomeEnd", 0, &cfg->rxvt_homeend);
719     gppi(sesskey, "LinuxFunctionKeys", 0, &cfg->funky_type);
720     gppi(sesskey, "NoApplicationKeys", 0, &cfg->no_applic_k);
721     gppi(sesskey, "NoApplicationCursors", 0, &cfg->no_applic_c);
722     gppi(sesskey, "NoMouseReporting", 0, &cfg->no_mouse_rep);
723     gppi(sesskey, "NoRemoteResize", 0, &cfg->no_remote_resize);
724     gppi(sesskey, "NoAltScreen", 0, &cfg->no_alt_screen);
725     gppi(sesskey, "NoRemoteWinTitle", 0, &cfg->no_remote_wintitle);
726     {
727         /* Backward compatibility */
728         int no_remote_qtitle;
729         gppi(sesskey, "NoRemoteQTitle", 1, &no_remote_qtitle);
730         /* We deliberately interpret the old setting of "no response" as
731          * "empty string". This changes the behaviour, but hopefully for
732          * the better; the user can always recover the old behaviour. */
733         gppi(sesskey, "RemoteQTitleAction",
734              no_remote_qtitle ? TITLE_EMPTY : TITLE_REAL,
735              &cfg->remote_qtitle_action);
736     }
737     gppi(sesskey, "NoDBackspace", 0, &cfg->no_dbackspace);
738     gppi(sesskey, "NoRemoteCharset", 0, &cfg->no_remote_charset);
739     gppi(sesskey, "ApplicationCursorKeys", 0, &cfg->app_cursor);
740     gppi(sesskey, "ApplicationKeypad", 0, &cfg->app_keypad);
741     gppi(sesskey, "NetHackKeypad", 0, &cfg->nethack_keypad);
742     gppi(sesskey, "AltF4", 1, &cfg->alt_f4);
743     gppi(sesskey, "AltSpace", 0, &cfg->alt_space);
744     gppi(sesskey, "AltOnly", 0, &cfg->alt_only);
745     gppi(sesskey, "ComposeKey", 0, &cfg->compose_key);
746     gppi(sesskey, "CtrlAltKeys", 1, &cfg->ctrlaltkeys);
747     gppi(sesskey, "TelnetKey", 0, &cfg->telnet_keyboard);
748     gppi(sesskey, "TelnetRet", 1, &cfg->telnet_newline);
749     gppi(sesskey, "LocalEcho", AUTO, &cfg->localecho);
750     gppi(sesskey, "LocalEdit", AUTO, &cfg->localedit);
751     gpps(sesskey, "Answerback", "PuTTY", cfg->answerback,
752          sizeof(cfg->answerback));
753     gppi(sesskey, "AlwaysOnTop", 0, &cfg->alwaysontop);
754     gppi(sesskey, "FullScreenOnAltEnter", 0, &cfg->fullscreenonaltenter);
755     gppi(sesskey, "HideMousePtr", 0, &cfg->hide_mouseptr);
756     gppi(sesskey, "SunkenEdge", 0, &cfg->sunken_edge);
757     gppi(sesskey, "WindowBorder", 1, &cfg->window_border);
758     gppi(sesskey, "CurType", 0, &cfg->cursor_type);
759     gppi(sesskey, "BlinkCur", 0, &cfg->blink_cur);
760     /* pedantic compiler tells me I can't use &cfg->beep as an int * :-) */
761     gppi(sesskey, "Beep", 1, &cfg->beep);
762     gppi(sesskey, "BeepInd", 0, &cfg->beep_ind);
763     gppfile(sesskey, "BellWaveFile", &cfg->bell_wavefile);
764     gppi(sesskey, "BellOverload", 1, &cfg->bellovl);
765     gppi(sesskey, "BellOverloadN", 5, &cfg->bellovl_n);
766     gppi(sesskey, "BellOverloadT", 2*TICKSPERSEC
767 #ifdef PUTTY_UNIX_H
768                                    *1000
769 #endif
770                                    , &i);
771     cfg->bellovl_t = i
772 #ifdef PUTTY_UNIX_H
773                     / 1000
774 #endif
775         ;
776     gppi(sesskey, "BellOverloadS", 5*TICKSPERSEC
777 #ifdef PUTTY_UNIX_H
778                                    *1000
779 #endif
780                                    , &i);
781     cfg->bellovl_s = i
782 #ifdef PUTTY_UNIX_H
783                     / 1000
784 #endif
785         ;
786     gppi(sesskey, "ScrollbackLines", 200, &cfg->savelines);
787     gppi(sesskey, "DECOriginMode", 0, &cfg->dec_om);
788     gppi(sesskey, "AutoWrapMode", 1, &cfg->wrap_mode);
789     gppi(sesskey, "LFImpliesCR", 0, &cfg->lfhascr);
790     gppi(sesskey, "CRImpliesLF", 0, &cfg->crhaslf);
791     gppi(sesskey, "DisableArabicShaping", 0, &cfg->arabicshaping);
792     gppi(sesskey, "DisableBidi", 0, &cfg->bidi);
793     gppi(sesskey, "WinNameAlways", 1, &cfg->win_name_always);
794     gpps(sesskey, "WinTitle", "", cfg->wintitle, sizeof(cfg->wintitle));
795     gppi(sesskey, "TermWidth", 80, &cfg->width);
796     gppi(sesskey, "TermHeight", 24, &cfg->height);
797     gppfont(sesskey, "Font", &cfg->font);
798     gppi(sesskey, "FontQuality", FQ_DEFAULT, &cfg->font_quality);
799     gppi(sesskey, "FontVTMode", VT_UNICODE, (int *) &cfg->vtmode);
800     gppi(sesskey, "UseSystemColours", 0, &cfg->system_colour);
801     gppi(sesskey, "TryPalette", 0, &cfg->try_palette);
802     gppi(sesskey, "ANSIColour", 1, &cfg->ansi_colour);
803     gppi(sesskey, "Xterm256Colour", 1, &cfg->xterm_256_colour);
804     gppi(sesskey, "BoldAsColour", 1, &cfg->bold_colour);
805
806     for (i = 0; i < 22; i++) {
807         static const char *const defaults[] = {
808             "187,187,187", "255,255,255", "0,0,0", "85,85,85", "0,0,0",
809             "0,255,0", "0,0,0", "85,85,85", "187,0,0", "255,85,85",
810             "0,187,0", "85,255,85", "187,187,0", "255,255,85", "0,0,187",
811             "85,85,255", "187,0,187", "255,85,255", "0,187,187",
812             "85,255,255", "187,187,187", "255,255,255"
813         };
814         char buf[20], buf2[30];
815         int c0, c1, c2;
816         sprintf(buf, "Colour%d", i);
817         gpps(sesskey, buf, defaults[i], buf2, sizeof(buf2));
818         if (sscanf(buf2, "%d,%d,%d", &c0, &c1, &c2) == 3) {
819             cfg->colours[i][0] = c0;
820             cfg->colours[i][1] = c1;
821             cfg->colours[i][2] = c2;
822         }
823     }
824     gppi(sesskey, "RawCNP", 0, &cfg->rawcnp);
825     gppi(sesskey, "PasteRTF", 0, &cfg->rtf_paste);
826     gppi(sesskey, "MouseIsXterm", 0, &cfg->mouse_is_xterm);
827     gppi(sesskey, "RectSelect", 0, &cfg->rect_select);
828     gppi(sesskey, "MouseOverride", 1, &cfg->mouse_override);
829     for (i = 0; i < 256; i += 32) {
830         static const char *const defaults[] = {
831             "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0",
832             "0,1,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1",
833             "1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,2",
834             "1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1",
835             "1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1",
836             "1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1",
837             "2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2",
838             "2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,2,2,2,2,2,2,2,2"
839         };
840         char buf[20], buf2[256], *p;
841         int j;
842         sprintf(buf, "Wordness%d", i);
843         gpps(sesskey, buf, defaults[i / 32], buf2, sizeof(buf2));
844         p = buf2;
845         for (j = i; j < i + 32; j++) {
846             char *q = p;
847             while (*p && *p != ',')
848                 p++;
849             if (*p == ',')
850                 *p++ = '\0';
851             cfg->wordness[j] = atoi(q);
852         }
853     }
854     /*
855      * The empty default for LineCodePage will be converted later
856      * into a plausible default for the locale.
857      */
858     gpps(sesskey, "LineCodePage", "", cfg->line_codepage,
859          sizeof(cfg->line_codepage));
860     gppi(sesskey, "CJKAmbigWide", 0, &cfg->cjk_ambig_wide);
861     gppi(sesskey, "UTF8Override", 1, &cfg->utf8_override);
862     gpps(sesskey, "Printer", "", cfg->printer, sizeof(cfg->printer));
863     gppi (sesskey, "CapsLockCyr", 0, &cfg->xlat_capslockcyr);
864     gppi(sesskey, "ScrollBar", 1, &cfg->scrollbar);
865     gppi(sesskey, "ScrollBarFullScreen", 0, &cfg->scrollbar_in_fullscreen);
866     gppi(sesskey, "ScrollOnKey", 0, &cfg->scroll_on_key);
867     gppi(sesskey, "ScrollOnDisp", 1, &cfg->scroll_on_disp);
868     gppi(sesskey, "EraseToScrollback", 1, &cfg->erase_to_scrollback);
869     gppi(sesskey, "LockSize", 0, &cfg->resize_action);
870     gppi(sesskey, "BCE", 1, &cfg->bce);
871     gppi(sesskey, "BlinkText", 0, &cfg->blinktext);
872     gppi(sesskey, "X11Forward", 0, &cfg->x11_forward);
873     gpps(sesskey, "X11Display", "", cfg->x11_display,
874          sizeof(cfg->x11_display));
875     gppi(sesskey, "X11AuthType", X11_MIT, &cfg->x11_auth);
876     gppfile(sesskey, "X11AuthFile", &cfg->xauthfile);
877
878     gppi(sesskey, "LocalPortAcceptAll", 0, &cfg->lport_acceptall);
879     gppi(sesskey, "RemotePortAcceptAll", 0, &cfg->rport_acceptall);
880     gppmap(sesskey, "PortForwardings", "", cfg->portfwd, lenof(cfg->portfwd));
881     gppi(sesskey, "BugIgnore1", 0, &i); cfg->sshbug_ignore1 = 2-i;
882     gppi(sesskey, "BugPlainPW1", 0, &i); cfg->sshbug_plainpw1 = 2-i;
883     gppi(sesskey, "BugRSA1", 0, &i); cfg->sshbug_rsa1 = 2-i;
884     gppi(sesskey, "BugIgnore2", 0, &i); cfg->sshbug_ignore2 = 2-i;
885     {
886         int i;
887         gppi(sesskey, "BugHMAC2", 0, &i); cfg->sshbug_hmac2 = 2-i;
888         if (cfg->sshbug_hmac2 == AUTO) {
889             gppi(sesskey, "BuggyMAC", 0, &i);
890             if (i == 1)
891                 cfg->sshbug_hmac2 = FORCE_ON;
892         }
893     }
894     gppi(sesskey, "BugDeriveKey2", 0, &i); cfg->sshbug_derivekey2 = 2-i;
895     gppi(sesskey, "BugRSAPad2", 0, &i); cfg->sshbug_rsapad2 = 2-i;
896     gppi(sesskey, "BugPKSessID2", 0, &i); cfg->sshbug_pksessid2 = 2-i;
897     gppi(sesskey, "BugRekey2", 0, &i); cfg->sshbug_rekey2 = 2-i;
898     gppi(sesskey, "BugMaxPkt2", 0, &i); cfg->sshbug_maxpkt2 = 2-i;
899     cfg->ssh_simple = FALSE;
900     gppi(sesskey, "StampUtmp", 1, &cfg->stamp_utmp);
901     gppi(sesskey, "LoginShell", 1, &cfg->login_shell);
902     gppi(sesskey, "ScrollbarOnLeft", 0, &cfg->scrollbar_on_left);
903     gppi(sesskey, "ShadowBold", 0, &cfg->shadowbold);
904     gppfont(sesskey, "BoldFont", &cfg->boldfont);
905     gppfont(sesskey, "WideFont", &cfg->widefont);
906     gppfont(sesskey, "WideBoldFont", &cfg->wideboldfont);
907     gppi(sesskey, "ShadowBoldOffset", 1, &cfg->shadowboldoffset);
908     gpps(sesskey, "SerialLine", "", cfg->serline, sizeof(cfg->serline));
909     gppi(sesskey, "SerialSpeed", 9600, &cfg->serspeed);
910     gppi(sesskey, "SerialDataBits", 8, &cfg->serdatabits);
911     gppi(sesskey, "SerialStopHalfbits", 2, &cfg->serstopbits);
912     gppi(sesskey, "SerialParity", SER_PAR_NONE, &cfg->serparity);
913     gppi(sesskey, "SerialFlowControl", SER_FLOW_XONXOFF, &cfg->serflow);
914     gpps(sesskey, "WindowClass", "", cfg->winclass, sizeof(cfg->winclass));
915 }
916
917 void do_defaults(char *session, Config * cfg)
918 {
919     load_settings(session, cfg);
920 }
921
922 static int sessioncmp(const void *av, const void *bv)
923 {
924     const char *a = *(const char *const *) av;
925     const char *b = *(const char *const *) bv;
926
927     /*
928      * Alphabetical order, except that "Default Settings" is a
929      * special case and comes first.
930      */
931     if (!strcmp(a, "Default Settings"))
932         return -1;                     /* a comes first */
933     if (!strcmp(b, "Default Settings"))
934         return +1;                     /* b comes first */
935     /*
936      * FIXME: perhaps we should ignore the first & in determining
937      * sort order.
938      */
939     return strcmp(a, b);               /* otherwise, compare normally */
940 }
941
942 void get_sesslist(struct sesslist *list, int allocate)
943 {
944     char otherbuf[2048];
945     int buflen, bufsize, i;
946     char *p, *ret;
947     void *handle;
948
949     if (allocate) {
950
951         buflen = bufsize = 0;
952         list->buffer = NULL;
953         if ((handle = enum_settings_start()) != NULL) {
954             do {
955                 ret = enum_settings_next(handle, otherbuf, sizeof(otherbuf));
956                 if (ret) {
957                     int len = strlen(otherbuf) + 1;
958                     if (bufsize < buflen + len) {
959                         bufsize = buflen + len + 2048;
960                         list->buffer = sresize(list->buffer, bufsize, char);
961                     }
962                     strcpy(list->buffer + buflen, otherbuf);
963                     buflen += strlen(list->buffer + buflen) + 1;
964                 }
965             } while (ret);
966             enum_settings_finish(handle);
967         }
968         list->buffer = sresize(list->buffer, buflen + 1, char);
969         list->buffer[buflen] = '\0';
970
971         /*
972          * Now set up the list of sessions. Note that "Default
973          * Settings" must always be claimed to exist, even if it
974          * doesn't really.
975          */
976
977         p = list->buffer;
978         list->nsessions = 1;           /* "Default Settings" counts as one */
979         while (*p) {
980             if (strcmp(p, "Default Settings"))
981                 list->nsessions++;
982             while (*p)
983                 p++;
984             p++;
985         }
986
987         list->sessions = snewn(list->nsessions + 1, char *);
988         list->sessions[0] = "Default Settings";
989         p = list->buffer;
990         i = 1;
991         while (*p) {
992             if (strcmp(p, "Default Settings"))
993                 list->sessions[i++] = p;
994             while (*p)
995                 p++;
996             p++;
997         }
998
999         qsort(list->sessions, i, sizeof(char *), sessioncmp);
1000     } else {
1001         sfree(list->buffer);
1002         sfree(list->sessions);
1003         list->buffer = NULL;
1004         list->sessions = NULL;
1005     }
1006 }