2 * wotsap.c - Output a set of wotsap files from an onak keyring
6 * http://www.lysator.liu.se/~jc/wotsap/wotfileformat.txt
8 * for more details of the format.
10 * Copyright 2013 Jonathan McDowell <noodles@earth.li>
12 * This program is free software: you can redistribute it and/or modify it
13 * under the terms of the GNU General Public License as published by the Free
14 * Software Foundation; version 2 of the License.
16 * This program is distributed in the hope that it will be useful, but WITHOUT
17 * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18 * FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
21 * You should have received a copy of the GNU General Public License along with
22 * this program. If not, see <https://www.gnu.org/licenses/>.
29 #include <arpa/inet.h>
33 #include "onak-conf.h"
37 static struct ll *sortkeyll(struct ll *keys)
39 struct ll *newll, *tmp, **curobj;
40 struct stats_key *curkey, *toadd;
44 toadd = (struct stats_key *) keys->object;
47 curkey = (struct stats_key *) (*curobj)->object;
48 if (curkey->keyid >= toadd->keyid) {
51 curobj = &((*curobj)->next);
55 if (*curobj == NULL || curkey->keyid != toadd->keyid) {
64 static void output_key(struct onak_dbctx *dbctx,
65 FILE *names, FILE *keys, uint64_t keyid)
67 fprintf(names, "%s\n", dbctx->keyid2uid(dbctx, keyid));
68 fprintf(keys, "%c%c%c%c", (int) (keyid >> 24) & 0xFF,
69 (int) (keyid >> 16) & 0xFF,
70 (int) (keyid >> 8) & 0xFF,
71 (int) (keyid ) & 0xFF);
74 static void wotsap(struct onak_dbctx *dbctx, uint64_t keyid, char *dir)
76 struct ll *pending, *sigll, *sigsave;
78 struct stats_key *curkey, *addkey;
80 FILE *names, *keys, *sigs, *file;
82 uint32_t sigcount, sigentry;
84 /* Length of dir + "/" + "signatures" + NUL */
85 tmppath = malloc(strlen(dir) + 12);
87 sprintf(tmppath, "%s/WOTVERSION", dir);
88 file = fopen(tmppath, "w");
90 fprintf(stderr, "Couldn't open %s\n", tmppath);
93 fprintf(file, "0.2\n");
96 sprintf(tmppath, "%s/README", dir);
97 file = fopen(tmppath, "w");
99 fprintf(stderr, "Couldn't open %s\n", tmppath);
102 fprintf(file, "This is a Web of Trust archive.\n");
103 fprintf(file, "The file format is documented at:\n");
104 fprintf(file, " http://www.lysator.liu.se/~jc/wotsap/wotfileformat.txt\n\n");
105 fprintf(file, "This file was generated by onak " ONAK_VERSION " \n");
108 sprintf(tmppath, "%s/names", dir);
109 names = fopen(tmppath, "w");
111 fprintf(stderr, "Couldn't open %s\n", tmppath);
114 sprintf(tmppath, "%s/keys", dir);
115 keys = fopen(tmppath, "wb");
117 fprintf(stderr, "Couldn't open %s\n", tmppath);
120 sprintf(tmppath, "%s/signatures", dir);
121 sigs = fopen(tmppath, "wb");
123 fprintf(stderr, "Couldn't open %s\n", tmppath);
128 dbctx->cached_getkeysigs(dbctx, keyid);
129 curkey = findinhash(keyid);
130 curkey->colour = ++curidx;
131 pending = lladd(NULL, curkey);
133 output_key(dbctx, names, keys, curkey->keyid);
135 while (pending != NULL) {
136 curkey = (struct stats_key *) pending->object;
137 sigll = dbctx->cached_getkeysigs(dbctx, curkey->keyid);
138 sigsave = sigll = sortkeyll(sigll);
140 while (sigll != NULL) {
141 addkey = (struct stats_key *) sigll->object;
142 if (addkey->colour == 0 && !addkey->revoked) {
143 uid = dbctx->keyid2uid(dbctx, addkey->keyid);
145 /* Force it to be loaded so we know if it's revoked */
146 dbctx->cached_getkeysigs(dbctx,
148 if (!addkey->revoked) {
149 addkey->colour = ++curidx;
150 pending = lladdend(pending, addkey);
151 output_key(dbctx, names, keys,
156 if (addkey->colour != 0) {
161 /* Now output the signatures */
162 sigcount = htonl(sigcount);
163 fwrite(&sigcount, sizeof (sigcount), 1, sigs);
165 while (sigll != NULL) {
166 addkey = (struct stats_key *) sigll->object;
167 if (addkey->colour != 0) {
168 sigentry = addkey->colour - 1;
169 /* Pretend it's on the primary UID for now */
170 sigentry |= 0x40000000;
171 sigentry = htonl(sigentry);
172 fwrite(&sigentry, sizeof (sigentry), 1, sigs);
176 pending = pending->next;
184 int main(int argc, char *argv[])
187 char *configfile = NULL, *dir = NULL;
188 uint64_t keyid = 0x2DA8B985;
189 struct onak_dbctx *dbctx;
191 while ((optchar = getopt(argc, argv, "c:")) != -1 ) {
194 configfile = strdup(optarg);
203 readconfig(configfile);
204 initlogthing("wotsap", config.logfile);
205 dbctx = config.dbinit(config.backend, true);
208 wotsap(dbctx, dbctx->getfullkeyid(dbctx, keyid),
211 dbctx->cleanupdb(dbctx);
213 fprintf(stderr, "Couldn't initialize key database.\n");