/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

  • Committer: Teddy Hogeborn
  • Date: 2016-02-29 21:28:39 UTC
  • mto: This revision was merged to the branch mainline in revision 814.
  • Revision ID: teddy@recompile.se-20160229212839-hoz3rw1us3uds68n
Tags: version-1.7.3-1
* Makefile (version): Changed to "1.7.3".
* NEWS (Version 1.7.3): New entry.
* debian/changelog (1.7.3-1): - '' -

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
 
/* $Id$ */
2
 
 
3
 
/* PLEASE NOTE *
4
 
 * This file demonstrates how to use Avahi's core API, this is
5
 
 * the embeddable mDNS stack for embedded applications.
 
1
/*  -*- coding: utf-8 -*- */
 
2
/*
 
3
 * Mandos-client - get and decrypt data from a Mandos server
6
4
 *
7
 
 * End user applications should *not* use this API and should use
8
 
 * the D-Bus or C APIs, please see
9
 
 * client-browse-services.c and glib-integration.c
10
 
 * 
11
 
 * I repeat, you probably do *not* want to use this example.
 
5
 * This program is partly derived from an example program for an Avahi
 
6
 * service browser, downloaded from
 
7
 * <http://avahi.org/browser/examples/core-browse-services.c>.  This
 
8
 * includes the following functions: "resolve_callback",
 
9
 * "browse_callback", and parts of "main".
 
10
 * 
 
11
 * Everything else is
 
12
 * Copyright © 2008-2016 Teddy Hogeborn
 
13
 * Copyright © 2008-2016 Björn Påhlsson
 
14
 * 
 
15
 * This program is free software: you can redistribute it and/or
 
16
 * modify it under the terms of the GNU General Public License as
 
17
 * published by the Free Software Foundation, either version 3 of the
 
18
 * License, or (at your option) any later version.
 
19
 * 
 
20
 * This program is distributed in the hope that it will be useful, but
 
21
 * WITHOUT ANY WARRANTY; without even the implied warranty of
 
22
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
 
23
 * General Public License for more details.
 
24
 * 
 
25
 * You should have received a copy of the GNU General Public License
 
26
 * along with this program.  If not, see
 
27
 * <http://www.gnu.org/licenses/>.
 
28
 * 
 
29
 * Contact the authors at <mandos@recompile.se>.
12
30
 */
13
31
 
14
 
/***
15
 
  This file is part of avahi.
16
 
 
17
 
  avahi is free software; you can redistribute it and/or modify it
18
 
  under the terms of the GNU Lesser General Public License as
19
 
  published by the Free Software Foundation; either version 2.1 of the
20
 
  License, or (at your option) any later version.
21
 
 
22
 
  avahi is distributed in the hope that it will be useful, but WITHOUT
23
 
  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
24
 
  or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
25
 
  Public License for more details.
26
 
 
27
 
  You should have received a copy of the GNU Lesser General Public
28
 
  License along with avahi; if not, write to the Free Software
29
 
  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
30
 
  USA.
31
 
***/
32
 
 
 
32
/* Needed by GPGME, specifically gpgme_data_seek() */
 
33
#ifndef _LARGEFILE_SOURCE
33
34
#define _LARGEFILE_SOURCE
 
35
#endif  /* not _LARGEFILE_SOURCE */
 
36
#ifndef _FILE_OFFSET_BITS
34
37
#define _FILE_OFFSET_BITS 64
35
 
 
36
 
#include <stdio.h>
37
 
#include <assert.h>
38
 
#include <stdlib.h>
39
 
#include <time.h>
40
 
#include <net/if.h>             /* if_nametoindex */
41
 
 
 
38
#endif  /* not _FILE_OFFSET_BITS */
 
39
 
 
40
#define _GNU_SOURCE             /* TEMP_FAILURE_RETRY(), asprintf() */
 
41
 
 
42
#include <stdio.h>              /* fprintf(), stderr, fwrite(),
 
43
                                   stdout, ferror() */
 
44
#include <stdint.h>             /* uint16_t, uint32_t, intptr_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>             /* strcmp(), strlen(), strerror(),
 
50
                                   asprintf(), strncpy() */
 
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
                                   getnameinfo() */
 
60
#include <fcntl.h>              /* open(), unlinkat(), AT_REMOVEDIR */
 
61
#include <dirent.h>             /* opendir(), struct dirent, readdir()
 
62
                                 */
 
63
#include <inttypes.h>           /* PRIu16, PRIdMAX, intmax_t,
 
64
                                   strtoimax() */
 
65
#include <errno.h>              /* perror(), errno, EINTR, EINVAL,
 
66
                                   EAI_SYSTEM, ENETUNREACH,
 
67
                                   EHOSTUNREACH, ECONNREFUSED, EPROTO,
 
68
                                   EIO, ENOENT, ENXIO, ENOMEM, EISDIR,
 
69
                                   ENOTEMPTY,
 
70
                                   program_invocation_short_name */
 
71
#include <time.h>               /* nanosleep(), time(), sleep() */
 
72
#include <net/if.h>             /* ioctl, ifreq, SIOCGIFFLAGS, IFF_UP,
 
73
                                   SIOCSIFFLAGS, if_indextoname(),
 
74
                                   if_nametoindex(), IF_NAMESIZE */
 
75
#include <netinet/in.h>         /* IN6_IS_ADDR_LINKLOCAL,
 
76
                                   INET_ADDRSTRLEN, INET6_ADDRSTRLEN
 
77
                                */
 
78
#include <unistd.h>             /* close(), SEEK_SET, off_t, write(),
 
79
                                   getuid(), getgid(), seteuid(),
 
80
                                   setgid(), pause(), _exit(),
 
81
                                   unlinkat() */
 
82
#include <arpa/inet.h>          /* inet_pton(), htons() */
 
83
#include <iso646.h>             /* not, or, and */
 
84
#include <argp.h>               /* struct argp_option, error_t, struct
 
85
                                   argp_state, struct argp,
 
86
                                   argp_parse(), ARGP_KEY_ARG,
 
87
                                   ARGP_KEY_END, ARGP_ERR_UNKNOWN */
 
88
#include <signal.h>             /* sigemptyset(), sigaddset(),
 
89
                                   sigaction(), SIGTERM, sig_atomic_t,
 
90
                                   raise() */
 
91
#include <sysexits.h>           /* EX_OSERR, EX_USAGE, EX_UNAVAILABLE,
 
92
                                   EX_NOHOST, EX_IOERR, EX_PROTOCOL */
 
93
#include <sys/wait.h>           /* waitpid(), WIFEXITED(),
 
94
                                   WEXITSTATUS(), WTERMSIG() */
 
95
#include <grp.h>                /* setgroups() */
 
96
#include <argz.h>               /* argz_add_sep(), argz_next(),
 
97
                                   argz_delete(), argz_append(),
 
98
                                   argz_stringify(), argz_add(),
 
99
                                   argz_count() */
 
100
#include <netdb.h>              /* getnameinfo(), NI_NUMERICHOST,
 
101
                                   EAI_SYSTEM, gai_strerror() */
 
102
 
 
103
#ifdef __linux__
 
104
#include <sys/klog.h>           /* klogctl() */
 
105
#endif  /* __linux__ */
 
106
 
 
107
/* Avahi */
 
108
/* All Avahi types, constants and functions
 
109
 Avahi*, avahi_*,
 
110
 AVAHI_* */
42
111
#include <avahi-core/core.h>
43
112
#include <avahi-core/lookup.h>
44
113
#include <avahi-core/log.h>
46
115
#include <avahi-common/malloc.h>
47
116
#include <avahi-common/error.h>
48
117
 
49
 
//mandos client part
50
 
#include <sys/types.h>          /* socket(), setsockopt(), inet_pton() */
51
 
#include <sys/socket.h>         /* socket(), setsockopt(), struct sockaddr_in6, struct in6_addr, inet_pton() */
52
 
#include <gnutls/gnutls.h>      /* ALL GNUTLS STUFF */
53
 
#include <gnutls/openpgp.h>     /* gnutls with openpgp stuff */
54
 
 
55
 
#include <unistd.h>             /* close() */
56
 
#include <netinet/in.h>
57
 
#include <stdbool.h>            /* true */
58
 
#include <string.h>             /* memset */
59
 
#include <arpa/inet.h>          /* inet_pton() */
60
 
#include <iso646.h>             /* not */
61
 
 
62
 
// gpgme
63
 
#include <errno.h>              /* perror() */
64
 
#include <gpgme.h>
65
 
 
66
 
 
67
 
#ifndef CERT_ROOT
68
 
#define CERT_ROOT "/conf/conf.d/cryptkeyreq/"
69
 
#endif
70
 
#define CERTFILE CERT_ROOT "openpgp-client.txt"
71
 
#define KEYFILE CERT_ROOT "openpgp-client-key.txt"
 
118
/* GnuTLS */
 
119
#include <gnutls/gnutls.h>      /* All GnuTLS types, constants and
 
120
                                   functions:
 
121
                                   gnutls_*
 
122
                                   init_gnutls_session(),
 
123
                                   GNUTLS_* */
 
124
#include <gnutls/openpgp.h>
 
125
                         /* gnutls_certificate_set_openpgp_key_file(),
 
126
                            GNUTLS_OPENPGP_FMT_BASE64 */
 
127
 
 
128
/* GPGME */
 
129
#include <gpgme.h>              /* All GPGME types, constants and
 
130
                                   functions:
 
131
                                   gpgme_*
 
132
                                   GPGME_PROTOCOL_OpenPGP,
 
133
                                   GPG_ERR_NO_* */
 
134
 
72
135
#define BUFFER_SIZE 256
73
 
#define DH_BITS 1024
74
 
 
 
136
 
 
137
#define PATHDIR "/conf/conf.d/mandos"
 
138
#define SECKEY "seckey.txt"
 
139
#define PUBKEY "pubkey.txt"
 
140
#define HOOKDIR "/lib/mandos/network-hooks.d"
 
141
 
 
142
bool debug = false;
 
143
static const char mandos_protocol_version[] = "1";
 
144
const char *argp_program_version = "mandos-client " VERSION;
 
145
const char *argp_program_bug_address = "<mandos@recompile.se>";
 
146
static const char sys_class_net[] = "/sys/class/net";
 
147
char *connect_to = NULL;
 
148
const char *hookdir = HOOKDIR;
 
149
int hookdir_fd = -1;
 
150
uid_t uid = 65534;
 
151
gid_t gid = 65534;
 
152
 
 
153
/* Doubly linked list that need to be circularly linked when used */
 
154
typedef struct server{
 
155
  const char *ip;
 
156
  in_port_t port;
 
157
  AvahiIfIndex if_index;
 
158
  int af;
 
159
  struct timespec last_seen;
 
160
  struct server *next;
 
161
  struct server *prev;
 
162
} server;
 
163
 
 
164
/* Used for passing in values through the Avahi callback functions */
75
165
typedef struct {
76
 
  gnutls_session_t session;
 
166
  AvahiServer *server;
77
167
  gnutls_certificate_credentials_t cred;
 
168
  unsigned int dh_bits;
78
169
  gnutls_dh_params_t dh_params;
79
 
} encrypted_session;
80
 
 
81
 
 
82
 
ssize_t gpg_packet_decrypt (char *packet, size_t packet_size, char **new_packet, char *homedir){
83
 
  gpgme_data_t dh_crypto, dh_plain;
 
170
  const char *priority;
84
171
  gpgme_ctx_t ctx;
 
172
  server *current_server;
 
173
  char *interfaces;
 
174
  size_t interfaces_size;
 
175
} mandos_context;
 
176
 
 
177
/* global so signal handler can reach it*/
 
178
AvahiSimplePoll *simple_poll;
 
179
 
 
180
sig_atomic_t quit_now = 0;
 
181
int signal_received = 0;
 
182
 
 
183
/* Function to use when printing errors */
 
184
void perror_plus(const char *print_text){
 
185
  int e = errno;
 
186
  fprintf(stderr, "Mandos plugin %s: ",
 
187
          program_invocation_short_name);
 
188
  errno = e;
 
189
  perror(print_text);
 
190
}
 
191
 
 
192
__attribute__((format (gnu_printf, 2, 3), nonnull))
 
193
int fprintf_plus(FILE *stream, const char *format, ...){
 
194
  va_list ap;
 
195
  va_start (ap, format);
 
196
  
 
197
  TEMP_FAILURE_RETRY(fprintf(stream, "Mandos plugin %s: ",
 
198
                             program_invocation_short_name));
 
199
  return (int)TEMP_FAILURE_RETRY(vfprintf(stream, format, ap));
 
200
}
 
201
 
 
202
/*
 
203
 * Make additional room in "buffer" for at least BUFFER_SIZE more
 
204
 * bytes. "buffer_capacity" is how much is currently allocated,
 
205
 * "buffer_length" is how much is already used.
 
206
 */
 
207
__attribute__((nonnull, warn_unused_result))
 
208
size_t incbuffer(char **buffer, size_t buffer_length,
 
209
                 size_t buffer_capacity){
 
210
  if(buffer_length + BUFFER_SIZE > buffer_capacity){
 
211
    char *new_buf = realloc(*buffer, buffer_capacity + BUFFER_SIZE);
 
212
    if(new_buf == NULL){
 
213
      int old_errno = errno;
 
214
      free(*buffer);
 
215
      errno = old_errno;
 
216
      *buffer = NULL;
 
217
      return 0;
 
218
    }
 
219
    *buffer = new_buf;
 
220
    buffer_capacity += BUFFER_SIZE;
 
221
  }
 
222
  return buffer_capacity;
 
223
}
 
224
 
 
225
/* Add server to set of servers to retry periodically */
 
226
__attribute__((nonnull, warn_unused_result))
 
227
bool add_server(const char *ip, in_port_t port, AvahiIfIndex if_index,
 
228
                int af, server **current_server){
 
229
  int ret;
 
230
  server *new_server = malloc(sizeof(server));
 
231
  if(new_server == NULL){
 
232
    perror_plus("malloc");
 
233
    return false;
 
234
  }
 
235
  *new_server = (server){ .ip = strdup(ip),
 
236
                          .port = port,
 
237
                          .if_index = if_index,
 
238
                          .af = af };
 
239
  if(new_server->ip == NULL){
 
240
    perror_plus("strdup");
 
241
    free(new_server);
 
242
    return false;
 
243
  }
 
244
  ret = clock_gettime(CLOCK_MONOTONIC, &(new_server->last_seen));
 
245
  if(ret == -1){
 
246
    perror_plus("clock_gettime");
 
247
#ifdef __GNUC__
 
248
#pragma GCC diagnostic push
 
249
#pragma GCC diagnostic ignored "-Wcast-qual"
 
250
#endif
 
251
    free((char *)(new_server->ip));
 
252
#ifdef __GNUC__
 
253
#pragma GCC diagnostic pop
 
254
#endif
 
255
    free(new_server);
 
256
    return false;
 
257
  }
 
258
  /* Special case of first server */
 
259
  if(*current_server == NULL){
 
260
    new_server->next = new_server;
 
261
    new_server->prev = new_server;
 
262
    *current_server = new_server;
 
263
  } else {
 
264
    /* Place the new server last in the list */
 
265
    new_server->next = *current_server;
 
266
    new_server->prev = (*current_server)->prev;
 
267
    new_server->prev->next = new_server;
 
268
    (*current_server)->prev = new_server;
 
269
  }
 
270
  return true;
 
271
}
 
272
 
 
273
/* 
 
274
 * Initialize GPGME.
 
275
 */
 
276
__attribute__((nonnull, warn_unused_result))
 
277
static bool init_gpgme(const char * const seckey,
 
278
                       const char * const pubkey,
 
279
                       const char * const tempdir,
 
280
                       mandos_context *mc){
85
281
  gpgme_error_t rc;
86
 
  ssize_t ret;
87
 
  size_t new_packet_capacity = 0;
88
 
  size_t new_packet_length = 0;
89
282
  gpgme_engine_info_t engine_info;
90
 
 
 
283
  
 
284
  /*
 
285
   * Helper function to insert pub and seckey to the engine keyring.
 
286
   */
 
287
  bool import_key(const char * const filename){
 
288
    int ret;
 
289
    int fd;
 
290
    gpgme_data_t pgp_data;
 
291
    
 
292
    fd = (int)TEMP_FAILURE_RETRY(open(filename, O_RDONLY));
 
293
    if(fd == -1){
 
294
      perror_plus("open");
 
295
      return false;
 
296
    }
 
297
    
 
298
    rc = gpgme_data_new_from_fd(&pgp_data, fd);
 
299
    if(rc != GPG_ERR_NO_ERROR){
 
300
      fprintf_plus(stderr, "bad gpgme_data_new_from_fd: %s: %s\n",
 
301
                   gpgme_strsource(rc), gpgme_strerror(rc));
 
302
      return false;
 
303
    }
 
304
    
 
305
    rc = gpgme_op_import(mc->ctx, pgp_data);
 
306
    if(rc != GPG_ERR_NO_ERROR){
 
307
      fprintf_plus(stderr, "bad gpgme_op_import: %s: %s\n",
 
308
                   gpgme_strsource(rc), gpgme_strerror(rc));
 
309
      return false;
 
310
    }
 
311
    
 
312
    ret = close(fd);
 
313
    if(ret == -1){
 
314
      perror_plus("close");
 
315
    }
 
316
    gpgme_data_release(pgp_data);
 
317
    return true;
 
318
  }
 
319
  
 
320
  if(debug){
 
321
    fprintf_plus(stderr, "Initializing GPGME\n");
 
322
  }
 
323
  
91
324
  /* Init GPGME */
92
325
  gpgme_check_version(NULL);
93
 
  gpgme_engine_check_version(GPGME_PROTOCOL_OpenPGP);
 
326
  rc = gpgme_engine_check_version(GPGME_PROTOCOL_OpenPGP);
 
327
  if(rc != GPG_ERR_NO_ERROR){
 
328
    fprintf_plus(stderr, "bad gpgme_engine_check_version: %s: %s\n",
 
329
                 gpgme_strsource(rc), gpgme_strerror(rc));
 
330
    return false;
 
331
  }
94
332
  
95
 
  /* Set GPGME home directory */
96
 
  rc = gpgme_get_engine_info (&engine_info);
97
 
  if (rc != GPG_ERR_NO_ERROR){
98
 
    fprintf(stderr, "bad gpgme_get_engine_info: %s: %s\n",
99
 
            gpgme_strsource(rc), gpgme_strerror(rc));
100
 
    return -1;
 
333
  /* Set GPGME home directory for the OpenPGP engine only */
 
334
  rc = gpgme_get_engine_info(&engine_info);
 
335
  if(rc != GPG_ERR_NO_ERROR){
 
336
    fprintf_plus(stderr, "bad gpgme_get_engine_info: %s: %s\n",
 
337
                 gpgme_strsource(rc), gpgme_strerror(rc));
 
338
    return false;
101
339
  }
102
340
  while(engine_info != NULL){
103
341
    if(engine_info->protocol == GPGME_PROTOCOL_OpenPGP){
104
342
      gpgme_set_engine_info(GPGME_PROTOCOL_OpenPGP,
105
 
                            engine_info->file_name, homedir);
 
343
                            engine_info->file_name, tempdir);
106
344
      break;
107
345
    }
108
346
    engine_info = engine_info->next;
109
347
  }
110
348
  if(engine_info == NULL){
111
 
    fprintf(stderr, "Could not set home dir to %s\n", homedir);
112
 
    return -1;
113
 
  }
114
 
  
115
 
  /* Create new GPGME data buffer from packet buffer */
116
 
  rc = gpgme_data_new_from_mem(&dh_crypto, packet, packet_size, 0);
117
 
  if (rc != GPG_ERR_NO_ERROR){
118
 
    fprintf(stderr, "bad gpgme_data_new_from_mem: %s: %s\n",
119
 
            gpgme_strsource(rc), gpgme_strerror(rc));
 
349
    fprintf_plus(stderr, "Could not set GPGME home dir to %s\n",
 
350
                 tempdir);
 
351
    return false;
 
352
  }
 
353
  
 
354
  /* Create new GPGME "context" */
 
355
  rc = gpgme_new(&(mc->ctx));
 
356
  if(rc != GPG_ERR_NO_ERROR){
 
357
    fprintf_plus(stderr, "Mandos plugin mandos-client: "
 
358
                 "bad gpgme_new: %s: %s\n", gpgme_strsource(rc),
 
359
                 gpgme_strerror(rc));
 
360
    return false;
 
361
  }
 
362
  
 
363
  if(not import_key(pubkey) or not import_key(seckey)){
 
364
    return false;
 
365
  }
 
366
  
 
367
  return true;
 
368
}
 
