/mandos/trunk

To get this branch, use:
bzr branch http://bzr.recompile.se/loggerhead/mandos/trunk

« back to all changes in this revision

Viewing changes to plugins.d/mandos-client.c

* Makefile (install-client-nokey): Create network hook directory.
* debian/mandos-client.README.Debian: Corrected mail address.

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
/*  -*- coding: utf-8 -*- */
2
2
/*
3
 
 * Mandos client - get and decrypt data from a Mandos server
 
3
 * Mandos-client - get and decrypt data from a Mandos server
4
4
 *
5
5
 * This program is partly derived from an example program for an Avahi
6
6
 * service browser, downloaded from
9
9
 * "browse_callback", and parts of "main".
10
10
 * 
11
11
 * Everything else is
12
 
 * Copyright © 2007-2008 Teddy Hogeborn & Björn Påhlsson
 
12
 * Copyright © 2008-2011 Teddy Hogeborn
 
13
 * Copyright © 2008-2011 Björn Påhlsson
13
14
 * 
14
15
 * This program is free software: you can redistribute it and/or
15
16
 * modify it under the terms of the GNU General Public License as
25
26
 * along with this program.  If not, see
26
27
 * <http://www.gnu.org/licenses/>.
27
28
 * 
28
 
 * Contact the authors at <mandos@fukt.bsnet.se>.
 
29
 * Contact the authors at <mandos@recompile.se>.
29
30
 */
30
31
 
31
32
/* Needed by GPGME, specifically gpgme_data_seek() */
 
33
#ifndef _LARGEFILE_SOURCE
32
34
#define _LARGEFILE_SOURCE
 
35
#endif
 
36
#ifndef _FILE_OFFSET_BITS
33
37
#define _FILE_OFFSET_BITS 64
34
 
 
35
 
#include <stdio.h>
36
 
#include <assert.h>
37
 
#include <stdlib.h>
38
 
#include <time.h>
39
 
#include <net/if.h>             /* if_nametoindex */
40
 
#include <sys/ioctl.h>          /* ioctl, ifreq, SIOCGIFFLAGS, IFF_UP,
41
 
                                   SIOCSIFFLAGS */
 
38
#endif
 
39
 
 
40
#define _GNU_SOURCE             /* TEMP_FAILURE_RETRY(), asprintf() */
 
41
 
 
42
#include <stdio.h>              /* fprintf(), stderr, fwrite(),
 
43
                                   stdout, ferror(), remove() */
 
44
#include <stdint.h>             /* uint16_t, uint32_t */
 
45
#include <stddef.h>             /* NULL, size_t, ssize_t */
 
46
#include <stdlib.h>             /* free(), EXIT_SUCCESS, srand(),
 
47
                                   strtof(), abort() */
 
48
#include <stdbool.h>            /* bool, false, true */
 
49
#include <string.h>             /* memset(), strcmp(), strlen(),
 
50
                                   strerror(), asprintf(), strcpy() */
 
51
#include <sys/ioctl.h>          /* ioctl */
 
52
#include <sys/types.h>          /* socket(), inet_pton(), sockaddr,
 
53
                                   sockaddr_in6, PF_INET6,
 
54
                                   SOCK_STREAM, uid_t, gid_t, open(),
 
55
                                   opendir(), DIR */
 
56
#include <sys/stat.h>           /* open(), S_ISREG */
 
57
#include <sys/socket.h>         /* socket(), struct sockaddr_in6,
 
58
                                   inet_pton(), connect() */
 
59
#include <fcntl.h>              /* open() */
 
60
#include <dirent.h>             /* opendir(), struct dirent, readdir()
 
61
                                 */
 
62
#include <inttypes.h>           /* PRIu16, PRIdMAX, intmax_t,
 
63
                                   strtoimax() */
 
64
#include <assert.h>             /* assert() */
 
65
#include <errno.h>              /* perror(), errno,
 
66
                                   program_invocation_short_name */
 
67
#include <time.h>               /* nanosleep(), time(), sleep() */
42
68
#include <net/if.h>             /* ioctl, ifreq, SIOCGIFFLAGS, IFF_UP,
43
 
                                   SIOCSIFFLAGS */
44
 
 
 
69
                                   SIOCSIFFLAGS, if_indextoname(),
 
70
                                   if_nametoindex(), IF_NAMESIZE */
 
71
#include <netinet/in.h>         /* IN6_IS_ADDR_LINKLOCAL,
 
72
                                   INET_ADDRSTRLEN, INET6_ADDRSTRLEN
 
73
                                */
 
74
#include <unistd.h>             /* close(), SEEK_SET, off_t, write(),
 
75
                                   getuid(), getgid(), seteuid(),
 
76
                                   setgid(), pause(), _exit() */
 
77
#include <arpa/inet.h>          /* inet_pton(), htons, inet_ntop() */
 
78
#include <iso646.h>             /* not, or, and */
 
79
#include <argp.h>               /* struct argp_option, error_t, struct
 
80
                                   argp_state, struct argp,
 
81
                                   argp_parse(), ARGP_KEY_ARG,
 
82
                                   ARGP_KEY_END, ARGP_ERR_UNKNOWN */
 
83
#include <signal.h>             /* sigemptyset(), sigaddset(),
 
84
                                   sigaction(), SIGTERM, sig_atomic_t,
 
85
                                   raise() */
 
86
#include <sysexits.h>           /* EX_OSERR, EX_USAGE, EX_UNAVAILABLE,
 
87
                                   EX_NOHOST, EX_IOERR, EX_PROTOCOL */
 
88
#include <sys/wait.h>           /* waitpid(), WIFEXITED(),
 
89
                                   WEXITSTATUS(), WTERMSIG() */
 
90
#include <grp.h>                /* setgroups() */
 
91
 
 
92
#ifdef __linux__
 
93
#include <sys/klog.h>           /* klogctl() */
 
94
#endif  /* __linux__ */
 
95
 
 
96
/* Avahi */
 
97
/* All Avahi types, constants and functions
 
98
 Avahi*, avahi_*,
 
99
 AVAHI_* */
45
100
#include <avahi-core/core.h>
46
101
#include <avahi-core/lookup.h>
47
102
#include <avahi-core/log.h>
49
104
#include <avahi-common/malloc.h>
50
105
#include <avahi-common/error.h>
51
106
 
52
 
//mandos client part
53
 
#include <sys/types.h>          /* socket(), inet_pton() */
54
 
#include <sys/socket.h>         /* socket(), struct sockaddr_in6,
55
 
                                   struct in6_addr, inet_pton() */
56
 
#include <gnutls/gnutls.h>      /* All GnuTLS stuff */
57
 
#include <gnutls/openpgp.h>     /* GnuTLS with openpgp stuff */
58
 
 
59
 
#include <unistd.h>             /* close() */
60
 
#include <netinet/in.h>
61
 
#include <stdbool.h>            /* true */
62
 
#include <string.h>             /* memset */
63
 
#include <arpa/inet.h>          /* inet_pton() */
64
 
#include <iso646.h>             /* not */
65
 
 
66
 
// gpgme
67
 
#include <errno.h>              /* perror() */
68
 
#include <gpgme.h>
69
 
 
70
 
// getopt_long
71
 
#include <getopt.h>
 
107
/* GnuTLS */
 
108
#include <gnutls/gnutls.h>      /* All GnuTLS types, constants and
 
109
                                   functions:
 
110
                                   gnutls_*
 
111
                                   init_gnutls_session(),
 
112
                                   GNUTLS_* */
 
113
#include <gnutls/openpgp.h>
 
114
                         /* gnutls_certificate_set_openpgp_key_file(),
 
115
                            GNUTLS_OPENPGP_FMT_BASE64 */
 
116
 
 
117
/* GPGME */
 
118
#include <gpgme.h>              /* All GPGME types, constants and
 
119
                                   functions:
 
120
                                   gpgme_*
 
121
                                   GPGME_PROTOCOL_OpenPGP,
 
122
                                   GPG_ERR_NO_* */
72
123
 
73
124
#define BUFFER_SIZE 256
74
125
 
75
 
static const char *keydir = "/conf/conf.d/mandos";
76
 
static const char *pubkeyfile = "pubkey.txt";
77
 
static const char *seckeyfile = "seckey.txt";
 
126
#define PATHDIR "/conf/conf.d/mandos"
 
127
#define SECKEY "seckey.txt"
 
128
#define PUBKEY "pubkey.txt"
 
129
#define HOOKDIR "/lib/mandos/network-hooks.d"
78
130
 
79
131
bool debug = false;
80
 
 
81
 
/* Used for passing in values through all the callback functions */
 
132
static const char mandos_protocol_version[] = "1";
 
133
const char *argp_program_version = "mandos-client " VERSION;
 
134
const char *argp_program_bug_address = "<mandos@recompile.se>";
 
135
static const char sys_class_net[] = "/sys/class/net";
 
136
char *connect_to = NULL;
 
137
const char *hookdir = HOOKDIR;
 
138
 
 
139
/* Doubly linked list that need to be circularly linked when used */
 
140
typedef struct server{
 
141
  const char *ip;
 
142
  uint16_t port;
 
143
  AvahiIfIndex if_index;
 
144
  int af;
 
145
  struct timespec last_seen;
 
146
  struct server *next;
 
147
  struct server *prev;
 
148
} server;
 
149
 
 
150
/* Used for passing in values through the Avahi callback functions */
82
151
typedef struct {
83
152
  AvahiSimplePoll *simple_poll;
84
153
  AvahiServer *server;
85
154
  gnutls_certificate_credentials_t cred;
86
155
  unsigned int dh_bits;
 
156
  gnutls_dh_params_t dh_params;
87
157
  const char *priority;
 
158
  gpgme_ctx_t ctx;
 
159
  server *current_server;
88
160
} mandos_context;
89
161
 
 
162
/* global context so signal handler can reach it*/
 
163
mandos_context mc = { .simple_poll = NULL, .server = NULL,
 
164
                      .dh_bits = 1024, .priority = "SECURE256"
 
165
                      ":!CTYPE-X.509:+CTYPE-OPENPGP",
 
166
                      .current_server = NULL };
 
167
 
 
168
sig_atomic_t quit_now = 0;
 
169
int signal_received = 0;
 
170
 
 
171
/* Function to use when printing errors */
 
172
void perror_plus(const char *print_text){
 
173
  fprintf(stderr, "Mandos plugin %s: ",
 
174
          program_invocation_short_name);
 
175
  perror(print_text);
 
176
}
 
177
 
 
178
int fprintf_plus(FILE *stream, const char *format, ...){
 
179
  va_list ap;
 
180
  va_start (ap, format);
 
181
  
 
182
  TEMP_FAILURE_RETRY(fprintf(stream, "Mandos plugin %s: ",
 
183
                             program_invocation_short_name));
 
184
  return TEMP_FAILURE_RETRY(vfprintf(stream, format, ap));
 
185
}
 
186
 
 
187
/*
 
188
 * Make additional room in "buffer" for at least BUFFER_SIZE more
 
189
 * bytes. "buffer_capacity" is how much is currently allocated,
 
190
 * "buffer_length" is how much is already used.
 
191
 */
 
192
size_t incbuffer(char **buffer, size_t buffer_length,
 
193
                 size_t buffer_capacity){
 
194
  if(buffer_length + BUFFER_SIZE > buffer_capacity){
 
195
    *buffer = realloc(*buffer, buffer_capacity + BUFFER_SIZE);
 
196
    if(buffer == NULL){
 
197
      return 0;
 
198
    }
 
199
    buffer_capacity += BUFFER_SIZE;
 
200
  }
 
201
  return buffer_capacity;
 
202
}
 
203
 
 
204
/* Add server to set of servers to retry periodically */
 
205
int add_server(const char *ip, uint16_t port, AvahiIfIndex if_index,
 
206
               int af){
 
207
  int ret;
 
208
  server *new_server = malloc(sizeof(server));
 
209
  if(new_server == NULL){
 
210
    perror_plus("malloc");
 
211
    return -1;
 
212
  }
 
213
  *new_server = (server){ .ip = strdup(ip),
 
214
                          .port = port,
 
215
                          .if_index = if_index,
 
216
                          .af = af };
 
217
  if(new_server->ip == NULL){
 
218
    perror_plus("strdup");
 
219
    return -1;
 
220
  }
 
221
  /* Special case of first server */
 
222
  if (mc.current_server == NULL){
 
223
    new_server->next = new_server;
 
224
    new_server->prev = new_server;
 
225
    mc.current_server = new_server;
 
226
  /* Place the new server last in the list */
 
227
  } else {
 
228
    new_server->next = mc.current_server;
 
229
    new_server->prev = mc.current_server->prev;
 
230
    new_server->prev->next = new_server;
 
231
    mc.current_server->prev = new_server;
 
232
  }
 
233
  ret = clock_gettime(CLOCK_MONOTONIC, &mc.current_server->last_seen);
 
234
  if(ret == -1){
 
235
    perror_plus("clock_gettime");
 
236
    return -1;
 
237
  }
 
238
  return 0;
 
239
}
 
240
 
90
241
/* 
91
 
 * Decrypt OpenPGP data using keyrings in HOMEDIR.
92
 
 * Returns -1 on error
 
242
 * Initialize GPGME.
93
243
 */
94
 
