+++ /dev/null
-/*\r
- * uxstore.c: Unix-specific implementation of the interface defined\r
- * in storage.h.\r
- */\r
-\r
-#include <stdio.h>\r
-#include <stdlib.h>\r
-#include <string.h>\r
-#include <assert.h>\r
-#include <errno.h>\r
-#include <ctype.h>\r
-#include <limits.h>\r
-#include <unistd.h>\r
-#include <fcntl.h>\r
-#include <dirent.h>\r
-#include <sys/stat.h>\r
-#include <sys/types.h>\r
-#include <pwd.h>\r
-#include "putty.h"\r
-#include "storage.h"\r
-#include "tree234.h"\r
-\r
-#ifdef PATH_MAX\r
-#define FNLEN PATH_MAX\r
-#else\r
-#define FNLEN 1024 /* XXX */\r
-#endif\r
-\r
-enum {\r
- INDEX_DIR, INDEX_HOSTKEYS, INDEX_HOSTKEYS_TMP, INDEX_RANDSEED,\r
- INDEX_SESSIONDIR, INDEX_SESSION,\r
-};\r
-\r
-static const char hex[16] = "0123456789ABCDEF";\r
-\r
-static char *mungestr(const char *in)\r
-{\r
- char *out, *ret;\r
-\r
- if (!in || !*in)\r
- in = "Default Settings";\r
-\r
- ret = out = snewn(3*strlen(in)+1, char);\r
-\r
- while (*in) {\r
- /*\r
- * There are remarkably few punctuation characters that\r
- * aren't shell-special in some way or likely to be used as\r
- * separators in some file format or another! Hence we use\r
- * opt-in for safe characters rather than opt-out for\r
- * specific unsafe ones...\r
- */\r
- if (*in!='+' && *in!='-' && *in!='.' && *in!='@' && *in!='_' &&\r
- !(*in >= '0' && *in <= '9') &&\r
- !(*in >= 'A' && *in <= 'Z') &&\r
- !(*in >= 'a' && *in <= 'z')) {\r
- *out++ = '%';\r
- *out++ = hex[((unsigned char) *in) >> 4];\r
- *out++ = hex[((unsigned char) *in) & 15];\r
- } else\r
- *out++ = *in;\r
- in++;\r
- }\r
- *out = '\0';\r
- return ret;\r
-}\r
-\r
-static char *unmungestr(const char *in)\r
-{\r
- char *out, *ret;\r
- out = ret = snewn(strlen(in)+1, char);\r
- while (*in) {\r
- if (*in == '%' && in[1] && in[2]) {\r
- int i, j;\r
-\r
- i = in[1] - '0';\r
- i -= (i > 9 ? 7 : 0);\r
- j = in[2] - '0';\r
- j -= (j > 9 ? 7 : 0);\r
-\r
- *out++ = (i << 4) + j;\r
- in += 3;\r
- } else {\r
- *out++ = *in++;\r
- }\r
- }\r
- *out = '\0';\r
- return ret;\r
-}\r
-\r
-static char *make_filename(int index, const char *subname)\r
-{\r
- char *env, *tmp, *ret;\r
-\r
- /*\r
- * Allow override of the PuTTY configuration location, and of\r
- * specific subparts of it, by means of environment variables.\r
- */\r
- if (index == INDEX_DIR) {\r
- struct passwd *pwd;\r
-\r
- env = getenv("PUTTYDIR");\r
- if (env)\r
- return dupstr(env);\r
- env = getenv("HOME");\r
- if (env)\r
- return dupprintf("%s/.putty", env);\r
- pwd = getpwuid(getuid());\r
- if (pwd && pwd->pw_dir)\r
- return dupprintf("%s/.putty", pwd->pw_dir);\r
- return dupstr("/.putty");\r
- }\r
- if (index == INDEX_SESSIONDIR) {\r
- env = getenv("PUTTYSESSIONS");\r
- if (env)\r
- return dupstr(env);\r
- tmp = make_filename(INDEX_DIR, NULL);\r
- ret = dupprintf("%s/sessions", tmp);\r
- sfree(tmp);\r
- return ret;\r
- }\r
- if (index == INDEX_SESSION) {\r
- char *munged = mungestr(subname);\r
- tmp = make_filename(INDEX_SESSIONDIR, NULL);\r
- ret = dupprintf("%s/%s", tmp, munged);\r
- sfree(tmp);\r
- sfree(munged);\r
- return ret;\r
- }\r
- if (index == INDEX_HOSTKEYS) {\r
- env = getenv("PUTTYSSHHOSTKEYS");\r
- if (env)\r
- return dupstr(env);\r
- tmp = make_filename(INDEX_DIR, NULL);\r
- ret = dupprintf("%s/sshhostkeys", tmp);\r
- sfree(tmp);\r
- return ret;\r
- }\r
- if (index == INDEX_HOSTKEYS_TMP) {\r
- tmp = make_filename(INDEX_HOSTKEYS, NULL);\r
- ret = dupprintf("%s.tmp", tmp);\r
- sfree(tmp);\r
- return ret;\r
- }\r
- if (index == INDEX_RANDSEED) {\r
- env = getenv("PUTTYRANDOMSEED");\r
- if (env)\r
- return dupstr(env);\r
- tmp = make_filename(INDEX_DIR, NULL);\r
- ret = dupprintf("%s/randomseed", tmp);\r
- sfree(tmp);\r
- return ret;\r
- }\r
- tmp = make_filename(INDEX_DIR, NULL);\r
- ret = dupprintf("%s/ERROR", tmp);\r
- sfree(tmp);\r
- return ret;\r
-}\r
-\r
-void *open_settings_w(const char *sessionname, char **errmsg)\r
-{\r
- char *filename;\r
- FILE *fp;\r
-\r
- *errmsg = NULL;\r
-\r
- /*\r
- * Start by making sure the .putty directory and its sessions\r
- * subdir actually exist. Ignore error returns from mkdir since\r
- * they're perfectly likely to be `already exists', and any\r
- * other error will trip us up later on so there's no real need\r
- * to catch it now.\r
- */\r
- filename = make_filename(INDEX_SESSIONDIR, NULL);\r
- if (mkdir(filename, 0700) != 0) {\r
- char *filename2 = make_filename(INDEX_DIR, NULL);\r
- mkdir(filename2, 0700);\r
- sfree(filename2);\r
- mkdir(filename, 0700);\r
- }\r
- sfree(filename);\r
-\r
- filename = make_filename(INDEX_SESSION, sessionname);\r
- fp = fopen(filename, "w");\r
- if (!fp) {\r
- *errmsg = dupprintf("Unable to create %s: %s",\r
- filename, strerror(errno));\r
- sfree(filename);\r
- return NULL; /* can't open */\r
- }\r
- sfree(filename);\r
- return fp;\r
-}\r
-\r
-void write_setting_s(void *handle, const char *key, const char *value)\r
-{\r
- FILE *fp = (FILE *)handle;\r
- fprintf(fp, "%s=%s\n", key, value);\r
-}\r
-\r
-void write_setting_i(void *handle, const char *key, int value)\r
-{\r
- FILE *fp = (FILE *)handle;\r
- fprintf(fp, "%s=%d\n", key, value);\r
-}\r
-\r
-void close_settings_w(void *handle)\r
-{\r
- FILE *fp = (FILE *)handle;\r
- fclose(fp);\r
-}\r
-\r
-/*\r
- * Reading settings, for the moment, is done by retrieving X\r
- * resources from the X display. When we introduce disk files, I\r
- * think what will happen is that the X resources will override\r
- * PuTTY's inbuilt defaults, but that the disk files will then\r
- * override those. This isn't optimal, but it's the best I can\r
- * immediately work out.\r
- * FIXME: the above comment is a bit out of date. Did it happen?\r
- */\r
-\r
-struct skeyval {\r
- const char *key;\r
- const char *value;\r
-};\r
-\r
-static tree234 *xrmtree = NULL;\r
-\r
-int keycmp(void *av, void *bv)\r
-{\r
- struct skeyval *a = (struct skeyval *)av;\r
- struct skeyval *b = (struct skeyval *)bv;\r
- return strcmp(a->key, b->key);\r
-}\r
-\r
-void provide_xrm_string(char *string)\r
-{\r
- char *p, *q, *key;\r
- struct skeyval *xrms, *ret;\r
-\r
- p = q = strchr(string, ':');\r
- if (!q) {\r
- fprintf(stderr, "pterm: expected a colon in resource string"\r
- " \"%s\"\n", string);\r
- return;\r
- }\r
- q++;\r
- while (p > string && p[-1] != '.' && p[-1] != '*')\r
- p--;\r
- xrms = snew(struct skeyval);\r
- key = snewn(q-p, char);\r
- memcpy(key, p, q-p);\r
- key[q-p-1] = '\0';\r
- xrms->key = key;\r
- while (*q && isspace((unsigned char)*q))\r
- q++;\r
- xrms->value = dupstr(q);\r
-\r
- if (!xrmtree)\r
- xrmtree = newtree234(keycmp);\r
-\r
- ret = add234(xrmtree, xrms);\r
- if (ret) {\r
- /* Override an existing string. */\r
- del234(xrmtree, ret);\r
- add234(xrmtree, xrms);\r
- }\r
-}\r
-\r
-const char *get_setting(const char *key)\r
-{\r
- struct skeyval tmp, *ret;\r
- tmp.key = key;\r
- if (xrmtree) {\r
- ret = find234(xrmtree, &tmp, NULL);\r
- if (ret)\r
- return ret->value;\r
- }\r
- return x_get_default(key);\r
-}\r
-\r
-void *open_settings_r(const char *sessionname)\r
-{\r
- char *filename;\r
- FILE *fp;\r
- char *line;\r
- tree234 *ret;\r
-\r
- filename = make_filename(INDEX_SESSION, sessionname);\r
- fp = fopen(filename, "r");\r
- sfree(filename);\r
- if (!fp)\r
- return NULL; /* can't open */\r
-\r
- ret = newtree234(keycmp);\r
-\r
- while ( (line = fgetline(fp)) ) {\r
- char *value = strchr(line, '=');\r
- struct skeyval *kv;\r
-\r
- if (!value)\r
- continue;\r
- *value++ = '\0';\r
- value[strcspn(value, "\r\n")] = '\0'; /* trim trailing NL */\r
-\r
- kv = snew(struct skeyval);\r
- kv->key = dupstr(line);\r
- kv->value = dupstr(value);\r
- add234(ret, kv);\r
-\r
- sfree(line);\r
- }\r
-\r
- fclose(fp);\r
-\r
- return ret;\r
-}\r
-\r
-char *read_setting_s(void *handle, const char *key, char *buffer, int buflen)\r
-{\r
- tree234 *tree = (tree234 *)handle;\r
- const char *val;\r
- struct skeyval tmp, *kv;\r
-\r
- tmp.key = key;\r
- if (tree != NULL &&\r
- (kv = find234(tree, &tmp, NULL)) != NULL) {\r
- val = kv->value;\r
- assert(val != NULL);\r
- } else\r
- val = get_setting(key);\r
-\r
- if (!val)\r
- return NULL;\r
- else {\r
- strncpy(buffer, val, buflen);\r
- buffer[buflen-1] = '\0';\r
- return buffer;\r
- }\r
-}\r
-\r
-int read_setting_i(void *handle, const char *key, int defvalue)\r
-{\r
- tree234 *tree = (tree234 *)handle;\r
- const char *val;\r
- struct skeyval tmp, *kv;\r
-\r
- tmp.key = key;\r
- if (tree != NULL &&\r
- (kv = find234(tree, &tmp, NULL)) != NULL) {\r
- val = kv->value;\r
- assert(val != NULL);\r
- } else\r
- val = get_setting(key);\r
-\r
- if (!val)\r
- return defvalue;\r
- else\r
- return atoi(val);\r
-}\r
-\r
-int read_setting_fontspec(void *handle, const char *name, FontSpec *result)\r
-{\r
- /*\r
- * In GTK1-only PuTTY, we used to store font names simply as a\r
- * valid X font description string (logical or alias), under a\r
- * bare key such as "Font".\r
- * \r
- * In GTK2 PuTTY, we have a prefix system where "client:"\r
- * indicates a Pango font and "server:" an X one; existing\r
- * configuration needs to be reinterpreted as having the\r
- * "server:" prefix, so we change the storage key from the\r
- * provided name string (e.g. "Font") to a suffixed one\r
- * ("FontName").\r
- */\r
- char *suffname = dupcat(name, "Name", NULL);\r
- if (read_setting_s(handle, suffname, result->name, sizeof(result->name))) {\r
- sfree(suffname);\r
- return TRUE; /* got new-style name */\r
- }\r
- sfree(suffname);\r
-\r
- /* Fall back to old-style name. */\r
- memcpy(result->name, "server:", 7);\r
- if (!read_setting_s(handle, name,\r
- result->name + 7, sizeof(result->name) - 7) ||\r
- !result->name[7]) {\r
- result->name[0] = '\0';\r
- return FALSE;\r
- } else {\r
- return TRUE;\r
- }\r
-}\r
-int read_setting_filename(void *handle, const char *name, Filename *result)\r
-{\r
- return !!read_setting_s(handle, name, result->path, sizeof(result->path));\r
-}\r
-\r
-void write_setting_fontspec(void *handle, const char *name, FontSpec result)\r
-{\r
- /*\r
- * read_setting_fontspec had to handle two cases, but when\r
- * writing our settings back out we simply always generate the\r
- * new-style name.\r
- */\r
- char *suffname = dupcat(name, "Name", NULL);\r
- write_setting_s(handle, suffname, result.name);\r
- sfree(suffname);\r
-}\r
-void write_setting_filename(void *handle, const char *name, Filename result)\r
-{\r
- write_setting_s(handle, name, result.path);\r
-}\r
-\r
-void close_settings_r(void *handle)\r
-{\r
- tree234 *tree = (tree234 *)handle;\r
- struct skeyval *kv;\r
-\r
- if (!tree)\r
- return;\r
-\r
- while ( (kv = index234(tree, 0)) != NULL) {\r
- del234(tree, kv);\r
- sfree((char *)kv->key);\r
- sfree((char *)kv->value);\r
- sfree(kv);\r
- }\r
-\r
- freetree234(tree);\r
-}\r
-\r
-void del_settings(const char *sessionname)\r
-{\r
- char *filename;\r
- filename = make_filename(INDEX_SESSION, sessionname);\r
- unlink(filename);\r
- sfree(filename);\r
-}\r
-\r
-void *enum_settings_start(void)\r
-{\r
- DIR *dp;\r
- char *filename;\r
-\r
- filename = make_filename(INDEX_SESSIONDIR, NULL);\r
- dp = opendir(filename);\r
- sfree(filename);\r
-\r
- return dp;\r
-}\r
-\r
-char *enum_settings_next(void *handle, char *buffer, int buflen)\r
-{\r
- DIR *dp = (DIR *)handle;\r
- struct dirent *de;\r
- struct stat st;\r
- char *fullpath;\r
- int maxlen, thislen, len;\r
- char *unmunged;\r
-\r
- fullpath = make_filename(INDEX_SESSIONDIR, NULL);\r
- maxlen = len = strlen(fullpath);\r
-\r
- while ( (de = readdir(dp)) != NULL ) {\r
- thislen = len + 1 + strlen(de->d_name);\r
- if (maxlen < thislen) {\r
- maxlen = thislen;\r
- fullpath = sresize(fullpath, maxlen+1, char);\r
- }\r
- fullpath[len] = '/';\r
- strncpy(fullpath+len+1, de->d_name, thislen - (len+1));\r
- fullpath[thislen] = '\0';\r
-\r
- if (stat(fullpath, &st) < 0 || !S_ISREG(st.st_mode))\r
- continue; /* try another one */\r
-\r
- unmunged = unmungestr(de->d_name);\r
- strncpy(buffer, unmunged, buflen);\r
- buffer[buflen-1] = '\0';\r
- sfree(unmunged);\r
- sfree(fullpath);\r
- return buffer;\r
- }\r
-\r
- sfree(fullpath);\r
- return NULL;\r
-}\r
-\r
-void enum_settings_finish(void *handle)\r
-{\r
- DIR *dp = (DIR *)handle;\r
- closedir(dp);\r
-}\r
-\r
-/*\r
- * Lines in the host keys file are of the form\r
- * \r
- * type@port:hostname keydata\r
- * \r
- * e.g.\r
- * \r
- * rsa@22:foovax.example.org 0x23,0x293487364395345345....2343\r
- */\r
-int verify_host_key(const char *hostname, int port,\r
- const char *keytype, const char *key)\r
-{\r
- FILE *fp;\r
- char *filename;\r
- char *line;\r
- int ret;\r
-\r
- filename = make_filename(INDEX_HOSTKEYS, NULL);\r
- fp = fopen(filename, "r");\r
- sfree(filename);\r
- if (!fp)\r
- return 1; /* key does not exist */\r
-\r
- ret = 1;\r
- while ( (line = fgetline(fp)) ) {\r
- int i;\r
- char *p = line;\r
- char porttext[20];\r
-\r
- line[strcspn(line, "\n")] = '\0'; /* strip trailing newline */\r
-\r
- i = strlen(keytype);\r
- if (strncmp(p, keytype, i))\r
- goto done;\r
- p += i;\r
-\r
- if (*p != '@')\r
- goto done;\r
- p++;\r
-\r
- sprintf(porttext, "%d", port);\r
- i = strlen(porttext);\r
- if (strncmp(p, porttext, i))\r
- goto done;\r
- p += i;\r
-\r
- if (*p != ':')\r
- goto done;\r
- p++;\r
-\r
- i = strlen(hostname);\r
- if (strncmp(p, hostname, i))\r
- goto done;\r
- p += i;\r
-\r
- if (*p != ' ')\r
- goto done;\r
- p++;\r
-\r
- /*\r
- * Found the key. Now just work out whether it's the right\r
- * one or not.\r
- */\r
- if (!strcmp(p, key))\r
- ret = 0; /* key matched OK */\r
- else\r
- ret = 2; /* key mismatch */\r
-\r
- done:\r
- sfree(line);\r
- if (ret != 1)\r
- break;\r
- }\r
-\r
- fclose(fp);\r
- return ret;\r
-}\r
-\r
-void store_host_key(const char *hostname, int port,\r
- const char *keytype, const char *key)\r
-{\r
- FILE *rfp, *wfp;\r
- char *newtext, *line;\r
- int headerlen;\r
- char *filename, *tmpfilename;\r
-\r
- newtext = dupprintf("%s@%d:%s %s\n", keytype, port, hostname, key);\r
- headerlen = 1 + strcspn(newtext, " "); /* count the space too */\r
-\r
- /*\r
- * Open both the old file and a new file.\r
- */\r
- tmpfilename = make_filename(INDEX_HOSTKEYS_TMP, NULL);\r
- wfp = fopen(tmpfilename, "w");\r
- if (!wfp) {\r
- char *dir;\r
-\r
- dir = make_filename(INDEX_DIR, NULL);\r
- mkdir(dir, 0700);\r
- sfree(dir);\r
-\r
- wfp = fopen(tmpfilename, "w");\r
- }\r
- if (!wfp) {\r
- sfree(tmpfilename);\r
- return;\r
- }\r
- filename = make_filename(INDEX_HOSTKEYS, NULL);\r
- rfp = fopen(filename, "r");\r
-\r
- /*\r
- * Copy all lines from the old file to the new one that _don't_\r
- * involve the same host key identifier as the one we're adding.\r
- */\r
- if (rfp) {\r
- while ( (line = fgetline(rfp)) ) {\r
- if (strncmp(line, newtext, headerlen))\r
- fputs(line, wfp);\r
- }\r
- fclose(rfp);\r
- }\r
-\r
- /*\r
- * Now add the new line at the end.\r
- */\r
- fputs(newtext, wfp);\r
-\r
- fclose(wfp);\r
-\r
- rename(tmpfilename, filename);\r
-\r
- sfree(tmpfilename);\r
- sfree(filename);\r
- sfree(newtext);\r
-}\r
-\r
-void read_random_seed(noise_consumer_t consumer)\r
-{\r
- int fd;\r
- char *fname;\r
-\r
- fname = make_filename(INDEX_RANDSEED, NULL);\r
- fd = open(fname, O_RDONLY);\r
- sfree(fname);\r
- if (fd >= 0) {\r
- char buf[512];\r
- int ret;\r
- while ( (ret = read(fd, buf, sizeof(buf))) > 0)\r
- consumer(buf, ret);\r
- close(fd);\r
- }\r
-}\r
-\r
-void write_random_seed(void *data, int len)\r
-{\r
- int fd;\r
- char *fname;\r
-\r
- fname = make_filename(INDEX_RANDSEED, NULL);\r
- /*\r
- * Don't truncate the random seed file if it already exists; if\r
- * something goes wrong half way through writing it, it would\r
- * be better to leave the old data there than to leave it empty.\r
- */\r
- fd = open(fname, O_CREAT | O_WRONLY, 0600);\r
- if (fd < 0) {\r
- char *dir;\r
-\r
- dir = make_filename(INDEX_DIR, NULL);\r
- mkdir(dir, 0700);\r
- sfree(dir);\r
-\r
- fd = open(fname, O_CREAT | O_WRONLY, 0600);\r
- }\r
-\r
- while (len > 0) {\r
- int ret = write(fd, data, len);\r
- if (ret <= 0) break;\r
- len -= ret;\r
- data = (char *)data + len;\r
- }\r
-\r
- close(fd);\r
- sfree(fname);\r
-}\r
-\r
-void cleanup_all(void)\r
-{\r
-}\r