369
 
 
370
/* 
 
371
 * Decrypt OpenPGP data.
 
372
 * Returns -1 on error
 
373
 */
 
374
__attribute__((nonnull, warn_unused_result))
 
375
static ssize_t pgp_packet_decrypt(const char *cryptotext,
 
376
                                  size_t crypto_size,
 
377
                                  char **plaintext,
 
378
                                  mandos_context *mc){
 
379
  gpgme_data_t dh_crypto, dh_plain;
 
380
  gpgme_error_t rc;
 
381
  ssize_t ret;
 
382
  size_t plaintext_capacity = 0;
 
383
  ssize_t plaintext_length = 0;
 
384
  
 
385
  if(debug){
 
386
    fprintf_plus(stderr, "Trying to decrypt OpenPGP data\n");
 
387
  }
 
388
  
 
389
  /* Create new GPGME data buffer from memory cryptotext */
 
390
  rc = gpgme_data_new_from_mem(&dh_crypto, cryptotext, crypto_size,
 
391
                               0);
 
392
  if(rc != GPG_ERR_NO_ERROR){
 
393
    fprintf_plus(stderr, "bad gpgme_data_new_from_mem: %s: %s\n",
 
394
                 gpgme_strsource(rc), gpgme_strerror(rc));
120
395
    return -1;
121
396
  }
122
397
  
123
398
  /* Create new empty GPGME data buffer for the plaintext */
124
399
  rc = gpgme_data_new(&dh_plain);
125
 
  if (rc != GPG_ERR_NO_ERROR){
126
 
    fprintf(stderr, "bad gpgme_data_new: %s: %s\n",
127
 
            gpgme_strsource(rc), gpgme_strerror(rc));
128
 
    return -1;
129
 
  }
130
 
  
131
 
  /* Create new GPGME "context" */
132
 
  rc = gpgme_new(&ctx);
133
 
  if (rc != GPG_ERR_NO_ERROR){
134
 
    fprintf(stderr, "bad gpgme_new: %s: %s\n",
135
 
            gpgme_strsource(rc), gpgme_strerror(rc));
136
 
    return -1;
137
 
  }
138
 
  
139
 
  /* Decrypt data from the FILE pointer to the plaintext data buffer */
140
 
  rc = gpgme_op_decrypt(ctx, dh_crypto, dh_plain);
141
 
  if (rc != GPG_ERR_NO_ERROR){
142
 
    fprintf(stderr, "bad gpgme_op_decrypt: %s: %s\n",
143
 
            gpgme_strsource(rc), gpgme_strerror(rc));
144
 
    return -1;
145
 
  }
146
 
  
147
 
/*   gpgme_decrypt_result_t result; */
148
 
/*   result = gpgme_op_decrypt_result(ctx); */
149
 
/*   fprintf(stderr, "Unsupported algorithm: %s\n", result->unsupported_algorithm); */
150
 
/*   fprintf(stderr, "Wrong key usage: %d\n", result->wrong_key_usage); */
151
 
/*   if(result->file_name != NULL){ */
152
 
/*     fprintf(stderr, "File name: %s\n", result->file_name); */
153
 
/*   } */
154
 
/*   gpgme_recipient_t recipient; */
155
 
/*   recipient = result->recipients; */
156
 
/*   if(recipient){ */
157
 
/*     while(recipient != NULL){ */
158
 
/*       fprintf(stderr, "Public key algorithm: %s\n", */
159
 
/*            gpgme_pubkey_algo_name(recipient->pubkey_algo)); */
160
 
/*       fprintf(stderr, "Key ID: %s\n", recipient->keyid); */
161
 
/*       fprintf(stderr, "Secret key available: %s\n", */
162
 
/*            recipient->status == GPG_ERR_NO_SECKEY ? "No" : "Yes"); */
163
 
/*       recipient = recipient->next; */
164
 
/*     } */
165
 
/*   } */
166
 
 
167
 
  /* Delete the GPGME FILE pointer cryptotext data buffer */
168
 
  gpgme_data_release(dh_crypto);
 
400
  if(rc != GPG_ERR_NO_ERROR){
 
401
    fprintf_plus(stderr, "Mandos plugin mandos-client: "
 
402
                 "bad gpgme_data_new: %s: %s\n",
 
403
                 gpgme_strsource(rc), gpgme_strerror(rc));
 
404
    gpgme_data_release(dh_crypto);
 
405
    return -1;
 
406
  }
 
407
  
 
408
  /* Decrypt data from the cryptotext data buffer to the plaintext
 
409
     data buffer */
 
410
  rc = gpgme_op_decrypt(mc->ctx, dh_crypto, dh_plain);
 
411
  if(rc != GPG_ERR_NO_ERROR){
 
412
    fprintf_plus(stderr, "bad gpgme_op_decrypt: %s: %s\n",
 
413
                 gpgme_strsource(rc), gpgme_strerror(rc));
 
414
    plaintext_length = -1;
 
415
    if(debug){
 
416
      gpgme_decrypt_result_t result;
 
417
      result = gpgme_op_decrypt_result(mc->ctx);
 
418
      if(result == NULL){
 
419
        fprintf_plus(stderr, "gpgme_op_decrypt_result failed\n");
 
420
      } else {
 
421
        fprintf_plus(stderr, "Unsupported algorithm: %s\n",
 
422
                     result->unsupported_algorithm);
 
423
        fprintf_plus(stderr, "Wrong key usage: %u\n",
 
424
                     result->wrong_key_usage);
 
425
        if(result->file_name != NULL){
 
426
          fprintf_plus(stderr, "File name: %s\n", result->file_name);
 
427
        }
 
428
        gpgme_recipient_t recipient;
 
429
        recipient = result->recipients;
 
430
        while(recipient != NULL){
 
431
          fprintf_plus(stderr, "Public key algorithm: %s\n",
 
432
                       gpgme_pubkey_algo_name
 
433
                       (recipient->pubkey_algo));
 
434
          fprintf_plus(stderr, "Key ID: %s\n", recipient->keyid);
 
435
          fprintf_plus(stderr, "Secret key available: %s\n",
 
436
                       recipient->status == GPG_ERR_NO_SECKEY
 
437
                       ? "No" : "Yes");
 
438
          recipient = recipient->next;
 
439
        }
 
440
      }
 
441
    }
 
442
    goto decrypt_end;
 
443
  }
 
444
  
 
445
  if(debug){
 
446
    fprintf_plus(stderr, "Decryption of OpenPGP data succeeded\n");
 
447
  }
169
448
  
170
449
  /* Seek back to the beginning of the GPGME plaintext data buffer */
171
 
  gpgme_data_seek(dh_plain, 0, SEEK_SET);
172
 
 
173
 
  *new_packet = 0;
 
450
  if(gpgme_data_seek(dh_plain, (off_t)0, SEEK_SET) == -1){
 
451
    perror_plus("gpgme_data_seek");
 
452
    plaintext_length = -1;
 
453
    goto decrypt_end;
 
454
  }
 
455
  
 
456
  *plaintext = NULL;
174
457
  while(true){
175
 
    if (new_packet_length + BUFFER_SIZE > new_packet_capacity){
176
 
      *new_packet = realloc(*new_packet, new_packet_capacity + BUFFER_SIZE);
177
 
      if (*new_packet == NULL){
178
 
        perror("realloc");
179
 
        return -1;
180
 
      }
181
 
      new_packet_capacity += BUFFER_SIZE;
 
458
    plaintext_capacity = incbuffer(plaintext,
 
459
                                   (size_t)plaintext_length,
 
460
                                   plaintext_capacity);
 
461
    if(plaintext_capacity == 0){
 
462
      perror_plus("incbuffer");
 
463
      plaintext_length = -1;
 
464
      goto decrypt_end;
182
465
    }
183
466
    
184
 
    ret = gpgme_data_read(dh_plain, *new_packet + new_packet_length, BUFFER_SIZE);
 
467
    ret = gpgme_data_read(dh_plain, *plaintext + plaintext_length,
 
468
                          BUFFER_SIZE);
185
469
    /* Print the data, if any */
186
 
    if (ret == 0){
187
 
      /* If password is empty, then a incorrect error will be printed */
 
470
    if(ret == 0){
 
471
      /* EOF */
188
472
      break;
189
473
    }
190
474
    if(ret < 0){
191
 
      perror("gpgme_data_read");
192
 
      return -1;
193
 
    }
194
 
    new_packet_length += ret;
195
 
  }
196
 
 
197
 
   /* Delete the GPGME plaintext data buffer */
 
475
      perror_plus("gpgme_data_read");
 
476
      plaintext_length = -1;
 
477
      goto decrypt_end;
 
478
    }
 
479
    plaintext_length += ret;
 
480
  }
 
481
  
 
482
  if(debug){
 
483
    fprintf_plus(stderr, "Decrypted password is: ");
 
484
    for(ssize_t i = 0; i < plaintext_length; i++){
 
485
      fprintf(stderr, "%02hhX ", (*plaintext)[i]);
 
486
    }
 
487
    fprintf(stderr, "\n");
 
488
  }
 
489
  
 
490
 decrypt_end:
 
491
  
 
492
  /* Delete the GPGME cryptotext data buffer */
 
493
  gpgme_data_release(dh_crypto);
 
494
  
 
495
  /* Delete the GPGME plaintext data buffer */
198
496
  gpgme_data_release(dh_plain);
199
 
  return new_packet_length;
200
 
}
201
 
 
202
 
static const char * safer_gnutls_strerror (int value) {
203
 
  const char *ret = gnutls_strerror (value);
204
 
  if (ret == NULL)
205
 
    ret = "(unknown)";
206
 
  return ret;
207
 
}
208
 
 
209
 
void debuggnutls(int level, const char* string){
210
 
  fprintf(stderr, "%s", string);
211
 
}
212
 
 
213
 
int initgnutls(encrypted_session *es){
214
 
  const char *err;
 
497
  return plaintext_length;
 
498
}
 
499
 
 
500
__attribute__((warn_unused_result, const))
 
501
static const char *safe_string(const char *str){
 
502
  if(str == NULL)
 
503
    return "(unknown)";
 
504
  return str;
 
505
}
 
506
 
 
507
__attribute__((warn_unused_result))
 
508
static const char *safer_gnutls_strerror(int value){
 
509
  const char *ret = gnutls_strerror(value);
 
510
  return safe_string(ret);
 
511
}
 
512
 
 
513
/* GnuTLS log function callback */
 
514
__attribute__((nonnull))
 
515
static void debuggnutls(__attribute__((unused)) int level,
 
516
                        const char* string){
 
517
  fprintf_plus(stderr, "GnuTLS: %s", string);
 
518
}
 
519
 
 
520
__attribute__((nonnull(1, 2, 4), warn_unused_result))
 
521
static int init_gnutls_global(const char *pubkeyfilename,
 
522
                              const char *seckeyfilename,
 
523
                              const char *dhparamsfilename,
 
524
                              mandos_context *mc){
215
525
  int ret;
216
 
  
217
 
  if ((ret = gnutls_global_init ())
218
 
      != GNUTLS_E_SUCCESS) {
219
 
    fprintf (stderr, "global_init: %s\n", safer_gnutls_strerror(ret));
220
 
    return -1;
221
 
  }
222
 
 
223
 
  /* Uncomment to enable full debuggin on the gnutls library */
224
 
  /*   gnutls_global_set_log_level(11); */
225
 
  /*   gnutls_global_set_log_function(debuggnutls); */
226
 
 
227
 
 
228
 
  /* openpgp credentials */
229
 
  if ((ret = gnutls_certificate_allocate_credentials (&es->cred))
230
 
      != GNUTLS_E_SUCCESS) {
231
 
    fprintf (stderr, "memory error: %s\n", safer_gnutls_strerror(ret));
232
 
    return -1;
233
 
  }
234
 
 
 
526
  unsigned int uret;
 
527
  
 
528
  if(debug){
 
529
    fprintf_plus(stderr, "Initializing GnuTLS\n");
 
530
  }
 
531
  
 
532
  if(debug){
 
533
    /* "Use a log level over 10 to enable all debugging options."
 
534
     * - GnuTLS manual
 
535
     */
 
536
    gnutls_global_set_log_level(11);
 
537
    gnutls_global_set_log_function(debuggnutls);
 
538
  }
 
539
  
 
540
  /* OpenPGP credentials */
 
541
  ret = gnutls_certificate_allocate_credentials(&mc->cred);
 
542
  if(ret != GNUTLS_E_SUCCESS){
 
543
    fprintf_plus(stderr, "GnuTLS memory error: %s\n",
 
544
                 safer_gnutls_strerror(ret));
 
545
    return -1;
 
546
  }
 
547
  
 
548
  if(debug){
 
549
    fprintf_plus(stderr, "Attempting to use OpenPGP public key %s and"
 
550
                 " secret key %s as GnuTLS credentials\n",
 
551
                 pubkeyfilename,
 
552
                 seckeyfilename);
 
553
  }
 
554
  
235
555
  ret = gnutls_certificate_set_openpgp_key_file
236
 
    (es->cred, CERTFILE, KEYFILE, GNUTLS_OPENPGP_FMT_BASE64);
237
 
  if (ret != GNUTLS_E_SUCCESS) {
238
 
    fprintf
239
 
      (stderr, "Error[%d] while reading the OpenPGP key pair ('%s', '%s')\n",
240
 
       ret, CERTFILE, KEYFILE);
241
 
    fprintf(stdout, "The Error is: %s\n",
242
 
            safer_gnutls_strerror(ret));
243
 
    return -1;
244
 
  }
245
 
 
246
 
  //Gnutls server initialization
247
 
  if ((ret = gnutls_dh_params_init (&es->dh_params))
248
 
      != GNUTLS_E_SUCCESS) {
249
 
    fprintf (stderr, "Error in dh parameter initialization: %s\n",
250
 
             safer_gnutls_strerror(ret));
251
 
    return -1;
252
 
  }
253
 
 
254
 
  if ((ret = gnutls_dh_params_generate2 (es->dh_params, DH_BITS))
255
 
      != GNUTLS_E_SUCCESS) {
256
 
    fprintf (stderr, "Error in prime generation: %s\n",
257
 
             safer_gnutls_strerror(ret));
258
 
    return -1;
259
 
  }
260
 
 
261
 
  gnutls_certificate_set_dh_params (es->cred, es->dh_params);
262
 
 
263
 
  // Gnutls session creation
264
 
  if ((ret = gnutls_init (&es->session, GNUTLS_SERVER))
265
 
      != GNUTLS_E_SUCCESS){
266
 
    fprintf(stderr, "Error in gnutls session initialization: %s\n",
267
 
            safer_gnutls_strerror(ret));
268
 
  }
269
 
 
270
 
  if ((ret = gnutls_priority_set_direct (es->session, "NORMAL", &err))
271
 
      != GNUTLS_E_SUCCESS) {
272
 
    fprintf(stderr, "Syntax error at: %s\n", err);
273
 
    fprintf(stderr, "Gnutls error: %s\n",
274
 
            safer_gnutls_strerror(ret));
275
 
    return -1;
276
 
  }
277
 
 
278
 
  if ((ret = gnutls_credentials_set
279
 
       (es->session, GNUTLS_CRD_CERTIFICATE, es->cred))
280
 
      != GNUTLS_E_SUCCESS) {
281
 
    fprintf(stderr, "Error setting a credentials set: %s\n",
282
 
            safer_gnutls_strerror(ret));
283
 
    return -1;
284
 
  }
285
 
 
 
556
    (mc->cred, pubkeyfilename, seckeyfilename,
 
557
     GNUTLS_OPENPGP_FMT_BASE64);
 
558
  if(ret != GNUTLS_E_SUCCESS){
 
559
    fprintf_plus(stderr,
 
560
                 "Error[%d] while reading the OpenPGP key pair ('%s',"
 
561
                 " '%s')\n", ret, pubkeyfilename, seckeyfilename);
 
562
    fprintf_plus(stderr, "The GnuTLS error is: %s\n",
 
563
                 safer_gnutls_strerror(ret));
 
564
    goto globalfail;
 
565
  }
 
566
  
 
567
  /* GnuTLS server initialization */
 
568
  ret = gnutls_dh_params_init(&mc->dh_params);
 
569
  if(ret != GNUTLS_E_SUCCESS){
 
570
    fprintf_plus(stderr, "Error in GnuTLS DH parameter"
 
571
                 " initialization: %s\n",
 
572
                 safer_gnutls_strerror(ret));
 
573
    goto globalfail;
 
574
  }
 
575
  /* If a Diffie-Hellman parameters file was given, try to use it */
 
576
  if(dhparamsfilename != NULL){
 
577
    gnutls_datum_t params = { .data = NULL, .size = 0 };
 
578
    do {
 
579
      int dhpfile = open(dhparamsfilename, O_RDONLY);
 
580
      if(dhpfile == -1){
 
581
        perror_plus("open");
 
582
        dhparamsfilename = NULL;
 
583
        break;
 
584
      }
 
585
      size_t params_capacity = 0;
 
586
      while(true){
 
587
        params_capacity = incbuffer((char **)&params.data,
 
588
                                    (size_t)params.size,
 
589
                                    (size_t)params_capacity);
 
590
        if(params_capacity == 0){
 
591
          perror_plus("incbuffer");
 
592
          free(params.data);
 
593
          params.data = NULL;
 
594
          dhparamsfilename = NULL;
 
595
          break;
 
596
        }
 
597
        ssize_t bytes_read = read(dhpfile,
 
598
                                  params.data + params.size,
 
599
                                  BUFFER_SIZE);
 
600
        /* EOF */
 
601
        if(bytes_read == 0){
 
602
          break;
 
603
        }
 
604
        /* check bytes_read for failure */
 
605
        if(bytes_read < 0){
 
606
          perror_plus("read");
 
607
          free(params.data);
 
608
          params.data = NULL;
 
609
          dhparamsfilename = NULL;
 
610
          break;
 
611
        }
 
612
        params.size += (unsigned int)bytes_read;
 
613
      }
 
614
      if(params.data == NULL){
 
615
        dhparamsfilename = NULL;
 
616
      }
 
617
      if(dhparamsfilename == NULL){
 
618
        break;
 
619
      }
 
620
      ret = gnutls_dh_params_import_pkcs3(mc->dh_params, &params,
 
621
                                          GNUTLS_X509_FMT_PEM);
 
622
      if(ret != GNUTLS_E_SUCCESS){
 
623
        fprintf_plus(stderr, "Failed to parse DH parameters in file"
 
624
                     " \"%s\": %s\n", dhparamsfilename,
 
625
                     safer_gnutls_strerror(ret));
 
626
        dhparamsfilename = NULL;
 
627
      }
 
628
    } while(false);
 
629
  }
 
630
  if(dhparamsfilename == NULL){
 
631
    if(mc->dh_bits == 0){
 
632
      /* Find out the optimal number of DH bits */
 
633
      /* Try to read the private key file */
 
634
      gnutls_datum_t buffer = { .data = NULL, .size = 0 };
 
635
      do {
 
636
        int secfile = open(seckeyfilename, O_RDONLY);
 
637
        if(secfile == -1){
 
638
          perror_plus("open");
 
639
          break;
 
640
        }
 
641
        size_t buffer_capacity = 0;
 
642
        while(true){
 
643
          buffer_capacity = incbuffer((char **)&buffer.data,
 
644
                                      (size_t)buffer.size,
 
645
                                      (size_t)buffer_capacity);
 
646
          if(buffer_capacity == 0){
 
647
            perror_plus("incbuffer");
 
648
            free(buffer.data);
 
649
            buffer.data = NULL;
 
650
            break;
 
651
          }
 
652
          ssize_t bytes_read = read(secfile,
 
653
                                    buffer.data + buffer.size,
 
654
                                    BUFFER_SIZE);
 
655
          /* EOF */
 
656
          if(bytes_read == 0){
 
657
            break;
 
658
          }
 
659
          /* check bytes_read for failure */
 
660
          if(bytes_read < 0){
 
661
            perror_plus("read");
 
662
            free(buffer.data);
 
663
            buffer.data = NULL;
 
664
            break;
 
665
          }
 
666
          buffer.size += (unsigned int)bytes_read;
 
667
        }
 
668
        close(secfile);
 
669
      } while(false);
 
670
      /* If successful, use buffer to parse private key */
 
671
      gnutls_sec_param_t sec_param = GNUTLS_SEC_PARAM_ULTRA;
 
672
      if(buffer.data != NULL){
 
673
        {
 
674
          gnutls_openpgp_privkey_t privkey = NULL;
 
675
          ret = gnutls_openpgp_privkey_init(&privkey);
 
676
          if(ret != GNUTLS_E_SUCCESS){
 
677
            fprintf_plus(stderr, "Error initializing OpenPGP key"
 
678
                         " structure: %s",
 
679
                         safer_gnutls_strerror(ret));
 
680
            free(buffer.data);
 
681
            buffer.data = NULL;
 
682
          } else {
 
683
            ret = gnutls_openpgp_privkey_import
 
684
              (privkey, &buffer, GNUTLS_OPENPGP_FMT_BASE64, "", 0);
 
685
            if(ret != GNUTLS_E_SUCCESS){
 
686
              fprintf_plus(stderr, "Error importing OpenPGP key : %s",
 
687
                           safer_gnutls_strerror(ret));
 
688
              privkey = NULL;
 
689
            }
 
690
            free(buffer.data);
 
691
            buffer.data = NULL;
 
692
            if(privkey != NULL){
 
693
              /* Use private key to suggest an appropriate
 
694
                 sec_param */
 
695
              sec_param = gnutls_openpgp_privkey_sec_param(privkey);
 
696
              gnutls_openpgp_privkey_deinit(privkey);
 
697
              if(debug){
 
698
                fprintf_plus(stderr, "This OpenPGP key implies using"
 
699
                             " a GnuTLS security parameter \"%s\".\n",
 
700
                             safe_string(gnutls_sec_param_get_name
 
701
                                         (sec_param)));
 
702
              }
 
703
            }
 
704
          }
 
705
        }
 
706
        if(sec_param == GNUTLS_SEC_PARAM_UNKNOWN){
 
707
          /* Err on the side of caution */
 
708
          sec_param = GNUTLS_SEC_PARAM_ULTRA;
 
709
          if(debug){
 
710
            fprintf_plus(stderr, "Falling back to security parameter"
 
711
                         " \"%s\"\n",
 
712
                         safe_string(gnutls_sec_param_get_name
 
713
                                     (sec_param)));
 
714
          }
 
715
        }
 
716
      }
 
717
      uret = gnutls_sec_param_to_pk_bits(GNUTLS_PK_DH, sec_param);
 
718
      if(uret != 0){
 
719
        mc->dh_bits = uret;
 
720
        if(debug){
 
721
          fprintf_plus(stderr, "A \"%s\" GnuTLS security parameter"
 
722
                       " implies %u DH bits; using that.\n",
 
723
                       safe_string(gnutls_sec_param_get_name
 
724
                                   (sec_param)),
 
725
                       mc->dh_bits);
 
726
        }
 
727
      } else {
 
728
        fprintf_plus(stderr, "Failed to get implied number of DH"
 
729
                     " bits for security parameter \"%s\"): %s\n",
 
730
                     safe_string(gnutls_sec_param_get_name
 
731
                                 (sec_param)),
 
732
                     safer_gnutls_strerror(ret));
 
733
        goto globalfail;
 
734
      }
 
735
    } else if(debug){
 
736
      fprintf_plus(stderr, "DH bits explicitly set to %u\n",
 
737
                   mc->dh_bits);
 
738
    }
 
739
    ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);
 
740
    if(ret != GNUTLS_E_SUCCESS){
 
741
      fprintf_plus(stderr, "Error in GnuTLS prime generation (%u"
 
742
                   " bits): %s\n", mc->dh_bits,
 
743
                   safer_gnutls_strerror(ret));
 
744
      goto globalfail;
 
745
    }
 
746
  }
 