static ssize_t pgp_packet_decrypt (const char *cryptotext,
95
 
                                   size_t crypto_size,
96
 
                                   char **plaintext,
97
 
                                   const char *homedir){
98
 
  gpgme_data_t dh_crypto, dh_plain;
99
 
  gpgme_ctx_t ctx;
 
244
static bool init_gpgme(const char *seckey, const char *pubkey,
 
245
                       const char *tempdir){
100
246
  gpgme_error_t rc;
101
 
  ssize_t ret;
102
 
  ssize_t plaintext_capacity = 0;
103
 
  ssize_t plaintext_length = 0;
104
247
  gpgme_engine_info_t engine_info;
105
248
  
106
 
  if (debug){
107
 
    fprintf(stderr, "Trying to decrypt OpenPGP data\n");
 
249
  
 
250
  /*
 
251
   * Helper function to insert pub and seckey to the engine keyring.
 
252
   */
 
253
  bool import_key(const char *filename){
 
254
    int ret;
 
255
    int fd;
 
256
    gpgme_data_t pgp_data;
 
257
    
 
258
    fd = (int)TEMP_FAILURE_RETRY(open(filename, O_RDONLY));
 
259
    if(fd == -1){
 
260
      perror_plus("open");
 
261
      return false;
 
262
    }
 
263
    
 
264
    rc = gpgme_data_new_from_fd(&pgp_data, fd);
 
265
    if(rc != GPG_ERR_NO_ERROR){
 
266
      fprintf_plus(stderr, "bad gpgme_data_new_from_fd: %s: %s\n",
 
267
                   gpgme_strsource(rc), gpgme_strerror(rc));
 
268
      return false;
 
269
    }
 
270
    
 
271
    rc = gpgme_op_import(mc.ctx, pgp_data);
 
272
    if(rc != GPG_ERR_NO_ERROR){
 
273
      fprintf_plus(stderr, "bad gpgme_op_import: %s: %s\n",
 
274
                   gpgme_strsource(rc), gpgme_strerror(rc));
 
275
      return false;
 
276
    }
 
277
    
 
278
    ret = (int)TEMP_FAILURE_RETRY(close(fd));
 
279
    if(ret == -1){
 
280
      perror_plus("close");
 
281
    }
 
282
    gpgme_data_release(pgp_data);
 
283
    return true;
 
284
  }
 
285
  
 
286
  if(debug){
 
287
    fprintf_plus(stderr, "Initializing GPGME\n");
108
288
  }
109
289
  
110
290
  /* Init GPGME */
111
291
  gpgme_check_version(NULL);
112
292
  rc = gpgme_engine_check_version(GPGME_PROTOCOL_OpenPGP);
113
 
  if (rc != GPG_ERR_NO_ERROR){
114
 
    fprintf(stderr, "bad gpgme_engine_check_version: %s: %s\n",
115
 
            gpgme_strsource(rc), gpgme_strerror(rc));
116
 
    return -1;
 
293
  if(rc != GPG_ERR_NO_ERROR){
 
294
    fprintf_plus(stderr, "bad gpgme_engine_check_version: %s: %s\n",
 
295
                 gpgme_strsource(rc), gpgme_strerror(rc));
 
296
    return false;
117
297
  }
118
298
  
119
299
  /* Set GPGME home directory for the OpenPGP engine only */
120
 
  rc = gpgme_get_engine_info (&engine_info);
121
 
  if (rc != GPG_ERR_NO_ERROR){
122
 
    fprintf(stderr, "bad gpgme_get_engine_info: %s: %s\n",
123
 
            gpgme_strsource(rc), gpgme_strerror(rc));
124
 
    return -1;
 
300
  rc = gpgme_get_engine_info(&engine_info);
 
301
  if(rc != GPG_ERR_NO_ERROR){
 
302
    fprintf_plus(stderr, "bad gpgme_get_engine_info: %s: %s\n",
 
303
                 gpgme_strsource(rc), gpgme_strerror(rc));
 
304
    return false;
125
305
  }
126
306
  while(engine_info != NULL){
127
307
    if(engine_info->protocol == GPGME_PROTOCOL_OpenPGP){
128
308
      gpgme_set_engine_info(GPGME_PROTOCOL_OpenPGP,
129
 
                            engine_info->file_name, homedir);
 
309
                            engine_info->file_name, tempdir);
130
310
      break;
131
311
    }
132
312
    engine_info = engine_info->next;
133
313
  }
134
314
  if(engine_info == NULL){
135
 
    fprintf(stderr, "Could not set GPGME home dir to %s\n", homedir);
136
 
    return -1;
 
315
    fprintf_plus(stderr, "Could not set GPGME home dir to %s\n",
 
316
                 tempdir);
 
317
    return false;
 
318
  }
 
319
  
 
320
  /* Create new GPGME "context" */
 
321
  rc = gpgme_new(&(mc.ctx));
 
322
  if(rc != GPG_ERR_NO_ERROR){
 
323
    fprintf_plus(stderr, "Mandos plugin mandos-client: "
 
324
                 "bad gpgme_new: %s: %s\n", gpgme_strsource(rc),
 
325
                 gpgme_strerror(rc));
 
326
    return false;
 
327
  }
 
328
  
 
329
  if(not import_key(pubkey) or not import_key(seckey)){
 
330
    return false;
 
331
  }
 
332
  
 
333
  return true;
 
334
}
 
335
 
 
336
/* 
 
337
 * Decrypt OpenPGP data.
 
338
 * Returns -1 on error
 
339
 */
 
340
static ssize_t pgp_packet_decrypt(const char *cryptotext,
 
341
                                  size_t crypto_size,
 
342
                                  char **plaintext){
 
343
  gpgme_data_t dh_crypto, dh_plain;
 
344
  gpgme_error_t rc;
 
345
  ssize_t ret;
 
346
  size_t plaintext_capacity = 0;
 
347
  ssize_t plaintext_length = 0;
 
348
  
 
349
  if(debug){
 
350
    fprintf_plus(stderr, "Trying to decrypt OpenPGP data\n");
137
351
  }
138
352
  
139
353
  /* Create new GPGME data buffer from memory cryptotext */
140
354
  rc = gpgme_data_new_from_mem(&dh_crypto, cryptotext, crypto_size,
141
355
                               0);
142
 
  if (rc != GPG_ERR_NO_ERROR){
143
 
    fprintf(stderr, "bad gpgme_data_new_from_mem: %s: %s\n",
144
 
            gpgme_strsource(rc), gpgme_strerror(rc));
 
356
  if(rc != GPG_ERR_NO_ERROR){
 
357
    fprintf_plus(stderr, "bad gpgme_data_new_from_mem: %s: %s\n",
 
358
                 gpgme_strsource(rc), gpgme_strerror(rc));
145
359
    return -1;
146
360
  }
147
361
  
148
362
  /* Create new empty GPGME data buffer for the plaintext */
149
363
  rc = gpgme_data_new(&dh_plain);
150
 
  if (rc != GPG_ERR_NO_ERROR){
151
 
    fprintf(stderr, "bad gpgme_data_new: %s: %s\n",
152
 
            gpgme_strsource(rc), gpgme_strerror(rc));
 
364
  if(rc != GPG_ERR_NO_ERROR){
 
365
    fprintf_plus(stderr, "Mandos plugin mandos-client: "
 
366
                 "bad gpgme_data_new: %s: %s\n",
 
367
                 gpgme_strsource(rc), gpgme_strerror(rc));
153
368
    gpgme_data_release(dh_crypto);
154
369
    return -1;
155
370
  }
156
371
  
157
 
  /* Create new GPGME "context" */
158
 
  rc = gpgme_new(&ctx);
159
 
  if (rc != GPG_ERR_NO_ERROR){
160
 
    fprintf(stderr, "bad gpgme_new: %s: %s\n",
161
 
            gpgme_strsource(rc), gpgme_strerror(rc));
162
 
    plaintext_length = -1;
163
 
    goto decrypt_end;
164
 
  }
165
 
  
166
372
  /* Decrypt data from the cryptotext data buffer to the plaintext
167
373
     data buffer */
168
 
  rc = gpgme_op_decrypt(ctx, dh_crypto, dh_plain);
169
 
  if (rc != GPG_ERR_NO_ERROR){
170
 
    fprintf(stderr, "bad gpgme_op_decrypt: %s: %s\n",
171
 
            gpgme_strsource(rc), gpgme_strerror(rc));
 
374
  rc = gpgme_op_decrypt(mc.ctx, dh_crypto, dh_plain);
 
375
  if(rc != GPG_ERR_NO_ERROR){
 
376
    fprintf_plus(stderr, "bad gpgme_op_decrypt: %s: %s\n",
 
377
                 gpgme_strsource(rc), gpgme_strerror(rc));
172
378
    plaintext_length = -1;
173
 
    goto decrypt_end;
174
 
  }
175
 
  
176
 
  if(debug){
177
 
    fprintf(stderr, "Decryption of OpenPGP data succeeded\n");
178
 
  }
179
 
  
180
 
  if (debug){
181
 
    gpgme_decrypt_result_t result;
182
 
    result = gpgme_op_decrypt_result(ctx);
183
 
    if (result == NULL){
184
 
      fprintf(stderr, "gpgme_op_decrypt_result failed\n");
185
 
    } else {
186
 
      fprintf(stderr, "Unsupported algorithm: %s\n",
187
 
              result->unsupported_algorithm);
188
 
      fprintf(stderr, "Wrong key usage: %d\n",
189
 
              result->wrong_key_usage);
190
 
      if(result->file_name != NULL){
191
 
        fprintf(stderr, "File name: %s\n", result->file_name);
192
 
      }
193
 
      gpgme_recipient_t recipient;
194
 
      recipient = result->recipients;
195
 
      if(recipient){
 
379
    if(debug){
 
380
      gpgme_decrypt_result_t result;
 
381
      result = gpgme_op_decrypt_result(mc.ctx);
 
382
      if(result == NULL){
 
383
        fprintf_plus(stderr, "gpgme_op_decrypt_result failed\n");
 
384
      } else {
 
385
        fprintf_plus(stderr, "Unsupported algorithm: %s\n",
 
386
                     result->unsupported_algorithm);
 
387
        fprintf_plus(stderr, "Wrong key usage: %u\n",
 
388
                     result->wrong_key_usage);
 
389
        if(result->file_name != NULL){
 
390
          fprintf_plus(stderr, "File name: %s\n", result->file_name);
 
391
        }
 
392
        gpgme_recipient_t recipient;
 
393
        recipient = result->recipients;
196
394
        while(recipient != NULL){
197
 
          fprintf(stderr, "Public key algorithm: %s\n",
198
 
                  gpgme_pubkey_algo_name(recipient->pubkey_algo));
199
 
          fprintf(stderr, "Key ID: %s\n", recipient->keyid);
200
 
          fprintf(stderr, "Secret key available: %s\n",
201
 
                  recipient->status == GPG_ERR_NO_SECKEY
202
 
                  ? "No" : "Yes");
 
395
          fprintf_plus(stderr, "Public key algorithm: %s\n",
 
396
                       gpgme_pubkey_algo_name
 
397
                       (recipient->pubkey_algo));
 
398
          fprintf_plus(stderr, "Key ID: %s\n", recipient->keyid);
 
399
          fprintf_plus(stderr, "Secret key available: %s\n",
 
400
                       recipient->status == GPG_ERR_NO_SECKEY
 
401
                       ? "No" : "Yes");
203
402
          recipient = recipient->next;
204
403
        }
205
404
      }
206
405
    }
 
406
    goto decrypt_end;
 
407
  }
 
408
  
 
409
  if(debug){
 
410
    fprintf_plus(stderr, "Decryption of OpenPGP data succeeded\n");
207
411
  }
208
412
  
209
413
  /* Seek back to the beginning of the GPGME plaintext data buffer */
210
 
  if (gpgme_data_seek(dh_plain, (off_t) 0, SEEK_SET) == -1){
211
 
    perror("pgpme_data_seek");
 
414
  if(gpgme_data_seek(dh_plain, (off_t)0, SEEK_SET) == -1){
 
415
    perror_plus("gpgme_data_seek");
212
416
    plaintext_length = -1;
213
417
    goto decrypt_end;
214
418
  }
215
419
  
216
420
  *plaintext = NULL;
217
421
  while(true){
218
 
    if (plaintext_length + BUFFER_SIZE > plaintext_capacity){
219
 
      *plaintext = realloc(*plaintext,
220
 
                            (unsigned int)plaintext_capacity
221
 
                            + BUFFER_SIZE);
222
 
      if (*plaintext == NULL){
223
 
        perror("realloc");
224
 
        plaintext_length = -1;
225
 
        goto decrypt_end;
226
 
      }
227
 
      plaintext_capacity += BUFFER_SIZE;
 
422
    plaintext_capacity = incbuffer(plaintext,
 
423
                                   (size_t)plaintext_length,
 
424
                                   plaintext_capacity);
 
425
    if(plaintext_capacity == 0){
 
426
      perror_plus("incbuffer");
 
427
      plaintext_length = -1;
 
428
      goto decrypt_end;
228
429
    }
229
430
    
230
431
    ret = gpgme_data_read(dh_plain, *plaintext + plaintext_length,
231
432
                          BUFFER_SIZE);
232
433
    /* Print the data, if any */
233
 
    if (ret == 0){
 
434
    if(ret == 0){
234
435
      /* EOF */
235
436
      break;
236
437
    }
237
438
    if(ret < 0){
238
 
      perror("gpgme_data_read");
 
439
      perror_plus("gpgme_data_read");
239
440
      plaintext_length = -1;
240
441
      goto decrypt_end;
241
442
    }
242
443
    plaintext_length += ret;
243
444
  }
244
 
 
 
445
  
245
446
  if(debug){
246
 
    fprintf(stderr, "Decrypted password is: ");
247
 
    for(size_t i = 0; i < plaintext_length; i++){
 
447
    fprintf_plus(stderr, "Decrypted password is: ");
 
448
    for(ssize_t i = 0; i < plaintext_length; i++){
248
449
      fprintf(stderr, "%02hhX ", (*plaintext)[i]);
249
450
    }
250
451
    fprintf(stderr, "\n");
260
461
  return plaintext_length;
261
462
}
262
463
 
263
 
static const char * safer_gnutls_strerror (int value) {
264
 
  const char *ret = gnutls_strerror (value);
265
 
  if (ret == NULL)
 
464
static const char * safer_gnutls_strerror(int value){
 
465
  const char *ret = gnutls_strerror(value); /* Spurious warning from
 
466
                                               -Wunreachable-code */
 
467
  if(ret == NULL)
266
468
    ret = "(unknown)";
267
469
  return ret;
268
470
}
269
471
 
 
472
/* GnuTLS log function callback */
270
473
static void debuggnutls(__attribute__((unused)) int level,
271
474
                        const char* string){
272
 
  fprintf(stderr, "%s", string);
 
475
  fprintf_plus(stderr, "GnuTLS: %s", string);
273
476
}
274
477
 
275
 
static int initgnutls(mandos_context *mc, gnutls_session_t *session,
276
 
                      gnutls_dh_params_t *dh_params){
277
 
  const char *err;
 
478
static int init_gnutls_global(const char *pubkeyfilename,
 
479
                              const char *seckeyfilename){
278
480
  int ret;
279
481
  
280
482
  if(debug){
281
 
    fprintf(stderr, "Initializing GnuTLS\n");
 
483
    fprintf_plus(stderr, "Initializing GnuTLS\n");
282
484
  }
283
 
 
284
 
  if ((ret = gnutls_global_init ())
285
 
      != GNUTLS_E_SUCCESS) {
286
 
    fprintf (stderr, "global_init: %s\n", safer_gnutls_strerror(ret));
 
485
  
 
486
  ret = gnutls_global_init();
 
487
  if(ret != GNUTLS_E_SUCCESS){
 
488
    fprintf_plus(stderr, "GnuTLS global_init: %s\n",
 
489
                 safer_gnutls_strerror(ret));
287
490
    return -1;
288
491
  }
289
492
  
290
 
  if (debug){
 
493
  if(debug){
 
494
    /* "Use a log level over 10 to enable all debugging options."
 
495
     * - GnuTLS manual
 
496
     */
291
497
    gnutls_global_set_log_level(11);
292
498
    gnutls_global_set_log_function(debuggnutls);
293
499
  }
294
500
  
295
 
  /* openpgp credentials */
296
 
  if ((ret = gnutls_certificate_allocate_credentials (&mc->cred))
297
 
      != GNUTLS_E_SUCCESS) {
298
 
    fprintf (stderr, "memory error: %s\n",
299
 
             safer_gnutls_strerror(ret));
 
501
  /* OpenPGP credentials */
 
502
  ret = gnutls_certificate_allocate_credentials(&mc.cred);
 
503
  if(ret != GNUTLS_E_SUCCESS){
 
504
    fprintf_plus(stderr, "GnuTLS memory error: %s\n",
 
505
                 safer_gnutls_strerror(ret));
 
506
    gnutls_global_deinit();
300
507
    return -1;
301
508
  }
302
509
  
303
510
  if(debug){
304
 
    fprintf(stderr, "Attempting to use OpenPGP certificate %s"
305
 
            " and keyfile %s as GnuTLS credentials\n", pubkeyfile,
306
 
            seckeyfile);
 
511
    fprintf_plus(stderr, "Attempting to use OpenPGP public key %s and"
 
512
                 " secret key %s as GnuTLS credentials\n",
 
513
                 pubkeyfilename,
 
514
                 seckeyfilename);
307
515
  }
308
516
  
309
517
  ret = gnutls_certificate_set_openpgp_key_file
310
 
    (mc->cred, pubkeyfile, seckeyfile, GNUTLS_OPENPGP_FMT_BASE64);
311
 
  if (ret != GNUTLS_E_SUCCESS) {
312
 
    fprintf
313
 
      (stderr, "Error[%d] while reading the OpenPGP key pair ('%s',"
314
 
       " '%s')\n",
315
 
       ret, pubkeyfile, seckeyfile);
316
 
    fprintf(stdout, "The Error is: %s\n",
317
 
            safer_gnutls_strerror(ret));
318
 
    return -1;
319
 
  }
320
 
  
321
 
  //GnuTLS server initialization
322
 
  if ((ret = gnutls_dh_params_init(dh_params))
323
 
      != GNUTLS_E_SUCCESS) {
324
 
    fprintf (stderr, "Error in dh parameter initialization: %s\n",
325
 
             safer_gnutls_strerror(ret));
326
 
    return -1;
327
 
  }
328
 
  
329
 
  if ((ret = gnutls_dh_params_generate2(*dh_params, mc->dh_bits))
330
 
      != GNUTLS_E_SUCCESS) {
331
 
    fprintf (stderr, "Error in prime generation: %s\n",
332
 
             safer_gnutls_strerror(ret));
333
 
    return -1;
334
 
  }
335
 
  
336
 
  gnutls_certificate_set_dh_params(mc->cred, *dh_params);
337
 
  
338
 
  // GnuTLS session creation
339
 
  if ((ret = gnutls_init(session, GNUTLS_SERVER))
340
 
      != GNUTLS_E_SUCCESS){
341
 
    fprintf(stderr, "Error in GnuTLS session initialization: %s\n",
342
 
            safer_gnutls_strerror(ret));
343
 
  }
344
 
  
345
 
  if ((ret = gnutls_priority_set_direct(*session, mc->priority, &err))
346
 
      != GNUTLS_E_SUCCESS) {
347
 
    fprintf(stderr, "Syntax error at: %s\n", err);
348
 
    fprintf(stderr, "GnuTLS error: %s\n",
349
 
            safer_gnutls_strerror(ret));
350
 
    return -1;
351
 
  }
352
 
  
353
 
  if ((ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
354
 
                                    mc->cred))
355
 
      != GNUTLS_E_SUCCESS) {
356
 
    fprintf(stderr, "Error setting a credentials set: %s\n",
357
 
            safer_gnutls_strerror(ret));
 
518
    (mc.cred, pubkeyfilename, seckeyfilename,
 
519
     GNUTLS_OPENPGP_FMT_BASE64);
 
520
  if(ret != GNUTLS_E_SUCCESS){
 
521
    fprintf_plus(stderr,
 
522
                 "Error[%d] while reading the OpenPGP key pair ('%s',"
 
523
                 " '%s')\n", ret, pubkeyfilename, seckeyfilename);
 
524
    fprintf_plus(stderr, "The GnuTLS error is: %s\n",
 
525
                 safer_gnutls_strerror(ret));
 
526
    goto globalfail;
 
527
  }
 
528
  
 
529
  /* GnuTLS server initialization */
 
530
  ret = gnutls_dh_params_init(&mc.dh_params);
 
531
  if(ret != GNUTLS_E_SUCCESS){
 
532
    fprintf_plus(stderr, "Error in GnuTLS DH parameter"
 
533
                 " initialization: %s\n",
 
534
                 safer_gnutls_strerror(ret));
 
535
    goto globalfail;
 
536
  }
 
537
  ret = gnutls_dh_params_generate2(mc.dh_params, mc.dh_bits);
 
538
  if(ret != GNUTLS_E_SUCCESS){
 
539
    fprintf_plus(stderr, "Error in GnuTLS prime generation: %s\n",
 
540
                 safer_gnutls_strerror(ret));
 
541
    goto globalfail;
 
542
  }
 
543
  
 
544
  gnutls_certificate_set_dh_params(mc.cred, mc.dh_params);
 
545
  
 
546
  return 0;
 
547
  
 
548
 globalfail:
 
549
  
 
550
  gnutls_certificate_free_credentials(mc.cred);
 
551
  gnutls_global_deinit();
 
552
  gnutls_dh_params_deinit(mc.dh_params);
 
553
  return -1;
 
554
}
 
555
 
 
556
static int init_gnutls_session(gnutls_session_t *session){
 
557
  int ret;
 
558
  /* GnuTLS session creation */
 
559
  do {
 
560
    ret = gnutls_init(session, GNUTLS_SERVER);
 
561
    if(quit_now){
 
562
      return -1;
 
563
    }
 
564
  } while(ret == GNUTLS_E_INTERRUPTED or ret == GNUTLS_E_AGAIN);
 
565
  if(ret != GNUTLS_E_SUCCESS){
 
566
    fprintf_plus(stderr,
 
567
                 "Error in GnuTLS session initialization: %s\n",
 
568
                 safer_gnutls_strerror(ret));
 
569
  }
 
570
  
 
571
  {
 
572
    const char *err;
 
573
    do {
 
574
      ret = gnutls_priority_set_direct(*session, mc.priority, &err);
 
575
      if(quit_now){
 
576
        gnutls_deinit(*session);
 
577
        return -1;
 
578
      }
 
579
    } while(ret == GNUTLS_E_INTERRUPTED or ret == GNUTLS_E_AGAIN);
 
580
    if(ret != GNUTLS_E_SUCCESS){
 
581
      fprintf_plus(stderr, "Syntax error at: %s\n", err);
 
582
      fprintf_plus(stderr, "GnuTLS error: %s\n",
 
583
                   safer_gnutls_strerror(ret));
 
584
      gnutls_deinit(*session);
 
585
      return -1;
 
586
    }
 
587
  }
 
588
  
 
589
  do {
 
590
    ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
 
591
                                 mc.cred);
 
592
    if(quit_now){
 
593
      gnutls_deinit(*session);
 
594
      return -1;
 
595
    }
 
596
  } while(ret == GNUTLS_E_INTERRUPTED or ret == GNUTLS_E_AGAIN);
 
597
  if(ret != GNUTLS_E_SUCCESS){
 
598
    fprintf_plus(stderr, "Error setting GnuTLS credentials: %s\n",
 
599
                 safer_gnutls_strerror(ret));
 
600
    gnutls_deinit(*session);
358
601
    return -1;
359
602
  }
360
603
  
361
604
  /* ignore client certificate if any. */
362
 
  gnutls_certificate_server_set_request (*session,
363
 
                                         GNUTLS_CERT_IGNORE);
 
605
  gnutls_certificate_server_set_request(*session, GNUTLS_CERT_IGNORE);
364
606
  
365
 
  gnutls_dh_set_prime_bits (*session, mc->dh_bits);
 
607
  gnutls_dh_set_prime_bits(*session, mc.dh_bits);
366
608
  
367
609
  return 0;
368
610
}
369
611
 
 
612
/* Avahi log function callback */
370
613
static void empty_log(__attribute__((unused)) AvahiLogLevel level,
371
614
                      __attribute__((unused)) const char *txt){}
372
615
 
 
616
/* Called when a Mandos server is found */
373
617
static int start_mandos_communication(const char *ip, uint16_t port,
374
618
                                      AvahiIfIndex if_index,
375
 
                                      mandos_context *mc){
376
 
  int ret, tcp_sd;
377
 
  struct sockaddr_in6 to;
 
619
                                      int af){
 
620
  int ret, tcp_sd = -1;
 
621
  ssize_t sret;
 
622
  union {
 
623
    struct sockaddr_in in;
 
624
    struct sockaddr_in6 in6;
 
625
  } to;
378
626
  char *buffer = NULL;
379
 
  char *decrypted_buffer;
 
627
  char *decrypted_buffer = NULL;
380
628
  size_t buffer_length = 0;
381
629
  size_t buffer_capacity = 0;
382
 
  ssize_t decrypted_buffer_size;
383
 
  size_t written = 0;
384
 
  int retval = 0;
385
 
  char interface[IF_NAMESIZE];
 
630
  size_t written;
 
631
  int retval = -1;
386
632
  gnutls_session_t session;
387
 
  gnutls_dh_params_t dh_params;
388
 
  
389
 
  if(debug){
390
 
    fprintf(stderr, "Setting up a tcp connection to %s, port %d\n",
391
 
            ip, port);
392
 
  }
393
 
  
394
 
  tcp_sd = socket(PF_INET6, SOCK_STREAM, 0);
395
 
  if(tcp_sd < 0) {
396
 
    perror("socket");
397
 
    return -1;
398
 
  }
399
 
 
400
 
  if(debug){
401
 
    if(if_indextoname((unsigned int)if_index, interface) == NULL){
402
 
      perror("if_indextoname");
403
 
      return -1;
404
 
    }
405
 
    fprintf(stderr, "Binding to interface %s\n", interface);
406
 
  }
407
 
  
408
 
  memset(&to,0,sizeof(to));     /* Spurious warning */
409
 
  to.sin6_family = AF_INET6;
410
 
  ret = inet_pton(AF_INET6, ip, &to.sin6_addr);
411
 
  if (ret < 0 ){
412
 
    perror("inet_pton");
413
 
    return -1;
 
633
  int pf;                       /* Protocol family */
 
634
  
 
635
  errno = 0;
 
636
  
 
637
  if(quit_now){
 
638
    errno = EINTR;
 
639
    return -1;
 
640
  }
 
641
  
 
642
  switch(af){
 
643
  case AF_INET6:
 
644
    pf = PF_INET6;
 
645
    break;
 
646
  case AF_INET:
 
647
    pf = PF_INET;
 
648
    break;
 
649
  default:
 
650
    fprintf_plus(stderr, "Bad address family: %d\n", af);
 
651
    errno = EINVAL;
 
652
    return -1;
 
653
  }
 
654
  
 
655
  ret = init_gnutls_session(&session);
 
656
  if(ret != 0){
 
657
    return -1;
 
658
  }
 
659
  
 
660
  if(debug){
 
661
    fprintf_plus(stderr, "Setting up a TCP connection to %s, port %"
 
662
                 PRIu16 "\n", ip, port);
 
663
  }
 
664
  
 
665
  tcp_sd = socket(pf, SOCK_STREAM, 0);
 
666
  if(tcp_sd < 0){
 
667
    int e = errno;
 
668
    perror_plus("socket");
 
669
    errno = e;
 
670
    goto mandos_end;
 
671
  }
 
672
  
 
673
  if(quit_now){
 
674
    errno = EINTR;
 
675
    goto mandos_end;
 
676
  }
 
677
  
 
678
  memset(&to, 0, sizeof(to));
 
679
  if(af == AF_INET6){
 
680
    to.in6.sin6_family = (sa_family_t)af;
 
681
    ret = inet_pton(af, ip, &to.in6.sin6_addr);
 
682
  } else {                      /* IPv4 */
 
683
    to.in.sin_family = (sa_family_t)af;
 
684
    ret = inet_pton(af, ip, &to.in.sin_addr);
 
685
  }
 
686
  if(ret < 0 ){
 
687
    int e = errno;
 
688
    perror_plus("inet_pton");
 
689
    errno = e;
 
690
    goto mandos_end;
414
691
  }
415
692
  if(ret == 0){
416
 
    fprintf(stderr, "Bad address: %s\n", ip);
417
 
    return -1;
418
 
  }
419
 
  to.sin6_port = htons(port);   /* Spurious warning */
 
693
    int e = errno;
 
694
    fprintf_plus(stderr, "Bad address: %s\n", ip);
 
695
    errno = e;
 
696
    goto mandos_end;
 
697
  }
 
698
  if(af == AF_INET6){
 
699
    to.in6.sin6_port = htons(port); /* Spurious warnings from
 
700
                                       -Wconversion and
 
701
                                       -Wunreachable-code */
 
702
    
 
703
    if(IN6_IS_ADDR_LINKLOCAL /* Spurious warnings from */
 
704
       (&to.in6.sin6_addr)){ /* -Wstrict-aliasing=2 or lower and
 
705
                                -Wunreachable-code*/
 
706
      if(if_index == AVAHI_IF_UNSPEC){
 
707
        fprintf_plus(stderr, "An IPv6 link-local address is"
 
708
                     " incomplete without a network interface\n");
 
709
        errno = EINVAL;
 
710
        goto mandos_end;
 
711
      }
 
712
      /* Set the network interface number as scope */
 
713
      to.in6.sin6_scope_id = (uint32_t)if_index;
 
714
    }
 
715
  } else {
 
716
    to.in.sin_port = htons(port); /* Spurious warnings from
 
717
                                     -Wconversion and
 
718
                                     -Wunreachable-code */
 
719
  }
420
720
  
421
 
  to.sin6_scope_id = (uint32_t)if_index;
 
721
  if(quit_now){
 
722
    errno = EINTR;
 
723
    goto mandos_end;
 
724
  }
422
725
  
423
726
  if(debug){
424
 
    fprintf(stderr, "Connection to: %s, port %d\n", ip, port);
425
 
    char addrstr[INET6_ADDRSTRLEN] = "";
426
 
    if(inet_ntop(to.sin6_family, &(to.sin6_addr), addrstr,
427
 
                 sizeof(addrstr)) == NULL){
428
 
      perror("inet_ntop");
 
727
    if(af == AF_INET6 and if_index != AVAHI_IF_UNSPEC){
 
728
      char interface[IF_NAMESIZE];
 
729
      if(if_indextoname((unsigned int)if_index, interface) == NULL){
 
730
        perror_plus("if_indextoname");
 
731
      } else {
 
732
        fprintf_plus(stderr, "Connection to: %s%%%s, port %" PRIu16
 
733
                     "\n", ip, interface, port);
 
734
      }
 
735
    } else {
 
736
      fprintf_plus(stderr, "Connection to: %s, port %" PRIu16 "\n",
 
737
                   ip, port);
 
738
    }
 
739
    char addrstr[(INET_ADDRSTRLEN > INET6_ADDRSTRLEN) ?
 
740
                 INET_ADDRSTRLEN : INET6_ADDRSTRLEN] = "";
 
741
    const char *pcret;
 
742
    if(af == AF_INET6){
 
743
      pcret = inet_ntop(af, &(to.in6.sin6_addr), addrstr,
 
744
                        sizeof(addrstr));
 
745
    } else {
 
746
      pcret = inet_ntop(af, &(to.in.sin_addr), addrstr,
 
747
                        sizeof(addrstr));
 
748
    }
 
749
    if(pcret == NULL){
 
750
      perror_plus("inet_ntop");
429
751
    } else {
430
752
      if(strcmp(addrstr, ip) != 0){
431
 
        fprintf(stderr, "Canonical address form: %s\n", addrstr);
432
 
      }
433
 
    }
434
 
  }
435
 
  
436
 
  ret = connect(tcp_sd, (struct sockaddr *) &to, sizeof(to));
437
 
  if (ret < 0){
438
 
    perror("connect");
439
 
    return -1;
440
 
  }
441
 
  
442
 
  ret = initgnutls (mc, &session, &dh_params);
443
 
  if (ret != 0){
444
 
    retval = -1;
445
 
    return -1;
446
 
  }
447
 
  
448
 
  gnutls_transport_set_ptr (session, (gnutls_transport_ptr_t) tcp_sd);
 
753
        fprintf_plus(stderr, "Canonical address form: %s\n", addrstr);
 
754
      }
 
755
    }
 
756
  }
 
757
  
 
758
  if(quit_now){
 
759
    errno = EINTR;
 
760
    goto mandos_end;
 
761
  }
 
762
  
 
763
  if(af == AF_INET6){
 
764
    ret = connect(tcp_sd, &to.in6, sizeof(to));
 
765
  } else {
 
766
    ret = connect(tcp_sd, &to.in, sizeof(to)); /* IPv4 */
 
767
  }
 
768
  if(ret < 0){
 
769
    if ((errno != ECONNREFUSED and errno != ENETUNREACH) or debug){
 
770
      int e = errno;
 
771
      perror_plus("connect");
 
772
      errno = e;
 
773
    }
 
774
    goto mandos_end;
 
775
  }
 
776
  
 
777
  if(quit_now){
 
778
    errno = EINTR;
 
779
    goto mandos_end;
 
780
  }
 
781
  
 
782
  const char *out = mandos_protocol_version;
 
783
  written = 0;
 
784
  while(true){
 
785
    size_t out_size = strlen(out);
 
786
    ret = (int)TEMP_FAILURE_RETRY(write(tcp_sd, out + written,
 
787
                                        out_size - written));
 
788
    if(ret == -1){
 
789
      int e = errno;
 
790
      perror_plus("write");
 
791
      errno = e;
 
792
      goto mandos_end;
 
793
    }
 
794
    written += (size_t)ret;
 
795
    if(written < out_size){
 
796
      continue;
 
797
    } else {
 
798
      if(out == mandos_protocol_version){
 
799
        written = 0;
 
800
        out = "\r\n";
 
801
      } else {
 
802
        break;
 
803
      }
 
804
    }
 
805
  
 
806
    if(quit_now){
 
807
      errno = EINTR;
 
808
      goto mandos_end;
 
809
    }
 
810
  }
449
811
  
450
812
  if(debug){
451
 
    fprintf(stderr, "Establishing TLS session with %s\n", ip);
452
 
  }
453
 
  
454
 
  ret = gnutls_handshake (session);
455
 
  
456
 
  if (ret != GNUTLS_E_SUCCESS){
 
813
    fprintf_plus(stderr, "Establishing TLS session with %s\n", ip);
 
814
  }
 
815
  
 
816
  if(quit_now){
 
817
    errno = EINTR;
 
818
    goto mandos_end;
 
819
  }
 
820
  
 
821
  /* Spurious warning from -Wint-to-pointer-cast */
 
822
  gnutls_transport_set_ptr(session, (gnutls_transport_ptr_t) tcp_sd);
 
823
  
 
824
  if(quit_now){
 
825
    errno = EINTR;
 
826
    goto mandos_end;
 
827
  }
 
828
  
 
829
  do {
 
830
    ret = gnutls_handshake(session);
 
831
    if(quit_now){
 
832
      errno = EINTR;
 
833
      goto mandos_end;
 
834
    }
 
835
  } while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
 
836
  
 
837
  if(ret != GNUTLS_E_SUCCESS){
457
838
    if(debug){
458
 
      fprintf(stderr, "\n*** Handshake failed ***\n");
459
 
      gnutls_perror (ret);
 
839
      fprintf_plus(stderr, "*** GnuTLS Handshake failed ***\n");
 
840
      gnutls_perror(ret);
460
841
    }
461
 
    retval = -1;
462
 
    goto exit;
 
842
    errno = EPROTO;
 
843
    goto mandos_end;
463
844
  }
464
845
  
465
 
  //Retrieve OpenPGP packet that contains the wanted password
 
846
  /* Read OpenPGP packet that contains the wanted password */
466
847
  
467
848
  if(debug){
468
 
    fprintf(stderr, "Retrieving pgp encrypted password from %s\n",
469
 
            ip);
 
849
    fprintf_plus(stderr, "Retrieving OpenPGP encrypted password from"
 
850
                 " %s\n", ip);
470
851
  }
471
 
 
 
852
  
472
853
  while(true){
473
 
    if (buffer_length + BUFFER_SIZE > buffer_capacity){
474
 
      buffer = realloc(buffer, buffer_capacity + BUFFER_SIZE);
475
 
      if (buffer == NULL){
476
 
        perror("realloc");
477
 
        goto exit;
478
 
      }
479
 
      buffer_capacity += BUFFER_SIZE;
480
 
    }
481
 
    
482
 
    ret = gnutls_record_recv(session, buffer+buffer_length,
483
 
                             BUFFER_SIZE);
484
 
    if (ret == 0){
 
854
    
 
855
    if(quit_now){
 
856
      errno = EINTR;
 
857
      goto mandos_end;
 
858
    }
 
859
    
 
860
    buffer_capacity = incbuffer(&buffer, buffer_length,
 
861
                                buffer_capacity);
 
862
    if(buffer_capacity == 0){
 
863
      int e = errno;
 
864
      perror_plus("incbuffer");
 
865
      errno = e;
 
866
      goto mandos_end;
 
867
    }
 
868
    
 
869
    if(quit_now){
 
870
      errno = EINTR;
 
871
      goto mandos_end;
 
872
    }
 
873
    
 
874
    sret = gnutls_record_recv(session, buffer+buffer_length,
 
875
                              BUFFER_SIZE);
 
876
    if(sret == 0){
485
877
      break;
486
878
    }
487
 
    if (ret < 0){
488
 
      switch(ret){
 
879
    if(sret < 0){
 
880
      switch(sret){
489
881
      case GNUTLS_E_INTERRUPTED:
490
882
      case GNUTLS_E_AGAIN:
491
883
        break;
492
884
      case GNUTLS_E_REHANDSHAKE:
493
 
        ret = gnutls_handshake (session);
494
 
        if (ret < 0){
495
 
          fprintf(stderr, "\n*** Handshake failed ***\n");
496
 
          gnutls_perror (ret);
497
 
          retval = -1;
498
 
          goto exit;
 
885
        do {
 
886
          ret = gnutls_handshake(session);
 
887
          
 
888
          if(quit_now){
 
889
            errno = EINTR;
 
890
            goto mandos_end;
 
891
          }
 
892
        } while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
 
893
        if(ret < 0){
 
894
          fprintf_plus(stderr, "*** GnuTLS Re-handshake failed "
 
895
                       "***\n");
 
896
          gnutls_perror(ret);
 
897
          errno = EPROTO;
 
898
          goto mandos_end;
499
899
        }
500
900
        break;
501
901
      default:
502
 
        fprintf(stderr, "Unknown error while reading data from"
503
 
                " encrypted session with mandos server\n");
504
 
        retval = -1;
505
 
        gnutls_bye (session, GNUTLS_SHUT_RDWR);
506
 
        goto exit;
 
902
        fprintf_plus(stderr, "Unknown error while reading data from"
 
903
                     " encrypted session with Mandos server\n");
 
904
        gnutls_bye(session, GNUTLS_SHUT_RDWR);
 
905
        errno = EIO;
 
906
        goto mandos_end;
507
907
      }
508
908
    } else {
509
 
      buffer_length += (size_t) ret;
510
 
    }
511
 
  }
512
 
  
513
 
  if (buffer_length > 0){
514
 
    decrypted_buffer_size = pgp_packet_decrypt(buffer,
515
 
                                               buffer_length,
516
 
                                               &decrypted_buffer,
517
 
                                               keydir);
518
 
    if (decrypted_buffer_size >= 0){
 
909
      buffer_length += (size_t) sret;
 
910
    }
 
911
  }
 
912
  
 
913
  if(debug){
 
914
    fprintf_plus(stderr, "Closing TLS session\n");
 
915
  }
 
916
  
 
917
  if(quit_now){
 
918
    errno = EINTR;
 
919
    goto mandos_end;
 
920
  }
 
921
  
 
922
  do {
 
923
    ret = gnutls_bye(session, GNUTLS_SHUT_RDWR);
 
924
    if(quit_now){
 
925
      errno = EINTR;
 
926
      goto mandos_end;
 
927
    }
 
928
  } while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
 
929
  
 
930
  if(buffer_length > 0){
 
931
    ssize_t decrypted_buffer_size;
 
932
    decrypted_buffer_size = pgp_packet_decrypt(buffer, buffer_length,
 
933
                                               &decrypted_buffer);
 
934
    if(decrypted_buffer_size >= 0){
 
935
      
 
936
      written = 0;
519
937
      while(written < (size_t) decrypted_buffer_size){
520
 
        ret = (int)fwrite (decrypted_buffer + written, 1,
521
 
                           (size_t)decrypted_buffer_size - written,
522
 
                           stdout);
 
938
        if(quit_now){
 
939
          errno = EINTR;
 
940
          goto mandos_end;
 
941
        }
 
942
        
 
943
        ret = (int)fwrite(decrypted_buffer + written, 1,
 
944
                          (size_t)decrypted_buffer_size - written,
 
945
                          stdout);
523
946
        if(ret == 0 and ferror(stdout)){
 
947
          int e = errno;
524
948
          if(debug){
525
 
            fprintf(stderr, "Error writing encrypted data: %s\n",
526
 
                    strerror(errno));
 
949
            fprintf_plus(stderr, "Error writing encrypted data: %s\n",
 
950
                         strerror(errno));
527
951
          }
528
 
          retval = -1;
529
 
          break;
 
952
          errno = e;
 
953
          goto mandos_end;
530
954
        }
531
955
        written += (size_t)ret;
532
956
      }
533
 
      free(decrypted_buffer);
534
 
    } else {
 
957
      retval = 0;
 
958
    }
 
959
  }
 
960
  
 
961
  /* Shutdown procedure */
 
962
  
 
963
 mandos_end:
 
964
  {
 
965
    int e = errno;
 
966
    free(decrypted_buffer);
 
967
    free(buffer);
 
968
    if(tcp_sd >= 0){
 
969
      ret = (int)TEMP_FAILURE_RETRY(close(tcp_sd));
 
970
    }
 
971
    if(ret == -1){
 
972
      if(e == 0){
 
973
        e = errno;
 
974
      }
 
975
      perror_plus("close");
 
976
    }
 
977
    gnutls_deinit(session);
 
978
    errno = e;
 
979
    if(quit_now){
 
980
      errno = EINTR;
535
981
      retval = -1;
536
982
    }
537
983
  }
538
 
 
539
 
  //shutdown procedure
540
 
 
541
 
  if(debug){
542
 
    fprintf(stderr, "Closing TLS session\n");
543
 
  }
544
 
 
545
 
  free(buffer);
546
 
  gnutls_bye (session, GNUTLS_SHUT_RDWR);
547
 
 exit:
548
 
  close(tcp_sd);
549
 
  gnutls_deinit (session);
550
 
  gnutls_certificate_free_credentials (mc->cred);
551
 
  gnutls_global_deinit ();
552
984
  return retval;
553
985
}
554
986
 
555
987
static void resolve_callback(AvahiSServiceResolver *r,
556
988
                             AvahiIfIndex interface,
557
 
                             AVAHI_GCC_UNUSED AvahiProtocol protocol,
 
989
                             AvahiProtocol proto,
558
990
                             AvahiResolverEvent event,
559
991
                             const char *name,
560
992
                             const char *type,
565
997
                             AVAHI_GCC_UNUSED AvahiStringList *txt,
566
998
                             AVAHI_GCC_UNUSED AvahiLookupResultFlags
567
999
                             flags,
568
 
                             void* userdata) {
569
 
  mandos_context *mc = userdata;
570
 
  assert(r);                    /* Spurious warning */
 
1000
                             AVAHI_GCC_UNUSED void* userdata){
 
1001
  assert(r);
571
1002
  
572
1003
  /* Called whenever a service has been resolved successfully or
573
1004
     timed out */
574
1005
  
575
 
  switch (event) {
 
1006
  if(quit_now){
 
1007
    return;
 
1008
  }
 
1009
  
 
1010
  switch(event){
576
1011
  default:
577
1012
  case AVAHI_RESOLVER_FAILURE:
578
 
    fprintf(stderr, "(Resolver) Failed to resolve service '%s' of"
579
 
            " type '%s' in domain '%s': %s\n", name, type, domain,
580
 
            avahi_strerror(avahi_server_errno(mc->server)));
 
1013
    fprintf_plus(stderr, "(Avahi Resolver) Failed to resolve service "
 
1014
                 "'%s' of type '%s' in domain '%s': %s\n", name, type,
 
1015
                 domain,
 
1016
                 avahi_strerror(avahi_server_errno(mc.server)));
581
1017
    break;
582
1018
    
583
1019
  case AVAHI_RESOLVER_FOUND:
585
1021
      char ip[AVAHI_ADDRESS_STR_MAX];
586
1022
      avahi_address_snprint(ip, sizeof(ip), address);
587
1023
      if(debug){
588
 
        fprintf(stderr, "Mandos server \"%s\" found on %s (%s) on"
589
 
                " port %d\n", name, host_name, ip, port);
 
1024
        fprintf_plus(stderr, "Mandos server \"%s\" found on %s (%s, %"
 
1025
                     PRIdMAX ") on port %" PRIu16 "\n", name,
 
1026
                     host_name, ip, (intmax_t)interface, port);
590
1027
      }
591
 
      int ret = start_mandos_communication(ip, port, interface, mc);
592
 
      if (ret == 0){
593
 
        exit(EXIT_SUCCESS);
 
1028
      int ret = start_mandos_communication(ip, port, interface,
 
1029
                                           avahi_proto_to_af(proto));
 
1030
      if(ret == 0){
 
1031
        avahi_simple_poll_quit(mc.simple_poll);
 
1032
      } else {
 
1033
        ret = add_server(ip, port, interface,
 
1034
                         avahi_proto_to_af(proto));
594
1035
      }
595
1036
    }
596
1037
  }
597
1038
  avahi_s_service_resolver_free(r);
598
1039
}
599
1040
 
600
 
static void browse_callback( AvahiSServiceBrowser *b,
601
 
                             AvahiIfIndex interface,
602
 
                             AvahiProtocol protocol,
603
 
                             AvahiBrowserEvent event,
604
 
                             const char *name,
605
 
                             const char *type,
606
 
                             const char *domain,
607
 
                             AVAHI_GCC_UNUSED AvahiLookupResultFlags
608
 
                             flags,
609
 
                             void* userdata) {
610
 
  mandos_context *mc = userdata;
611
 
  assert(b);                    /* Spurious warning */
 
1041
static void browse_callback(AvahiSServiceBrowser *b,
 
1042
                            AvahiIfIndex interface,
 
1043
                            AvahiProtocol protocol,
 
1044
                            AvahiBrowserEvent event,
 
1045
                            const char *name,
 
1046
                            const char *type,
 
1047
                            const char *domain,
 
1048
                            AVAHI_GCC_UNUSED AvahiLookupResultFlags
 
1049
                            flags,
 
1050
                            AVAHI_GCC_UNUSED void* userdata){
 
1051
  assert(b);
612
1052
  
613
1053
  /* Called whenever a new services becomes available on the LAN or
614
1054
     is removed from the LAN */
615
1055
  
616
 
  switch (event) {
 
1056
  if(quit_now){
 
1057
    return;
 
1058
  }
 
1059
  
 
1060
  switch(event){
617
1061
  default:
618
1062
  case AVAHI_BROWSER_FAILURE:
619
1063
    
620
 
    fprintf(stderr, "(Browser) %s\n",
621
 
            avahi_strerror(avahi_server_errno(mc->server)));
622
 
    avahi_simple_poll_quit(mc->simple_poll);
 
1064
    fprintf_plus(stderr, "(Avahi browser) %s\n",
 
1065
                 avahi_strerror(avahi_server_errno(mc.server)));
 
1066
    avahi_simple_poll_quit(mc.simple_poll);
623
1067
    return;
624
1068
    
625
1069
  case AVAHI_BROWSER_NEW:
626
 
    /* We ignore the returned resolver object. In the callback
627
 
       function we free it. If the server is terminated before
628
 
       the callback function is called the server will free
629
 
       the resolver for us. */
 
1070
    /* We ignore the returned Avahi resolver object. In the callback
 
1071
       function we free it. If the Avahi server is terminated before
 
1072
       the callback function is called the Avahi server will free the
 
1073
       resolver for us. */
630
1074
    
631
 
    if (!(avahi_s_service_resolver_new(mc->server, interface,
632
 
                                       protocol, name, type, domain,
633
 
                                       AVAHI_PROTO_INET6, 0,
634
 
                                       resolve_callback, mc)))
635
 
      fprintf(stderr, "Failed to resolve service '%s': %s\n", name,
636
 
              avahi_strerror(avahi_server_errno(mc->server)));
 
1075
    if(avahi_s_service_resolver_new(mc.server, interface, protocol,
 
1076
                                    name, type, domain, protocol, 0,
 
1077
                                    resolve_callback, NULL) == NULL)
 
1078
      fprintf_plus(stderr, "Avahi: Failed to resolve service '%s':"
 
1079
                   " %s\n", name,
 
1080
                   avahi_strerror(avahi_server_errno(mc.server)));
637
1081
    break;
638
1082
    
639
1083
  case AVAHI_BROWSER_REMOVE:
641
1085
    
642
1086
  case AVAHI_BROWSER_ALL_FOR_NOW:
643
1087
  case AVAHI_BROWSER_CACHE_EXHAUSTED:
 
1088
    if(debug){
 
1089
      fprintf_plus(stderr, "No Mandos server found, still"
 
1090
                   " searching...\n");
 
1091
    }
644
1092
    break;
645
1093
  }
646
1094
}
647
1095
 
648
 
/* Combines file name and path and returns the malloced new
649
 
   string. some sane checks could/should be added */
650
 
static const char *combinepath(const char *first, const char *second){
651
 
  size_t f_len = strlen(first);
652
 
  size_t s_len = strlen(second);
653
 
  char *tmp = malloc(f_len + s_len + 2);
654
 
  if (tmp == NULL){
655
 
    return NULL;
656
 
  }
657
 
  if(f_len > 0){
658
 
    memcpy(tmp, first, f_len);  /* Spurious warning */
659
 
  }
660
 
  tmp[f_len] = '/';
661
 
  if(s_len > 0){
662
 
    memcpy(tmp + f_len + 1, second, s_len); /* Spurious warning */
663
 
  }
664
 
  tmp[f_len + 1 + s_len] = '\0';
665
 
  return tmp;
666
 
}
667
 
 
668
 
 
669
 
int main(AVAHI_GCC_UNUSED int argc, AVAHI_GCC_UNUSED char*argv[]) {
670
 
    AvahiServerConfig config;
671
 
    AvahiSServiceBrowser *sb = NULL;
672
 
    int error;
673
 
    int ret;
674
 
    int debug_int;
675
 
    int returncode = EXIT_SUCCESS;
676
 
    const char *interface = "eth0";
677
 
    struct ifreq network;
678
 
    int sd;
679
 
    char *connect_to = NULL;
680
 
    AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
681
 
    mandos_context mc = { .simple_poll = NULL, .server = NULL,
682
 
                          .dh_bits = 1024, .priority = "SECURE256"};
 
1096
/* Signal handler that stops main loop after SIGTERM */
 
1097
static void handle_sigterm(int sig){
 
1098
  if(quit_now){
 
1099
    return;
 
1100
  }
 
1101
  quit_now = 1;
 
1102
  signal_received = sig;
 
1103
  int old_errno = errno;
 
1104
  /* set main loop to exit */
 
1105
  if(mc.simple_poll != NULL){
 
1106
    avahi_simple_poll_quit(mc.simple_poll);
 
1107
  }
 
1108
  errno = old_errno;
 
1109
}
 
1110
 
 
1111
bool get_flags(const char *ifname, struct ifreq *ifr){
 
1112
  int ret;
 
1113
  
 
1114
  int s = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
 
1115
  if(s < 0){
 
1116
    perror_plus("socket");
 
1117
    return false;
 
1118
  }
 
1119
  strcpy(ifr->ifr_name, ifname);
 
1120
  ret = ioctl(s, SIOCGIFFLAGS, ifr);
 
1121
  if(ret == -1){
 
1122
    if(debug){
 
1123
      perror_plus("ioctl SIOCGIFFLAGS");
 
1124
    }
 
1125
    return false;
 
1126
  }
 
1127
  return true;
 
1128
}
 
1129
 
 
1130
bool good_flags(const char *ifname, const struct ifreq *ifr){
 
1131
  
 
1132
  /* Reject the loopback device */
 
1133
  if(ifr->ifr_flags & IFF_LOOPBACK){
 
1134
    if(debug){
 
1135
      fprintf_plus(stderr, "Rejecting loopback interface \"%s\"\n",
 
1136
                   ifname);
 
1137
    }
 
1138
    return false;
 
1139
  }
 
1140
  /* Accept point-to-point devices only if connect_to is specified */
 
1141
  if(connect_to != NULL and (ifr->ifr_flags & IFF_POINTOPOINT)){
 
1142
    if(debug){
 
1143
      fprintf_plus(stderr, "Accepting point-to-point interface"
 
1144
                   " \"%s\"\n", ifname);
 
1145
    }
 
1146
    return true;
 
1147
  }
 
1148
  /* Otherwise, reject non-broadcast-capable devices */
 
1149
  if(not (ifr->ifr_flags & IFF_BROADCAST)){
 
1150
    if(debug){
 
1151
      fprintf_plus(stderr, "Rejecting non-broadcast interface"
 
1152
                   " \"%s\"\n", ifname);
 
1153
    }
 
1154
    return false;
 
1155
  }
 
1156
  /* Reject non-ARP interfaces (including dummy interfaces) */
 
1157
  if(ifr->ifr_flags & IFF_NOARP){
 
1158
    if(debug){
 
1159
      fprintf_plus(stderr, "Rejecting non-ARP interface \"%s\"\n",
 
1160
                   ifname);
 
1161
    }
 
1162
    return false;
 
1163
  }
 
1164
  
 
1165
  /* Accept this device */
 
1166
  if(debug){
 
1167
    fprintf_plus(stderr, "Interface \"%s\" is good\n", ifname);
 
1168
  }
 
1169
  return true;
 
1170
}
 
1171
 
 
1172
/* 
 
1173
 * This function determines if a directory entry in /sys/class/net
 
1174
 * corresponds to an acceptable network device.
 
1175
 * (This function is passed to scandir(3) as a filter function.)
 
1176
 */
 
1177
int good_interface(const struct dirent *if_entry){
 
1178
  if(if_entry->d_name[0] == '.'){
 
1179
    return 0;
 
1180
  }
 
1181
  
 
1182
  struct ifreq ifr;
 
1183
  if(not get_flags(if_entry->d_name, &ifr)){
 
1184
    if(debug){
 
1185
      fprintf_plus(stderr, "Failed to get flags for interface "
 
1186
                   "\"%s\"\n", if_entry->d_name);
 
1187
    }
 
1188
    return 0;
 
1189
  }
 
1190
  
 
1191
  if(not good_flags(if_entry->d_name, &ifr)){
 
1192
    return 0;
 
1193
  }
 
1194
  return 1;
 
1195
}
 
1196
 
 
1197
/* 
 
1198
 * This function determines if a directory entry in /sys/class/net
 
1199
 * corresponds to an acceptable network device which is up.
 
1200
 * (This function is passed to scandir(3) as a filter function.)
 
1201
 */
 
1202
int up_interface(const struct dirent *if_entry){
 
1203
  if(if_entry->d_name[0] == '.'){
 
1204
    return 0;
 
1205
  }
 
1206
  
 
1207
  struct ifreq ifr;
 
1208
  if(not get_flags(if_entry->d_name, &ifr)){
 
1209
    if(debug){
 
1210
      fprintf_plus(stderr, "Failed to get flags for interface "
 
1211
                   "\"%s\"\n", if_entry->d_name);
 
1212
    }
 
1213
    return 0;
 
1214
  }
 
1215
  
 
1216
  /* Reject down interfaces */
 
1217
  if(not (ifr.ifr_flags & IFF_UP)){
 
1218
    if(debug){
 
1219
      fprintf_plus(stderr, "Rejecting down interface \"%s\"\n",
 
1220
                   if_entry->d_name);
 
1221
    }
 
1222
    return 0;
 
1223
  }
 
1224
  
 
1225
  /* Reject non-running interfaces */
 
1226
  if(not (ifr.ifr_flags & IFF_RUNNING)){
 
1227
    if(debug){
 
1228
      fprintf_plus(stderr, "Rejecting non-running interface \"%s\"\n",
 
1229
                   if_entry->d_name);
 
1230
    }
 
1231
    return 0;
 
1232
  }
 
1233
  
 
1234
  if(not good_flags(if_entry->d_name, &ifr)){
 
1235
    return 0;
 
1236
  }
 
1237
  return 1;
 
1238
}
 
1239
 
 
1240
int notdotentries(const struct dirent *direntry){
 
1241
  /* Skip "." and ".." */
 
1242
  if(direntry->d_name[0] == '.'
 
1243
     and (direntry->d_name[1] == '\0'
 
1244
          or (direntry->d_name[1] == '.'
 
1245
              and direntry->d_name[2] == '\0'))){
 
1246
    return 0;
 
1247
  }
 
1248
  return 1;
 
1249
}
 
1250
 
 
1251
/* Is this directory entry a runnable program? */
 
1252
int runnable_hook(const struct dirent *direntry){
 
1253
  int ret;
 
1254
  size_t sret;
 
1255
  struct stat st;
 
1256
  
 
1257
  if((direntry->d_name)[0] == '\0'){
 
1258
    /* Empty name? */
 
1259
    return 0;
 
1260
  }
 
1261
  
 
1262
  sret = strspn(direntry->d_name, "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 
1263
                "abcdefghijklmnopqrstuvwxyz"
 
1264
                "0123456789"
 
1265
                "_-");
 
1266
  if((direntry->d_name)[sret] != '\0'){
 
1267
    /* Contains non-allowed characters */
 
1268
    if(debug){
 
1269
      fprintf_plus(stderr, "Ignoring hook \"%s\" with bad name\n",
 
1270
                   direntry->d_name);
 
1271
    }
 
1272
    return 0;
 
1273
  }
 
1274
  
 
1275
  char *fullname = NULL;
 
1276
  ret = asprintf(&fullname, "%s/%s", hookdir, direntry->d_name);
 
1277
  if(ret < 0){
 
1278
    perror_plus("asprintf");
 
1279
    return 0;
 
1280
  }
 
1281
  
 
1282
  ret = stat(fullname, &st);
 
1283
  if(ret == -1){
 
1284
    if(debug){
 
1285
      perror_plus("Could not stat hook");
 
1286
    }
 
1287
    return 0;
 
1288
  }
 
1289
  if(not (S_ISREG(st.st_mode))){
 
1290
    /* Not a regular file */
 
1291
    if(debug){
 
1292
      fprintf_plus(stderr, "Ignoring hook \"%s\" - not a file\n",
 
1293
                   direntry->d_name);
 
1294
    }
 
1295
    return 0;
 
1296
  }
 
1297
  if(not (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH))){
 
1298
    /* Not executable */
 
1299
    if(debug){
 
1300
      fprintf_plus(stderr, "Ignoring hook \"%s\" - not executable\n",
 
1301
                   direntry->d_name);
 
1302
    }
 
1303
    return 0;
 
1304
  }
 
1305
  if(debug){
 
1306
    fprintf_plus(stderr, "Hook \"%s\" is acceptable\n",
 
1307
                 direntry->d_name);
 
1308
  }
 
1309
  return 1;
 
1310
}
 
1311
 
 
1312
int avahi_loop_with_timeout(AvahiSimplePoll *s, int retry_interval){
 
1313
  int ret;
 
1314
  struct timespec now;
 
1315
  struct timespec waited_time;
 
1316
  intmax_t block_time;
 
1317
  
 
1318
  while(true){
 
1319
    if(mc.current_server == NULL){
 
1320
      if (debug){
 
1321
        fprintf_plus(stderr, "Wait until first server is found."
 
1322
                     " No timeout!\n");
 
1323
      }
 
1324
      ret = avahi_simple_poll_iterate(s, -1);
 
1325
    } else {
 
1326
      if (debug){
 
1327
        fprintf_plus(stderr, "Check current_server if we should run"
 
1328
                     " it, or wait\n");
 
1329
      }
 
1330
      /* the current time */
 
1331
      ret = clock_gettime(CLOCK_MONOTONIC, &now);
 
1332
      if(ret == -1){
 
1333
        perror_plus("clock_gettime");
 
1334
        return -1;
 
1335
      }
 
1336
      /* Calculating in ms how long time between now and server
 
1337
         who we visted longest time ago. Now - last seen.  */
 
1338
      waited_time.tv_sec = (now.tv_sec
 
1339
                            - mc.current_server->last_seen.tv_sec);
 
1340
      waited_time.tv_nsec = (now.tv_nsec
 
1341
                             - mc.current_server->last_seen.tv_nsec);
 
1342
      /* total time is 10s/10,000ms.
 
1343
         Converting to s from ms by dividing by 1,000,
 
1344
         and ns to ms by dividing by 1,000,000. */
 
1345
      block_time = ((retry_interval
 
1346
                     - ((intmax_t)waited_time.tv_sec * 1000))
 
1347
                    - ((intmax_t)waited_time.tv_nsec / 1000000));
 
1348
      
 
1349
      if (debug){
 
1350
        fprintf_plus(stderr, "Blocking for %" PRIdMAX " ms\n",
 
1351
                     block_time);
 
1352
      }
 
1353
      
 
1354
      if(block_time <= 0){
 
1355
        ret = start_mandos_communication(mc.current_server->ip,
 
1356
                                         mc.current_server->port,
 
1357
                                         mc.current_server->if_index,
 
1358
                                         mc.current_server->af);
 
1359
        if(ret == 0){
 
1360
          avahi_simple_poll_quit(mc.simple_poll);
 
1361
          return 0;
 
1362
        }
 
1363
        ret = clock_gettime(CLOCK_MONOTONIC,
 
1364
                            &mc.current_server->last_seen);
 
1365
        if(ret == -1){
 
1366
          perror_plus("clock_gettime");
 
1367
          return -1;
 
1368
        }
 
1369
        mc.current_server = mc.current_server->next;
 
1370
        block_time = 0;         /* Call avahi to find new Mandos
 
1371
                                   servers, but don't block */
 
1372
      }
 
1373
      
 
1374
      ret = avahi_simple_poll_iterate(s, (int)block_time);
 
1375
    }
 
1376
    if(ret != 0){
 
1377
      if (ret > 0 or errno != EINTR){
 
1378
        return (ret != 1) ? ret : 0;
 
1379
      }
 
1380
    }
 
1381
  }
 
1382
}
 
1383
 
 
1384
bool run_network_hooks(const char *mode, const char *interface,
 
1385
                       const float delay){
 
1386
  struct dirent **direntries;
 
1387
  struct dirent *direntry;
 
1388
  int ret;
 
1389
  int numhooks = scandir(hookdir, &direntries, runnable_hook,
 
1390
                         alphasort);
 
1391
  if(numhooks == -1){
 
1392
    perror_plus("scandir");
 
1393
  } else {
 
1394
    int devnull = open("/dev/null", O_RDONLY);
 
1395
    for(int i = 0; i < numhooks; i++){
 
1396
      direntry = direntries[i];
 
1397
      char *fullname = NULL;
 
1398
      ret = asprintf(&fullname, "%s/%s", hookdir, direntry->d_name);
 
1399
      if(ret < 0){
 
1400
        perror_plus("asprintf");
 
1401
        continue;
 
1402
      }
 
1403
      if(debug){
 
1404
        fprintf_plus(stderr, "Running network hook \"%s\"\n",
 
1405
                     direntry->d_name);
 
1406
      }
 
1407
      pid_t hook_pid = fork();
 
1408
      if(hook_pid == 0){
 
1409
        /* Child */
 
1410
        /* Raise privileges */
 
1411
        errno = 0;
 
1412
        ret = seteuid(0);
 
1413
        if(ret == -1){
 
1414
          perror_plus("seteuid");
 
1415
        }
 
1416
        /* Raise privileges even more */
 
1417
        errno = 0;
 
1418
        ret = setuid(0);
 
1419
        if(ret == -1){
 
1420
          perror_plus("setuid");
 
1421
        }
 
1422
        /* Set group */
 
1423
        errno = 0;
 
1424
        ret = setgid(0);
 
1425
        if(ret == -1){
 
1426
          perror_plus("setgid");
 
1427
        }
 
1428
        /* Reset supplementary groups */
 
1429
        errno = 0;
 
1430
        ret = setgroups(0, NULL);
 
1431
        if(ret == -1){
 
1432
          perror_plus("setgroups");
 
1433
        }
 
1434
        fprintf_plus(stderr, "Child: getuid() = %d\n", getuid());
 
1435
        fprintf_plus(stderr, "Child: geteuid() = %d\n", geteuid());
 
1436
        dup2(devnull, STDIN_FILENO);
 
1437
        close(devnull);
 
1438
        dup2(STDERR_FILENO, STDOUT_FILENO);
 
1439
        ret = setenv("MANDOSNETHOOKDIR", hookdir, 1);
 
1440
        if(ret == -1){
 
1441
          perror_plus("setenv");
 
1442
          _exit(EX_OSERR);
 
1443
        }
 
1444
        ret = setenv("DEVICE", interface, 1);
 
1445
        if(ret == -1){
 
1446
          perror_plus("setenv");
 
1447
          _exit(EX_OSERR);
 
1448
        }
 
1449
        ret = setenv("VERBOSE", debug ? "1" : "0", 1);
 
1450
        if(ret == -1){
 
1451
          perror_plus("setenv");
 
1452
          _exit(EX_OSERR);
 
1453
        }
 
1454
        ret = setenv("MODE", mode, 1);
 
1455
        if(ret == -1){
 
1456
          perror_plus("setenv");
 
1457
          _exit(EX_OSERR);
 
1458
        }
 
1459
        char *delaystring;
 
1460
        ret = asprintf(&delaystring, "%f", delay);
 
1461
        if(ret == -1){
 
1462
          perror_plus("asprintf");
 
1463
          _exit(EX_OSERR);
 
1464
        }
 
1465
        ret = setenv("DELAY", delaystring, 1);
 
1466
        if(ret == -1){
 
1467
          free(delaystring);
 
1468
          perror_plus("setenv");
 
1469
          _exit(EX_OSERR);
 
1470
        }
 
1471
        free(delaystring);
 
1472
        ret = execl(fullname, direntry->d_name, mode, NULL);
 
1473
        perror_plus("execl");
 
1474
      } else {
 
1475
        int status;
 
1476
        if(TEMP_FAILURE_RETRY(waitpid(hook_pid, &status, 0)) == -1){
 
1477
          perror_plus("waitpid");
 
1478
          free(fullname);
 
1479
          continue;
 
1480
        }
 
1481
        if(WIFEXITED(status)){
 
1482
          if(WEXITSTATUS(status) != 0){
 
1483
            fprintf_plus(stderr, "Warning: network hook \"%s\" exited"
 
1484
                         " with status %d\n", direntry->d_name,
 
1485
                         WEXITSTATUS(status));
 
1486
            free(fullname);
 
1487
            continue;
 
1488
          }
 
1489
        } else if(WIFSIGNALED(status)){
 
1490
          fprintf_plus(stderr, "Warning: network hook \"%s\" died by"
 
1491
                       " signal %d\n", direntry->d_name,
 
1492
                       WTERMSIG(status));
 
1493
          free(fullname);
 
1494
          continue;
 
1495
        } else {
 
1496
          fprintf_plus(stderr, "Warning: network hook \"%s\""
 
1497
                       " crashed\n", direntry->d_name);
 
1498
          free(fullname);
 
1499
          continue;
 
1500
        }
 
1501
      }
 
1502
      free(fullname);
 
1503
      if(debug){
 
1504
        fprintf_plus(stderr, "Network hook \"%s\" ran successfully\n",
 
1505
                     direntry->d_name);
 
1506
      }
 
1507
    }
 
1508
    close(devnull);
 
1509
  }
 
1510
  return true;
 
1511
}
 
1512
 
 
1513
int main(int argc, char *argv[]){
 
1514
  AvahiSServiceBrowser *sb = NULL;
 
1515
  int error;
 
1516
  int ret;
 
1517
  intmax_t tmpmax;
 
1518
  char *tmp;
 
1519
  int exitcode = EXIT_SUCCESS;
 
1520
  const char *interface = "";
 
1521
  struct ifreq network;
 
1522
  int sd = -1;
 
1523
  bool take_down_interface = false;
 
1524
  uid_t uid;
 
1525
  gid_t gid;
 
1526
  char tempdir[] = "/tmp/mandosXXXXXX";
 
1527
  bool tempdir_created = false;
 
1528
  AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
 
1529
  const char *seckey = PATHDIR "/" SECKEY;
 
1530
  const char *pubkey = PATHDIR "/" PUBKEY;
 
1531
  
 
1532
  bool gnutls_initialized = false;
 
1533
  bool gpgme_initialized = false;
 
1534
  float delay = 2.5f;
 
1535
  double retry_interval = 10; /* 10s between trying a server and
 
1536
                                 retrying the same server again */
 
1537
  
 
1538
  struct sigaction old_sigterm_action = { .sa_handler = SIG_DFL };
 
1539
  struct sigaction sigterm_action = { .sa_handler = handle_sigterm };
 
1540
  
 
1541
  uid = getuid();
 
1542
  gid = getgid();
 
1543
  
 
1544
  /* Lower any group privileges we might have, just to be safe */
 
1545
  errno = 0;
 
1546
  ret = setgid(gid);
 
1547
  if(ret == -1){
 
1548
    perror_plus("setgid");
 
1549
  }
 
1550
  
 
1551
  /* Lower user privileges (temporarily) */
 
1552
  errno = 0;
 
1553
  ret = seteuid(uid);
 
1554
  if(ret == -1){
 
1555
    perror_plus("seteuid");
 
1556
  }
 
1557
  
 
1558
  if(quit_now){
 
1559
    goto end;
 
1560
  }
 
1561
  
 
1562
  {
 
1563
    struct argp_option options[] = {
 
1564
      { .name = "debug", .key = 128,
 
1565
        .doc = "Debug mode", .group = 3 },
 
1566
      { .name = "connect", .key = 'c',
 
1567
        .arg = "ADDRESS:PORT",
 
1568
        .doc = "Connect directly to a specific Mandos server",
 
1569
        .group = 1 },
 
1570
      { .name = "interface", .key = 'i',
 
1571
        .arg = "NAME",
 
1572
        .doc = "Network interface that will be used to search for"
 
1573
        " Mandos servers",
 
1574
        .group = 1 },
 
1575
      { .name = "seckey", .key = 's',
 
1576
        .arg = "FILE",
 
1577
        .doc = "OpenPGP secret key file base name",
 
1578
        .group = 1 },
 
1579
      { .name = "pubkey", .key = 'p',
 
1580
        .arg = "FILE",
 
1581
        .doc = "OpenPGP public key file base name",
 
1582
        .group = 2 },
 
1583
      { .name = "dh-bits", .key = 129,
 
1584
        .arg = "BITS",
 
1585
        .doc = "Bit length of the prime number used in the"
 
1586
        " Diffie-Hellman key exchange",
 
1587
        .group = 2 },
 
1588
      { .name = "priority", .key = 130,
 
1589
        .arg = "STRING",
 
1590
        .doc = "GnuTLS priority string for the TLS handshake",
 
1591
        .group = 1 },
 
1592
      { .name = "delay", .key = 131,
 
1593
        .arg = "SECONDS",
 
1594
        .doc = "Maximum delay to wait for interface startup",
 
1595
        .group = 2 },
 
1596
      { .name = "retry", .key = 132,
 
1597
        .arg = "SECONDS",
 
1598
        .doc = "Retry interval used when denied by the mandos server",
 
1599
        .group = 2 },
 
1600
      { .name = "network-hook-dir", .key = 133,
 
1601
        .arg = "DIR",
 
1602
        .doc = "Directory where network hooks are located",
 
1603
        .group = 2 },
 
1604
      /*
 
1605
       * These reproduce what we would get without ARGP_NO_HELP
 
1606
       */
 
1607
      { .name = "help", .key = '?',
 
1608
        .doc = "Give this help list", .group = -1 },
 
1609
      { .name = "usage", .key = -3,
 
1610
        .doc = "Give a short usage message", .group = -1 },
 
1611
      { .name = "version", .key = 'V',
 
1612
        .doc = "Print program version", .group = -1 },
 
1613
      { .name = NULL }
 
1614
    };
683
1615
    
684
 
    debug_int = debug ? 1 : 0;
685
 
    while (true){
686
 
      struct option long_options[] = {
687
 
        {"debug", no_argument, &debug_int, 1},
688
 
        {"connect", required_argument, NULL, 'c'},
689
 
        {"interface", required_argument, NULL, 'i'},
690
 
        {"keydir", required_argument, NULL, 'd'},
691
 
        {"seckey", required_argument, NULL, 's'},
692
 
        {"pubkey", required_argument, NULL, 'p'},
693
 
        {"dh-bits", required_argument, NULL, 'D'},
694
 
        {"priority", required_argument, NULL, 'P'},
695
 
        {0, 0, 0, 0} };
696
 
      
697
 
      int option_index = 0;
698
 
      ret = getopt_long (argc, argv, "i:", long_options,
699
 
                         &option_index);
700
 
      
701
 
      if (ret == -1){
702
 
        break;
703
 
      }
704
 
      
705
 
      switch(ret){
706
 
      case 0:
707
 
        break;
708
 
      case 'i':
709
 
        interface = optarg;
710
 
        break;
711
 
      case 'c':
712
 
        connect_to = optarg;
713
 
        break;
714
 
      case 'd':
715
 
        keydir = optarg;
716
 
        break;
717
 
      case 'p':
718
 
        pubkeyfile = optarg;
719
 
        break;
720
 
      case 's':
721
 
        seckeyfile = optarg;
722
 
        break;
723
 
      case 'D':
724
 
        errno = 0;
725
 
        mc.dh_bits = (unsigned int) strtol(optarg, NULL, 10);
726
 
        if (errno){
727
 
          perror("strtol");
728
 
          exit(EXIT_FAILURE);
729
 
        }
730
 
        break;
731
 
      case 'P':
732
 
        mc.priority = optarg;
733
 
        break;
734
 
      case '?':
 
1616
    error_t parse_opt(int key, char *arg,
 
1617
                      struct argp_state *state){
 
1618
      errno = 0;
 
1619
      switch(key){
 
1620
      case 128:                 /* --debug */
 
1621
        debug = true;
 
1622
        break;
 
1623
      case 'c':                 /* --connect */
 
1624
        connect_to = arg;
 
1625
        break;
 
1626
      case 'i':                 /* --interface */
 
1627
        interface = arg;
 
1628
        break;
 
1629
      case 's':                 /* --seckey */
 
1630
        seckey = arg;
 
1631
        break;
 
1632
      case 'p':                 /* --pubkey */
 
1633
        pubkey = arg;
 
1634
        break;
 
1635
      case 129:                 /* --dh-bits */
 
1636
        errno = 0;
 
1637
        tmpmax = strtoimax(arg, &tmp, 10);
 
1638
        if(errno != 0 or tmp == arg or *tmp != '\0'
 
1639
           or tmpmax != (typeof(mc.dh_bits))tmpmax){
 
1640
          argp_error(state, "Bad number of DH bits");
 
1641
        }
 
1642
        mc.dh_bits = (typeof(mc.dh_bits))tmpmax;
 
1643
        break;
 
1644
      case 130:                 /* --priority */
 
1645
        mc.priority = arg;
 
1646
        break;
 
1647
      case 131:                 /* --delay */
 
1648
        errno = 0;
 
1649
        delay = strtof(arg, &tmp);
 
1650
        if(errno != 0 or tmp == arg or *tmp != '\0'){
 
1651
          argp_error(state, "Bad delay");
 
1652
        }
 
1653
      case 132:                 /* --retry */
 
1654
        errno = 0;
 
1655
        retry_interval = strtod(arg, &tmp);
 
1656
        if(errno != 0 or tmp == arg or *tmp != '\0'
 
1657
           or (retry_interval * 1000) > INT_MAX
 
1658
           or retry_interval < 0){
 
1659
          argp_error(state, "Bad retry interval");
 
1660
        }
 
1661
        break;
 
1662
      case 133:                 /* --network-hook-dir */
 
1663
        hookdir = arg;
 
1664
        break;
 
1665
        /*
 
1666
         * These reproduce what we would get without ARGP_NO_HELP
 
1667
         */
 
1668
      case '?':                 /* --help */
 
1669
        argp_state_help(state, state->out_stream,
 
1670
                        (ARGP_HELP_STD_HELP | ARGP_HELP_EXIT_ERR)
 
1671
                        & ~(unsigned int)ARGP_HELP_EXIT_OK);
 
1672
      case -3:                  /* --usage */
 
1673
        argp_state_help(state, state->out_stream,
 
1674
                        ARGP_HELP_USAGE | ARGP_HELP_EXIT_ERR);
 
1675
      case 'V':                 /* --version */
 
1676
        fprintf_plus(state->out_stream,
 
1677
                     "Mandos plugin mandos-client: ");
 
1678
        fprintf_plus(state->out_stream, "%s\n", argp_program_version);
 
1679
        exit(argp_err_exit_status);
 
1680
        break;
735
1681
      default:
736
 
        exit(EXIT_FAILURE);
737
 
      }
738
 
    }
739
 
    debug = debug_int ? true : false;
740
 
    
741
 
    pubkeyfile = combinepath(keydir, pubkeyfile);
742
 
    if (pubkeyfile == NULL){
743
 
      perror("combinepath");
744
 
      returncode = EXIT_FAILURE;
745
 
      goto exit;
746
 
    }
747
 
    
748
 
    seckeyfile = combinepath(keydir, seckeyfile);
749
 
    if (seckeyfile == NULL){
750
 
      perror("combinepath");
751
 
      goto exit;
752
 
    }
753
 
    
 
1682
        return ARGP_ERR_UNKNOWN;
 
1683
      }
 
1684
      return errno;
 
1685
    }
 
1686
    
 
1687
    struct argp argp = { .options = options, .parser = parse_opt,
 
1688
                         .args_doc = "",
 
1689
                         .doc = "Mandos client -- Get and decrypt"
 
1690
                         " passwords from a Mandos server" };
 
1691
    ret = argp_parse(&argp, argc, argv,
 
1692
                     ARGP_IN_ORDER | ARGP_NO_HELP, 0, NULL);
 
1693
    switch(ret){
 
1694
    case 0:
 
1695
      break;
 
1696
    case ENOMEM:
 
1697
    default:
 
1698
      errno = ret;
 
1699
      perror_plus("argp_parse");
 
1700
      exitcode = EX_OSERR;
 
1701
      goto end;
 
1702
    case EINVAL:
 
1703
      exitcode = EX_USAGE;
 
1704
      goto end;
 
1705
    }
 
1706
  }
 
1707
    
 
1708
  {
 
1709
    /* Work around Debian bug #633582:
 
1710
       <http://bugs.debian.org/633582> */
 
1711
    
 
1712
    /* Re-raise priviliges */
 
1713
    errno = 0;
 
1714
    ret = seteuid(0);
 
1715
    if(ret == -1){
 
1716
      perror_plus("seteuid");
 
1717
    } else {
 
1718
      struct stat st;
 
1719
      
 
1720
      if(strcmp(seckey, PATHDIR "/" SECKEY) == 0){
 
1721
        int seckey_fd = open(seckey, O_RDONLY);
 
1722
        if(seckey_fd == -1){
 
1723
          perror_plus("open");
 
1724
        } else {
 
1725
          ret = (int)TEMP_FAILURE_RETRY(fstat(seckey_fd, &st));
 
1726
          if(ret == -1){
 
1727
            perror_plus("fstat");
 
1728
          } else {
 
1729
            if(S_ISREG(st.st_mode)
 
1730
               and st.st_uid == 0 and st.st_gid == 0){
 
1731
              ret = fchown(seckey_fd, uid, gid);
 
1732
              if(ret == -1){
 
1733
                perror_plus("fchown");
 
1734
              }
 
1735
            }
 
1736
          }
 
1737
          TEMP_FAILURE_RETRY(close(seckey_fd));
 
1738
        }
 
1739
      }
 
1740
    
 
1741
      if(strcmp(pubkey, PATHDIR "/" PUBKEY) == 0){
 
1742
        int pubkey_fd = open(pubkey, O_RDONLY);
 
1743
        if(pubkey_fd == -1){
 
1744
          perror_plus("open");
 
1745
        } else {
 
1746
          ret = (int)TEMP_FAILURE_RETRY(fstat(pubkey_fd, &st));
 
1747
          if(ret == -1){
 
1748
            perror_plus("fstat");
 
1749
          } else {
 
1750
            if(S_ISREG(st.st_mode)
 
1751
               and st.st_uid == 0 and st.st_gid == 0){
 
1752
              ret = fchown(pubkey_fd, uid, gid);
 
1753
              if(ret == -1){
 
1754
                perror_plus("fchown");
 
1755
              }
 
1756
            }
 
1757
          }
 
1758
          TEMP_FAILURE_RETRY(close(pubkey_fd));
 
1759
        }
 
1760
      }
 
1761
    
 
1762
      /* Lower privileges */
 
1763
      errno = 0;
 
1764
      ret = seteuid(uid);
 
1765
      if(ret == -1){
 
1766
        perror_plus("seteuid");
 
1767
      }
 
1768
    }
 
1769
  }
 
1770
  
 
1771
  /* Run network hooks */
 
1772
  if(not run_network_hooks("start", interface, delay)){
 
1773
    goto end;
 
1774
  }
 
1775
  
 
1776
  if(not debug){
 
1777
    avahi_set_log_function(empty_log);
 
1778
  }
 
1779
  
 
1780
  if(interface[0] == '\0'){
 
1781
    struct dirent **direntries;
 
1782
    /* First look for interfaces that are up */
 
1783
    ret = scandir(sys_class_net, &direntries, up_interface,
 
1784
                  alphasort);
 
1785
    if(ret == 0){
 
1786
      /* No up interfaces, look for any good interfaces */
 
1787
      free(direntries);
 
1788
      ret = scandir(sys_class_net, &direntries, good_interface,
 
1789
                    alphasort);
 
1790
    }
 
1791
    if(ret >= 1){
 
1792
      /* Pick the first interface returned */
 
1793
      interface = strdup(direntries[0]->d_name);
 
1794
      if(debug){
 
1795
        fprintf_plus(stderr, "Using interface \"%s\"\n", interface);
 
1796
      }
 
1797
      if(interface == NULL){
 
1798
        perror_plus("malloc");
 
1799
        free(direntries);
 
1800
        exitcode = EXIT_FAILURE;
 
1801
        goto end;
 
1802
      }
 
1803
      free(direntries);
 
1804
    } else {
 
1805
      free(direntries);
 
1806
      fprintf_plus(stderr, "Could not find a network interface\n");
 
1807
      exitcode = EXIT_FAILURE;
 
1808
      goto end;
 
1809
    }
 
1810
  }
 
1811
  
 
1812
  /* Initialize Avahi early so avahi_simple_poll_quit() can be called
 
1813
     from the signal handler */
 
1814
  /* Initialize the pseudo-RNG for Avahi */
 
1815
  srand((unsigned int) time(NULL));
 
1816
  mc.simple_poll = avahi_simple_poll_new();
 
1817
  if(mc.simple_poll == NULL){
 
1818
    fprintf_plus(stderr,
 
1819
                 "Avahi: Failed to create simple poll object.\n");
 
1820
    exitcode = EX_UNAVAILABLE;
 
1821
    goto end;
 
1822
  }
 
1823
  
 
1824
  sigemptyset(&sigterm_action.sa_mask);
 
1825
  ret = sigaddset(&sigterm_action.sa_mask, SIGINT);
 
1826
  if(ret == -1){
 
1827
    perror_plus("sigaddset");
 
1828
    exitcode = EX_OSERR;
 
1829
    goto end;
 
1830
  }
 
1831
  ret = sigaddset(&sigterm_action.sa_mask, SIGHUP);
 
1832
  if(ret == -1){
 
1833
    perror_plus("sigaddset");
 
1834
    exitcode = EX_OSERR;
 
1835
    goto end;
 
1836
  }
 
1837
  ret = sigaddset(&sigterm_action.sa_mask, SIGTERM);
 
1838
  if(ret == -1){
 
1839
    perror_plus("sigaddset");
 
1840
    exitcode = EX_OSERR;
 
1841
    goto end;
 
1842
  }
 
1843
  /* Need to check if the handler is SIG_IGN before handling:
 
1844
     | [[info:libc:Initial Signal Actions]] |
 
1845
     | [[info:libc:Basic Signal Handling]]  |
 
1846
  */
 
1847
  ret = sigaction(SIGINT, NULL, &old_sigterm_action);
 
1848
  if(ret == -1){
 
1849
    perror_plus("sigaction");
 
1850
    return EX_OSERR;
 
1851
  }
 
1852
  if(old_sigterm_action.sa_handler != SIG_IGN){
 
1853
    ret = sigaction(SIGINT, &sigterm_action, NULL);
 
1854
    if(ret == -1){
 
1855
      perror_plus("sigaction");
 
1856
      exitcode = EX_OSERR;
 
1857
      goto end;
 
1858
    }
 
1859
  }
 
1860
  ret = sigaction(SIGHUP, NULL, &old_sigterm_action);
 
1861
  if(ret == -1){
 
1862
    perror_plus("sigaction");
 
1863
    return EX_OSERR;
 
1864
  }
 
1865
  if(old_sigterm_action.sa_handler != SIG_IGN){
 
1866
    ret = sigaction(SIGHUP, &sigterm_action, NULL);
 
1867
    if(ret == -1){
 
1868
      perror_plus("sigaction");
 
1869
      exitcode = EX_OSERR;
 
1870
      goto end;
 
1871
    }
 
1872
  }
 
1873
  ret = sigaction(SIGTERM, NULL, &old_sigterm_action);
 
1874
  if(ret == -1){
 
1875
    perror_plus("sigaction");
 
1876
    return EX_OSERR;
 
1877
  }
 
1878
  if(old_sigterm_action.sa_handler != SIG_IGN){
 
1879
    ret = sigaction(SIGTERM, &sigterm_action, NULL);
 
1880
    if(ret == -1){
 
1881
      perror_plus("sigaction");
 
1882
      exitcode = EX_OSERR;
 
1883
      goto end;
 
1884
    }
 
1885
  }
 
1886
  
 
1887
  /* If the interface is down, bring it up */
 
1888
  if(strcmp(interface, "none") != 0){
754
1889
    if_index = (AvahiIfIndex) if_nametoindex(interface);
755
1890
    if(if_index == 0){
756
 
      fprintf(stderr, "No such interface: \"%s\"\n", interface);
757
 
      exit(EXIT_FAILURE);
758
 
    }
759
 
    
760
 
    if(connect_to != NULL){
761
 
      /* Connect directly, do not use Zeroconf */
762
 
      /* (Mainly meant for debugging) */
763
 
      char *address = strrchr(connect_to, ':');
764
 
      if(address == NULL){
765
 
        fprintf(stderr, "No colon in address\n");
766
 
        exit(EXIT_FAILURE);
767
 
      }
768
 
      errno = 0;
769
 
      uint16_t port = (uint16_t) strtol(address+1, NULL, 10);
770
 
      if(errno){
771
 
        perror("Bad port number");
772
 
        exit(EXIT_FAILURE);
773
 
      }
774
 
      *address = '\0';
775
 
      address = connect_to;
776
 
      ret = start_mandos_communication(address, port, if_index, &mc);
777
 
      if(ret < 0){
778
 
        exit(EXIT_FAILURE);
779
 
      } else {
780
 
        exit(EXIT_SUCCESS);
781
 
      }
782
 
    }
 
1891
      fprintf_plus(stderr, "No such interface: \"%s\"\n", interface);
 
1892
      exitcode = EX_UNAVAILABLE;
 
1893
      goto end;
 
1894
    }
 
1895
    
 
1896
    if(quit_now){
 
1897
      goto end;
 
1898
    }
 
1899
    
 
1900
    /* Re-raise priviliges */
 
1901
    errno = 0;
 
1902
    ret = seteuid(0);
 
1903
    if(ret == -1){
 
1904
      perror_plus("seteuid");
 
1905
    }
 
1906
    
 
1907
#ifdef __linux__
 
1908
    /* Lower kernel loglevel to KERN_NOTICE to avoid KERN_INFO
 
1909
       messages about the network interface to mess up the prompt */
 
1910
    ret = klogctl(8, NULL, 5);
 
1911
    bool restore_loglevel = true;
 
1912
    if(ret == -1){
 
1913
      restore_loglevel = false;
 
1914
      perror_plus("klogctl");
 
1915
    }
 
1916
#endif  /* __linux__ */
783
1917
    
784
1918
    sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
785
 
    if(sd < 0) {
786
 
      perror("socket");
787
 
      returncode = EXIT_FAILURE;
788
 
      goto exit;
 
1919
    if(sd < 0){
 
1920
      perror_plus("socket");
 
1921
      exitcode = EX_OSERR;
 
1922
#ifdef __linux__
 
1923
      if(restore_loglevel){
 
1924
        ret = klogctl(7, NULL, 0);
 
1925
        if(ret == -1){
 
1926
          perror_plus("klogctl");
 
1927
        }
 
1928
      }
 
1929
#endif  /* __linux__ */
 
1930
      /* Lower privileges */
 
1931
      errno = 0;
 
1932
      ret = seteuid(uid);
 
1933
      if(ret == -1){
 
1934
        perror_plus("seteuid");
 
1935
      }
 
1936
      goto end;
789
1937
    }
790
 
    strcpy(network.ifr_name, interface); /* Spurious warning */
 
1938
    strcpy(network.ifr_name, interface);
791
1939
    ret = ioctl(sd, SIOCGIFFLAGS, &network);
792
1940
    if(ret == -1){
793
 
      
794
 
      perror("ioctl SIOCGIFFLAGS");
795
 
      returncode = EXIT_FAILURE;
796
 
      goto exit;
 
1941
      perror_plus("ioctl SIOCGIFFLAGS");
 
1942
#ifdef __linux__
 
1943
      if(restore_loglevel){
 
1944
        ret = klogctl(7, NULL, 0);
 
1945
        if(ret == -1){
 
1946
          perror_plus("klogctl");
 
1947
        }
 
1948
      }
 
1949
#endif  /* __linux__ */
 
1950
      exitcode = EX_OSERR;
 
1951
      /* Lower privileges */
 
1952
      errno = 0;
 
1953
      ret = seteuid(uid);
 
1954
      if(ret == -1){
 
1955
        perror_plus("seteuid");
 
1956
      }
 
1957
      goto end;
797
1958
    }
798
1959
    if((network.ifr_flags & IFF_UP) == 0){
799
1960
      network.ifr_flags |= IFF_UP;
 
1961
      take_down_interface = true;
800
1962
      ret = ioctl(sd, SIOCSIFFLAGS, &network);
801
1963
      if(ret == -1){
802
 
        perror("ioctl SIOCSIFFLAGS");
803
 
        returncode = EXIT_FAILURE;
804
 
        goto exit;
805
 
      }
806
 
    }
807
 
    close(sd);
808
 
    
809
 
    if (not debug){
810
 
      avahi_set_log_function(empty_log);
811
 
    }
812
 
    
813
 
    /* Initialize the psuedo-RNG */
814
 
    srand((unsigned int) time(NULL));
815
 
 
816
 
    /* Allocate main loop object */
817
 
    if (!(mc.simple_poll = avahi_simple_poll_new())) {
818
 
        fprintf(stderr, "Failed to create simple poll object.\n");
819
 
        returncode = EXIT_FAILURE;
820
 
        goto exit;
821
 
    }
822
 
 
823
 
    /* Do not publish any local records */
 
1964
        take_down_interface = false;
 
1965
        perror_plus("ioctl SIOCSIFFLAGS +IFF_UP");
 
1966
        exitcode = EX_OSERR;
 
1967
#ifdef __linux__
 
1968
        if(restore_loglevel){
 
1969
          ret = klogctl(7, NULL, 0);
 
1970
          if(ret == -1){
 
1971
            perror_plus("klogctl");
 
1972
          }
 
1973
        }
 
1974
#endif  /* __linux__ */
 
1975
        /* Lower privileges */
 
1976
        errno = 0;
 
1977
        ret = seteuid(uid);
 
1978
        if(ret == -1){
 
1979
          perror_plus("seteuid");
 
1980
        }
 
1981
        goto end;
 
1982
      }
 
1983
    }
 
1984
    /* Sleep checking until interface is running.
 
1985
       Check every 0.25s, up to total time of delay */
 
1986
    for(int i=0; i < delay * 4; i++){
 
1987
      ret = ioctl(sd, SIOCGIFFLAGS, &network);
 
1988
      if(ret == -1){
 
1989
        perror_plus("ioctl SIOCGIFFLAGS");
 
1990
      } else if(network.ifr_flags & IFF_RUNNING){
 
1991
        break;
 
1992
      }
 
1993
      struct timespec sleeptime = { .tv_nsec = 250000000 };
 
1994
      ret = nanosleep(&sleeptime, NULL);
 
1995
      if(ret == -1 and errno != EINTR){
 
1996
        perror_plus("nanosleep");
 
1997
      }
 
1998
    }
 
1999
    if(not take_down_interface){
 
2000
      /* We won't need the socket anymore */
 
2001
      ret = (int)TEMP_FAILURE_RETRY(close(sd));
 
2002
      if(ret == -1){
 
2003
        perror_plus("close");
 
2004
      }
 
2005
    }
 
2006
#ifdef __linux__
 
2007
    if(restore_loglevel){
 
2008
      /* Restores kernel loglevel to default */
 
2009
      ret = klogctl(7, NULL, 0);
 
2010
      if(ret == -1){
 
2011
        perror_plus("klogctl");
 
2012
      }
 
2013
    }
 
2014
#endif  /* __linux__ */
 
2015
    /* Lower privileges */
 
2016
    errno = 0;
 
2017
    /* Lower privileges */
 
2018
    ret = seteuid(uid);
 
2019
    if(ret == -1){
 
2020
      perror_plus("seteuid");
 
2021
    }
 
2022
  }
 
2023
  
 
2024
  if(quit_now){
 
2025
    goto end;
 
2026
  }
 
2027
  
 
2028
  ret = init_gnutls_global(pubkey, seckey);
 
2029
  if(ret == -1){
 
2030
    fprintf_plus(stderr, "init_gnutls_global failed\n");
 
2031
    exitcode = EX_UNAVAILABLE;
 
2032
    goto end;
 
2033
  } else {
 
2034
    gnutls_initialized = true;
 
2035
  }
 
2036
  
 
2037
  if(quit_now){
 
2038
    goto end;
 
2039
  }
 
2040
  
 
2041
  if(mkdtemp(tempdir) == NULL){
 
2042
    perror_plus("mkdtemp");
 
2043
    goto end;
 
2044
  }
 
2045
  tempdir_created = true;
 
2046
  
 
2047
  if(quit_now){
 
2048
    goto end;
 
2049
  }
 
2050
  
 
2051
  if(not init_gpgme(pubkey, seckey, tempdir)){
 
2052
    fprintf_plus(stderr, "init_gpgme failed\n");
 
2053
    exitcode = EX_UNAVAILABLE;
 
2054
    goto end;
 
2055
  } else {
 
2056
    gpgme_initialized = true;
 
2057
  }
 
2058
  
 
2059
  if(quit_now){
 
2060
    goto end;
 
2061
  }
 
2062
  
 
2063
  if(connect_to != NULL){
 
2064
    /* Connect directly, do not use Zeroconf */
 
2065
    /* (Mainly meant for debugging) */
 
2066
    char *address = strrchr(connect_to, ':');
 
2067
    if(address == NULL){
 
2068
      fprintf_plus(stderr, "No colon in address\n");
 
2069
      exitcode = EX_USAGE;
 
2070
      goto end;
 
2071
    }
 
2072
    
 
2073
    if(quit_now){
 
2074
      goto end;
 
2075
    }
 
2076
    
 
2077
    uint16_t port;
 
2078
    errno = 0;
 
2079
    tmpmax = strtoimax(address+1, &tmp, 10);
 
2080
    if(errno != 0 or tmp == address+1 or *tmp != '\0'
 
2081
       or tmpmax != (uint16_t)tmpmax){
 
2082
      fprintf_plus(stderr, "Bad port number\n");
 
2083
      exitcode = EX_USAGE;
 
2084
      goto end;
 
2085
    }
 
2086
  
 
2087
    if(quit_now){
 
2088
      goto end;
 
2089
    }
 
2090
    
 
2091
    port = (uint16_t)tmpmax;
 
2092
    *address = '\0';
 
2093
    /* Colon in address indicates IPv6 */
 
2094
    int af;
 
2095
    if(strchr(connect_to, ':') != NULL){
 
2096
      af = AF_INET6;
 
2097
      /* Accept [] around IPv6 address - see RFC 5952 */
 
2098
      if(connect_to[0] == '[' and address[-1] == ']')
 
2099
        {
 
2100
          connect_to++;
 
2101
          address[-1] = '\0';
 
2102
        }
 
2103
    } else {
 
2104
      af = AF_INET;
 
2105
    }
 
2106
    address = connect_to;
 
2107
    
 
2108
    if(quit_now){
 
2109
      goto end;
 
2110
    }
 
2111
    
 
2112
    while(not quit_now){
 
2113
      ret = start_mandos_communication(address, port, if_index, af);
 
2114
      if(quit_now or ret == 0){
 
2115
        break;
 
2116
      }
 
2117
      if(debug){
 
2118
        fprintf_plus(stderr, "Retrying in %d seconds\n",
 
2119
                     (int)retry_interval);
 
2120
      }
 
2121
      sleep((int)retry_interval);
 
2122
    }
 
2123
    
 
2124
    if (not quit_now){
 
2125
      exitcode = EXIT_SUCCESS;
 
2126
    }
 
2127
    
 
2128
    goto end;
 
2129
  }
 
2130
  
 
2131
  if(quit_now){
 
2132
    goto end;
 
2133
  }
 
2134
  
 
2135
  {
 
2136
    AvahiServerConfig config;
 
2137
    /* Do not publish any local Zeroconf records */
824
2138
    avahi_server_config_init(&config);
825
2139
    config.publish_hinfo = 0;
826
2140
    config.publish_addresses = 0;
827
2141
    config.publish_workstation = 0;
828
2142
    config.publish_domain = 0;
829
 
 
 
2143
    
830
2144
    /* Allocate a new server */
831
 
    mc.server=avahi_server_new(avahi_simple_poll_get(mc.simple_poll),
832
 
                               &config, NULL, NULL, &error);
 
2145
    mc.server = avahi_server_new(avahi_simple_poll_get
 
2146
                                 (mc.simple_poll), &config, NULL,
 
2147
                                 NULL, &error);
833
2148
    
834
 
    /* Free the configuration data */
 
2149
    /* Free the Avahi configuration data */
835
2150
    avahi_server_config_free(&config);
836
 
    
837
 
    /* Check if creating the server object succeeded */
838
 
    if (!mc.server) {
839
 
        fprintf(stderr, "Failed to create server: %s\n",
840
 
                avahi_strerror(error));
841
 
        returncode = EXIT_FAILURE;
842
 
        goto exit;
843
 
    }
844
 
    
845
 
    /* Create the service browser */
846
 
    sb = avahi_s_service_browser_new(mc.server, if_index,
847
 
                                     AVAHI_PROTO_INET6,
848
 
                                     "_mandos._tcp", NULL, 0,
849
 
                                     browse_callback, &mc);
850
 
    if (!sb) {
851
 
        fprintf(stderr, "Failed to create service browser: %s\n",
852
 
                avahi_strerror(avahi_server_errno(mc.server)));
853
 
        returncode = EXIT_FAILURE;
854
 
        goto exit;
855
 
    }
856
 
    
857
 
    /* Run the main loop */
858
 
 
859
 
    if (debug){
860
 
      fprintf(stderr, "Starting avahi loop search\n");
861
 
    }
862
 
    
863
 
    avahi_simple_poll_loop(mc.simple_poll);
864
 
    
865
 
 exit:
866
 
 
867
 
    if (debug){
868
 
      fprintf(stderr, "%s exiting\n", argv[0]);
869
 
    }
870
 
    
871
 
    /* Cleanup things */
872
 
    if (sb)
873
 
        avahi_s_service_browser_free(sb);
874
 
    
875
 
    if (mc.server)
876
 
        avahi_server_free(mc.server);
877
 
 
878
 
    if (mc.simple_poll)
879
 
        avahi_simple_poll_free(mc.simple_poll);
880
 
    free(pubkeyfile);
881
 
    free(seckeyfile);
882
 
    
883
 
    return returncode;
 
2151
  }
 
2152
  
 
2153
  /* Check if creating the Avahi server object succeeded */
 
2154
  if(mc.server == NULL){
 
2155
    fprintf_plus(stderr, "Failed to create Avahi server: %s\n",
 
2156
                 avahi_strerror(error));
 
2157
    exitcode = EX_UNAVAILABLE;
 
2158
    goto end;
 
2159
  }
 
2160
  
 
2161
  if(quit_now){
 
2162
    goto end;
 
2163
  }
 
2164
  
 
2165
  /* Create the Avahi service browser */
 
2166
  sb = avahi_s_service_browser_new(mc.server, if_index,
 
2167
                                   AVAHI_PROTO_UNSPEC, "_mandos._tcp",
 
2168
                                   NULL, 0, browse_callback, NULL);
 
2169
  if(sb == NULL){
 
2170
    fprintf_plus(stderr, "Failed to create service browser: %s\n",
 
2171
                 avahi_strerror(avahi_server_errno(mc.server)));
 
2172
    exitcode = EX_UNAVAILABLE;
 
2173
    goto end;
 
2174
  }
 
2175
  
 
2176
  if(quit_now){
 
2177
    goto end;
 
2178
  }
 
2179
  
 
2180
  /* Run the main loop */
 
2181
  
 
2182
  if(debug){
 
2183
    fprintf_plus(stderr, "Starting Avahi loop search\n");
 
2184
  }
 
2185
 
 
2186
  ret = avahi_loop_with_timeout(mc.simple_poll,
 
2187
                                (int)(retry_interval * 1000));
 
2188
  if(debug){
 
2189
    fprintf_plus(stderr, "avahi_loop_with_timeout exited %s\n",
 
2190
                 (ret == 0) ? "successfully" : "with error");
 
2191
  }
 
2192
  
 
2193
 end:
 
2194
  
 
2195
  if(debug){
 
2196
    fprintf_plus(stderr, "%s exiting\n", argv[0]);
 
2197
  }
 
2198
  
 
2199
  /* Cleanup things */
 
2200
  if(sb != NULL)
 
2201
    avahi_s_service_browser_free(sb);
 
2202
  
 
2203
  if(mc.server != NULL)
 
2204
    avahi_server_free(mc.server);
 
2205
  
 
2206
  if(mc.simple_poll != NULL)
 
2207
    avahi_simple_poll_free(mc.simple_poll);
 
2208
  
 
2209
  if(gnutls_initialized){
 
2210
    gnutls_certificate_free_credentials(mc.cred);
 
2211
    gnutls_global_deinit();
 
2212
    gnutls_dh_params_deinit(mc.dh_params);
 
2213
  }
 
2214
  
 
2215
  if(gpgme_initialized){
 
2216
    gpgme_release(mc.ctx);
 
2217
  }
 
2218
  
 
2219
  /* Cleans up the circular linked list of Mandos servers the client
 
2220
     has seen */
 
2221
  if(mc.current_server != NULL){
 
2222
    mc.current_server->prev->next = NULL;
 
2223
    while(mc.current_server != NULL){
 
2224
      server *next = mc.current_server->next;
 
2225
      free(mc.current_server);
 
2226
      mc.current_server = next;
 
2227
    }
 
2228
  }
 
2229
  
 
2230
  /* Run network hooks */
 
2231
  run_network_hooks("stop", interface, delay);
 
2232
  
 
2233
  /* Re-raise priviliges */
 
2234
  {
 
2235
    errno = 0;
 
2236
    ret = seteuid(0);
 
2237
    if(ret == -1){
 
2238
      perror_plus("seteuid");
 
2239
    }
 
2240
    
 
2241
    /* Take down the network interface */
 
2242
    if(take_down_interface and geteuid() == 0){
 
2243
      ret = ioctl(sd, SIOCGIFFLAGS, &network);
 
2244
      if(ret == -1){
 
2245
        perror_plus("ioctl SIOCGIFFLAGS");
 
2246
      } else if(network.ifr_flags & IFF_UP){
 
2247
        network.ifr_flags &= ~(short)IFF_UP; /* clear flag */
 
2248
        ret = ioctl(sd, SIOCSIFFLAGS, &network);
 
2249
        if(ret == -1){
 
2250
          perror_plus("ioctl SIOCSIFFLAGS -IFF_UP");
 
2251
        }
 
2252
      }
 
2253
      ret = (int)TEMP_FAILURE_RETRY(close(sd));
 
2254
      if(ret == -1){
 
2255
        perror_plus("close");
 
2256
      }
 
2257
    }
 
2258
  }
 
2259
  /* Lower privileges permanently */
 
2260
  errno = 0;
 
2261
  ret = setuid(uid);
 
2262
  if(ret == -1){
 
2263
    perror_plus("setuid");
 
2264
  }
 
2265
  
 
2266
  /* Removes the GPGME temp directory and all files inside */
 
2267
  if(tempdir_created){
 
2268
    struct dirent **direntries = NULL;
 
2269
    struct dirent *direntry = NULL;
 
2270
    int numentries = scandir(tempdir, &direntries, notdotentries,
 
2271
                             alphasort);
 
2272
    if (numentries > 0){
 
2273
      for(int i = 0; i < numentries; i++){
 
2274
        direntry = direntries[i];
 
2275
        char *fullname = NULL;
 
2276
        ret = asprintf(&fullname, "%s/%s", tempdir,
 
2277
                       direntry->d_name);
 
2278
        if(ret < 0){
 
2279
          perror_plus("asprintf");
 
2280
          continue;
 
2281
        }
 
2282
        ret = remove(fullname);
 
2283
        if(ret == -1){
 
2284
          fprintf_plus(stderr, "remove(\"%s\"): %s\n", fullname,
 
2285
                       strerror(errno));
 
2286
        }
 
2287
        free(fullname);
 
2288
      }
 
2289
    }
 
2290
 
 
2291
    /* need to clean even if 0 because man page doesn't specify */
 
2292
    free(direntries);
 
2293
    if (numentries == -1){
 
2294
      perror_plus("scandir");
 
2295
    }
 
2296
    ret = rmdir(tempdir);
 
2297
    if(ret == -1 and errno != ENOENT){
 
2298
      perror_plus("rmdir");
 
2299
    }
 
2300
  }
 
2301
  
 
2302
  if(quit_now){
 
2303
    sigemptyset(&old_sigterm_action.sa_mask);
 
2304
    old_sigterm_action.sa_handler = SIG_DFL;
 
2305
    ret = (int)TEMP_FAILURE_RETRY(sigaction(signal_received,
 
2306
                                            &old_sigterm_action,
 
2307
                                            NULL));
 
2308
    if(ret == -1){
 
2309
      perror_plus("sigaction");
 
2310
    }
 
2311
    do {
 
2312
      ret = raise(signal_received);
 
2313
    } while(ret != 0 and errno == EINTR);
 
2314
    if(ret != 0){
 
2315
      perror_plus("raise");
 
2316
      abort();
 
2317
    }
 
2318
    TEMP_FAILURE_RETRY(pause());
 
2319
  }
 
2320
  
 
2321
  return exitcode;
884
2322
}