747
  gnutls_certificate_set_dh_params(mc->cred, mc->dh_params);
 
748
  
 
749
  return 0;
 
750
  
 
751
 globalfail:
 
752
  
 
753
  gnutls_certificate_free_credentials(mc->cred);
 
754
  gnutls_dh_params_deinit(mc->dh_params);
 
755
  return -1;
 
756
}
 
757
 
 
758
__attribute__((nonnull, warn_unused_result))
 
759
static int init_gnutls_session(gnutls_session_t *session,
 
760
                               mandos_context *mc){
 
761
  int ret;
 
762
  /* GnuTLS session creation */
 
763
  do {
 
764
    ret = gnutls_init(session, GNUTLS_SERVER);
 
765
    if(quit_now){
 
766
      return -1;
 
767
    }
 
768
  } while(ret == GNUTLS_E_INTERRUPTED or ret == GNUTLS_E_AGAIN);
 
769
  if(ret != GNUTLS_E_SUCCESS){
 
770
    fprintf_plus(stderr,
 
771
                 "Error in GnuTLS session initialization: %s\n",
 
772
                 safer_gnutls_strerror(ret));
 
773
  }
 
774
  
 
775
  {
 
776
    const char *err;
 
777
    do {
 
778
      ret = gnutls_priority_set_direct(*session, mc->priority, &err);
 
779
      if(quit_now){
 
780
        gnutls_deinit(*session);
 
781
        return -1;
 
782
      }
 
783
    } while(ret == GNUTLS_E_INTERRUPTED or ret == GNUTLS_E_AGAIN);
 
784
    if(ret != GNUTLS_E_SUCCESS){
 
785
      fprintf_plus(stderr, "Syntax error at: %s\n", err);
 
786
      fprintf_plus(stderr, "GnuTLS error: %s\n",
 
787
                   safer_gnutls_strerror(ret));
 
788
      gnutls_deinit(*session);
 
789
      return -1;
 
790
    }
 
791
  }
 
792
  
 
793
  do {
 
794
    ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
 
795
                                 mc->cred);
 
796
    if(quit_now){
 
797
      gnutls_deinit(*session);
 
798
      return -1;
 
799
    }
 
800
  } while(ret == GNUTLS_E_INTERRUPTED or ret == GNUTLS_E_AGAIN);
 
801
  if(ret != GNUTLS_E_SUCCESS){
 
802
    fprintf_plus(stderr, "Error setting GnuTLS credentials: %s\n",
 
803
                 safer_gnutls_strerror(ret));
 
804
    gnutls_deinit(*session);
 
805
    return -1;
 
806
  }
 
807
  
286
808
  /* ignore client certificate if any. */
287
 
  gnutls_certificate_server_set_request (es->session, GNUTLS_CERT_IGNORE);
288
 
  
289
 
  gnutls_dh_set_prime_bits (es->session, DH_BITS);
 
809
  gnutls_certificate_server_set_request(*session, GNUTLS_CERT_IGNORE);
290
810
  
291
811
  return 0;
292
812
}
293
813
 
294
 
void empty_log(AvahiLogLevel level, const char *txt){}
295
 
 
296
 
int start_mandos_communcation(char *ip, uint16_t port){
297
 
  int ret, tcp_sd;
298
 
  struct sockaddr_in6 to;
299
 
  struct in6_addr ip_addr;
300
 
  encrypted_session es;
 
814
/* Avahi log function callback */
 
815
static void empty_log(__attribute__((unused)) AvahiLogLevel level,
 
816
                      __attribute__((unused)) const char *txt){}
 
817
 
 
818
/* Set effective uid to 0, return errno */
 
819
__attribute__((warn_unused_result))
 
820
error_t raise_privileges(void){
 
821
  error_t old_errno = errno;
 
822
  error_t ret_errno = 0;
 
823
  if(seteuid(0) == -1){
 
824
    ret_errno = errno;
 
825
  }
 
826
  errno = old_errno;
 
827
  return ret_errno;
 
828
}
 
829
 
 
830
/* Set effective and real user ID to 0.  Return errno. */
 
831
__attribute__((warn_unused_result))
 
832
error_t raise_privileges_permanently(void){
 
833
  error_t old_errno = errno;
 
834
  error_t ret_errno = raise_privileges();
 
835
  if(ret_errno != 0){
 
836
    errno = old_errno;
 
837
    return ret_errno;
 
838
  }
 
839
  if(setuid(0) == -1){
 
840
    ret_errno = errno;
 
841
  }
 
842
  errno = old_errno;
 
843
  return ret_errno;
 
844
}
 
845
 
 
846
/* Set effective user ID to unprivileged saved user ID */
 
847
__attribute__((warn_unused_result))
 
848
error_t lower_privileges(void){
 
849
  error_t old_errno = errno;
 
850
  error_t ret_errno = 0;
 
851
  if(seteuid(uid) == -1){
 
852
    ret_errno = errno;
 
853
  }
 
854
  errno = old_errno;
 
855
  return ret_errno;
 
856
}
 
857
 
 
858
/* Lower privileges permanently */
 
859
__attribute__((warn_unused_result))
 
860
error_t lower_privileges_permanently(void){
 
861
  error_t old_errno = errno;
 
862
  error_t ret_errno = 0;
 
863
  if(setuid(uid) == -1){
 
864
    ret_errno = errno;
 
865
  }
 
866
  errno = old_errno;
 
867
  return ret_errno;
 
868
}
 
869
 
 
870
/* Helper function to add_local_route() and delete_local_route() */
 
871
__attribute__((nonnull, warn_unused_result))
 
872
static bool add_delete_local_route(const bool add,
 
873
                                   const char *address,
 
874
                                   AvahiIfIndex if_index){
 
875
  int ret;
 
876
  char helper[] = "mandos-client-iprouteadddel";
 
877
  char add_arg[] = "add";
 
878
  char delete_arg[] = "delete";
 
879
  char debug_flag[] = "--debug";
 
880
  char *pluginhelperdir = getenv("MANDOSPLUGINHELPERDIR");
 
881
  if(pluginhelperdir == NULL){
 
882
    if(debug){
 
883
      fprintf_plus(stderr, "MANDOSPLUGINHELPERDIR environment"
 
884
                   " variable not set; cannot run helper\n");
 
885
    }
 
886
    return false;
 
887
  }
 
888
  
 
889
  char interface[IF_NAMESIZE];
 
890
  if(if_indextoname((unsigned int)if_index, interface) == NULL){
 
891
    perror_plus("if_indextoname");
 
892
    return false;
 
893
  }
 
894
  
 
895
  int devnull = (int)TEMP_FAILURE_RETRY(open("/dev/null", O_RDONLY));
 
896
  if(devnull == -1){
 
897
    perror_plus("open(\"/dev/null\", O_RDONLY)");
 
898
    return false;
 
899
  }
 
900
  pid_t pid = fork();
 
901
  if(pid == 0){
 
902
    /* Child */
 
903
    /* Raise privileges */
 
904
    errno = raise_privileges_permanently();
 
905
    if(errno != 0){
 
906
      perror_plus("Failed to raise privileges");
 
907
      /* _exit(EX_NOPERM); */
 
908
    } else {
 
909
      /* Set group */
 
910
      errno = 0;
 
911
      ret = setgid(0);
 
912
      if(ret == -1){
 
913
        perror_plus("setgid");
 
914
        _exit(EX_NOPERM);
 
915
      }
 
916
      /* Reset supplementary groups */
 
917
      errno = 0;
 
918
      ret = setgroups(0, NULL);
 
919
      if(ret == -1){
 
920
        perror_plus("setgroups");
 
921
        _exit(EX_NOPERM);
 
922
      }
 
923
    }
 
924
    ret = dup2(devnull, STDIN_FILENO);
 
925
    if(ret == -1){
 
926
      perror_plus("dup2(devnull, STDIN_FILENO)");
 
927
      _exit(EX_OSERR);
 
928
    }
 
929
    ret = close(devnull);
 
930
    if(ret == -1){
 
931
      perror_plus("close");
 
932
      _exit(EX_OSERR);
 
933
    }
 
934
    ret = dup2(STDERR_FILENO, STDOUT_FILENO);
 
935
    if(ret == -1){
 
936
      perror_plus("dup2(STDERR_FILENO, STDOUT_FILENO)");
 
937
      _exit(EX_OSERR);
 
938
    }
 
939
    int helperdir_fd = (int)TEMP_FAILURE_RETRY(open(pluginhelperdir,
 
940
                                                    O_RDONLY
 
941
                                                    | O_DIRECTORY
 
942
                                                    | O_PATH
 
943
                                                    | O_CLOEXEC));
 
944
    if(helperdir_fd == -1){
 
945
      perror_plus("open");
 
946
      _exit(EX_UNAVAILABLE);
 
947
    }
 
948
    int helper_fd = (int)TEMP_FAILURE_RETRY(openat(helperdir_fd,
 
949
                                                   helper, O_RDONLY));
 
950
    if(helper_fd == -1){
 
951
      perror_plus("openat");
 
952
      close(helperdir_fd);
 
953
      _exit(EX_UNAVAILABLE);
 
954
    }
 
955
    close(helperdir_fd);
 
956
#ifdef __GNUC__
 
957
#pragma GCC diagnostic push
 
958
#pragma GCC diagnostic ignored "-Wcast-qual"
 
959
#endif
 
960
    if(fexecve(helper_fd, (char *const [])
 
961
               { helper, add ? add_arg : delete_arg, (char *)address,
 
962
                   interface, debug ? debug_flag : NULL, NULL },
 
963
               environ) == -1){
 
964
#ifdef __GNUC__
 
965
#pragma GCC diagnostic pop
 
966
#endif
 
967
      perror_plus("fexecve");
 
968
      _exit(EXIT_FAILURE);
 
969
    }
 
970
  }
 
971
  if(pid == -1){
 
972
    perror_plus("fork");
 
973
    return false;
 
974
  }
 
975
  int status;
 
976
  pid_t pret = -1;
 
977
  errno = 0;
 
978
  do {
 
979
    pret = waitpid(pid, &status, 0);
 
980
    if(pret == -1 and errno == EINTR and quit_now){
 
981
      int errno_raising = 0;
 
982
      if((errno = raise_privileges()) != 0){
 
983
        errno_raising = errno;
 
984
        perror_plus("Failed to raise privileges in order to"
 
985
                    " kill helper program");
 
986
      }
 
987
      if(kill(pid, SIGTERM) == -1){
 
988
        perror_plus("kill");
 
989
      }
 
990
      if((errno_raising == 0) and (errno = lower_privileges()) != 0){
 
991
        perror_plus("Failed to lower privileges after killing"
 
992
                    " helper program");
 
993
      }
 
994
      return false;
 
995
    }
 
996
  } while(pret == -1 and errno == EINTR);
 
997
  if(pret == -1){
 
998
    perror_plus("waitpid");
 
999
    return false;
 
1000
  }
 
1001
  if(WIFEXITED(status)){
 
1002
    if(WEXITSTATUS(status) != 0){
 
1003
      fprintf_plus(stderr, "Error: iprouteadddel exited"
 
1004
                   " with status %d\n", WEXITSTATUS(status));
 
1005
      return false;
 
1006
    }
 
1007
    return true;
 
1008
  }
 
1009
  if(WIFSIGNALED(status)){
 
1010
    fprintf_plus(stderr, "Error: iprouteadddel died by"
 
1011
                 " signal %d\n", WTERMSIG(status));
 
1012
    return false;
 
1013
  }
 
1014
  fprintf_plus(stderr, "Error: iprouteadddel crashed\n");
 
1015
  return false;
 
1016
}
 
1017
 
 
1018
__attribute__((nonnull, warn_unused_result))
 
1019
static bool add_local_route(const char *address,
 
1020
                            AvahiIfIndex if_index){
 
1021
  if(debug){
 
1022
    fprintf_plus(stderr, "Adding route to %s\n", address);
 
1023
  }
 
1024
  return add_delete_local_route(true, address, if_index);
 
1025
}
 
1026
 
 
1027
__attribute__((nonnull, warn_unused_result))
 
1028
static bool delete_local_route(const char *address,
 
1029
                               AvahiIfIndex if_index){
 
1030
  if(debug){
 
1031
    fprintf_plus(stderr, "Removing route to %s\n", address);
 
1032
  }
 
1033
  return add_delete_local_route(false, address, if_index);
 
1034
}
 
1035
 
 
1036
/* Called when a Mandos server is found */
 
1037
__attribute__((nonnull, warn_unused_result))
 
1038
static int start_mandos_communication(const char *ip, in_port_t port,
 
1039
                                      AvahiIfIndex if_index,
 
1040
                                      int af, mandos_context *mc){
 
1041
  int ret, tcp_sd = -1;
 
1042
  ssize_t sret;
 
1043
  struct sockaddr_storage to;
301
1044
  char *buffer = NULL;
302
 
  char *decrypted_buffer;
 
1045
  char *decrypted_buffer = NULL;
303
1046
  size_t buffer_length = 0;
304
1047
  size_t buffer_capacity = 0;
305
 
  ssize_t decrypted_buffer_size;
306
 
  int retval = 0;
307
 
 
308
 
  
309
 
  tcp_sd = socket(PF_INET6, SOCK_STREAM, 0);
310
 
  if(tcp_sd < 0) {
311
 
    perror("socket");
312
 
    return -1;
313
 
  }
314
 
  
315
 
  ret = setsockopt(tcp_sd, SOL_SOCKET, SO_BINDTODEVICE, "eth0", 5);
316
 
  if(tcp_sd < 0) {
317
 
    perror("setsockopt bindtodevice");
318
 
    return -1;
319
 
  }
320
 
  
321
 
  memset(&to,0,sizeof(to));
322
 
  to.sin6_family = AF_INET6;
323
 
  ret = inet_pton(AF_INET6, ip, &ip_addr);
324
 
  if (ret < 0 ){
325
 
    perror("inet_pton");
326
 
    return -1;
327
 
  }  
 
1048
  size_t written;
 
1049
  int retval = -1;
 
1050
  gnutls_session_t session;
 
1051
  int pf;                       /* Protocol family */
 
1052
  bool route_added = false;
 
1053
  
 
1054
  errno = 0;
 
1055
  
 
1056
  if(quit_now){
 
1057
    errno = EINTR;
 
1058
    return -1;
 
1059
  }
 
1060
  
 
1061
  switch(af){
 
1062
  case AF_INET6:
 
1063
    pf = PF_INET6;
 
1064
    break;
 
1065
  case AF_INET:
 
1066
    pf = PF_INET;
 
1067
    break;
 
1068
  default:
 
1069
    fprintf_plus(stderr, "Bad address family: %d\n", af);
 
1070
    errno = EINVAL;
 
1071
    return -1;
 
1072
  }
 
1073
  
 
1074
  /* If the interface is specified and we have a list of interfaces */
 
1075
  if(if_index != AVAHI_IF_UNSPEC and mc->interfaces != NULL){
 
1076
    /* Check if the interface is one of the interfaces we are using */
 
1077
    bool match = false;
 
1078
    {
 
1079
      char *interface = NULL;
 
1080
      while((interface=argz_next(mc->interfaces, mc->interfaces_size,
 
1081
                                 interface))){
 
1082
        if(if_nametoindex(interface) == (unsigned int)if_index){
 
1083
          match = true;
 
1084
          break;
 
1085
        }
 
1086
      }
 
1087
    }
 
1088
    if(not match){
 
1089
      /* This interface does not match any in the list, so we don't
 
1090
         connect to the server */
 
1091
      if(debug){
 
1092
        char interface[IF_NAMESIZE];
 
1093
        if(if_indextoname((unsigned int)if_index, interface) == NULL){
 
1094
          perror_plus("if_indextoname");
 
1095
        } else {
 
1096
          fprintf_plus(stderr, "Skipping server on non-used interface"
 
1097
                       " \"%s\"\n",
 
1098
                       if_indextoname((unsigned int)if_index,
 
1099
                                      interface));
 
1100
        }
 
1101
      }
 
1102
      return -1;
 
1103
    }
 
1104
  }
 
1105
  
 
1106
  ret = init_gnutls_session(&session, mc);
 
1107
  if(ret != 0){
 
1108
    return -1;
 
1109
  }
 
1110
  
 
1111
  if(debug){
 
1112
    fprintf_plus(stderr, "Setting up a TCP connection to %s, port %"
 
1113
                 PRIuMAX "\n", ip, (uintmax_t)port);
 
1114
  }
 
1115
  
 
1116
  tcp_sd = socket(pf, SOCK_STREAM | SOCK_CLOEXEC, 0);
 
1117
  if(tcp_sd < 0){
 
1118
    int e = errno;
 
1119
    perror_plus("socket");
 
1120
    errno = e;
 
1121
    goto mandos_end;
 
1122
  }
 
1123
  
 
1124
  if(quit_now){
 
1125
    errno = EINTR;
 
1126
    goto mandos_end;
 
1127
  }
 
1128
  
 
1129
  if(af == AF_INET6){
 
1130
    struct sockaddr_in6 *to6 = (struct sockaddr_in6 *)&to;
 
1131
    *to6 = (struct sockaddr_in6){ .sin6_family = (sa_family_t)af };
 
1132
    ret = inet_pton(af, ip, &to6->sin6_addr);
 
1133
  } else {                      /* IPv4 */
 
1134
    struct sockaddr_in *to4 = (struct sockaddr_in *)&to;
 
1135
    *to4 = (struct sockaddr_in){ .sin_family = (sa_family_t)af };
 
1136
    ret = inet_pton(af, ip, &to4->sin_addr);
 
1137
  }
 
1138
  if(ret < 0 ){
 
1139
    int e = errno;
 
1140
    perror_plus("inet_pton");
 
1141
    errno = e;
 
1142
    goto mandos_end;
 
1143
  }
328
1144
  if(ret == 0){
329
 
    fprintf(stderr, "Bad address: %s\n", ip);
330
 
    return -1;
331
 
  }
332
 
  to.sin6_port = htons(port);
333
 
  to.sin6_scope_id = if_nametoindex("eth0");
334
 
  
335
 
  ret = connect(tcp_sd, (struct sockaddr *) &to, sizeof(to));
336
 
  if (ret < 0){
337
 
    perror("connect");
338
 
    return -1;
339
 
  }
340
 
  
341
 
  ret = initgnutls (&es);
342
 
  if (ret != 0){
343
 
    retval = -1;
344
 
    return -1;
345
 
  }
346
 
    
347
 
  
348
 
  gnutls_transport_set_ptr (es.session, (gnutls_transport_ptr_t) tcp_sd);
349
 
 
350
 
  ret = gnutls_handshake (es.session);
351
 
  
352
 
  if (ret != GNUTLS_E_SUCCESS){
353
 
    fprintf(stderr, "\n*** Handshake failed ***\n");
354
 
    gnutls_perror (ret);
355
 
    retval = -1;
356
 
    goto exit;
357
 
  }
358
 
 
359
 
  //retrive password
360
 
  while(true){
361
 
    if (buffer_length + BUFFER_SIZE > buffer_capacity){
362
 
      buffer = realloc(buffer, buffer_capacity + BUFFER_SIZE);
363
 
      if (buffer == NULL){
364
 
        perror("realloc");
365
 
        goto exit;
366
 
      }
367
 
      buffer_capacity += BUFFER_SIZE;
368
 
    }
369
 
    
370
 
    ret = gnutls_record_recv
371
 
      (es.session, buffer+buffer_length, BUFFER_SIZE);
372
 
    if (ret == 0){
 
1145
    int e = errno;
 
1146
    fprintf_plus(stderr, "Bad address: %s\n", ip);
 
1147
    errno = e;
 
1148
    goto mandos_end;
 
1149
  }
 
1150
  if(af == AF_INET6){
 
1151
    ((struct sockaddr_in6 *)&to)->sin6_port = htons(port);
 
1152
    if(IN6_IS_ADDR_LINKLOCAL
 
1153
       (&((struct sockaddr_in6 *)&to)->sin6_addr)){
 
1154
      if(if_index == AVAHI_IF_UNSPEC){
 
1155
        fprintf_plus(stderr, "An IPv6 link-local address is"
 
1156
                     " incomplete without a network interface\n");
 
1157
        errno = EINVAL;
 
1158
        goto mandos_end;
 
1159
      }
 
1160
      /* Set the network interface number as scope */
 
1161
      ((struct sockaddr_in6 *)&to)->sin6_scope_id = (uint32_t)if_index;
 
1162
    }
 
1163
  } else {
 
1164
    ((struct sockaddr_in *)&to)->sin_port = htons(port);
 
1165
  }
 
1166
  
 
1167
  if(quit_now){
 
1168
    errno = EINTR;
 
1169
    goto mandos_end;
 
1170
  }
 
1171
  
 
1172
  if(debug){
 
1173
    if(af == AF_INET6 and if_index != AVAHI_IF_UNSPEC){
 
1174
      char interface[IF_NAMESIZE];
 
1175
      if(if_indextoname((unsigned int)if_index, interface) == NULL){
 
1176
        perror_plus("if_indextoname");
 
1177
      } else {
 
1178
        fprintf_plus(stderr, "Connection to: %s%%%s, port %" PRIuMAX
 
1179
                     "\n", ip, interface, (uintmax_t)port);
 
1180
      }
 
1181
    } else {
 
1182
      fprintf_plus(stderr, "Connection to: %s, port %" PRIuMAX "\n",
 
1183
                   ip, (uintmax_t)port);
 
1184
    }
 
1185
    char addrstr[(INET_ADDRSTRLEN > INET6_ADDRSTRLEN) ?
 
1186
                 INET_ADDRSTRLEN : INET6_ADDRSTRLEN] = "";
 
1187
    if(af == AF_INET6){
 
1188
      ret = getnameinfo((struct sockaddr *)&to,
 
1189
                        sizeof(struct sockaddr_in6),
 
1190
                        addrstr, sizeof(addrstr), NULL, 0,
 
1191
                        NI_NUMERICHOST);
 
1192
    } else {
 
1193
      ret = getnameinfo((struct sockaddr *)&to,
 
1194
                        sizeof(struct sockaddr_in),
 
1195
                        addrstr, sizeof(addrstr), NULL, 0,
 
1196
                        NI_NUMERICHOST);
 
1197
    }
 
1198
    if(ret == EAI_SYSTEM){
 
1199
      perror_plus("getnameinfo");
 
1200
    } else if(ret != 0) {
 
1201
      fprintf_plus(stderr, "getnameinfo: %s", gai_strerror(ret));
 
1202
    } else if(strcmp(addrstr, ip) != 0){
 
1203
      fprintf_plus(stderr, "Canonical address form: %s\n", addrstr);
 
1204
    }
 
1205
  }
 
1206
  
 
1207
  if(quit_now){
 
1208
    errno = EINTR;
 
1209
    goto mandos_end;
 
1210
  }
 
1211
  
 
1212
  while(true){
 
1213
    if(af == AF_INET6){
 
1214
      ret = connect(tcp_sd, (struct sockaddr *)&to,
 
1215
                    sizeof(struct sockaddr_in6));
 
1216
    } else {
 
1217
      ret = connect(tcp_sd, (struct sockaddr *)&to, /* IPv4 */
 
1218
                    sizeof(struct sockaddr_in));
 
1219
    }
 
1220
    if(ret < 0){
 
1221
      if(((errno == ENETUNREACH) or (errno == EHOSTUNREACH))
 
1222
         and if_index != AVAHI_IF_UNSPEC
 
1223
         and connect_to == NULL
 
1224
         and not route_added and
 
1225
         ((af == AF_INET6 and not
 
1226
           IN6_IS_ADDR_LINKLOCAL(&(((struct sockaddr_in6 *)
 
1227
                                    &to)->sin6_addr)))
 
1228
          or (af == AF_INET and
 
1229
              /* Not a a IPv4LL address */
 
1230
              (ntohl(((struct sockaddr_in *)&to)->sin_addr.s_addr)
 
1231
               & 0xFFFF0000L) != 0xA9FE0000L))){
 
1232
        /* Work around Avahi bug - Avahi does not announce link-local
 
1233
           addresses if it has a global address, so local hosts with
 
1234
           *only* a link-local address (e.g. Mandos clients) cannot
 
1235
           connect to a Mandos server announced by Avahi on a server
 
1236
           host with a global address.  Work around this by retrying
 
1237
           with an explicit route added with the server's address.
 
1238
           
 
1239
           Avahi bug reference:
 
1240
           http://lists.freedesktop.org/archives/avahi/2010-February/001833.html
 
1241
           https://bugs.debian.org/587961
 
1242
        */
 
1243
        if(debug){
 
1244
          fprintf_plus(stderr, "Mandos server unreachable, trying"
 
1245
                       " direct route\n");
 
1246
        }
 
1247
        int e = errno;
 
1248
        route_added = add_local_route(ip, if_index);
 
1249
        if(route_added){
 
1250
          continue;
 
1251
        }
 
1252
        errno = e;
 
1253
      }
 
1254
      if(errno != ECONNREFUSED or debug){
 
1255
        int e = errno;
 
1256
        perror_plus("connect");
 
1257
        errno = e;
 
1258
      }
 
1259
      goto mandos_end;
 
1260
    }
 
1261
    
 
1262
    if(quit_now){
 
1263
      errno = EINTR;
 
1264
      goto mandos_end;
 
1265
    }
 
1266
    break;
 
1267
  }
 
1268
  
 
1269
  const char *out = mandos_protocol_version;
 
1270
  written = 0;
 
1271
  while(true){
 
1272
    size_t out_size = strlen(out);
 
1273
    ret = (int)TEMP_FAILURE_RETRY(write(tcp_sd, out + written,
 
1274
                                        out_size - written));
 
1275
    if(ret == -1){
 
1276
      int e = errno;
 
1277
      perror_plus("write");
 
1278
      errno = e;
 
1279
      goto mandos_end;
 
1280
    }
 
1281
    written += (size_t)ret;
 
1282
    if(written < out_size){
 
1283
      continue;
 
1284
    } else {
 
1285
      if(out == mandos_protocol_version){
 
1286
        written = 0;
 
1287
        out = "\r\n";
 
1288
      } else {
 
1289
        break;
 
1290
      }
 
1291
    }
 
1292
  
 
1293
    if(quit_now){
 
1294
      errno = EINTR;
 
1295
      goto mandos_end;
 
1296
    }
 
1297
  }
 
1298
  
 
1299
  if(debug){
 
1300
    fprintf_plus(stderr, "Establishing TLS session with %s\n", ip);
 
1301
  }
 
1302
  
 
1303
  if(quit_now){
 
1304
    errno = EINTR;
 
1305
    goto mandos_end;
 
1306
  }
 
1307
  
 
1308
  /* This casting via intptr_t is to eliminate warning about casting
 
1309
     an int to a pointer type.  This is exactly how the GnuTLS Guile
 
1310
     function "set-session-transport-fd!" does it. */
 
1311
  gnutls_transport_set_ptr(session,
 
1312
                           (gnutls_transport_ptr_t)(intptr_t)tcp_sd);
 
1313
  
 
1314
  if(quit_now){
 
1315
    errno = EINTR;
 
1316
    goto mandos_end;
 
1317
  }
 
1318
  
 
1319
  do {
 
1320
    ret = gnutls_handshake(session);
 
1321
    if(quit_now){
 
1322
      errno = EINTR;
 
1323
      goto mandos_end;
 
1324
    }
 
1325
  } while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
 
1326
  
 
1327
  if(ret != GNUTLS_E_SUCCESS){
 
1328
    if(debug){
 
1329
      fprintf_plus(stderr, "*** GnuTLS Handshake failed ***\n");
 
1330
      gnutls_perror(ret);
 
1331
    }
 
1332
    errno = EPROTO;
 
1333
    goto mandos_end;
 
1334
  }
 
1335
  
 
1336
  /* Read OpenPGP packet that contains the wanted password */
 
1337
  
 
1338
  if(debug){
 
1339
    fprintf_plus(stderr, "Retrieving OpenPGP encrypted password from"
 
1340
                 " %s\n", ip);
 
1341
  }
 
1342
  
 
1343
  while(true){
 
1344
    
 
1345
    if(quit_now){
 
1346
      errno = EINTR;
 
1347
      goto mandos_end;
 
1348
    }
 
1349
    
 
1350
    buffer_capacity = incbuffer(&buffer, buffer_length,
 
1351
                                buffer_capacity);
 
1352
    if(buffer_capacity == 0){
 
1353
      int e = errno;
 
1354
      perror_plus("incbuffer");
 
1355
      errno = e;
 
1356
      goto mandos_end;
 
1357
    }
 
1358
    
 
1359
    if(quit_now){
 
1360
      errno = EINTR;
 
1361
      goto mandos_end;
 
1362
    }
 
1363
    
 
1364
    sret = gnutls_record_recv(session, buffer+buffer_length,
 
1365
                              BUFFER_SIZE);
 
1366
    if(sret == 0){
373
1367
      break;
374
1368
    }
375
 
    if (ret < 0){
376
 
      switch(ret){
 
1369
    if(sret < 0){
 
1370
      switch(sret){
377
1371
      case GNUTLS_E_INTERRUPTED:
378
1372
      case GNUTLS_E_AGAIN:
379
1373
        break;
380
1374
      case GNUTLS_E_REHANDSHAKE:
381
 
        ret = gnutls_handshake (es.session);
382
 
        if (ret < 0){
383
 
          fprintf(stderr, "\n*** Handshake failed ***\n");
384
 
          gnutls_perror (ret);
385
 
          retval = -1;
386
 
          goto exit;
 
1375
        do {
 
1376
          ret = gnutls_handshake(session);
 
1377
          
 
1378
          if(quit_now){
 
1379
            errno = EINTR;
 
1380
            goto mandos_end;
 
1381
          }
 
1382
        } while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
 
1383
        if(ret < 0){
 
1384
          fprintf_plus(stderr, "*** GnuTLS Re-handshake failed "
 
1385
                       "***\n");
 
1386
          gnutls_perror(ret);
 
1387
          errno = EPROTO;
 
1388
          goto mandos_end;
387
1389
        }
388
1390
        break;
389
1391
      default:
390
 
        fprintf(stderr, "Unknown error while reading data from encrypted session with mandos server\n");
391
 
        retval = -1;
392
 
        gnutls_bye (es.session, GNUTLS_SHUT_RDWR);
393
 
        goto exit;
 
1392
        fprintf_plus(stderr, "Unknown error while reading data from"
 
1393
                     " encrypted session with Mandos server\n");
 
1394
        gnutls_bye(session, GNUTLS_SHUT_RDWR);
 
1395
        errno = EIO;
 
1396
        goto mandos_end;
394
1397
      }
395
1398
    } else {
396
 
      buffer_length += ret;
397
 
    }
398
 
  }
399
 
 
400
 
  if (buffer_length > 0){
401
 
    if ((decrypted_buffer_size = gpg_packet_decrypt(buffer, buffer_length, &decrypted_buffer, CERT_ROOT)) == 0){
 
1399
      buffer_length += (size_t) sret;
 
1400
    }
 
1401
  }
 
1402
  
 
1403
  if(debug){
 
1404
    fprintf_plus(stderr, "Closing TLS session\n");
 
1405
  }
 
1406
  
 
1407
  if(quit_now){
 
1408
    errno = EINTR;
 
1409
    goto mandos_end;
 
1410
  }
 
1411
  
 
1412
  do {
 
1413
    ret = gnutls_bye(session, GNUTLS_SHUT_RDWR);
 
1414
    if(quit_now){
 
1415
      errno = EINTR;
 
1416
      goto mandos_end;
 
1417
    }
 
1418
  } while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
 
1419
  
 
1420
  if(buffer_length > 0){
 
1421
    ssize_t decrypted_buffer_size;
 
1422
    decrypted_buffer_size = pgp_packet_decrypt(buffer, buffer_length,
 
1423
                                               &decrypted_buffer, mc);
 
1424
    if(decrypted_buffer_size >= 0){
 
1425
      
 
1426
      written = 0;
 
1427
      while(written < (size_t) decrypted_buffer_size){
 
1428
        if(quit_now){
 
1429
          errno = EINTR;
 
1430
          goto mandos_end;
 
1431
        }
 
1432
        
 
1433
        ret = (int)fwrite(decrypted_buffer + written, 1,
 
1434
                          (size_t)decrypted_buffer_size - written,
 
1435
                          stdout);
 
1436
        if(ret == 0 and ferror(stdout)){
 
1437
          int e = errno;
 
1438
          if(debug){
 
1439
            fprintf_plus(stderr, "Error writing encrypted data: %s\n",
 
1440
                         strerror(errno));
 
1441
          }
 
1442
          errno = e;
 
1443
          goto mandos_end;
 
1444
        }
 
1445
        written += (size_t)ret;
 
1446
      }
 
1447
      retval = 0;
 
1448
    }
 
1449
  }
 
1450
  
 
1451
  /* Shutdown procedure */
 
1452
  
 
1453
 mandos_end:
 
1454
  {
 
1455
    if(route_added){
 
1456
      if(not delete_local_route(ip, if_index)){
 
1457
        fprintf_plus(stderr, "Failed to delete local route to %s on"
 
1458
                     " interface %d", ip, if_index);
 
1459
      }
 
1460
    }
 
1461
    int e = errno;
 
1462
    free(decrypted_buffer);
 
1463
    free(buffer);
 
1464
    if(tcp_sd >= 0){
 
1465
      ret = close(tcp_sd);
 
1466
    }
 
1467
    if(ret == -1){
 
1468
      if(e == 0){
 
1469
        e = errno;
 
1470
      }
 
1471
      perror_plus("close");
 
1472
    }
 
1473
    gnutls_deinit(session);
 
1474
    errno = e;
 
1475
    if(quit_now){
 
1476
      errno = EINTR;
402
1477
      retval = -1;
403
 
    } else {
404
 
      fwrite (decrypted_buffer, 1, decrypted_buffer_size, stdout);
405
 
      free(decrypted_buffer);
406
1478
    }
407
1479
  }
408
 
 
409
 
  free(buffer);
410
 
 
411
 
  //shutdown procedure
412
 
  gnutls_bye (es.session, GNUTLS_SHUT_RDWR);
413
 
 exit:
414
 
  close(tcp_sd);
415
 
  gnutls_deinit (es.session);
416
 
  gnutls_certificate_free_credentials (es.cred);
417
 
  gnutls_global_deinit ();
418
1480
  return retval;
419
1481
}
420
1482
 
421
 
static AvahiSimplePoll *simple_poll = NULL;
422
 
static AvahiServer *server = NULL;
423
 
 
424
 
static void resolve_callback(
425
 
    AvahiSServiceResolver *r,
426
 
    AVAHI_GCC_UNUSED AvahiIfIndex interface,
427
 
    AVAHI_GCC_UNUSED AvahiProtocol protocol,
428
 
    AvahiResolverEvent event,
429
 
    const char *name,
430
 
    const char *type,
431
 
    const char *domain,
432
 
    const char *host_name,
433
 
    const AvahiAddress *address,
434
 
    uint16_t port,
435
 
    AvahiStringList *txt,
436
 
    AvahiLookupResultFlags flags,
437
 
    AVAHI_GCC_UNUSED void* userdata) {
438
 
    
439
 
    assert(r);
440
 
 
441
 
    /* Called whenever a service has been resolved successfully or timed out */
442
 
 
443
 
    switch (event) {
444
 
        case AVAHI_RESOLVER_FAILURE:
445
 
            fprintf(stderr, "(Resolver) Failed to resolve service '%s' of type '%s' in domain '%s': %s\n", name, type, domain, avahi_strerror(avahi_server_errno(server)));
446
 
            break;
447
 
 
448
 
        case AVAHI_RESOLVER_FOUND: {
449
 
          char ip[AVAHI_ADDRESS_STR_MAX];
450
 
            avahi_address_snprint(ip, sizeof(ip), address);
451
 
            int ret = start_mandos_communcation(ip, port);
452
 
            if (ret == 0){
453
 
              exit(EXIT_SUCCESS);
454
 
            } else {
455
 
              exit(EXIT_FAILURE);
456
 
            }
457
 
        }
458
 
    }
 
1483
__attribute__((nonnull))
 
1484
static void resolve_callback(AvahiSServiceResolver *r,
 
1485
                             AvahiIfIndex interface,
 
1486
                             AvahiProtocol proto,
 
1487
                             AvahiResolverEvent event,
 
1488
                             const char *name,
 
1489
                             const char *type,
 
1490
                             const char *domain,
 
1491
                             const char *host_name,
 
1492
                             const AvahiAddress *address,
 
1493
                             uint16_t port,
 
1494
                             AVAHI_GCC_UNUSED AvahiStringList *txt,
 
1495
                             AVAHI_GCC_UNUSED AvahiLookupResultFlags
 
1496
                             flags,
 
1497
                             void *mc){
 
1498
  if(r == NULL){
 
1499
    return;
 
1500
  }
 
1501
  
 
1502
  /* Called whenever a service has been resolved successfully or
 
1503
     timed out */
 
1504
  
 
1505
  if(quit_now){
459
1506
    avahi_s_service_resolver_free(r);
460
 
}
461
 
 
462
 
static void browse_callback(
463
 
    AvahiSServiceBrowser *b,
464
 
    AvahiIfIndex interface,
465
 
    AvahiProtocol protocol,
466
 
    AvahiBrowserEvent event,
467
 
    const char *name,
468
 
    const char *type,
469
 
    const char *domain,
470
 
    AVAHI_GCC_UNUSED AvahiLookupResultFlags flags,
471
 
    void* userdata) {
472
 
    
473
 
    AvahiServer *s = userdata;
474
 
    assert(b);
475
 
 
476
 
    /* Called whenever a new services becomes available on the LAN or is removed from the LAN */
477
 
 
478
 
    switch (event) {
479
 
 
480
 
        case AVAHI_BROWSER_FAILURE:
481
 
            
482
 
            fprintf(stderr, "(Browser) %s\n", avahi_strerror(avahi_server_errno(server)));
483
 
            avahi_simple_poll_quit(simple_poll);
484
 
            return;
485
 
 
486
 
        case AVAHI_BROWSER_NEW:
487
 
            /* We ignore the returned resolver object. In the callback
488
 
               function we free it. If the server is terminated before
489
 
               the callback function is called the server will free
490
 
               the resolver for us. */
491
 
            
492
 
            if (!(avahi_s_service_resolver_new(s, interface, protocol, name, type, domain, AVAHI_PROTO_INET6, 0, resolve_callback, s)))
493
 
                fprintf(stderr, "Failed to resolve service '%s': %s\n", name, avahi_strerror(avahi_server_errno(s)));
494
 
            
495
 
            break;
496
 
 
497
 
        case AVAHI_BROWSER_REMOVE:
498
 
            break;
499
 
 
500
 
        case AVAHI_BROWSER_ALL_FOR_NOW:
501
 
        case AVAHI_BROWSER_CACHE_EXHAUSTED:
502
 
            break;
503
 
    }
504
 
}
505
 
 
506
 
int main(AVAHI_GCC_UNUSED int argc, AVAHI_GCC_UNUSED char*argv[]) {
 
1507
    return;
 
1508
  }
 
1509
  
 
1510
  switch(event){
 
1511
  default:
 
1512
  case AVAHI_RESOLVER_FAILURE:
 
1513
    fprintf_plus(stderr, "(Avahi Resolver) Failed to resolve service "
 
1514
                 "'%s' of type '%s' in domain '%s': %s\n", name, type,
 
1515
                 domain,
 
1516
                 avahi_strerror(avahi_server_errno
 
1517
                                (((mandos_context*)mc)->server)));
 
1518
    break;
 
1519
    
 
1520
  case AVAHI_RESOLVER_FOUND:
 
1521
    {
 
1522
      char ip[AVAHI_ADDRESS_STR_MAX];
 
1523
      avahi_address_snprint(ip, sizeof(ip), address);
 
1524
      if(debug){
 
1525
        fprintf_plus(stderr, "Mandos server \"%s\" found on %s (%s, %"
 
1526
                     PRIdMAX ") on port %" PRIu16 "\n", name,
 
1527
                     host_name, ip, (intmax_t)interface, port);
 
1528
      }
 
1529
      int ret = start_mandos_communication(ip, (in_port_t)port,
 
1530
                                           interface,
 
1531
                                           avahi_proto_to_af(proto),
 
1532
                                           mc);
 
1533
      if(ret == 0){
 
1534
        avahi_simple_poll_quit(simple_poll);
 
1535
      } else {
 
1536
        if(not add_server(ip, (in_port_t)port, interface,
 
1537
                          avahi_proto_to_af(proto),
 
1538
                          &((mandos_context*)mc)->current_server)){
 
1539
          fprintf_plus(stderr, "Failed to add server \"%s\" to server"
 
1540
                       " list\n", name);
 
1541
        }
 
1542
      }
 
1543
    }
 
1544
  }
 
1545
  avahi_s_service_resolver_free(r);
 
1546
}
 
1547
 
 
1548
static void browse_callback(AvahiSServiceBrowser *b,
 
1549
                            AvahiIfIndex interface,
 
1550
                            AvahiProtocol protocol,
 
1551
                            AvahiBrowserEvent event,
 
1552
                            const char *name,
 
1553
                            const char *type,
 
1554
                            const char *domain,
 
1555
                            AVAHI_GCC_UNUSED AvahiLookupResultFlags
 
1556
                            flags,
 
1557
                            void *mc){
 
1558
  if(b == NULL){
 
1559
    return;
 
1560
  }
 
1561
  
 
1562
  /* Called whenever a new services becomes available on the LAN or
 
1563
     is removed from the LAN */
 
1564
  
 
1565
  if(quit_now){
 
1566
    return;
 
1567
  }
 
1568
  
 
1569
  switch(event){
 
1570
  default:
 
1571
  case AVAHI_BROWSER_FAILURE:
 
1572
    
 
1573
    fprintf_plus(stderr, "(Avahi browser) %s\n",
 
1574
                 avahi_strerror(avahi_server_errno
 
1575
                                (((mandos_context*)mc)->server)));
 
1576
    avahi_simple_poll_quit(simple_poll);
 
1577
    return;
 
1578
    
 
1579
  case AVAHI_BROWSER_NEW:
 
1580
    /* We ignore the returned Avahi resolver object. In the callback
 
1581
       function we free it. If the Avahi server is terminated before
 
1582
       the callback function is called the Avahi server will free the
 
1583
       resolver for us. */
 
1584
    
 
1585
    if(avahi_s_service_resolver_new(((mandos_context*)mc)->server,
 
1586
                                    interface, protocol, name, type,
 
1587
                                    domain, protocol, 0,
 
1588
                                    resolve_callback, mc) == NULL)
 
1589
      fprintf_plus(stderr, "Avahi: Failed to resolve service '%s':"
 
1590
                   " %s\n", name,
 
1591
                   avahi_strerror(avahi_server_errno
 
1592
                                  (((mandos_context*)mc)->server)));
 
1593
    break;
 
1594
    
 
1595
  case AVAHI_BROWSER_REMOVE:
 
1596
    break;
 
1597
    
 
1598
  case AVAHI_BROWSER_ALL_FOR_NOW:
 
1599
  case AVAHI_BROWSER_CACHE_EXHAUSTED:
 
1600
    if(debug){
 
1601
      fprintf_plus(stderr, "No Mandos server found, still"
 
1602
                   " searching...\n");
 
1603
    }
 
1604
    break;
 
1605
  }
 
1606
}
 
1607
 
 
1608
/* Signal handler that stops main loop after SIGTERM */
 
1609
static void handle_sigterm(int sig){
 
1610
  if(quit_now){
 
1611
    return;
 
1612
  }
 
1613
  quit_now = 1;
 
1614
  signal_received = sig;
 
1615
  int old_errno = errno;
 
1616
  /* set main loop to exit */
 
1617
  if(simple_poll != NULL){
 
1618
    avahi_simple_poll_quit(simple_poll);
 
1619
  }
 
1620
  errno = old_errno;
 
1621
}
 
1622
 
 
1623
__attribute__((nonnull, warn_unused_result))
 
1624
bool get_flags(const char *ifname, struct ifreq *ifr){
 
1625
  int ret;
 
1626
  error_t ret_errno;
 
1627
  
 
1628
  int s = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
 
1629
  if(s < 0){
 
1630
    ret_errno = errno;
 
1631
    perror_plus("socket");
 
1632
    errno = ret_errno;
 
1633
    return false;
 
1634
  }
 
1635
  strncpy(ifr->ifr_name, ifname, IF_NAMESIZE);
 
1636
  ifr->ifr_name[IF_NAMESIZE-1] = '\0'; /* NUL terminate */
 
1637
  ret = ioctl(s, SIOCGIFFLAGS, ifr);
 
1638
  if(ret == -1){
 
1639
    if(debug){
 
1640
      ret_errno = errno;
 
1641
      perror_plus("ioctl SIOCGIFFLAGS");
 
1642
      errno = ret_errno;
 
1643
    }
 
1644
    return false;
 
1645
  }
 
1646
  return true;
 
1647
}
 
1648
 
 
1649
__attribute__((nonnull, warn_unused_result))
 
1650
bool good_flags(const char *ifname, const struct ifreq *ifr){
 
1651
  
 
1652
  /* Reject the loopback device */
 
1653
  if(ifr->ifr_flags & IFF_LOOPBACK){
 
1654
    if(debug){
 
1655
      fprintf_plus(stderr, "Rejecting loopback interface \"%s\"\n",
 
1656
                   ifname);
 
1657
    }
 
1658
    return false;
 
1659
  }
 
1660
  /* Accept point-to-point devices only if connect_to is specified */
 
1661
  if(connect_to != NULL and (ifr->ifr_flags & IFF_POINTOPOINT)){
 
1662
    if(debug){
 
1663
      fprintf_plus(stderr, "Accepting point-to-point interface"
 
1664
                   " \"%s\"\n", ifname);
 
1665
    }
 
1666
    return true;
 
1667
  }
 
1668
  /* Otherwise, reject non-broadcast-capable devices */
 
1669
  if(not (ifr->ifr_flags & IFF_BROADCAST)){
 
1670
    if(debug){
 
1671
      fprintf_plus(stderr, "Rejecting non-broadcast interface"
 
1672
                   " \"%s\"\n", ifname);
 
1673
    }
 
1674
    return false;
 
1675
  }
 
1676
  /* Reject non-ARP interfaces (including dummy interfaces) */
 
1677
  if(ifr->ifr_flags & IFF_NOARP){
 
1678
    if(debug){
 
1679
      fprintf_plus(stderr, "Rejecting non-ARP interface \"%s\"\n",
 
1680
                   ifname);
 
1681
    }
 
1682
    return false;
 
1683
  }
 
1684
  
 
1685
  /* Accept this device */
 
1686
  if(debug){
 
1687
    fprintf_plus(stderr, "Interface \"%s\" is good\n", ifname);
 
1688
  }
 
1689
  return true;
 
1690
}
 
1691
 
 
1692
/* 
 
1693
 * This function determines if a directory entry in /sys/class/net
 
1694
 * corresponds to an acceptable network device.
 
1695
 * (This function is passed to scandir(3) as a filter function.)
 
1696
 */
 
1697
__attribute__((nonnull, warn_unused_result))
 
1698
int good_interface(const struct dirent *if_entry){
 
1699
  if(if_entry->d_name[0] == '.'){
 
1700
    return 0;
 
1701
  }
 
1702
  
 
1703
  struct ifreq ifr;
 
1704
  if(not get_flags(if_entry->d_name, &ifr)){
 
1705
    if(debug){
 
1706
      fprintf_plus(stderr, "Failed to get flags for interface "
 
1707
                   "\"%s\"\n", if_entry->d_name);
 
1708
    }
 
1709
    return 0;
 
1710
  }
 
1711
  
 
1712
  if(not good_flags(if_entry->d_name, &ifr)){
 
1713
    return 0;
 
1714
  }
 
1715
  return 1;
 
1716
}
 
1717
 
 
1718
/* 
 
1719
 * This function determines if a network interface is up.
 
1720
 */
 
1721
__attribute__((nonnull, warn_unused_result))
 
1722
bool interface_is_up(const char *interface){
 
1723
  struct ifreq ifr;
 
1724
  if(not get_flags(interface, &ifr)){
 
1725
    if(debug){
 
1726
      fprintf_plus(stderr, "Failed to get flags for interface "
 
1727
                   "\"%s\"\n", interface);
 
1728
    }
 
1729
    return false;
 
1730
  }
 
1731
  
 
1732
  return (bool)(ifr.ifr_flags & IFF_UP);
 
1733
}
 
1734
 
 
1735
/* 
 
1736
 * This function determines if a network interface is running
 
1737
 */
 
1738
__attribute__((nonnull, warn_unused_result))
 
1739
bool interface_is_running(const char *interface){
 
1740
  struct ifreq ifr;
 
1741
  if(not get_flags(interface, &ifr)){
 
1742
    if(debug){
 
1743
      fprintf_plus(stderr, "Failed to get flags for interface "
 
1744
                   "\"%s\"\n", interface);
 
1745
    }
 
1746
    return false;
 
1747
  }
 
1748
  
 
1749
  return (bool)(ifr.ifr_flags & IFF_RUNNING);
 
1750
}
 
1751
 
 
1752
__attribute__((nonnull, pure, warn_unused_result))
 
1753
int notdotentries(const struct dirent *direntry){
 
1754
  /* Skip "." and ".." */
 
1755
  if(direntry->d_name[0] == '.'
 
1756
     and (direntry->d_name[1] == '\0'
 
1757
          or (direntry->d_name[1] == '.'
 
1758
              and direntry->d_name[2] == '\0'))){
 
1759
    return 0;
 
1760
  }
 
1761
  return 1;
 
1762
}
 
1763
 
 
1764
/* Is this directory entry a runnable program? */
 
1765
__attribute__((nonnull, warn_unused_result))
 
1766
int runnable_hook(const struct dirent *direntry){
 
1767
  int ret;
 
1768
  size_t sret;
 
1769
  struct stat st;
 
1770
  
 
1771
  if((direntry->d_name)[0] == '\0'){
 
1772
    /* Empty name? */
 
1773
    return 0;
 
1774
  }
 
1775
  
 
1776
  sret = strspn(direntry->d_name, "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 
1777
                "abcdefghijklmnopqrstuvwxyz"
 
1778
                "0123456789"
 
1779
                "_.-");
 
1780
  if((direntry->d_name)[sret] != '\0'){
 
1781
    /* Contains non-allowed characters */
 
1782
    if(debug){
 
1783
      fprintf_plus(stderr, "Ignoring hook \"%s\" with bad name\n",
 
1784
                   direntry->d_name);
 
1785
    }
 
1786
    return 0;
 
1787
  }
 
1788
  
 
1789
  ret = fstatat(hookdir_fd, direntry->d_name, &st, 0);
 
1790
  if(ret == -1){
 
1791
    if(debug){
 
1792
      perror_plus("Could not stat hook");
 
1793
    }
 
1794
    return 0;
 
1795
  }
 
1796
  if(not (S_ISREG(st.st_mode))){
 
1797
    /* Not a regular file */
 
1798
    if(debug){
 
1799
      fprintf_plus(stderr, "Ignoring hook \"%s\" - not a file\n",
 
1800
                   direntry->d_name);
 
1801
    }
 
1802
    return 0;
 
1803
  }
 
1804
  if(not (st.st_mode & (S_IXUSR | S_IXGRP | S_IXOTH))){
 
1805
    /* Not executable */
 
1806
    if(debug){
 
1807
      fprintf_plus(stderr, "Ignoring hook \"%s\" - not executable\n",
 
1808
                   direntry->d_name);
 
1809
    }
 
1810
    return 0;
 
1811
  }
 
1812
  if(debug){
 
1813
    fprintf_plus(stderr, "Hook \"%s\" is acceptable\n",
 
1814
                 direntry->d_name);
 
1815
  }
 
1816
  return 1;
 
1817
}
 
1818
 
 
1819
__attribute__((nonnull, warn_unused_result))
 
1820
int avahi_loop_with_timeout(AvahiSimplePoll *s, int retry_interval,
 
1821
                            mandos_context *mc){
 
1822
  int ret;
 
1823
  struct timespec now;
 
1824
  struct timespec waited_time;
 
1825
  intmax_t block_time;
 
1826
  
 
1827
  while(true){
 
1828
    if(mc->current_server == NULL){
 
1829
      if(debug){
 
1830
        fprintf_plus(stderr, "Wait until first server is found."
 
1831
                     " No timeout!\n");
 
1832
      }
 
1833
      ret = avahi_simple_poll_iterate(s, -1);
 
1834
    } else {
 
1835
      if(debug){
 
1836
        fprintf_plus(stderr, "Check current_server if we should run"
 
1837
                     " it, or wait\n");
 
1838
      }
 
1839
      /* the current time */
 
1840
      ret = clock_gettime(CLOCK_MONOTONIC, &now);
 
1841
      if(ret == -1){
 
1842
        perror_plus("clock_gettime");
 
1843
        return -1;
 
1844
      }
 
1845
      /* Calculating in ms how long time between now and server
 
1846
         who we visted longest time ago. Now - last seen.  */
 
1847
      waited_time.tv_sec = (now.tv_sec
 
1848
                            - mc->current_server->last_seen.tv_sec);
 
1849
      waited_time.tv_nsec = (now.tv_nsec
 
1850
                             - mc->current_server->last_seen.tv_nsec);
 
1851
      /* total time is 10s/10,000ms.
 
1852
         Converting to s from ms by dividing by 1,000,
 
1853
         and ns to ms by dividing by 1,000,000. */
 
1854
      block_time = ((retry_interval
 
1855
                     - ((intmax_t)waited_time.tv_sec * 1000))
 
1856
                    - ((intmax_t)waited_time.tv_nsec / 1000000));
 
1857
      
 
1858
      if(debug){
 
1859
        fprintf_plus(stderr, "Blocking for %" PRIdMAX " ms\n",
 
1860
                     block_time);
 
1861
      }
 
1862
      
 
1863
      if(block_time <= 0){
 
1864
        ret = start_mandos_communication(mc->current_server->ip,
 
1865
                                         mc->current_server->port,
 
1866
                                         mc->current_server->if_index,
 
1867
                                         mc->current_server->af, mc);
 
1868
        if(ret == 0){
 
1869
          avahi_simple_poll_quit(s);
 
1870
          return 0;
 
1871
        }
 
1872
        ret = clock_gettime(CLOCK_MONOTONIC,
 
1873
                            &mc->current_server->last_seen);
 
1874
        if(ret == -1){
 
1875
          perror_plus("clock_gettime");
 
1876
          return -1;
 
1877
        }
 
1878
        mc->current_server = mc->current_server->next;
 
1879
        block_time = 0;         /* Call avahi to find new Mandos
 
1880
                                   servers, but don't block */
 
1881
      }
 
1882
      
 
1883
      ret = avahi_simple_poll_iterate(s, (int)block_time);
 
1884
    }
 
1885
    if(ret != 0){
 
1886
      if(ret > 0 or errno != EINTR){
 
1887
        return (ret != 1) ? ret : 0;
 
1888
      }
 
1889
    }
 
1890
  }
 
1891
}
 
1892
 
 
1893
__attribute__((nonnull))
 
1894
void run_network_hooks(const char *mode, const char *interface,
 
1895
                       const float delay){
 
1896
  struct dirent **direntries = NULL;
 
1897
  if(hookdir_fd == -1){
 
1898
    hookdir_fd = open(hookdir, O_RDONLY | O_DIRECTORY | O_PATH
 
1899
                      | O_CLOEXEC);
 
1900
    if(hookdir_fd == -1){
 
1901
      if(errno == ENOENT){
 
1902
        if(debug){
 
1903
          fprintf_plus(stderr, "Network hook directory \"%s\" not"
 
1904
                       " found\n", hookdir);
 
1905
        }
 
1906
      } else {
 
1907
        perror_plus("open");
 
1908
      }
 
1909
      return;
 
1910
    }
 
1911
  }
 
1912
  int numhooks = scandirat(hookdir_fd, ".", &direntries,
 
1913
                           runnable_hook, alphasort);
 
1914
  if(numhooks == -1){
 
1915
    perror_plus("scandir");
 
1916
    return;
 
1917
  }
 
1918
  struct dirent *direntry;
 
1919
  int ret;
 
1920
  int devnull = (int)TEMP_FAILURE_RETRY(open("/dev/null", O_RDONLY));
 
1921
  if(devnull == -1){
 
1922
    perror_plus("open(\"/dev/null\", O_RDONLY)");
 
1923
    return;
 
1924
  }
 
1925
  for(int i = 0; i < numhooks; i++){
 
1926
    direntry = direntries[i];
 
1927
    if(debug){
 
1928
      fprintf_plus(stderr, "Running network hook \"%s\"\n",
 
1929
                   direntry->d_name);
 
1930
    }
 
1931
    pid_t hook_pid = fork();
 
1932
    if(hook_pid == 0){
 
1933
      /* Child */
 
1934
      /* Raise privileges */
 
1935
      errno = raise_privileges_permanently();
 
1936
      if(errno != 0){
 
1937
        perror_plus("Failed to raise privileges");
 
1938
        _exit(EX_NOPERM);
 
1939
      }
 
1940
      /* Set group */
 
1941
      errno = 0;
 
1942
      ret = setgid(0);
 
1943
      if(ret == -1){
 
1944
        perror_plus("setgid");
 
1945
        _exit(EX_NOPERM);
 
1946
      }
 
1947
      /* Reset supplementary groups */
 
1948
      errno = 0;
 
1949
      ret = setgroups(0, NULL);
 
1950
      if(ret == -1){
 
1951
        perror_plus("setgroups");
 
1952
        _exit(EX_NOPERM);
 
1953
      }
 
1954
      ret = setenv("MANDOSNETHOOKDIR", hookdir, 1);
 
1955
      if(ret == -1){
 
1956
        perror_plus("setenv");
 
1957
        _exit(EX_OSERR);
 
1958
      }
 
1959
      ret = setenv("DEVICE", interface, 1);
 
1960
      if(ret == -1){
 
1961
        perror_plus("setenv");
 
1962
        _exit(EX_OSERR);
 
1963
      }
 
1964
      ret = setenv("VERBOSITY", debug ? "1" : "0", 1);
 
1965
      if(ret == -1){
 
1966
        perror_plus("setenv");
 
1967
        _exit(EX_OSERR);
 
1968
      }
 
1969
      ret = setenv("MODE", mode, 1);
 
1970
      if(ret == -1){
 
1971
        perror_plus("setenv");
 
1972
        _exit(EX_OSERR);
 
1973
      }
 
1974
      char *delaystring;
 
1975
      ret = asprintf(&delaystring, "%f", (double)delay);
 
1976
      if(ret == -1){
 
1977
        perror_plus("asprintf");
 
1978
        _exit(EX_OSERR);
 
1979
      }
 
1980
      ret = setenv("DELAY", delaystring, 1);
 
1981
      if(ret == -1){
 
1982
        free(delaystring);
 
1983
        perror_plus("setenv");
 
1984
        _exit(EX_OSERR);
 
1985
      }
 
1986
      free(delaystring);
 
1987
      if(connect_to != NULL){
 
1988
        ret = setenv("CONNECT", connect_to, 1);
 
1989
        if(ret == -1){
 
1990
          perror_plus("setenv");
 
1991
          _exit(EX_OSERR);
 
1992
        }
 
1993
      }
 
1994
      int hook_fd = (int)TEMP_FAILURE_RETRY(openat(hookdir_fd,
 
1995
                                                   direntry->d_name,
 
1996
                                                   O_RDONLY));
 
1997
      if(hook_fd == -1){
 
1998
        perror_plus("openat");
 
1999
        _exit(EXIT_FAILURE);
 
2000
      }
 
2001
      if(close(hookdir_fd) == -1){
 
2002
        perror_plus("close");
 
2003
        _exit(EXIT_FAILURE);
 
2004
      }
 
2005
      ret = dup2(devnull, STDIN_FILENO);
 
2006
      if(ret == -1){
 
2007
        perror_plus("dup2(devnull, STDIN_FILENO)");
 
2008
        _exit(EX_OSERR);
 
2009
      }
 
2010
      ret = close(devnull);
 
2011
      if(ret == -1){
 
2012
        perror_plus("close");
 
2013
        _exit(EX_OSERR);
 
2014
      }
 
2015
      ret = dup2(STDERR_FILENO, STDOUT_FILENO);
 
2016
      if(ret == -1){
 
2017
        perror_plus("dup2(STDERR_FILENO, STDOUT_FILENO)");
 
2018
        _exit(EX_OSERR);
 
2019
      }
 
2020
      if(fexecve(hook_fd, (char *const []){ direntry->d_name, NULL },
 
2021
                 environ) == -1){
 
2022
        perror_plus("fexecve");
 
2023
        _exit(EXIT_FAILURE);
 
2024
      }
 
2025
    } else {
 
2026
      if(hook_pid == -1){
 
2027
        perror_plus("fork");
 
2028
        free(direntry);
 
2029
        continue;
 
2030
      }
 
2031
      int status;
 
2032
      if(TEMP_FAILURE_RETRY(waitpid(hook_pid, &status, 0)) == -1){
 
2033
        perror_plus("waitpid");
 
2034
        free(direntry);
 
2035
        continue;
 
2036
      }
 
2037
      if(WIFEXITED(status)){
 
2038
        if(WEXITSTATUS(status) != 0){
 
2039
          fprintf_plus(stderr, "Warning: network hook \"%s\" exited"
 
2040
                       " with status %d\n", direntry->d_name,
 
2041
                       WEXITSTATUS(status));
 
2042
          free(direntry);
 
2043
          continue;
 
2044
        }
 
2045
      } else if(WIFSIGNALED(status)){
 
2046
        fprintf_plus(stderr, "Warning: network hook \"%s\" died by"
 
2047
                     " signal %d\n", direntry->d_name,
 
2048
                     WTERMSIG(status));
 
2049
        free(direntry);
 
2050
        continue;
 
2051
      } else {
 
2052
        fprintf_plus(stderr, "Warning: network hook \"%s\""
 
2053
                     " crashed\n", direntry->d_name);
 
2054
        free(direntry);
 
2055
        continue;
 
2056
      }
 
2057
    }
 
2058
    if(debug){
 
2059
      fprintf_plus(stderr, "Network hook \"%s\" ran successfully\n",
 
2060
                   direntry->d_name);
 
2061
    }
 
2062
    free(direntry);
 
2063
  }
 
2064
  free(direntries);
 
2065
  if(close(hookdir_fd) == -1){
 
2066
    perror_plus("close");
 
2067
  } else {
 
2068
    hookdir_fd = -1;
 
2069
  }
 
2070
  close(devnull);
 
2071
}
 
2072
 
 
2073
__attribute__((nonnull, warn_unused_result))
 
2074
error_t bring_up_interface(const char *const interface,
 
2075
                           const float delay){
 
2076
  error_t old_errno = errno;
 
2077
  int ret;
 
2078
  struct ifreq network;
 
2079
  unsigned int if_index = if_nametoindex(interface);
 
2080
  if(if_index == 0){
 
2081
    fprintf_plus(stderr, "No such interface: \"%s\"\n", interface);
 
2082
    errno = old_errno;
 
2083
    return ENXIO;
 
2084
  }
 
2085
  
 
2086
  if(quit_now){
 
2087
    errno = old_errno;
 
2088
    return EINTR;
 
2089
  }
 
2090
  
 
2091
  if(not interface_is_up(interface)){
 
2092
    error_t ret_errno = 0, ioctl_errno = 0;
 
2093
    if(not get_flags(interface, &network)){
 
2094
      ret_errno = errno;
 
2095
      fprintf_plus(stderr, "Failed to get flags for interface "
 
2096
                   "\"%s\"\n", interface);
 
2097
      errno = old_errno;
 
2098
      return ret_errno;
 
2099
    }
 
2100
    network.ifr_flags |= IFF_UP; /* set flag */
 
2101
    
 
2102
    int sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
 
2103
    if(sd == -1){
 
2104
      ret_errno = errno;
 
2105
      perror_plus("socket");
 
2106
      errno = old_errno;
 
2107
      return ret_errno;
 
2108
    }
 
2109
    
 
2110
    if(quit_now){
 
2111
      ret = close(sd);
 
2112
      if(ret == -1){
 
2113
        perror_plus("close");
 
2114
      }
 
2115
      errno = old_errno;
 
2116
      return EINTR;
 
2117
    }
 
2118
    
 
2119
    if(debug){
 
2120
      fprintf_plus(stderr, "Bringing up interface \"%s\"\n",
 
2121
                   interface);
 
2122
    }
 
2123
    
 
2124
    /* Raise privileges */
 
2125
    ret_errno = raise_privileges();
 
2126
    if(ret_errno != 0){
 
2127
      errno = ret_errno;
 
2128
      perror_plus("Failed to raise privileges");
 
2129
    }
 
2130
    
 
2131
#ifdef __linux__
 
2132
    int ret_linux;
 
2133
    bool restore_loglevel = false;
 
2134
    if(ret_errno == 0){
 
2135
      /* Lower kernel loglevel to KERN_NOTICE to avoid KERN_INFO
 
2136
         messages about the network interface to mess up the prompt */
 
2137
      ret_linux = klogctl(8, NULL, 5);
 
2138
      if(ret_linux == -1){
 
2139
        perror_plus("klogctl");
 
2140
      } else {
 
2141
        restore_loglevel = true;
 
2142
      }
 
2143
    }
 
2144
#endif  /* __linux__ */
 
2145
    int ret_setflags = ioctl(sd, SIOCSIFFLAGS, &network);
 
2146
    ioctl_errno = errno;
 
2147
#ifdef __linux__
 
2148
    if(restore_loglevel){
 
2149
      ret_linux = klogctl(7, NULL, 0);
 
2150
      if(ret_linux == -1){
 
2151
        perror_plus("klogctl");
 
2152
      }
 
2153
    }
 
2154
#endif  /* __linux__ */
 
2155
    
 
2156
    /* If raise_privileges() succeeded above */
 
2157
    if(ret_errno == 0){
 
2158
      /* Lower privileges */
 
2159
      ret_errno = lower_privileges();
 
2160
      if(ret_errno != 0){
 
2161
        errno = ret_errno;
 
2162
        perror_plus("Failed to lower privileges");
 
2163
      }
 
2164
    }
 
2165
    
 
2166
    /* Close the socket */
 
2167
    ret = close(sd);
 
2168
    if(ret == -1){
 
2169
      perror_plus("close");
 
2170
    }
 
2171
    
 
2172
    if(ret_setflags == -1){
 
2173
      errno = ioctl_errno;
 
2174
      perror_plus("ioctl SIOCSIFFLAGS +IFF_UP");
 
2175
      errno = old_errno;
 
2176
      return ioctl_errno;
 
2177
    }
 
2178
  } else if(debug){
 
2179
    fprintf_plus(stderr, "Interface \"%s\" is already up; good\n",
 
2180
                 interface);
 
2181
  }
 
2182
  
 
2183
  /* Sleep checking until interface is running.
 
2184
     Check every 0.25s, up to total time of delay */
 
2185
  for(int i=0; i < delay * 4; i++){
 
2186
    if(interface_is_running(interface)){
 
2187
      break;
 
2188
    }
 
2189
    struct timespec sleeptime = { .tv_nsec = 250000000 };
 
2190
    ret = nanosleep(&sleeptime, NULL);
 
2191
    if(ret == -1 and errno != EINTR){
 
2192
      perror_plus("nanosleep");
 
2193
    }
 
2194
  }
 
2195
  
 
2196
  errno = old_errno;
 
2197
  return 0;
 
2198
}
 
2199
 
 
2200
__attribute__((nonnull, warn_unused_result))
 
2201
error_t take_down_interface(const char *const interface){
 
2202
  error_t old_errno = errno;
 
2203
  struct ifreq network;
 
2204
  unsigned int if_index = if_nametoindex(interface);
 
2205
  if(if_index == 0){
 
2206
    fprintf_plus(stderr, "No such interface: \"%s\"\n", interface);
 
2207
    errno = old_errno;
 
2208
    return ENXIO;
 
2209
  }
 
2210
  if(interface_is_up(interface)){
 
2211
    error_t ret_errno = 0, ioctl_errno = 0;
 
2212
    if(not get_flags(interface, &network) and debug){
 
2213
      ret_errno = errno;
 
2214
      fprintf_plus(stderr, "Failed to get flags for interface "
 
2215
                   "\"%s\"\n", interface);
 
2216
      errno = old_errno;
 
2217
      return ret_errno;
 
2218
    }
 
2219
    network.ifr_flags &= ~(short)IFF_UP; /* clear flag */
 
2220
    
 
2221
    int sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
 
2222
    if(sd == -1){
 
2223
      ret_errno = errno;
 
2224
      perror_plus("socket");
 
2225
      errno = old_errno;
 
2226
      return ret_errno;
 
2227
    }
 
2228
    
 
2229
    if(debug){
 
2230
      fprintf_plus(stderr, "Taking down interface \"%s\"\n",
 
2231
                   interface);
 
2232
    }
 
2233
    
 
2234
    /* Raise privileges */
 
2235
    ret_errno = raise_privileges();
 
2236
    if(ret_errno != 0){
 
2237
      errno = ret_errno;
 
2238
      perror_plus("Failed to raise privileges");
 
2239
    }
 
2240
    
 
2241
    int ret_setflags = ioctl(sd, SIOCSIFFLAGS, &network);
 
2242
    ioctl_errno = errno;
 
2243
    
 
2244
    /* If raise_privileges() succeeded above */
 
2245
    if(ret_errno == 0){
 
2246
      /* Lower privileges */
 
2247
      ret_errno = lower_privileges();
 
2248
      if(ret_errno != 0){
 
2249
        errno = ret_errno;
 
2250
        perror_plus("Failed to lower privileges");
 
2251
      }
 
2252
    }
 
2253
    
 
2254
    /* Close the socket */
 
2255
    int ret = close(sd);
 
2256
    if(ret == -1){
 
2257
      perror_plus("close");
 
2258
    }
 
2259
    
 
2260
    if(ret_setflags == -1){
 
2261
      errno = ioctl_errno;
 
2262
      perror_plus("ioctl SIOCSIFFLAGS -IFF_UP");
 
2263
      errno = old_errno;
 
2264
      return ioctl_errno;
 
2265
    }
 
2266
  } else if(debug){
 
2267
    fprintf_plus(stderr, "Interface \"%s\" is already down; odd\n",
 
2268
                 interface);
 
2269
  }
 
2270
  
 
2271
  errno = old_errno;
 
2272
  return 0;
 
2273
}
 
2274
 
 
2275
int main(int argc, char *argv[]){
 
2276
  mandos_context mc = { .server = NULL, .dh_bits = 0,
 
2277
                        .priority = "SECURE256:!CTYPE-X.509"
 
2278
                        ":+CTYPE-OPENPGP:!RSA:+SIGN-DSA-SHA256",
 
2279
                        .current_server = NULL, .interfaces = NULL,
 
2280
                        .interfaces_size = 0 };
 
2281
  AvahiSServiceBrowser *sb = NULL;
 
2282
  error_t ret_errno;
 
2283
  int ret;
 
2284
  intmax_t tmpmax;
 
2285
  char *tmp;
 
2286
  int exitcode = EXIT_SUCCESS;
 
2287
  char *interfaces_to_take_down = NULL;
 
2288
  size_t interfaces_to_take_down_size = 0;
 
2289
  char run_tempdir[] = "/run/tmp/mandosXXXXXX";
 
2290
  char old_tempdir[] = "/tmp/mandosXXXXXX";
 
2291
  char *tempdir = NULL;
 
2292
  AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
 
2293
  const char *seckey = PATHDIR "/" SECKEY;
 
2294
  const char *pubkey = PATHDIR "/" PUBKEY;
 
2295
  const char *dh_params_file = NULL;
 
2296
  char *interfaces_hooks = NULL;
 
2297
  
 
2298
  bool gnutls_initialized = false;
 
2299
  bool gpgme_initialized = false;
 
2300
  float delay = 2.5f;
 
2301
  double retry_interval = 10; /* 10s between trying a server and
 
2302
                                 retrying the same server again */
 
2303
  
 
2304
  struct sigaction old_sigterm_action = { .sa_handler = SIG_DFL };
 
2305
  struct sigaction sigterm_action = { .sa_handler = handle_sigterm };
 
2306
  
 
2307
  uid = getuid();
 
2308
  gid = getgid();
 
2309
  
 
2310
  /* Lower any group privileges we might have, just to be safe */
 
2311
  errno = 0;
 
2312
  ret = setgid(gid);
 
2313
  if(ret == -1){
 
2314
    perror_plus("setgid");
 
2315
  }
 
2316
  
 
2317
  /* Lower user privileges (temporarily) */
 
2318
  errno = 0;
 
2319
  ret = seteuid(uid);
 
2320
  if(ret == -1){
 
2321
    perror_plus("seteuid");
 
2322
  }
 
2323
  
 
2324
  if(quit_now){
 
2325
    goto end;
 
2326
  }
 
2327
  
 
2328
  {
 
2329
    struct argp_option options[] = {
 
2330
      { .name = "debug", .key = 128,
 
2331
        .doc = "Debug mode", .group = 3 },
 
2332
      { .name = "connect", .key = 'c',
 
2333
        .arg = "ADDRESS:PORT",
 
2334
        .doc = "Connect directly to a specific Mandos server",
 
2335
        .group = 1 },
 
2336
      { .name = "interface", .key = 'i',
 
2337
        .arg = "NAME",
 
2338
        .doc = "Network interface that will be used to search for"
 
2339
        " Mandos servers",
 
2340
        .group = 1 },
 
2341
      { .name = "seckey", .key = 's',
 
2342
        .arg = "FILE",
 
2343
        .doc = "OpenPGP secret key file base name",
 
2344
        .group = 1 },
 
2345
      { .name = "pubkey", .key = 'p',
 
2346
        .arg = "FILE",
 
2347
        .doc = "OpenPGP public key file base name",
 
2348
        .group = 2 },
 
2349
      { .name = "dh-bits", .key = 129,
 
2350
        .arg = "BITS",
 
2351
        .doc = "Bit length of the prime number used in the"
 
2352
        " Diffie-Hellman key exchange",
 
2353
        .group = 2 },
 
2354
      { .name = "dh-params", .key = 134,
 
2355
        .arg = "FILE",
 
2356
        .doc = "PEM-encoded PKCS#3 file with pre-generated parameters"
 
2357
        " for the Diffie-Hellman key exchange",
 
2358
        .group = 2 },
 
2359
      { .name = "priority", .key = 130,
 
2360
        .arg = "STRING",
 
2361
        .doc = "GnuTLS priority string for the TLS handshake",
 
2362
        .group = 1 },
 
2363
      { .name = "delay", .key = 131,
 
2364
        .arg = "SECONDS",
 
2365
        .doc = "Maximum delay to wait for interface startup",
 
2366
        .group = 2 },
 
2367
      { .name = "retry", .key = 132,
 
2368
        .arg = "SECONDS",
 
2369
        .doc = "Retry interval used when denied by the Mandos server",
 
2370
        .group = 2 },
 
2371
      { .name = "network-hook-dir", .key = 133,
 
2372
        .arg = "DIR",
 
2373
        .doc = "Directory where network hooks are located",
 
2374
        .group = 2 },
 
2375
      /*
 
2376
       * These reproduce what we would get without ARGP_NO_HELP
 
2377
       */
 
2378
      { .name = "help", .key = '?',
 
2379
        .doc = "Give this help list", .group = -1 },
 
2380
      { .name = "usage", .key = -3,
 
2381
        .doc = "Give a short usage message", .group = -1 },
 
2382
      { .name = "version", .key = 'V',
 
2383
        .doc = "Print program version", .group = -1 },
 
2384
      { .name = NULL }
 
2385
    };
 
2386
    
 
2387
    error_t parse_opt(int key, char *arg,
 
2388
                      struct argp_state *state){
 
2389
      errno = 0;
 
2390
      switch(key){
 
2391
      case 128:                 /* --debug */
 
2392
        debug = true;
 
2393
        break;
 
2394
      case 'c':                 /* --connect */
 
2395
        connect_to = arg;
 
2396
        break;
 
2397
      case 'i':                 /* --interface */
 
2398
        ret_errno = argz_add_sep(&mc.interfaces, &mc.interfaces_size,
 
2399
                                 arg, (int)',');
 
2400
        if(ret_errno != 0){
 
2401
          argp_error(state, "%s", strerror(ret_errno));
 
2402
        }
 
2403
        break;
 
2404
      case 's':                 /* --seckey */
 
2405
        seckey = arg;
 
2406
        break;
 
2407
      case 'p':                 /* --pubkey */
 
2408
        pubkey = arg;
 
2409
        break;
 
2410
      case 129:                 /* --dh-bits */
 
2411
        errno = 0;
 
2412
        tmpmax = strtoimax(arg, &tmp, 10);
 
2413
        if(errno != 0 or tmp == arg or *tmp != '\0'
 
2414
           or tmpmax != (typeof(mc.dh_bits))tmpmax){
 
2415
          argp_error(state, "Bad number of DH bits");
 
2416
        }
 
2417
        mc.dh_bits = (typeof(mc.dh_bits))tmpmax;
 
2418
        break;
 
2419
      case 134:                 /* --dh-params */
 
2420
        dh_params_file = arg;
 
2421
        break;
 
2422
      case 130:                 /* --priority */
 
2423
        mc.priority = arg;
 
2424
        break;
 
2425
      case 131:                 /* --delay */
 
2426
        errno = 0;
 
2427
        delay = strtof(arg, &tmp);
 
2428
        if(errno != 0 or tmp == arg or *tmp != '\0'){
 
2429
          argp_error(state, "Bad delay");
 
2430
        }
 
2431
      case 132:                 /* --retry */
 
2432
        errno = 0;
 
2433
        retry_interval = strtod(arg, &tmp);
 
2434
        if(errno != 0 or tmp == arg or *tmp != '\0'
 
2435
           or (retry_interval * 1000) > INT_MAX
 
2436
           or retry_interval < 0){
 
2437
          argp_error(state, "Bad retry interval");
 
2438
        }
 
2439
        break;
 
2440
      case 133:                 /* --network-hook-dir */
 
2441
        hookdir = arg;
 
2442
        break;
 
2443
        /*
 
2444
         * These reproduce what we would get without ARGP_NO_HELP
 
2445
         */
 
2446
      case '?':                 /* --help */
 
2447
        argp_state_help(state, state->out_stream,
 
2448
                        (ARGP_HELP_STD_HELP | ARGP_HELP_EXIT_ERR)
 
2449
                        & ~(unsigned int)ARGP_HELP_EXIT_OK);
 
2450
      case -3:                  /* --usage */
 
2451
        argp_state_help(state, state->out_stream,
 
2452
                        ARGP_HELP_USAGE | ARGP_HELP_EXIT_ERR);
 
2453
      case 'V':                 /* --version */
 
2454
        fprintf_plus(state->out_stream, "%s\n", argp_program_version);
 
2455
        exit(argp_err_exit_status);
 
2456
        break;
 
2457
      default:
 
2458
        return ARGP_ERR_UNKNOWN;
 
2459
      }
 
2460
      return errno;
 
2461
    }
 
2462
    
 
2463
    struct argp argp = { .options = options, .parser = parse_opt,
 
2464
                         .args_doc = "",
 
2465
                         .doc = "Mandos client -- Get and decrypt"
 
2466
                         " passwords from a Mandos server" };
 
2467
    ret = argp_parse(&argp, argc, argv,
 
2468
                     ARGP_IN_ORDER | ARGP_NO_HELP, 0, NULL);
 
2469
    switch(ret){
 
2470
    case 0:
 
2471
      break;
 
2472
    case ENOMEM:
 
2473
    default:
 
2474
      errno = ret;
 
2475
      perror_plus("argp_parse");
 
2476
      exitcode = EX_OSERR;
 
2477
      goto end;
 
2478
    case EINVAL:
 
2479
      exitcode = EX_USAGE;
 
2480
      goto end;
 
2481
    }
 
2482
  }
 
2483
  
 
2484
  {
 
2485
    /* Work around Debian bug #633582:
 
2486
       <http://bugs.debian.org/633582> */
 
2487
    
 
2488
    /* Re-raise privileges */
 
2489
    ret_errno = raise_privileges();
 
2490
    if(ret_errno != 0){
 
2491
      errno = ret_errno;
 
2492
      perror_plus("Failed to raise privileges");
 
2493
    } else {
 
2494
      struct stat st;
 
2495
      
 
2496
      if(strcmp(seckey, PATHDIR "/" SECKEY) == 0){
 
2497
        int seckey_fd = open(seckey, O_RDONLY);
 
2498
        if(seckey_fd == -1){
 
2499
          perror_plus("open");
 
2500
        } else {
 
2501
          ret = (int)TEMP_FAILURE_RETRY(fstat(seckey_fd, &st));
 
2502
          if(ret == -1){
 
2503
            perror_plus("fstat");
 
2504
          } else {
 
2505
            if(S_ISREG(st.st_mode)
 
2506
               and st.st_uid == 0 and st.st_gid == 0){
 
2507
              ret = fchown(seckey_fd, uid, gid);
 
2508
              if(ret == -1){
 
2509
                perror_plus("fchown");
 
2510
              }
 
2511
            }
 
2512
          }
 
2513
          close(seckey_fd);
 
2514
        }
 
2515
      }
 
2516
      
 
2517
      if(strcmp(pubkey, PATHDIR "/" PUBKEY) == 0){
 
2518
        int pubkey_fd = open(pubkey, O_RDONLY);
 
2519
        if(pubkey_fd == -1){
 
2520
          perror_plus("open");
 
2521
        } else {
 
2522
          ret = (int)TEMP_FAILURE_RETRY(fstat(pubkey_fd, &st));
 
2523
          if(ret == -1){
 
2524
            perror_plus("fstat");
 
2525
          } else {
 
2526
            if(S_ISREG(st.st_mode)
 
2527
               and st.st_uid == 0 and st.st_gid == 0){
 
2528
              ret = fchown(pubkey_fd, uid, gid);
 
2529
              if(ret == -1){
 
2530
                perror_plus("fchown");
 
2531
              }
 
2532
            }
 
2533
          }
 
2534
          close(pubkey_fd);
 
2535
        }
 
2536
      }
 
2537
      
 
2538
      if(dh_params_file != NULL
 
2539
         and strcmp(dh_params_file, PATHDIR "/dhparams.pem" ) == 0){
 
2540
        int dhparams_fd = open(dh_params_file, O_RDONLY);
 
2541
        if(dhparams_fd == -1){
 
2542
          perror_plus("open");
 
2543
        } else {
 
2544
          ret = (int)TEMP_FAILURE_RETRY(fstat(dhparams_fd, &st));
 
2545
          if(ret == -1){
 
2546
            perror_plus("fstat");
 
2547
          } else {
 
2548
            if(S_ISREG(st.st_mode)
 
2549
               and st.st_uid == 0 and st.st_gid == 0){
 
2550
              ret = fchown(dhparams_fd, uid, gid);
 
2551
              if(ret == -1){
 
2552
                perror_plus("fchown");
 
2553
              }
 
2554
            }
 
2555
          }
 
2556
          close(dhparams_fd);
 
2557
        }
 
2558
      }
 
2559
      
 
2560
      /* Lower privileges */
 
2561
      ret_errno = lower_privileges();
 
2562
      if(ret_errno != 0){
 
2563
        errno = ret_errno;
 
2564
        perror_plus("Failed to lower privileges");
 
2565
      }
 
2566
    }
 
2567
  }
 
2568
  
 
2569
  /* Remove invalid interface names (except "none") */
 
2570
  {
 
2571
    char *interface = NULL;
 
2572
    while((interface = argz_next(mc.interfaces, mc.interfaces_size,
 
2573
                                 interface))){
 
2574
      if(strcmp(interface, "none") != 0
 
2575
         and if_nametoindex(interface) == 0){
 
2576
        if(interface[0] != '\0'){
 
2577
          fprintf_plus(stderr, "Not using nonexisting interface"
 
2578
                       " \"%s\"\n", interface);
 
2579
        }
 
2580
        argz_delete(&mc.interfaces, &mc.interfaces_size, interface);
 
2581
        interface = NULL;
 
2582
      }
 
2583
    }
 
2584
  }
 
2585
  
 
2586
  /* Run network hooks */
 
2587
  {
 
2588
    if(mc.interfaces != NULL){
 
2589
      interfaces_hooks = malloc(mc.interfaces_size);
 
2590
      if(interfaces_hooks == NULL){
 
2591
        perror_plus("malloc");
 
2592
        goto end;
 
2593
      }
 
2594
      memcpy(interfaces_hooks, mc.interfaces, mc.interfaces_size);
 
2595
      argz_stringify(interfaces_hooks, mc.interfaces_size, (int)',');
 
2596
    }
 
2597
    run_network_hooks("start", interfaces_hooks != NULL ?
 
2598
                      interfaces_hooks : "", delay);
 
2599
  }
 
2600
  
 
2601
  if(not debug){
 
2602
    avahi_set_log_function(empty_log);
 
2603
  }
 
2604
  
 
2605
  /* Initialize Avahi early so avahi_simple_poll_quit() can be called
 
2606
     from the signal handler */
 
2607
  /* Initialize the pseudo-RNG for Avahi */
 
2608
  srand((unsigned int) time(NULL));
 
2609
  simple_poll = avahi_simple_poll_new();
 
2610
  if(simple_poll == NULL){
 
2611
    fprintf_plus(stderr,
 
2612
                 "Avahi: Failed to create simple poll object.\n");
 
2613
    exitcode = EX_UNAVAILABLE;
 
2614
    goto end;
 
2615
  }
 
2616
  
 
2617
  sigemptyset(&sigterm_action.sa_mask);
 
2618
  ret = sigaddset(&sigterm_action.sa_mask, SIGINT);
 
2619
  if(ret == -1){
 
2620
    perror_plus("sigaddset");
 
2621
    exitcode = EX_OSERR;
 
2622
    goto end;
 
2623
  }
 
2624
  ret = sigaddset(&sigterm_action.sa_mask, SIGHUP);
 
2625
  if(ret == -1){
 
2626
    perror_plus("sigaddset");
 
2627
    exitcode = EX_OSERR;
 
2628
    goto end;
 
2629
  }
 
2630
  ret = sigaddset(&sigterm_action.sa_mask, SIGTERM);
 
2631
  if(ret == -1){
 
2632
    perror_plus("sigaddset");
 
2633
    exitcode = EX_OSERR;
 
2634
    goto end;
 
2635
  }
 
2636
  /* Need to check if the handler is SIG_IGN before handling:
 
2637
     | [[info:libc:Initial Signal Actions]] |
 
2638
     | [[info:libc:Basic Signal Handling]]  |
 
2639
  */
 
2640
  ret = sigaction(SIGINT, NULL, &old_sigterm_action);
 
2641
  if(ret == -1){
 
2642
    perror_plus("sigaction");
 
2643
    return EX_OSERR;
 
2644
  }
 
2645
  if(old_sigterm_action.sa_handler != SIG_IGN){
 
2646
    ret = sigaction(SIGINT, &sigterm_action, NULL);
 
2647
    if(ret == -1){
 
2648
      perror_plus("sigaction");
 
2649
      exitcode = EX_OSERR;
 
2650
      goto end;
 
2651
    }
 
2652
  }
 
2653
  ret = sigaction(SIGHUP, NULL, &old_sigterm_action);
 
2654
  if(ret == -1){
 
2655
    perror_plus("sigaction");
 
2656
    return EX_OSERR;
 
2657
  }
 
2658
  if(old_sigterm_action.sa_handler != SIG_IGN){
 
2659
    ret = sigaction(SIGHUP, &sigterm_action, NULL);
 
2660
    if(ret == -1){
 
2661
      perror_plus("sigaction");
 
2662
      exitcode = EX_OSERR;
 
2663
      goto end;
 
2664
    }
 
2665
  }
 
2666
  ret = sigaction(SIGTERM, NULL, &old_sigterm_action);
 
2667
  if(ret == -1){
 
2668
    perror_plus("sigaction");
 
2669
    return EX_OSERR;
 
2670
  }
 
2671
  if(old_sigterm_action.sa_handler != SIG_IGN){
 
2672
    ret = sigaction(SIGTERM, &sigterm_action, NULL);
 
2673
    if(ret == -1){
 
2674
      perror_plus("sigaction");
 
2675
      exitcode = EX_OSERR;
 
2676
      goto end;
 
2677
    }
 
2678
  }
 
2679
  
 
2680
  /* If no interfaces were specified, make a list */
 
2681
  if(mc.interfaces == NULL){
 
2682
    struct dirent **direntries = NULL;
 
2683
    /* Look for any good interfaces */
 
2684
    ret = scandir(sys_class_net, &direntries, good_interface,
 
2685
                  alphasort);
 
2686
    if(ret >= 1){
 
2687
      /* Add all found interfaces to interfaces list */
 
2688
      for(int i = 0; i < ret; ++i){
 
2689
        ret_errno = argz_add(&mc.interfaces, &mc.interfaces_size,
 
2690
                             direntries[i]->d_name);
 
2691
        if(ret_errno != 0){
 
2692
          errno = ret_errno;
 
2693
          perror_plus("argz_add");
 
2694
          free(direntries[i]);
 
2695
          continue;
 
2696
        }
 
2697
        if(debug){
 
2698
          fprintf_plus(stderr, "Will use interface \"%s\"\n",
 
2699
                       direntries[i]->d_name);
 
2700
        }
 
2701
        free(direntries[i]);
 
2702
      }
 
2703
      free(direntries);
 
2704
    } else {
 
2705
      if(ret == 0){
 
2706
        free(direntries);
 
2707
      }
 
2708
      fprintf_plus(stderr, "Could not find a network interface\n");
 
2709
      exitcode = EXIT_FAILURE;
 
2710
      goto end;
 
2711
    }
 
2712
  }
 
2713
  
 
2714
  /* Bring up interfaces which are down, and remove any "none"s */
 
2715
  {
 
2716
    char *interface = NULL;
 
2717
    while((interface = argz_next(mc.interfaces, mc.interfaces_size,
 
2718
                                 interface))){
 
2719
      /* If interface name is "none", stop bringing up interfaces.
 
2720
         Also remove all instances of "none" from the list */
 
2721
      if(strcmp(interface, "none") == 0){
 
2722
        argz_delete(&mc.interfaces, &mc.interfaces_size,
 
2723
                    interface);
 
2724
        interface = NULL;
 
2725
        while((interface = argz_next(mc.interfaces,
 
2726
                                     mc.interfaces_size, interface))){
 
2727
          if(strcmp(interface, "none") == 0){
 
2728
            argz_delete(&mc.interfaces, &mc.interfaces_size,
 
2729
                        interface);
 
2730
            interface = NULL;
 
2731
          }
 
2732
        }
 
2733
        break;
 
2734
      }
 
2735
      bool interface_was_up = interface_is_up(interface);
 
2736
      errno = bring_up_interface(interface, delay);
 
2737
      if(not interface_was_up){
 
2738
        if(errno != 0){
 
2739
          fprintf_plus(stderr, "Failed to bring up interface \"%s\":"
 
2740
                       " %s\n", interface, strerror(errno));
 
2741
        } else {
 
2742
          errno = argz_add(&interfaces_to_take_down,
 
2743
                           &interfaces_to_take_down_size,
 
2744
                           interface);
 
2745
          if(errno != 0){
 
2746
            perror_plus("argz_add");
 
2747
          }
 
2748
        }
 
2749
      }
 
2750
    }
 
2751
    if(debug and (interfaces_to_take_down == NULL)){
 
2752
      fprintf_plus(stderr, "No interfaces were brought up\n");
 
2753
    }
 
2754
  }
 
2755
  
 
2756
  /* If we only got one interface, explicitly use only that one */
 
2757
  if(argz_count(mc.interfaces, mc.interfaces_size) == 1){
 
2758
    if(debug){
 
2759
      fprintf_plus(stderr, "Using only interface \"%s\"\n",
 
2760
                   mc.interfaces);
 
2761
    }
 
2762
    if_index = (AvahiIfIndex)if_nametoindex(mc.interfaces);
 
2763
  }
 
2764
  
 
2765
  if(quit_now){
 
2766
    goto end;
 
2767
  }
 
2768
  
 
2769
  ret = init_gnutls_global(pubkey, seckey, dh_params_file, &mc);
 
2770
  if(ret == -1){
 
2771
    fprintf_plus(stderr, "init_gnutls_global failed\n");
 
2772
    exitcode = EX_UNAVAILABLE;
 
2773
    goto end;
 
2774
  } else {
 
2775
    gnutls_initialized = true;
 
2776
  }
 
2777
  
 
2778
  if(quit_now){
 
2779
    goto end;
 
2780
  }
 
2781
  
 
2782
  /* Try /run/tmp before /tmp */
 
2783
  tempdir = mkdtemp(run_tempdir);
 
2784
  if(tempdir == NULL and errno == ENOENT){
 
2785
      if(debug){
 
2786
        fprintf_plus(stderr, "Tempdir %s did not work, trying %s\n",
 
2787
                     run_tempdir, old_tempdir);
 
2788
      }
 
2789
      tempdir = mkdtemp(old_tempdir);
 
2790
  }
 
2791
  if(tempdir == NULL){
 
2792
    perror_plus("mkdtemp");
 
2793
    goto end;
 
2794
  }
 
2795
  
 
2796
  if(quit_now){
 
2797
    goto end;
 
2798
  }
 
2799
  
 
2800
  if(not init_gpgme(pubkey, seckey, tempdir, &mc)){
 
2801
    fprintf_plus(stderr, "init_gpgme failed\n");
 
2802
    exitcode = EX_UNAVAILABLE;
 
2803
    goto end;
 
2804
  } else {
 
2805
    gpgme_initialized = true;
 
2806
  }
 
2807
  
 
2808
  if(quit_now){
 
2809
    goto end;
 
2810
  }
 
2811
  
 
2812
  if(connect_to != NULL){
 
2813
    /* Connect directly, do not use Zeroconf */
 
2814
    /* (Mainly meant for debugging) */
 
2815
    char *address = strrchr(connect_to, ':');
 
2816
    
 
2817
    if(address == NULL){
 
2818
      fprintf_plus(stderr, "No colon in address\n");
 
2819
      exitcode = EX_USAGE;
 
2820
      goto end;
 
2821
    }
 
2822
    
 
2823
    if(quit_now){
 
2824
      goto end;
 
2825
    }
 
2826
    
 
2827
    in_port_t port;
 
2828
    errno = 0;
 
2829
    tmpmax = strtoimax(address+1, &tmp, 10);
 
2830
    if(errno != 0 or tmp == address+1 or *tmp != '\0'
 
2831
       or tmpmax != (in_port_t)tmpmax){
 
2832
      fprintf_plus(stderr, "Bad port number\n");
 
2833
      exitcode = EX_USAGE;
 
2834
      goto end;
 
2835
    }
 
2836
    
 
2837
    if(quit_now){
 
2838
      goto end;
 
2839
    }
 
2840
    
 
2841
    port = (in_port_t)tmpmax;
 
2842
    *address = '\0';
 
2843
    /* Colon in address indicates IPv6 */
 
2844
    int af;
 
2845
    if(strchr(connect_to, ':') != NULL){
 
2846
      af = AF_INET6;
 
2847
      /* Accept [] around IPv6 address - see RFC 5952 */
 
2848
      if(connect_to[0] == '[' and address[-1] == ']')
 
2849
        {
 
2850
          connect_to++;
 
2851
          address[-1] = '\0';
 
2852
        }
 
2853
    } else {
 
2854
      af = AF_INET;
 
2855
    }
 
2856
    address = connect_to;
 
2857
    
 
2858
    if(quit_now){
 
2859
      goto end;
 
2860
    }
 
2861
    
 
2862
    while(not quit_now){
 
2863
      ret = start_mandos_communication(address, port, if_index, af,
 
2864
                                       &mc);
 
2865
      if(quit_now or ret == 0){
 
2866
        break;
 
2867
      }
 
2868
      if(debug){
 
2869
        fprintf_plus(stderr, "Retrying in %d seconds\n",
 
2870
                     (int)retry_interval);
 
2871
      }
 
2872
      sleep((unsigned int)retry_interval);
 
2873
    }
 
2874
    
 
2875
    if(not quit_now){
 
2876
      exitcode = EXIT_SUCCESS;
 
2877
    }
 
2878
    
 
2879
    goto end;
 
2880
  }
 
2881
  
 
2882
  if(quit_now){
 
2883
    goto end;
 
2884
  }
 
2885
  
 
2886
  {
507
2887
    AvahiServerConfig config;
508
 
    AvahiSServiceBrowser *sb = NULL;
509
 
    int error;
510
 
    int ret = 1;
511
 
 
512
 
    avahi_set_log_function(empty_log);
513
 
    
514
 
    /* Initialize the psuedo-RNG */
515
 
    srand(time(NULL));
516
 
 
517
 
    /* Allocate main loop object */
518
 
    if (!(simple_poll = avahi_simple_poll_new())) {
519
 
        fprintf(stderr, "Failed to create simple poll object.\n");
520
 
        goto fail;
521
 
    }
522
 
 
523
 
    /* Do not publish any local records */
 
2888
    /* Do not publish any local Zeroconf records */
524
2889
    avahi_server_config_init(&config);
525
2890
    config.publish_hinfo = 0;
526
2891
    config.publish_addresses = 0;
527
2892
    config.publish_workstation = 0;
528
2893
    config.publish_domain = 0;
529
 
 
530
 
/*     /\* Set a unicast DNS server for wide area DNS-SD *\/ */
531
 
/*     avahi_address_parse("193.11.177.11", AVAHI_PROTO_UNSPEC, &config.wide_area_servers[0]); */
532
 
/*     config.n_wide_area_servers = 1; */
533
 
/*     config.enable_wide_area = 1; */
534
2894
    
535
2895
    /* Allocate a new server */
536
 
    server = avahi_server_new(avahi_simple_poll_get(simple_poll), &config, NULL, NULL, &error);
537
 
 
538
 
    /* Free the configuration data */
 
2896
    mc.server = avahi_server_new(avahi_simple_poll_get(simple_poll),
 
2897
                                 &config, NULL, NULL, &ret_errno);
 
2898
    
 
2899
    /* Free the Avahi configuration data */
539
2900
    avahi_server_config_free(&config);
540
 
 
541
 
    /* Check wether creating the server object succeeded */
542
 
    if (!server) {
543
 
        fprintf(stderr, "Failed to create server: %s\n", avahi_strerror(error));
544
 
        goto fail;
545
 
    }
546
 
    
547
 
    /* Create the service browser */
548
 
    if (!(sb = avahi_s_service_browser_new(server, if_nametoindex("eth0"), AVAHI_PROTO_INET6, "_mandos._tcp", NULL, 0, browse_callback, server))) {
549
 
        fprintf(stderr, "Failed to create service browser: %s\n", avahi_strerror(avahi_server_errno(server)));
550
 
        goto fail;
551
 
    }
552
 
    
553
 
    /* Run the main loop */
554
 
    avahi_simple_poll_loop(simple_poll);
555
 
    
556
 
    ret = 0;
557
 
    
558
 
fail:
559
 
    
560
 
    /* Cleanup things */
561
 
    if (sb)
562
 
        avahi_s_service_browser_free(sb);
563
 
    
564
 
    if (server)
565
 
        avahi_server_free(server);
566
 
 
567
 
    if (simple_poll)
568
 
        avahi_simple_poll_free(simple_poll);
569
 
 
570
 
    return ret;
 
2901
  }
 
2902
  
 
2903
  /* Check if creating the Avahi server object succeeded */
 
2904
  if(mc.server == NULL){
 
2905
    fprintf_plus(stderr, "Failed to create Avahi server: %s\n",
 
2906
                 avahi_strerror(ret_errno));
 
2907
    exitcode = EX_UNAVAILABLE;
 
2908
    goto end;
 
2909
  }
 
2910
  
 
2911
  if(quit_now){
 
2912
    goto end;
 
2913
  }
 
2914
  
 
2915
  /* Create the Avahi service browser */
 
2916
  sb = avahi_s_service_browser_new(mc.server, if_index,
 
2917
                                   AVAHI_PROTO_UNSPEC, "_mandos._tcp",
 
2918
                                   NULL, 0, browse_callback,
 
2919
                                   (void *)&mc);
 
2920
  if(sb == NULL){
 
2921
    fprintf_plus(stderr, "Failed to create service browser: %s\n",
 
2922
                 avahi_strerror(avahi_server_errno(mc.server)));
 
2923
    exitcode = EX_UNAVAILABLE;
 
2924
    goto end;
 
2925
  }
 
2926
  
 
2927
  if(quit_now){
 
2928
    goto end;
 
2929
  }
 
2930
  
 
2931
  /* Run the main loop */
 
2932
  
 
2933
  if(debug){
 
2934
    fprintf_plus(stderr, "Starting Avahi loop search\n");
 
2935
  }
 
2936
  
 
2937
  ret = avahi_loop_with_timeout(simple_poll,
 
2938
                                (int)(retry_interval * 1000), &mc);
 
2939
  if(debug){
 
2940
    fprintf_plus(stderr, "avahi_loop_with_timeout exited %s\n",
 
2941
                 (ret == 0) ? "successfully" : "with error");
 
2942
  }
 
2943
  
 
2944
 end:
 
2945
  
 
2946
  if(debug){
 
2947
    fprintf_plus(stderr, "%s exiting\n", argv[0]);
 
2948
  }
 
2949
  
 
2950
  /* Cleanup things */
 
2951
  free(mc.interfaces);
 
2952
  
 
2953
  if(sb != NULL)
 
2954
    avahi_s_service_browser_free(sb);
 
2955
  
 
2956
  if(mc.server != NULL)
 
2957
    avahi_server_free(mc.server);
 
2958
  
 
2959
  if(simple_poll != NULL)
 
2960
    avahi_simple_poll_free(simple_poll);
 
2961
  
 
2962
  if(gnutls_initialized){
 
2963
    gnutls_certificate_free_credentials(mc.cred);
 
2964
    gnutls_dh_params_deinit(mc.dh_params);
 
2965
  }
 
2966
  
 
2967
  if(gpgme_initialized){
 
2968
    gpgme_release(mc.ctx);
 
2969
  }
 
2970
  
 
2971
  /* Cleans up the circular linked list of Mandos servers the client
 
2972
     has seen */
 
2973
  if(mc.current_server != NULL){
 
2974
    mc.current_server->prev->next = NULL;
 
2975
    while(mc.current_server != NULL){
 
2976
      server *next = mc.current_server->next;
 
2977
#ifdef __GNUC__
 
2978
#pragma GCC diagnostic push
 
2979
#pragma GCC diagnostic ignored "-Wcast-qual"
 
2980
#endif
 
2981
      free((char *)(mc.current_server->ip));
 
2982
#ifdef __GNUC__
 
2983
#pragma GCC diagnostic pop
 
2984
#endif
 
2985
      free(mc.current_server);
 
2986
      mc.current_server = next;
 
2987
    }
 
2988
  }
 
2989
  
 
2990
  /* Re-raise privileges */
 
2991
  {
 
2992
    ret_errno = raise_privileges();
 
2993
    if(ret_errno != 0){
 
2994
      errno = ret_errno;
 
2995
      perror_plus("Failed to raise privileges");
 
2996
    } else {
 
2997
      
 
2998
      /* Run network hooks */
 
2999
      run_network_hooks("stop", interfaces_hooks != NULL ?
 
3000
                        interfaces_hooks : "", delay);
 
3001
      
 
3002
      /* Take down the network interfaces which were brought up */
 
3003
      {
 
3004
        char *interface = NULL;
 
3005
        while((interface=argz_next(interfaces_to_take_down,
 
3006
                                   interfaces_to_take_down_size,
 
3007
                                   interface))){
 
3008
          ret_errno = take_down_interface(interface);
 
3009
          if(ret_errno != 0){
 
3010
            errno = ret_errno;
 
3011
            perror_plus("Failed to take down interface");
 
3012
          }
 
3013
        }
 
3014
        if(debug and (interfaces_to_take_down == NULL)){
 
3015
          fprintf_plus(stderr, "No interfaces needed to be taken"
 
3016
                       " down\n");
 
3017
        }
 
3018
      }
 
3019
    }
 
3020
    
 
3021
    ret_errno = lower_privileges_permanently();
 
3022
    if(ret_errno != 0){
 
3023
      errno = ret_errno;
 
3024
      perror_plus("Failed to lower privileges permanently");
 
3025
    }
 
3026
  }
 
3027
  
 
3028
  free(interfaces_to_take_down);
 
3029
  free(interfaces_hooks);
 
3030
  
 
3031
  void clean_dir_at(int base, const char * const dirname,
 
3032
                    uintmax_t level){
 
3033
    struct dirent **direntries = NULL;
 
3034
    int dret;
 
3035
    int dir_fd = (int)TEMP_FAILURE_RETRY(openat(base, dirname,
 
3036
                                                O_RDONLY
 
3037
                                                | O_NOFOLLOW
 
3038
                                                | O_DIRECTORY
 
3039
                                                | O_PATH));
 
3040
    if(dir_fd == -1){
 
3041
      perror_plus("open");
 
3042
    }
 
3043
    int numentries = scandirat(dir_fd, ".", &direntries,
 
3044
                               notdotentries, alphasort);
 
3045
    if(numentries >= 0){
 
3046
      for(int i = 0; i < numentries; i++){
 
3047
        if(debug){
 
3048
          fprintf_plus(stderr, "Unlinking \"%s/%s\"\n",
 
3049
                       dirname, direntries[i]->d_name);
 
3050
        }
 
3051
        dret = unlinkat(dir_fd, direntries[i]->d_name, 0);
 
3052
        if(dret == -1){
 
3053
          if(errno == EISDIR){
 
3054
              dret = unlinkat(dir_fd, direntries[i]->d_name,
 
3055
                              AT_REMOVEDIR);
 
3056
          }         
 
3057
          if((dret == -1) and (errno == ENOTEMPTY)
 
3058
             and (strcmp(direntries[i]->d_name, "private-keys-v1.d")
 
3059
                  == 0) and (level == 0)){
 
3060
            /* Recurse only in this special case */
 
3061
            clean_dir_at(dir_fd, direntries[i]->d_name, level+1);
 
3062
            dret = 0;
 
3063
          }
 
3064
          if(dret == -1){
 
3065
            fprintf_plus(stderr, "unlink(\"%s/%s\"): %s\n", dirname,
 
3066
                         direntries[i]->d_name, strerror(errno));
 
3067
          }
 
3068
        }
 
3069
        free(direntries[i]);
 
3070
      }
 
3071
      
 
3072
      /* need to clean even if 0 because man page doesn't specify */
 
3073
      free(direntries);
 
3074
      if(numentries == -1){
 
3075
        perror_plus("scandirat");
 
3076
      }
 
3077
      dret = unlinkat(base, dirname, AT_REMOVEDIR);
 
3078
      if(dret == -1 and errno != ENOENT){
 
3079
        perror_plus("rmdir");
 
3080
      }
 
3081
    } else {
 
3082
      perror_plus("scandirat");
 
3083
    }
 
3084
    close(dir_fd);
 
3085
  }
 
3086
  
 
3087
  /* Removes the GPGME temp directory and all files inside */
 
3088
  if(tempdir != NULL){
 
3089
    clean_dir_at(-1, tempdir, 0);
 
3090
  }
 
3091
  
 
3092
  if(quit_now){
 
3093
    sigemptyset(&old_sigterm_action.sa_mask);
 
3094
    old_sigterm_action.sa_handler = SIG_DFL;
 
3095
    ret = (int)TEMP_FAILURE_RETRY(sigaction(signal_received,
 
3096
                                            &old_sigterm_action,
 
3097
                                            NULL));
 
3098
    if(ret == -1){
 
3099
      perror_plus("sigaction");
 
3100
    }
 
3101
    do {
 
3102
      ret = raise(signal_received);
 
3103
    } while(ret != 0 and errno == EINTR);
 
3104
    if(ret != 0){
 
3105
      perror_plus("raise");
 
3106
      abort();
 
3107
    }
 
3108
    TEMP_FAILURE_RETRY(pause());
 
3109
  }
 
3110
  
 
3111
  return exitcode;
571
3112
}