/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/mandosclient.c

Added support for protocol version handling

Show diffs side-by-side

added added

removed removed

Lines of Context:
1
1
/*  -*- coding: utf-8 -*- */
2
2
/*
3
 
 * Mandos-client - get and decrypt data from a Mandos server
 
3
 * Mandos client - get and decrypt data from a Mandos server
4
4
 *
5
5
 * This program is partly derived from an example program for an Avahi
6
6
 * service browser, downloaded from
9
9
 * "browse_callback", and parts of "main".
10
10
 * 
11
11
 * Everything else is
12
 
 * Copyright © 2008,2009 Teddy Hogeborn
13
 
 * Copyright © 2008,2009 Björn Påhlsson
 
12
 * Copyright © 2007-2008 Teddy Hogeborn & Björn Påhlsson
14
13
 * 
15
14
 * This program is free software: you can redistribute it and/or
16
15
 * modify it under the terms of the GNU General Public License as
30
29
 */
31
30
 
32
31
/* Needed by GPGME, specifically gpgme_data_seek() */
33
 
#ifndef _LARGEFILE_SOURCE
34
32
#define _LARGEFILE_SOURCE
35
 
#endif
36
 
#ifndef _FILE_OFFSET_BITS
37
33
#define _FILE_OFFSET_BITS 64
38
 
#endif
39
 
 
40
 
#define _GNU_SOURCE             /* TEMP_FAILURE_RETRY(), asprintf() */
41
 
 
42
 
#include <stdio.h>              /* fprintf(), stderr, fwrite(),
43
 
                                   stdout, ferror(), remove() */
44
 
#include <stdint.h>             /* uint16_t, uint32_t */
45
 
#include <stddef.h>             /* NULL, size_t, ssize_t */
46
 
#include <stdlib.h>             /* free(), EXIT_SUCCESS, EXIT_FAILURE,
47
 
                                   srand(), strtof() */
48
 
#include <stdbool.h>            /* bool, false, true */
49
 
#include <string.h>             /* memset(), strcmp(), strlen(),
50
 
                                   strerror(), asprintf(), strcpy() */
51
 
#include <sys/ioctl.h>          /* ioctl */
52
 
#include <sys/types.h>          /* socket(), inet_pton(), sockaddr,
53
 
                                   sockaddr_in6, PF_INET6,
54
 
                                   SOCK_STREAM, uid_t, gid_t, open(),
55
 
                                   opendir(), DIR */
56
 
#include <sys/stat.h>           /* open() */
57
 
#include <sys/socket.h>         /* socket(), struct sockaddr_in6,
58
 
                                   inet_pton(), connect() */
59
 
#include <fcntl.h>              /* open() */
60
 
#include <dirent.h>             /* opendir(), struct dirent, readdir()
61
 
                                 */
62
 
#include <inttypes.h>           /* PRIu16, PRIdMAX, intmax_t,
63
 
                                   strtoimax() */
64
 
#include <assert.h>             /* assert() */
65
 
#include <errno.h>              /* perror(), errno */
66
 
#include <time.h>               /* nanosleep(), time() */
67
 
#include <net/if.h>             /* ioctl, ifreq, SIOCGIFFLAGS, IFF_UP,
68
 
                                   SIOCSIFFLAGS, if_indextoname(),
69
 
                                   if_nametoindex(), IF_NAMESIZE */
70
 
#include <netinet/in.h>         /* IN6_IS_ADDR_LINKLOCAL,
71
 
                                   INET_ADDRSTRLEN, INET6_ADDRSTRLEN
72
 
                                */
73
 
#include <unistd.h>             /* close(), SEEK_SET, off_t, write(),
74
 
                                   getuid(), getgid(), setuid(),
75
 
                                   setgid() */
76
 
#include <arpa/inet.h>          /* inet_pton(), htons */
77
 
#include <iso646.h>             /* not, or, and */
78
 
#include <argp.h>               /* struct argp_option, error_t, struct
79
 
                                   argp_state, struct argp,
80
 
                                   argp_parse(), ARGP_KEY_ARG,
81
 
                                   ARGP_KEY_END, ARGP_ERR_UNKNOWN */
82
 
#include <signal.h>             /* sigemptyset(), sigaddset(),
83
 
                                   sigaction(), SIGTERM, sigaction,
84
 
                                   sig_atomic_t */
85
 
 
86
 
#ifdef __linux__
87
 
#include <sys/klog.h>           /* klogctl() */
88
 
#endif  /* __linux__ */
89
 
 
90
 
/* Avahi */
91
 
/* All Avahi types, constants and functions
92
 
 Avahi*, avahi_*,
93
 
 AVAHI_* */
 
34
 
 
35
#define _GNU_SOURCE             /* TEMP_FAILURE_RETRY() */
 
36
 
 
37
#include <stdio.h>
 
38
#include <assert.h>
 
39
#include <stdlib.h>
 
40
#include <time.h>
 
41
#include <net/if.h>             /* if_nametoindex */
 
42
#include <sys/ioctl.h>          // ioctl, ifreq, SIOCGIFFLAGS, IFF_UP, SIOCSIFFLAGS
 
43
#include <net/if.h>             // ioctl, ifreq, SIOCGIFFLAGS, IFF_UP, SIOCSIFFLAGS
 
44
 
94
45
#include <avahi-core/core.h>
95
46
#include <avahi-core/lookup.h>
96
47
#include <avahi-core/log.h>
98
49
#include <avahi-common/malloc.h>
99
50
#include <avahi-common/error.h>
100
51
 
101
 
/* GnuTLS */
102
 
#include <gnutls/gnutls.h>      /* All GnuTLS types, constants and
103
 
                                   functions:
104
 
                                   gnutls_*
105
 
                                   init_gnutls_session(),
106
 
                                   GNUTLS_* */
107
 
#include <gnutls/openpgp.h>
108
 
                          /* gnutls_certificate_set_openpgp_key_file(),
109
 
                                   GNUTLS_OPENPGP_FMT_BASE64 */
110
 
 
111
 
/* GPGME */
112
 
#include <gpgme.h>              /* All GPGME types, constants and
113
 
                                   functions:
114
 
                                   gpgme_*
115
 
                                   GPGME_PROTOCOL_OpenPGP,
116
 
                                   GPG_ERR_NO_* */
 
52
//mandos client part
 
53
#include <sys/types.h>          /* socket(), inet_pton() */
 
54
#include <sys/socket.h>         /* socket(), struct sockaddr_in6,
 
55
                                   struct in6_addr, inet_pton() */
 
56
#include <gnutls/gnutls.h>      /* All GnuTLS stuff */
 
57
#include <gnutls/openpgp.h>     /* GnuTLS with openpgp stuff */
 
58
 
 
59
#include <unistd.h>             /* close() */
 
60
#include <netinet/in.h>
 
61
#include <stdbool.h>            /* true */
 
62
#include <string.h>             /* memset */
 
63
#include <arpa/inet.h>          /* inet_pton() */
 
64
#include <iso646.h>             /* not */
 
65
 
 
66
// gpgme
 
67
#include <errno.h>              /* perror() */
 
68
#include <gpgme.h>
 
69
 
 
70
// getopt long
 
71
#include <getopt.h>
117
72
 
118
73
#define BUFFER_SIZE 256
 
74
#define DH_BITS 1024
119
75
 
120
 
#define PATHDIR "/conf/conf.d/mandos"
121
 
#define SECKEY "seckey.txt"
122
 
#define PUBKEY "pubkey.txt"
 
76
static const char *certdir = "/conf/conf.d/mandos";
 
77
static const char *certfile = "openpgp-client.txt";
 
78
static const char *certkey = "openpgp-client-key.txt";
123
79
 
124
80
bool debug = false;
125
 
static const char mandos_protocol_version[] = "1";
126
 
const char *argp_program_version = "mandos-client " VERSION;
127
 
const char *argp_program_bug_address = "<mandos@fukt.bsnet.se>";
128
 
 
129
 
/* Used for passing in values through the Avahi callback functions */
 
81
 
 
82
const char mandos_protocol_version[] = "1";
 
83
 
130
84
typedef struct {
131
85
  AvahiSimplePoll *simple_poll;
132
86
  AvahiServer *server;
133
87
  gnutls_certificate_credentials_t cred;
134
88
  unsigned int dh_bits;
135
 
  gnutls_dh_params_t dh_params;
136
89
  const char *priority;
137
 
  gpgme_ctx_t ctx;
138
90
} mandos_context;
139
91
 
140
 
/* global context so signal handler can reach it*/
141
 
mandos_context mc = { .simple_poll = NULL, .server = NULL,
142
 
                      .dh_bits = 1024, .priority = "SECURE256"
143
 
                      ":!CTYPE-X.509:+CTYPE-OPENPGP" };
144
 
 
145
 
/*
146
 
 * Make additional room in "buffer" for at least BUFFER_SIZE more
147
 
 * bytes. "buffer_capacity" is how much is currently allocated,
148
 
 * "buffer_length" is how much is already used.
149
 
 */
150
 
size_t incbuffer(char **buffer, size_t buffer_length,
 
92
size_t adjustbuffer(char *buffer, size_t buffer_length,
151
93
                  size_t buffer_capacity){
152
 
  if(buffer_length + BUFFER_SIZE > buffer_capacity){
153
 
    *buffer = realloc(*buffer, buffer_capacity + BUFFER_SIZE);
154
 
    if(buffer == NULL){
 
94
  if (buffer_length + BUFFER_SIZE > buffer_capacity){
 
95
    buffer = realloc(buffer, buffer_capacity + BUFFER_SIZE);
 
96
    if (buffer == NULL){
155
97
      return 0;
156
98
    }
157
99
    buffer_capacity += BUFFER_SIZE;
159
101
  return buffer_capacity;
160
102
}
161
103
 
162
 
/* 
163
 
 * Initialize GPGME.
164
 
 */
165
 
static bool init_gpgme(const char *seckey,
166
 
                       const char *pubkey, const char *tempdir){
167
 
  int ret;
 
104
static ssize_t pgp_packet_decrypt (char *packet, size_t packet_size,
 
105
                                   char **new_packet,
 
106
                                   const char *homedir){
 
107
  gpgme_data_t dh_crypto, dh_plain;
 
108
  gpgme_ctx_t ctx;
168
109
  gpgme_error_t rc;
 
110
  ssize_t ret;
 
111
  size_t new_packet_capacity = 0;
 
112
  ssize_t new_packet_length = 0;
169
113
  gpgme_engine_info_t engine_info;
170
 
  
171
 
  
172
 
  /*
173
 
   * Helper function to insert pub and seckey to the engine keyring.
174
 
   */
175
 
  bool import_key(const char *filename){
176
 
    int fd;
177
 
    gpgme_data_t pgp_data;
178
 
    
179
 
    fd = (int)TEMP_FAILURE_RETRY(open(filename, O_RDONLY));
180
 
    if(fd == -1){
181
 
      perror("open");
182
 
      return false;
183
 
    }
184
 
    
185
 
    rc = gpgme_data_new_from_fd(&pgp_data, fd);
186
 
    if(rc != GPG_ERR_NO_ERROR){
187
 
      fprintf(stderr, "bad gpgme_data_new_from_fd: %s: %s\n",
188
 
              gpgme_strsource(rc), gpgme_strerror(rc));
189
 
      return false;
190
 
    }
191
 
    
192
 
    rc = gpgme_op_import(mc.ctx, pgp_data);
193
 
    if(rc != GPG_ERR_NO_ERROR){
194
 
      fprintf(stderr, "bad gpgme_op_import: %s: %s\n",
195
 
              gpgme_strsource(rc), gpgme_strerror(rc));
196
 
      return false;
197
 
    }
198
 
    
199
 
    ret = (int)TEMP_FAILURE_RETRY(close(fd));
200
 
    if(ret == -1){
201
 
      perror("close");
202
 
    }
203
 
    gpgme_data_release(pgp_data);
204
 
    return true;
205
 
  }
206
 
  
207
 
  if(debug){
208
 
    fprintf(stderr, "Initializing GPGME\n");
 
114
 
 
115
  if (debug){
 
116
    fprintf(stderr, "Trying to decrypt OpenPGP packet\n");
209
117
  }
210
118
  
211
119
  /* Init GPGME */
212
120
  gpgme_check_version(NULL);
213
121
  rc = gpgme_engine_check_version(GPGME_PROTOCOL_OpenPGP);
214
 
  if(rc != GPG_ERR_NO_ERROR){
 
122
  if (rc != GPG_ERR_NO_ERROR){
215
123
    fprintf(stderr, "bad gpgme_engine_check_version: %s: %s\n",
216
124
            gpgme_strsource(rc), gpgme_strerror(rc));
217
 
    return false;
 
125
    return -1;
218
126
  }
219
127
  
220
 
    /* Set GPGME home directory for the OpenPGP engine only */
221
 
  rc = gpgme_get_engine_info(&engine_info);
222
 
  if(rc != GPG_ERR_NO_ERROR){
 
128
  /* Set GPGME home directory */
 
129
  rc = gpgme_get_engine_info (&engine_info);
 
130
  if (rc != GPG_ERR_NO_ERROR){
223
131
    fprintf(stderr, "bad gpgme_get_engine_info: %s: %s\n",
224
132
            gpgme_strsource(rc), gpgme_strerror(rc));
225
 
    return false;
 
133
    return -1;
226
134
  }
227
135
  while(engine_info != NULL){
228
136
    if(engine_info->protocol == GPGME_PROTOCOL_OpenPGP){
229
137
      gpgme_set_engine_info(GPGME_PROTOCOL_OpenPGP,
230
 
                            engine_info->file_name, tempdir);
 
138
                            engine_info->file_name, homedir);
231
139
      break;
232
140
    }
233
141
    engine_info = engine_info->next;
234
142
  }
235
143
  if(engine_info == NULL){
236
 
    fprintf(stderr, "Could not set GPGME home dir to %s\n", tempdir);
237
 
    return false;
238
 
  }
239
 
  
240
 
  /* Create new GPGME "context" */
241
 
  rc = gpgme_new(&(mc.ctx));
242
 
  if(rc != GPG_ERR_NO_ERROR){
243
 
    fprintf(stderr, "bad gpgme_new: %s: %s\n",
244
 
            gpgme_strsource(rc), gpgme_strerror(rc));
245
 
    return false;
246
 
  }
247
 
  
248
 
  if(not import_key(pubkey) or not import_key(seckey)){
249
 
    return false;
250
 
  }
251
 
  
252
 
  return true; 
253
 
}
254
 
 
255
 
/* 
256
 
 * Decrypt OpenPGP data.
257
 
 * Returns -1 on error
258
 
 */
259
 
static ssize_t pgp_packet_decrypt(const char *cryptotext,
260
 
                                  size_t crypto_size,
261
 
                                  char **plaintext){
262
 
  gpgme_data_t dh_crypto, dh_plain;
263
 
  gpgme_error_t rc;
264
 
  ssize_t ret;
265
 
  size_t plaintext_capacity = 0;
266
 
  ssize_t plaintext_length = 0;
267
 
  
268
 
  if(debug){
269
 
    fprintf(stderr, "Trying to decrypt OpenPGP data\n");
270
 
  }
271
 
  
272
 
  /* Create new GPGME data buffer from memory cryptotext */
273
 
  rc = gpgme_data_new_from_mem(&dh_crypto, cryptotext, crypto_size,
274
 
                               0);
275
 
  if(rc != GPG_ERR_NO_ERROR){
 
144
    fprintf(stderr, "Could not set home dir to %s\n", homedir);
 
145
    return -1;
 
146
  }
 
147
  
 
148
  /* Create new GPGME data buffer from packet buffer */
 
149
  rc = gpgme_data_new_from_mem(&dh_crypto, packet, packet_size, 0);
 
150
  if (rc != GPG_ERR_NO_ERROR){
276
151
    fprintf(stderr, "bad gpgme_data_new_from_mem: %s: %s\n",
277
152
            gpgme_strsource(rc), gpgme_strerror(rc));
278
153
    return -1;
280
155
  
281
156
  /* Create new empty GPGME data buffer for the plaintext */
282
157
  rc = gpgme_data_new(&dh_plain);
283
 
  if(rc != GPG_ERR_NO_ERROR){
 
158
  if (rc != GPG_ERR_NO_ERROR){
284
159
    fprintf(stderr, "bad gpgme_data_new: %s: %s\n",
285
160
            gpgme_strsource(rc), gpgme_strerror(rc));
286
 
    gpgme_data_release(dh_crypto);
287
 
    return -1;
288
 
  }
289
 
  
290
 
  /* Decrypt data from the cryptotext data buffer to the plaintext
291
 
     data buffer */
292
 
  rc = gpgme_op_decrypt(mc.ctx, dh_crypto, dh_plain);
293
 
  if(rc != GPG_ERR_NO_ERROR){
 
161
    return -1;
 
162
  }
 
163
  
 
164
  /* Create new GPGME "context" */
 
165
  rc = gpgme_new(&ctx);
 
166
  if (rc != GPG_ERR_NO_ERROR){
 
167
    fprintf(stderr, "bad gpgme_new: %s: %s\n",
 
168
            gpgme_strsource(rc), gpgme_strerror(rc));
 
169
    return -1;
 
170
  }
 
171
  
 
172
  /* Decrypt data from the FILE pointer to the plaintext data
 
173
     buffer */
 
174
  rc = gpgme_op_decrypt(ctx, dh_crypto, dh_plain);
 
175
  if (rc != GPG_ERR_NO_ERROR){
294
176
    fprintf(stderr, "bad gpgme_op_decrypt: %s: %s\n",
295
177
            gpgme_strsource(rc), gpgme_strerror(rc));
296
 
    plaintext_length = -1;
297
 
    if(debug){
298
 
      gpgme_decrypt_result_t result;
299
 
      result = gpgme_op_decrypt_result(mc.ctx);
300
 
      if(result == NULL){
301
 
        fprintf(stderr, "gpgme_op_decrypt_result failed\n");
302
 
      } else {
303
 
        fprintf(stderr, "Unsupported algorithm: %s\n",
304
 
                result->unsupported_algorithm);
305
 
        fprintf(stderr, "Wrong key usage: %u\n",
306
 
                result->wrong_key_usage);
307
 
        if(result->file_name != NULL){
308
 
          fprintf(stderr, "File name: %s\n", result->file_name);
309
 
        }
310
 
        gpgme_recipient_t recipient;
311
 
        recipient = result->recipients;
 
178
    return -1;
 
179
  }
 
180
 
 
181
  if(debug){
 
182
    fprintf(stderr, "Decryption of OpenPGP packet succeeded\n");
 
183
  }
 
184
 
 
185
  if (debug){
 
186
    gpgme_decrypt_result_t result;
 
187
    result = gpgme_op_decrypt_result(ctx);
 
188
    if (result == NULL){
 
189
      fprintf(stderr, "gpgme_op_decrypt_result failed\n");
 
190
    } else {
 
191
      fprintf(stderr, "Unsupported algorithm: %s\n",
 
192
              result->unsupported_algorithm);
 
193
      fprintf(stderr, "Wrong key usage: %d\n",
 
194
              result->wrong_key_usage);
 
195
      if(result->file_name != NULL){
 
196
        fprintf(stderr, "File name: %s\n", result->file_name);
 
197
      }
 
198
      gpgme_recipient_t recipient;
 
199
      recipient = result->recipients;
 
200
      if(recipient){
312
201
        while(recipient != NULL){
313
202
          fprintf(stderr, "Public key algorithm: %s\n",
314
203
                  gpgme_pubkey_algo_name(recipient->pubkey_algo));
320
209
        }
321
210
      }
322
211
    }
323
 
    goto decrypt_end;
324
212
  }
325
213
  
326
 
  if(debug){
327
 
    fprintf(stderr, "Decryption of OpenPGP data succeeded\n");
328
 
  }
 
214
  /* Delete the GPGME FILE pointer cryptotext data buffer */
 
215
  gpgme_data_release(dh_crypto);
329
216
  
330
217
  /* Seek back to the beginning of the GPGME plaintext data buffer */
331
 
  if(gpgme_data_seek(dh_plain, (off_t)0, SEEK_SET) == -1){
332
 
    perror("gpgme_data_seek");
333
 
    plaintext_length = -1;
334
 
    goto decrypt_end;
 
218
  if (gpgme_data_seek(dh_plain, (off_t) 0, SEEK_SET) == -1){
 
219
    perror("pgpme_data_seek");
335
220
  }
336
221
  
337
 
  *plaintext = NULL;
 
222
  *new_packet = 0;
338
223
  while(true){
339
 
    plaintext_capacity = incbuffer(plaintext,
340
 
                                      (size_t)plaintext_length,
341
 
                                      plaintext_capacity);
342
 
    if(plaintext_capacity == 0){
343
 
        perror("incbuffer");
344
 
        plaintext_length = -1;
345
 
        goto decrypt_end;
 
224
    new_packet_capacity = adjustbuffer(*new_packet, new_packet_length,
 
225
                                       new_packet_capacity);
 
226
    if (new_packet_capacity == 0){
 
227
        perror("adjustbuffer");
 
228
        return -1;
 
229
      }
 
230
      new_packet_capacity += BUFFER_SIZE;
346
231
    }
347
232
    
348
 
    ret = gpgme_data_read(dh_plain, *plaintext + plaintext_length,
 
233
    ret = gpgme_data_read(dh_plain, *new_packet + new_packet_length,
349
234
                          BUFFER_SIZE);
350
235
    /* Print the data, if any */
351
 
    if(ret == 0){
352
 
      /* EOF */
 
236
    if (ret == 0){
353
237
      break;
354
238
    }
355
239
    if(ret < 0){
356
240
      perror("gpgme_data_read");
357
 
      plaintext_length = -1;
358
 
      goto decrypt_end;
359
 
    }
360
 
    plaintext_length += ret;
361
 
  }
362
 
  
363
 
  if(debug){
364
 
    fprintf(stderr, "Decrypted password is: ");
365
 
    for(ssize_t i = 0; i < plaintext_length; i++){
366
 
      fprintf(stderr, "%02hhX ", (*plaintext)[i]);
367
 
    }
368
 
    fprintf(stderr, "\n");
369
 
  }
370
 
  
371
 
 decrypt_end:
372
 
  
373
 
  /* Delete the GPGME cryptotext data buffer */
374
 
  gpgme_data_release(dh_crypto);
 
241
      return -1;
 
242
    }
 
243
    new_packet_length += ret;
 
244
  }
 
245
 
 
246
  /* FIXME: check characters before printing to screen so to not print
 
247
     terminal control characters */
 
248
  /*   if(debug){ */
 
249
  /*     fprintf(stderr, "decrypted password is: "); */
 
250
  /*     fwrite(*new_packet, 1, new_packet_length, stderr); */
 
251
  /*     fprintf(stderr, "\n"); */
 
252
  /*   } */
375
253
  
376
254
  /* Delete the GPGME plaintext data buffer */
377
255
  gpgme_data_release(dh_plain);
378
 
  return plaintext_length;
 
256
  return new_packet_length;
379
257
}
380
258
 
381
 
static const char * safer_gnutls_strerror(int value){
382
 
  const char *ret = gnutls_strerror(value); /* Spurious warning from
383
 
                                               -Wunreachable-code */
384
 
  if(ret == NULL)
 
259
static const char * safer_gnutls_strerror (int value) {
 
260
  const char *ret = gnutls_strerror (value);
 
261
  if (ret == NULL)
385
262
    ret = "(unknown)";
386
263
  return ret;
387
264
}
388
265
 
389
 
/* GnuTLS log function callback */
390
266
static void debuggnutls(__attribute__((unused)) int level,
391
267
                        const char* string){
392
 
  fprintf(stderr, "GnuTLS: %s", string);
 
268
  fprintf(stderr, "%s", string);
393
269
}
394
270
 
395
 
static int init_gnutls_global(const char *pubkeyfilename,
396
 
                              const char *seckeyfilename){
 
271
static int initgnutls(mandos_context *mc){
 
272
  const char *err;
397
273
  int ret;
398
274
  
399
275
  if(debug){
400
276
    fprintf(stderr, "Initializing GnuTLS\n");
401
277
  }
402
 
  
403
 
  ret = gnutls_global_init();
404
 
  if(ret != GNUTLS_E_SUCCESS){
405
 
    fprintf(stderr, "GnuTLS global_init: %s\n",
406
 
            safer_gnutls_strerror(ret));
 
278
 
 
279
  if ((ret = gnutls_global_init ())
 
280
      != GNUTLS_E_SUCCESS) {
 
281
    fprintf (stderr, "global_init: %s\n", safer_gnutls_strerror(ret));
407
282
    return -1;
408
283
  }
409
 
  
410
 
  if(debug){
411
 
    /* "Use a log level over 10 to enable all debugging options."
412
 
     * - GnuTLS manual
413
 
     */
 
284
 
 
285
  if (debug){
414
286
    gnutls_global_set_log_level(11);
415
287
    gnutls_global_set_log_function(debuggnutls);
416
288
  }
417
289
  
418
 
  /* OpenPGP credentials */
419
 
  gnutls_certificate_allocate_credentials(&mc.cred);
420
 
  if(ret != GNUTLS_E_SUCCESS){
421
 
    fprintf(stderr, "GnuTLS memory error: %s\n", /* Spurious warning
422
 
                                                    from
423
 
                                                    -Wunreachable-code
424
 
                                                 */
425
 
            safer_gnutls_strerror(ret));
426
 
    gnutls_global_deinit();
 
290
  /* openpgp credentials */
 
291
  if ((ret = gnutls_certificate_allocate_credentials (&es->cred))
 
292
      != GNUTLS_E_SUCCESS) {
 
293
    fprintf (stderr, "memory error: %s\n",
 
294
             safer_gnutls_strerror(ret));
427
295
    return -1;
428
296
  }
429
297
  
430
298
  if(debug){
431
 
    fprintf(stderr, "Attempting to use OpenPGP public key %s and"
432
 
            " secret key %s as GnuTLS credentials\n", pubkeyfilename,
433
 
            seckeyfilename);
 
299
    fprintf(stderr, "Attempting to use OpenPGP certificate %s"
 
300
            " and keyfile %s as GnuTLS credentials\n", certfile,
 
301
            certkey);
434
302
  }
435
303
  
436
304
  ret = gnutls_certificate_set_openpgp_key_file
437
 
    (mc.cred, pubkeyfilename, seckeyfilename,
438
 
     GNUTLS_OPENPGP_FMT_BASE64);
439
 
  if(ret != GNUTLS_E_SUCCESS){
440
 
    fprintf(stderr,
441
 
            "Error[%d] while reading the OpenPGP key pair ('%s',"
442
 
            " '%s')\n", ret, pubkeyfilename, seckeyfilename);
443
 
    fprintf(stderr, "The GnuTLS error is: %s\n",
444
 
            safer_gnutls_strerror(ret));
445
 
    goto globalfail;
446
 
  }
447
 
  
448
 
  /* GnuTLS server initialization */
449
 
  ret = gnutls_dh_params_init(&mc.dh_params);
450
 
  if(ret != GNUTLS_E_SUCCESS){
451
 
    fprintf(stderr, "Error in GnuTLS DH parameter initialization:"
452
 
            " %s\n", safer_gnutls_strerror(ret));
453
 
    goto globalfail;
454
 
  }
455
 
  ret = gnutls_dh_params_generate2(mc.dh_params, mc.dh_bits);
456
 
  if(ret != GNUTLS_E_SUCCESS){
457
 
    fprintf(stderr, "Error in GnuTLS prime generation: %s\n",
458
 
            safer_gnutls_strerror(ret));
459
 
    goto globalfail;
460
 
  }
461
 
  
462
 
  gnutls_certificate_set_dh_params(mc.cred, mc.dh_params);
463
 
  
464
 
  return 0;
465
 
  
466
 
 globalfail:
467
 
  
468
 
  gnutls_certificate_free_credentials(mc.cred);
469
 
  gnutls_global_deinit();
470
 
  gnutls_dh_params_deinit(mc.dh_params);
471
 
  return -1;
472
 
}
473
 
 
474
 
static int init_gnutls_session(gnutls_session_t *session){
475
 
  int ret;
476
 
  /* GnuTLS session creation */
477
 
  ret = gnutls_init(session, GNUTLS_SERVER);
478
 
  if(ret != GNUTLS_E_SUCCESS){
 
305
    (es->cred, certfile, certkey, GNUTLS_OPENPGP_FMT_BASE64);
 
306
  if (ret != GNUTLS_E_SUCCESS) {
 
307
    fprintf
 
308
      (stderr, "Error[%d] while reading the OpenPGP key pair ('%s',"
 
309
       " '%s')\n",
 
310
       ret, certfile, certkey);
 
311
    fprintf(stdout, "The Error is: %s\n",
 
312
            safer_gnutls_strerror(ret));
 
313
    return -1;
 
314
  }
 
315
  
 
316
  //GnuTLS server initialization
 
317
  if ((ret = gnutls_dh_params_init (&es->dh_params))
 
318
      != GNUTLS_E_SUCCESS) {
 
319
    fprintf (stderr, "Error in dh parameter initialization: %s\n",
 
320
             safer_gnutls_strerror(ret));
 
321
    return -1;
 
322
  }
 
323
  
 
324
  if ((ret = gnutls_dh_params_generate2 (es->dh_params, DH_BITS))
 
325
      != GNUTLS_E_SUCCESS) {
 
326
    fprintf (stderr, "Error in prime generation: %s\n",
 
327
             safer_gnutls_strerror(ret));
 
328
    return -1;
 
329
  }
 
330
  
 
331
  gnutls_certificate_set_dh_params (es->cred, es->dh_params);
 
332
  
 
333
  // GnuTLS session creation
 
334
  if ((ret = gnutls_init (&es->session, GNUTLS_SERVER))
 
335
      != GNUTLS_E_SUCCESS){
479
336
    fprintf(stderr, "Error in GnuTLS session initialization: %s\n",
480
337
            safer_gnutls_strerror(ret));
481
338
  }
482
339
  
483
 
  {
484
 
    const char *err;
485
 
    ret = gnutls_priority_set_direct(*session, mc.priority, &err);
486
 
    if(ret != GNUTLS_E_SUCCESS){
487
 
      fprintf(stderr, "Syntax error at: %s\n", err);
488
 
      fprintf(stderr, "GnuTLS error: %s\n",
489
 
              safer_gnutls_strerror(ret));
490
 
      gnutls_deinit(*session);
491
 
      return -1;
492
 
    }
 
340
  if ((ret = gnutls_priority_set_direct (es->session, mc->priority, &err))
 
341
      != GNUTLS_E_SUCCESS) {
 
342
    fprintf(stderr, "Syntax error at: %s\n", err);
 
343
    fprintf(stderr, "GnuTLS error: %s\n",
 
344
            safer_gnutls_strerror(ret));
 
345
    return -1;
493
346
  }
494
347
  
495
 
  ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,
496
 
                               mc.cred);
497
 
  if(ret != GNUTLS_E_SUCCESS){
498
 
    fprintf(stderr, "Error setting GnuTLS credentials: %s\n",
 
348
  if ((ret = gnutls_credentials_set
 
349
       (es->session, GNUTLS_CRD_CERTIFICATE, es->cred))
 
350
      != GNUTLS_E_SUCCESS) {
 
351
    fprintf(stderr, "Error setting a credentials set: %s\n",
499
352
            safer_gnutls_strerror(ret));
500
 
    gnutls_deinit(*session);
501
353
    return -1;
502
354
  }
503
355
  
504
356
  /* ignore client certificate if any. */
505
 
  gnutls_certificate_server_set_request(*session,
506
 
                                        GNUTLS_CERT_IGNORE);
 
357
  gnutls_certificate_server_set_request (es->session,
 
358
                                         GNUTLS_CERT_IGNORE);
507
359
  
508
 
  gnutls_dh_set_prime_bits(*session, mc.dh_bits);
 
360
  gnutls_dh_set_prime_bits (es->session, DH_BITS);
509
361
  
510
362
  return 0;
511
363
}
512
364
 
513
 
/* Avahi log function callback */
514
365
static void empty_log(__attribute__((unused)) AvahiLogLevel level,
515
366
                      __attribute__((unused)) const char *txt){}
516
367
 
517
 
/* Called when a Mandos server is found */
518
368
static int start_mandos_communication(const char *ip, uint16_t port,
519
369
                                      AvahiIfIndex if_index,
520
 
                                      int af){
 
370
                                      mandos_context *mc){
521
371
  int ret, tcp_sd;
522
 
  ssize_t sret;
523
 
  union {
524
 
    struct sockaddr_in in;
525
 
    struct sockaddr_in6 in6;
526
 
  } to;
 
372
  struct sockaddr_in6 to;
 
373
  encrypted_session es;
527
374
  char *buffer = NULL;
528
375
  char *decrypted_buffer;
529
376
  size_t buffer_length = 0;
531
378
  ssize_t decrypted_buffer_size;
532
379
  size_t written;
533
380
  int retval = 0;
534
 
  gnutls_session_t session;
535
 
  int pf;                       /* Protocol family */
536
 
  
537
 
  switch(af){
538
 
  case AF_INET6:
539
 
    pf = PF_INET6;
540
 
    break;
541
 
  case AF_INET:
542
 
    pf = PF_INET;
543
 
    break;
544
 
  default:
545
 
    fprintf(stderr, "Bad address family: %d\n", af);
546
 
    return -1;
547
 
  }
548
 
  
549
 
  ret = init_gnutls_session(&session);
550
 
  if(ret != 0){
551
 
    return -1;
552
 
  }
 
381
  char interface[IF_NAMESIZE];
553
382
  
554
383
  if(debug){
555
 
    fprintf(stderr, "Setting up a TCP connection to %s, port %" PRIu16
556
 
            "\n", ip, port);
 
384
    fprintf(stderr, "Setting up a tcp connection to %s, port %d\n",
 
385
            ip, port);
557
386
  }
558
387
  
559
 
  tcp_sd = socket(pf, SOCK_STREAM, 0);
560
 
  if(tcp_sd < 0){
 
388
  tcp_sd = socket(PF_INET6, SOCK_STREAM, 0);
 
389
  if(tcp_sd < 0) {
561
390
    perror("socket");
562
391
    return -1;
563
392
  }
 
393
 
 
394
  if(debug){
 
395
    if(if_indextoname((unsigned int)if_index, interface) == NULL){
 
396
      if(debug){
 
397
        perror("if_indextoname");
 
398
      }
 
399
      return -1;
 
400
    }
 
401
    
 
402
    fprintf(stderr, "Binding to interface %s\n", interface);
 
403
  }
564
404
  
565
 
  memset(&to, 0, sizeof(to));
566
 
  if(af == AF_INET6){
567
 
    to.in6.sin6_family = (sa_family_t)af;
568
 
    ret = inet_pton(af, ip, &to.in6.sin6_addr);
569
 
  } else {                      /* IPv4 */
570
 
    to.in.sin_family = (sa_family_t)af;
571
 
    ret = inet_pton(af, ip, &to.in.sin_addr);
572
 
  }
573
 
  if(ret < 0 ){
 
405
  memset(&to,0,sizeof(to));     /* Spurious warning */
 
406
  to.sin6_family = AF_INET6;
 
407
  ret = inet_pton(AF_INET6, ip, &to.sin6_addr);
 
408
  if (ret < 0 ){
574
409
    perror("inet_pton");
575
410
    return -1;
576
 
  }
 
411
  }  
577
412
  if(ret == 0){
578
413
    fprintf(stderr, "Bad address: %s\n", ip);
579
414
    return -1;
580
415
  }
581
 
  if(af == AF_INET6){
582
 
    to.in6.sin6_port = htons(port); /* Spurious warnings from
583
 
                                       -Wconversion and
584
 
                                       -Wunreachable-code */
585
 
    
586
 
    if(IN6_IS_ADDR_LINKLOCAL /* Spurious warnings from */
587
 
       (&to.in6.sin6_addr)){ /* -Wstrict-aliasing=2 or lower and
588
 
                              -Wunreachable-code*/
589
 
      if(if_index == AVAHI_IF_UNSPEC){
590
 
        fprintf(stderr, "An IPv6 link-local address is incomplete"
591
 
                " without a network interface\n");
592
 
        return -1;
593
 
      }
594
 
      /* Set the network interface number as scope */
595
 
      to.in6.sin6_scope_id = (uint32_t)if_index;
596
 
    }
597
 
  } else {
598
 
    to.in.sin_port = htons(port); /* Spurious warnings from
599
 
                                     -Wconversion and
600
 
                                     -Wunreachable-code */
601
 
  }
 
416
  to.sin6_port = htons(port);   /* Spurious warning */
 
417
  
 
418
  to.sin6_scope_id = (uint32_t)if_index;
602
419
  
603
420
  if(debug){
604
 
    if(af == AF_INET6 and if_index != AVAHI_IF_UNSPEC){
605
 
      char interface[IF_NAMESIZE];
606
 
      if(if_indextoname((unsigned int)if_index, interface) == NULL){
607
 
        perror("if_indextoname");
608
 
      } else {
609
 
        fprintf(stderr, "Connection to: %s%%%s, port %" PRIu16 "\n",
610
 
                ip, interface, port);
611
 
      }
612
 
    } else {
613
 
      fprintf(stderr, "Connection to: %s, port %" PRIu16 "\n", ip,
614
 
              port);
615
 
    }
616
 
    char addrstr[(INET_ADDRSTRLEN > INET6_ADDRSTRLEN) ?
617
 
                 INET_ADDRSTRLEN : INET6_ADDRSTRLEN] = "";
618
 
    const char *pcret;
619
 
    if(af == AF_INET6){
620
 
      pcret = inet_ntop(af, &(to.in6.sin6_addr), addrstr,
621
 
                        sizeof(addrstr));
622
 
    } else {
623
 
      pcret = inet_ntop(af, &(to.in.sin_addr), addrstr,
624
 
                        sizeof(addrstr));
625
 
    }
626
 
    if(pcret == NULL){
627
 
      perror("inet_ntop");
628
 
    } else {
629
 
      if(strcmp(addrstr, ip) != 0){
630
 
        fprintf(stderr, "Canonical address form: %s\n", addrstr);
631
 
      }
632
 
    }
 
421
    fprintf(stderr, "Connection to: %s, port %d\n", ip, port);
 
422
/*     char addrstr[INET6_ADDRSTRLEN]; */
 
423
/*     if(inet_ntop(to.sin6_family, &(to.sin6_addr), addrstr, */
 
424
/*               sizeof(addrstr)) == NULL){ */
 
425
/*       perror("inet_ntop"); */
 
426
/*     } else { */
 
427
/*       fprintf(stderr, "Really connecting to: %s, port %d\n", */
 
428
/*            addrstr, ntohs(to.sin6_port)); */
 
429
/*     } */
633
430
  }
634
431
  
635
 
  if(af == AF_INET6){
636
 
    ret = connect(tcp_sd, &to.in6, sizeof(to));
637
 
  } else {
638
 
    ret = connect(tcp_sd, &to.in, sizeof(to)); /* IPv4 */
639
 
  }
640
 
  if(ret < 0){
 
432
  ret = connect(tcp_sd, (struct sockaddr *) &to, sizeof(to));
 
433
  if (ret < 0){
641
434
    perror("connect");
642
435
    return -1;
643
436
  }
644
 
  
645
 
  const char *out = mandos_protocol_version;
 
437
 
 
438
  char *out = mandos_protocol_version;
646
439
  written = 0;
647
 
  while(true){
 
440
  while (true){
648
441
    size_t out_size = strlen(out);
649
 
    ret = (int)TEMP_FAILURE_RETRY(write(tcp_sd, out + written,
 
442
    ret = TEMP_FAILURE_RETRY(write(tcp_sd, out + written,
650
443
                                   out_size - written));
651
 
    if(ret == -1){
 
444
    if (ret == -1){
652
445
      perror("write");
653
446
      retval = -1;
654
 
      goto mandos_end;
 
447
      goto end;
655
448
    }
656
 
    written += (size_t)ret;
 
449
    written += ret;
657
450
    if(written < out_size){
658
451
      continue;
659
452
    } else {
660
 
      if(out == mandos_protocol_version){
 
453
      if (out == mandos_protocol_version){
661
454
        written = 0;
662
455
        out = "\r\n";
663
456
      } else {
665
458
      }
666
459
    }
667
460
  }
 
461
 
 
462
  ret = initgnutls (&es);
 
463
  if (ret != 0){
 
464
    retval = -1;
 
465
    return -1;
 
466
  }
 
467
  
 
468
  gnutls_transport_set_ptr (es.session,
 
469
                            (gnutls_transport_ptr_t) tcp_sd);
668
470
  
669
471
  if(debug){
670
472
    fprintf(stderr, "Establishing TLS session with %s\n", ip);
671
473
  }
672
474
  
673
 
  gnutls_transport_set_ptr(session, (gnutls_transport_ptr_t) tcp_sd);
674
 
  
675
 
  do{
676
 
    ret = gnutls_handshake(session);
677
 
  } while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
678
 
  
679
 
  if(ret != GNUTLS_E_SUCCESS){
 
475
  ret = gnutls_handshake (es.session);
 
476
  
 
477
  if (ret != GNUTLS_E_SUCCESS){
680
478
    if(debug){
681
 
      fprintf(stderr, "*** GnuTLS Handshake failed ***\n");
682
 
      gnutls_perror(ret);
 
479
      fprintf(stderr, "\n*** Handshake failed ***\n");
 
480
      gnutls_perror (ret);
683
481
    }
684
482
    retval = -1;
685
 
    goto mandos_end;
 
483
    goto exit;
686
484
  }
687
485
  
688
 
  /* Read OpenPGP packet that contains the wanted password */
 
486
  //Retrieve OpenPGP packet that contains the wanted password
689
487
  
690
488
  if(debug){
691
 
    fprintf(stderr, "Retrieving OpenPGP encrypted password from %s\n",
 
489
    fprintf(stderr, "Retrieving pgp encrypted password from %s\n",
692
490
            ip);
693
491
  }
694
 
  
 
492
 
695
493
  while(true){
696
 
    buffer_capacity = incbuffer(&buffer, buffer_length,
697
 
                                   buffer_capacity);
698
 
    if(buffer_capacity == 0){
699
 
      perror("incbuffer");
 
494
    buffer_capacity = adjustbuffer(buffer, buffer_length, buffer_capacity);
 
495
    if (buffer_capacity == 0){
 
496
      perror("adjustbuffer");
700
497
      retval = -1;
701
 
      goto mandos_end;
 
498
      goto exit;
702
499
    }
703
500
    
704
 
    sret = gnutls_record_recv(session, buffer+buffer_length,
705
 
                              BUFFER_SIZE);
706
 
    if(sret == 0){
 
501
    ret = gnutls_record_recv
 
502
      (es.session, buffer+buffer_length, BUFFER_SIZE);
 
503
    if (ret == 0){
707
504
      break;
708
505
    }
709
 
    if(sret < 0){
710
 
      switch(sret){
 
506
    if (ret < 0){
 
507
      switch(ret){
711
508
      case GNUTLS_E_INTERRUPTED:
712
509
      case GNUTLS_E_AGAIN:
713
510
        break;
714
511
      case GNUTLS_E_REHANDSHAKE:
715
 
        do{
716
 
          ret = gnutls_handshake(session);
717
 
        } while(ret == GNUTLS_E_AGAIN or ret == GNUTLS_E_INTERRUPTED);
718
 
        if(ret < 0){
719
 
          fprintf(stderr, "*** GnuTLS Re-handshake failed ***\n");
720
 
          gnutls_perror(ret);
 
512
        ret = gnutls_handshake (es.session);
 
513
        if (ret < 0){
 
514
          fprintf(stderr, "\n*** Handshake failed ***\n");
 
515
          gnutls_perror (ret);
721
516
          retval = -1;
722
 
          goto mandos_end;
 
517
          goto exit;
723
518
        }
724
519
        break;
725
520
      default:
726
521
        fprintf(stderr, "Unknown error while reading data from"
727
 
                " encrypted session with Mandos server\n");
 
522
                " encrypted session with mandos server\n");
728
523
        retval = -1;
729
 
        gnutls_bye(session, GNUTLS_SHUT_RDWR);
730
 
        goto mandos_end;
 
524
        gnutls_bye (es.session, GNUTLS_SHUT_RDWR);
 
525
        goto exit;
731
526
      }
732
527
    } else {
733
 
      buffer_length += (size_t) sret;
 
528
      buffer_length += (size_t) ret;
734
529
    }
735
530
  }
736
531
  
737
 
  if(debug){
738
 
    fprintf(stderr, "Closing TLS session\n");
739
 
  }
740
 
  
741
 
  gnutls_bye(session, GNUTLS_SHUT_RDWR);
742
 
  
743
 
  if(buffer_length > 0){
 
532
  if (buffer_length > 0){
744
533
    decrypted_buffer_size = pgp_packet_decrypt(buffer,
745
534
                                               buffer_length,
746
 
                                               &decrypted_buffer);
747
 
    if(decrypted_buffer_size >= 0){
 
535
                                               &decrypted_buffer,
 
536
                                               certdir);
 
537
    if (decrypted_buffer_size >= 0){
748
538
      written = 0;
749
539
      while(written < (size_t) decrypted_buffer_size){
750
 
        ret = (int)fwrite(decrypted_buffer + written, 1,
751
 
                          (size_t)decrypted_buffer_size - written,
752
 
                          stdout);
 
540
        ret = (int)fwrite (decrypted_buffer + written, 1,
 
541
                           (size_t)decrypted_buffer_size - written,
 
542
                           stdout);
753
543
        if(ret == 0 and ferror(stdout)){
754
544
          if(debug){
755
545
            fprintf(stderr, "Error writing encrypted data: %s\n",
764
554
    } else {
765
555
      retval = -1;
766
556
    }
767
 
  } else {
768
 
    retval = -1;
769
 
  }
770
 
  
771
 
  /* Shutdown procedure */
772
 
  
773
 
 mandos_end:
 
557
  }
 
558
 
 
559
  //shutdown procedure
 
560
 
 
561
  if(debug){
 
562
    fprintf(stderr, "Closing TLS session\n");
 
563
  }
 
564
 
774
565
  free(buffer);
775
 
  ret = (int)TEMP_FAILURE_RETRY(close(tcp_sd));
776
 
  if(ret == -1){
777
 
    perror("close");
778
 
  }
779
 
  gnutls_deinit(session);
 
566
  gnutls_bye (es.session, GNUTLS_SHUT_RDWR);
 
567
 exit:
 
568
  close(tcp_sd);
 
569
  gnutls_deinit (es.session);
 
570
  gnutls_certificate_free_credentials (es.cred);
 
571
  gnutls_global_deinit ();
780
572
  return retval;
781
573
}
782
574
 
783
 
static void resolve_callback(AvahiSServiceResolver *r,
784
 
                             AvahiIfIndex interface,
785
 
                             AvahiProtocol proto,
786
 
                             AvahiResolverEvent event,
787
 
                             const char *name,
788
 
                             const char *type,
789
 
                             const char *domain,
790
 
                             const char *host_name,
791
 
                             const AvahiAddress *address,
792
 
                             uint16_t port,
793
 
                             AVAHI_GCC_UNUSED AvahiStringList *txt,
794
 
                             AVAHI_GCC_UNUSED AvahiLookupResultFlags
795
 
                             flags,
796
 
                             AVAHI_GCC_UNUSED void* userdata){
797
 
  assert(r);
 
575
static void resolve_callback( AvahiSServiceResolver *r,
 
576
                              AvahiIfIndex interface,
 
577
                              AVAHI_GCC_UNUSED AvahiProtocol protocol,
 
578
                              AvahiResolverEvent event,
 
579
                              const char *name,
 
580
                              const char *type,
 
581
                              const char *domain,
 
582
                              const char *host_name,
 
583
                              const AvahiAddress *address,
 
584
                              uint16_t port,
 
585
                              AVAHI_GCC_UNUSED AvahiStringList *txt,
 
586
                              AVAHI_GCC_UNUSED AvahiLookupResultFlags flags,
 
587
                              AVAHI_GCC_UNUSED void* userdata) {
 
588
  mandos_context *mc = userdata;
 
589
  assert(r);                    /* Spurious warning */
798
590
  
799
591
  /* Called whenever a service has been resolved successfully or
800
592
     timed out */
801
593
  
802
 
  switch(event){
 
594
  switch (event) {
803
595
  default:
804
596
  case AVAHI_RESOLVER_FAILURE:
805
 
    fprintf(stderr, "(Avahi Resolver) Failed to resolve service '%s'"
806
 
            " of type '%s' in domain '%s': %s\n", name, type, domain,
807
 
            avahi_strerror(avahi_server_errno(mc.server)));
 
597
    fprintf(stderr, "(Resolver) Failed to resolve service '%s' of"
 
598
            " type '%s' in domain '%s': %s\n", name, type, domain,
 
599
            avahi_strerror(avahi_server_errno(mc->server)));
808
600
    break;
809
601
    
810
602
  case AVAHI_RESOLVER_FOUND:
812
604
      char ip[AVAHI_ADDRESS_STR_MAX];
813
605
      avahi_address_snprint(ip, sizeof(ip), address);
814
606
      if(debug){
815
 
        fprintf(stderr, "Mandos server \"%s\" found on %s (%s, %"
816
 
                PRIdMAX ") on port %" PRIu16 "\n", name, host_name,
817
 
                ip, (intmax_t)interface, port);
 
607
        fprintf(stderr, "Mandos server \"%s\" found on %s (%s) on"
 
608
                " port %d\n", name, host_name, ip, port);
818
609
      }
819
 
      int ret = start_mandos_communication(ip, port, interface,
820
 
                                           avahi_proto_to_af(proto));
821
 
      if(ret == 0){
822
 
        avahi_simple_poll_quit(mc.simple_poll);
 
610
      int ret = start_mandos_communication(ip, port, interface, mc);
 
611
      if (ret == 0){
 
612
        exit(EXIT_SUCCESS);
823
613
      }
824
614
    }
825
615
  }
826
616
  avahi_s_service_resolver_free(r);
827
617
}
828
618
 
829
 
static void browse_callback(AvahiSServiceBrowser *b,
830
 
                            AvahiIfIndex interface,
831
 
                            AvahiProtocol protocol,
832
 
                            AvahiBrowserEvent event,
833
 
                            const char *name,
834
 
                            const char *type,
835
 
                            const char *domain,
836
 
                            AVAHI_GCC_UNUSED AvahiLookupResultFlags
837
 
                            flags,
838
 
                            AVAHI_GCC_UNUSED void* userdata){
839
 
  assert(b);
 
619
static void browse_callback( AvahiSServiceBrowser *b,
 
620
                             AvahiIfIndex interface,
 
621
                             AvahiProtocol protocol,
 
622
                             AvahiBrowserEvent event,
 
623
                             const char *name,
 
624
                             const char *type,
 
625
                             const char *domain,
 
626
                             AVAHI_GCC_UNUSED AvahiLookupResultFlags flags,
 
627
                             void* userdata) {
 
628
  mandos_context *mc = userdata;
 
629
  assert(b);                    /* Spurious warning */
840
630
  
841
631
  /* Called whenever a new services becomes available on the LAN or
842
632
     is removed from the LAN */
843
633
  
844
 
  switch(event){
 
634
  switch (event) {
845
635
  default:
846
636
  case AVAHI_BROWSER_FAILURE:
847
 
    
848
 
    fprintf(stderr, "(Avahi browser) %s\n",
849
 
            avahi_strerror(avahi_server_errno(mc.server)));
850
 
    avahi_simple_poll_quit(mc.simple_poll);
 
637
      
 
638
    fprintf(stderr, "(Browser) %s\n",
 
639
            avahi_strerror(avahi_server_errno(mc->server)));
 
640
    avahi_simple_poll_quit(mc->simple_poll);
851
641
    return;
852
 
    
 
642
      
853
643
  case AVAHI_BROWSER_NEW:
854
 
    /* We ignore the returned Avahi resolver object. In the callback
855
 
       function we free it. If the Avahi server is terminated before
856
 
       the callback function is called the Avahi server will free the
857
 
       resolver for us. */
858
 
    
859
 
    if(avahi_s_service_resolver_new(mc.server, interface, protocol,
860
 
                                    name, type, domain, protocol, 0,
861
 
                                    resolve_callback, NULL) == NULL)
862
 
      fprintf(stderr, "Avahi: Failed to resolve service '%s': %s\n",
863
 
              name, avahi_strerror(avahi_server_errno(mc.server)));
 
644
    /* We ignore the returned resolver object. In the callback
 
645
       function we free it. If the server is terminated before
 
646
       the callback function is called the server will free
 
647
       the resolver for us. */
 
648
      
 
649
    if (!(avahi_s_service_resolver_new(mc->server, interface, protocol, name,
 
650
                                       type, domain,
 
651
                                       AVAHI_PROTO_INET6, 0,
 
652
                                       resolve_callback, mc)))
 
653
      fprintf(stderr, "Failed to resolve service '%s': %s\n", name,
 
654
              avahi_strerror(avahi_server_errno(s)));
864
655
    break;
865
 
    
 
656
      
866
657
  case AVAHI_BROWSER_REMOVE:
867
658
    break;
868
 
    
 
659
      
869
660
  case AVAHI_BROWSER_ALL_FOR_NOW:
870
661
  case AVAHI_BROWSER_CACHE_EXHAUSTED:
871
 
    if(debug){
872
 
      fprintf(stderr, "No Mandos server found, still searching...\n");
873
 
    }
874
662
    break;
875
663
  }
876
664
}
877
665
 
878
 
sig_atomic_t quit_now = 0;
879
 
 
880
 
/* stop main loop after sigterm has been called */
881
 
static void handle_sigterm(__attribute__((unused)) int sig){
882
 
  if(quit_now){
883
 
    return;
884
 
  }
885
 
  quit_now = 1;
886
 
  int old_errno = errno;
887
 
  if(mc.simple_poll != NULL){
888
 
    avahi_simple_poll_quit(mc.simple_poll);
889
 
  }
890
 
  errno = old_errno;
 
666
/* Combines file name and path and returns the malloced new
 
667
   string. some sane checks could/should be added */
 
668
static const char *combinepath(const char *first, const char *second){
 
669
  size_t f_len = strlen(first);
 
670
  size_t s_len = strlen(second);
 
671
  char *tmp = malloc(f_len + s_len + 2);
 
672
  if (tmp == NULL){
 
673
    return NULL;
 
674
  }
 
675
  if(f_len > 0){
 
676
    memcpy(tmp, first, f_len);
 
677
  }
 
678
  tmp[f_len] = '/';
 
679
  if(s_len > 0){
 
680
    memcpy(tmp + f_len + 1, second, s_len);
 
681
  }
 
682
  tmp[f_len + 1 + s_len] = '\0';
 
683
  return tmp;
891
684
}
892
685
 
893
 
int main(int argc, char *argv[]){
894
 
  AvahiSServiceBrowser *sb = NULL;
895
 
  int error;
896
 
  int ret;
897
 
  intmax_t tmpmax;
898
 
  char *tmp;
899
 
  int exitcode = EXIT_SUCCESS;
900
 
  const char *interface = "eth0";
901
 
  struct ifreq network;
902
 
  int sd;
903
 
  uid_t uid;
904
 
  gid_t gid;
905
 
  char *connect_to = NULL;
906
 
  char tempdir[] = "/tmp/mandosXXXXXX";
907
 
  bool tempdir_created = false;
908
 
  AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
909
 
  const char *seckey = PATHDIR "/" SECKEY;
910
 
  const char *pubkey = PATHDIR "/" PUBKEY;
911
 
  
912
 
  bool gnutls_initialized = false;
913
 
  bool gpgme_initialized = false;
914
 
  float delay = 2.5f;
915
 
  
916
 
  struct sigaction old_sigterm_action;
917
 
  struct sigaction sigterm_action = { .sa_handler = handle_sigterm };
918
 
  
919
 
  {
920
 
    struct argp_option options[] = {
921
 
      { .name = "debug", .key = 128,
922
 
        .doc = "Debug mode", .group = 3 },
923
 
      { .name = "connect", .key = 'c',
924
 
        .arg = "ADDRESS:PORT",
925
 
        .doc = "Connect directly to a specific Mandos server",
926
 
        .group = 1 },
927
 
      { .name = "interface", .key = 'i',
928
 
        .arg = "NAME",
929
 
        .doc = "Network interface that will be used to search for"
930
 
        " Mandos servers",
931
 
        .group = 1 },
932
 
      { .name = "seckey", .key = 's',
933
 
        .arg = "FILE",
934
 
        .doc = "OpenPGP secret key file base name",
935
 
        .group = 1 },
936
 
      { .name = "pubkey", .key = 'p',
937
 
        .arg = "FILE",
938
 
        .doc = "OpenPGP public key file base name",
939
 
        .group = 2 },
940
 
      { .name = "dh-bits", .key = 129,
941
 
        .arg = "BITS",
942
 
        .doc = "Bit length of the prime number used in the"
943
 
        " Diffie-Hellman key exchange",
944
 
        .group = 2 },
945
 
      { .name = "priority", .key = 130,
946
 
        .arg = "STRING",
947
 
        .doc = "GnuTLS priority string for the TLS handshake",
948
 
        .group = 1 },
949
 
      { .name = "delay", .key = 131,
950
 
        .arg = "SECONDS",
951
 
        .doc = "Maximum delay to wait for interface startup",
952
 
        .group = 2 },
953
 
      { .name = NULL }
954
 
    };
 
686
 
 
687
int main(AVAHI_GCC_UNUSED int argc, AVAHI_GCC_UNUSED char*argv[]) {
 
688
    AvahiServerConfig config;
 
689
    AvahiSServiceBrowser *sb = NULL;
 
690
    int error;
 
691
    int ret;
 
692
    int returncode = EXIT_SUCCESS;
 
693
    const char *interface = "eth0";
 
694
    struct ifreq network;
 
695
    int sd;
 
696
    char *connect_to = NULL;
 
697
    AvahiIfIndex if_index = AVAHI_IF_UNSPEC;
 
698
    mandos_context mc = { .simple_poll = NULL, .server = NULL,
 
699
                          .dh_bits = 2048, .priority = "SECURE256"};
955
700
    
956
 
    error_t parse_opt(int key, char *arg,
957
 
                      struct argp_state *state){
958
 
      switch(key){
959
 
      case 128:                 /* --debug */
960
 
        debug = true;
961
 
        break;
962
 
      case 'c':                 /* --connect */
963
 
        connect_to = arg;
964
 
        break;
965
 
      case 'i':                 /* --interface */
966
 
        interface = arg;
967
 
        break;
968
 
      case 's':                 /* --seckey */
969
 
        seckey = arg;
970
 
        break;
971
 
      case 'p':                 /* --pubkey */
972
 
        pubkey = arg;
973
 
        break;
974
 
      case 129:                 /* --dh-bits */
975
 
        errno = 0;
976
 
        tmpmax = strtoimax(arg, &tmp, 10);
977
 
        if(errno != 0 or tmp == arg or *tmp != '\0'
978
 
           or tmpmax != (typeof(mc.dh_bits))tmpmax){
979
 
          fprintf(stderr, "Bad number of DH bits\n");
980
 
          exit(EXIT_FAILURE);
981
 
        }
982
 
        mc.dh_bits = (typeof(mc.dh_bits))tmpmax;
983
 
        break;
984
 
      case 130:                 /* --priority */
985
 
        mc.priority = arg;
986
 
        break;
987
 
      case 131:                 /* --delay */
988
 
        errno = 0;
989
 
        delay = strtof(arg, &tmp);
990
 
        if(errno != 0 or tmp == arg or *tmp != '\0'){
991
 
          fprintf(stderr, "Bad delay\n");
992
 
          exit(EXIT_FAILURE);
993
 
        }
994
 
        break;
995
 
      case ARGP_KEY_ARG:
996
 
        argp_usage(state);
997
 
      case ARGP_KEY_END:
 
701
    while (true){
 
702
      static struct option long_options[] = {
 
703
        {"debug", no_argument, (int *)&debug, 1},
 
704
        {"connect", required_argument, 0, 'C'},
 
705
        {"interface", required_argument, 0, 'i'},
 
706
        {"certdir", required_argument, 0, 'd'},
 
707
        {"certkey", required_argument, 0, 'c'},
 
708
        {"certfile", required_argument, 0, 'k'},
 
709
        {"dh_bits", required_argument, 0, 'D'},
 
710
        {"priority", required_argument, 0, 'p'},
 
711
        {0, 0, 0, 0} };
 
712
      
 
713
      int option_index = 0;
 
714
      ret = getopt_long (argc, argv, "i:", long_options,
 
715
                         &option_index);
 
716
      
 
717
      if (ret == -1){
 
718
        break;
 
719
      }
 
720
      
 
721
      switch(ret){
 
722
      case 0:
 
723
        break;
 
724
      case 'i':
 
725
        interface = optarg;
 
726
        break;
 
727
      case 'C':
 
728
        connect_to = optarg;
 
729
        break;
 
730
      case 'd':
 
731
        certdir = optarg;
 
732
        break;
 
733
      case 'c':
 
734
        certfile = optarg;
 
735
        break;
 
736
      case 'k':
 
737
        certkey = optarg;
 
738
        break;
 
739
      case 'D':
 
740
        {
 
741
          long int tmp;
 
742
          errno = 0;
 
743
          tmp = strtol(optarg, NULL, 10);
 
744
          if (errno == ERANGE){
 
745
            perror("strtol");
 
746
            exit(EXIT_FAILURE);
 
747
          }
 
748
          mc.dh_bits = tmp;
 
749
        }
 
750
        break;
 
751
      case 'p':
 
752
        mc.priority = optarg;
998
753
        break;
999
754
      default:
1000
 
        return ARGP_ERR_UNKNOWN;
1001
 
      }
1002
 
      return 0;
1003
 
    }
1004
 
    
1005
 
    struct argp argp = { .options = options, .parser = parse_opt,
1006
 
                         .args_doc = "",
1007
 
                         .doc = "Mandos client -- Get and decrypt"
1008
 
                         " passwords from a Mandos server" };
1009
 
    ret = argp_parse(&argp, argc, argv, 0, 0, NULL);
1010
 
    if(ret == ARGP_ERR_UNKNOWN){
1011
 
      fprintf(stderr, "Unknown error while parsing arguments\n");
1012
 
      exitcode = EXIT_FAILURE;
1013
 
      goto end;
1014
 
    }
1015
 
  }
1016
 
  
1017
 
  if(not debug){
1018
 
    avahi_set_log_function(empty_log);
1019
 
  }
1020
 
  
1021
 
  /* Initialize Avahi early so avahi_simple_poll_quit() can be called
1022
 
     from the signal handler */
1023
 
  /* Initialize the pseudo-RNG for Avahi */
1024
 
  srand((unsigned int) time(NULL));
1025
 
  mc.simple_poll = avahi_simple_poll_new();
1026
 
  if(mc.simple_poll == NULL){
1027
 
    fprintf(stderr, "Avahi: Failed to create simple poll object.\n");
1028
 
    exitcode = EXIT_FAILURE;
1029
 
    goto end;
1030
 
  }
1031
 
  
1032
 
  sigemptyset(&sigterm_action.sa_mask);
1033
 
  ret = sigaddset(&sigterm_action.sa_mask, SIGINT);
1034
 
  if(ret == -1){
1035
 
    perror("sigaddset");
1036
 
    exitcode = EXIT_FAILURE;
1037
 
    goto end;
1038
 
  }
1039
 
  ret = sigaddset(&sigterm_action.sa_mask, SIGHUP);
1040
 
  if(ret == -1){
1041
 
    perror("sigaddset");
1042
 
    exitcode = EXIT_FAILURE;
1043
 
    goto end;
1044
 
  }
1045
 
  ret = sigaddset(&sigterm_action.sa_mask, SIGTERM);
1046
 
  if(ret == -1){
1047
 
    perror("sigaddset");
1048
 
    exitcode = EXIT_FAILURE;
1049
 
    goto end;
1050
 
  }
1051
 
  ret = sigaction(SIGTERM, &sigterm_action, &old_sigterm_action);
1052
 
  if(ret == -1){
1053
 
    perror("sigaction");
1054
 
    exitcode = EXIT_FAILURE;
1055
 
    goto end;
1056
 
  }  
1057
 
  
1058
 
  /* If the interface is down, bring it up */
1059
 
  if(interface[0] != '\0'){
1060
 
#ifdef __linux__
1061
 
    /* Lower kernel loglevel to KERN_NOTICE to avoid KERN_INFO
1062
 
       messages to mess up the prompt */
1063
 
    ret = klogctl(8, NULL, 5);
1064
 
    bool restore_loglevel = true;
1065
 
    if(ret == -1){
1066
 
      restore_loglevel = false;
1067
 
      perror("klogctl");
1068
 
    }
1069
 
#endif  /* __linux__ */
 
755
        exit(EXIT_FAILURE);
 
756
      }
 
757
    }
 
758
    
 
759
    certfile = combinepath(certdir, certfile);
 
760
    if (certfile == NULL){
 
761
      perror("combinepath");
 
762
      returncode = EXIT_FAILURE;
 
763
      goto exit;
 
764
    }
 
765
 
 
766
    certkey = combinepath(certdir, certkey);
 
767
    if (certkey == NULL){
 
768
      perror("combinepath");
 
769
      returncode = EXIT_FAILURE;
 
770
      goto exit;
 
771
    }
 
772
    
 
773
    if_index = (AvahiIfIndex) if_nametoindex(interface);
 
774
    if(if_index == 0){
 
775
      fprintf(stderr, "No such interface: \"%s\"\n", interface);
 
776
      exit(EXIT_FAILURE);
 
777
    }
 
778
    
 
779
    if(connect_to != NULL){
 
780
      /* Connect directly, do not use Zeroconf */
 
781
      /* (Mainly meant for debugging) */
 
782
      char *address = strrchr(connect_to, ':');
 
783
      if(address == NULL){
 
784
        fprintf(stderr, "No colon in address\n");
 
785
        exit(EXIT_FAILURE);
 
786
      }
 
787
      errno = 0;
 
788
      uint16_t port = (uint16_t) strtol(address+1, NULL, 10);
 
789
      if(errno){
 
790
        perror("Bad port number");
 
791
        exit(EXIT_FAILURE);
 
792
      }
 
793
      *address = '\0';
 
794
      address = connect_to;
 
795
      ret = start_mandos_communication(address, port, if_index);
 
796
      if(ret < 0){
 
797
        exit(EXIT_FAILURE);
 
798
      } else {
 
799
        exit(EXIT_SUCCESS);
 
800
      }
 
801
    }
1070
802
    
1071
803
    sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);
1072
 
    if(sd < 0){
 
804
    if(sd < 0) {
1073
805
      perror("socket");
1074
 
      exitcode = EXIT_FAILURE;
1075
 
#ifdef __linux__
1076
 
      if(restore_loglevel){
1077
 
        ret = klogctl(7, NULL, 0);
1078
 
        if(ret == -1){
1079
 
          perror("klogctl");
1080
 
        }
1081
 
      }
1082
 
#endif  /* __linux__ */
1083
 
      goto end;
 
806
      returncode = EXIT_FAILURE;
 
807
      goto exit;
1084
808
    }
1085
 
    strcpy(network.ifr_name, interface);
 
809
    strcpy(network.ifr_name, interface);    
1086
810
    ret = ioctl(sd, SIOCGIFFLAGS, &network);
1087
811
    if(ret == -1){
 
812
      
1088
813
      perror("ioctl SIOCGIFFLAGS");
1089
 
#ifdef __linux__
1090
 
      if(restore_loglevel){
1091
 
        ret = klogctl(7, NULL, 0);
1092
 
        if(ret == -1){
1093
 
          perror("klogctl");
1094
 
        }
1095
 
      }
1096
 
#endif  /* __linux__ */
1097
 
      exitcode = EXIT_FAILURE;
1098
 
      goto end;
 
814
      returncode = EXIT_FAILURE;
 
815
      goto exit;
1099
816
    }
1100
817
    if((network.ifr_flags & IFF_UP) == 0){
1101
818
      network.ifr_flags |= IFF_UP;
1102
819
      ret = ioctl(sd, SIOCSIFFLAGS, &network);
1103
820
      if(ret == -1){
1104
821
        perror("ioctl SIOCSIFFLAGS");
1105
 
        exitcode = EXIT_FAILURE;
1106
 
#ifdef __linux__
1107
 
        if(restore_loglevel){
1108
 
          ret = klogctl(7, NULL, 0);
1109
 
          if(ret == -1){
1110
 
            perror("klogctl");
1111
 
          }
1112
 
        }
1113
 
#endif  /* __linux__ */
1114
 
        goto end;
1115
 
      }
1116
 
    }
1117
 
    /* sleep checking until interface is running */
1118
 
    for(int i=0; i < delay * 4; i++){
1119
 
      ret = ioctl(sd, SIOCGIFFLAGS, &network);
1120
 
      if(ret == -1){
1121
 
        perror("ioctl SIOCGIFFLAGS");
1122
 
      } else if(network.ifr_flags & IFF_RUNNING){
1123
 
        break;
1124
 
      }
1125
 
      struct timespec sleeptime = { .tv_nsec = 250000000 };
1126
 
      ret = nanosleep(&sleeptime, NULL);
1127
 
      if(ret == -1 and errno != EINTR){
1128
 
        perror("nanosleep");
1129
 
      }
1130
 
    }
1131
 
    ret = (int)TEMP_FAILURE_RETRY(close(sd));
1132
 
    if(ret == -1){
1133
 
      perror("close");
1134
 
    }
1135
 
#ifdef __linux__
1136
 
    if(restore_loglevel){
1137
 
      /* Restores kernel loglevel to default */
1138
 
      ret = klogctl(7, NULL, 0);
1139
 
      if(ret == -1){
1140
 
        perror("klogctl");
1141
 
      }
1142
 
    }
1143
 
#endif  /* __linux__ */
1144
 
  }
1145
 
  
1146
 
  uid = getuid();
1147
 
  gid = getgid();
1148
 
  
1149
 
  errno = 0;
1150
 
  setgid(gid);
1151
 
  if(ret == -1){
1152
 
    perror("setgid");
1153
 
  }
1154
 
  
1155
 
  ret = setuid(uid);
1156
 
  if(ret == -1){
1157
 
    perror("setuid");
1158
 
  }
1159
 
  
1160
 
  ret = init_gnutls_global(pubkey, seckey);
1161
 
  if(ret == -1){
1162
 
    fprintf(stderr, "init_gnutls_global failed\n");
1163
 
    exitcode = EXIT_FAILURE;
1164
 
    goto end;
1165
 
  } else {
1166
 
    gnutls_initialized = true;
1167
 
  }
1168
 
  
1169
 
  if(mkdtemp(tempdir) == NULL){
1170
 
    perror("mkdtemp");
1171
 
    goto end;
1172
 
  }
1173
 
  tempdir_created = true;
1174
 
  
1175
 
  if(not init_gpgme(pubkey, seckey, tempdir)){
1176
 
    fprintf(stderr, "init_gpgme failed\n");
1177
 
    exitcode = EXIT_FAILURE;
1178
 
    goto end;
1179
 
  } else {
1180
 
    gpgme_initialized = true;
1181
 
  }
1182
 
  
1183
 
  if(interface[0] != '\0'){
1184
 
    if_index = (AvahiIfIndex) if_nametoindex(interface);
1185
 
    if(if_index == 0){
1186
 
      fprintf(stderr, "No such interface: \"%s\"\n", interface);
1187
 
      exitcode = EXIT_FAILURE;
1188
 
      goto end;
1189
 
    }
1190
 
  }
1191
 
  
1192
 
  if(connect_to != NULL){
1193
 
    /* Connect directly, do not use Zeroconf */
1194
 
    /* (Mainly meant for debugging) */
1195
 
    char *address = strrchr(connect_to, ':');
1196
 
    if(address == NULL){
1197
 
      fprintf(stderr, "No colon in address\n");
1198
 
      exitcode = EXIT_FAILURE;
1199
 
      goto end;
1200
 
    }
1201
 
    uint16_t port;
1202
 
    errno = 0;
1203
 
    tmpmax = strtoimax(address+1, &tmp, 10);
1204
 
    if(errno != 0 or tmp == address+1 or *tmp != '\0'
1205
 
       or tmpmax != (uint16_t)tmpmax){
1206
 
      fprintf(stderr, "Bad port number\n");
1207
 
      exitcode = EXIT_FAILURE;
1208
 
      goto end;
1209
 
    }
1210
 
    port = (uint16_t)tmpmax;
1211
 
    *address = '\0';
1212
 
    address = connect_to;
1213
 
    /* Colon in address indicates IPv6 */
1214
 
    int af;
1215
 
    if(strchr(address, ':') != NULL){
1216
 
      af = AF_INET6;
1217
 
    } else {
1218
 
      af = AF_INET;
1219
 
    }
1220
 
    ret = start_mandos_communication(address, port, if_index, af);
1221
 
    if(ret < 0){
1222
 
      exitcode = EXIT_FAILURE;
1223
 
    } else {
1224
 
      exitcode = EXIT_SUCCESS;
1225
 
    }
1226
 
    goto end;
1227
 
  }
1228
 
    
1229
 
  {
1230
 
    AvahiServerConfig config;
1231
 
    /* Do not publish any local Zeroconf records */
 
822
        returncode = EXIT_FAILURE;
 
823
        goto exit;
 
824
      }
 
825
    }
 
826
    close(sd);
 
827
    
 
828
    if (not debug){
 
829
      avahi_set_log_function(empty_log);
 
830
    }
 
831
    
 
832
    /* Initialize the psuedo-RNG */
 
833
    srand((unsigned int) time(NULL));
 
834
 
 
835
    /* Allocate main loop object */
 
836
    if (!(mc.simple_poll = avahi_simple_poll_new())) {
 
837
        fprintf(stderr, "Failed to create simple poll object.\n");
 
838
        returncode = EXIT_FAILURE;      
 
839
        goto exit;
 
840
    }
 
841
 
 
842
    /* Do not publish any local records */
1232
843
    avahi_server_config_init(&config);
1233
844
    config.publish_hinfo = 0;
1234
845
    config.publish_addresses = 0;
1235
846
    config.publish_workstation = 0;
1236
847
    config.publish_domain = 0;
1237
 
    
 
848
 
1238
849
    /* Allocate a new server */
1239
 
    mc.server = avahi_server_new(avahi_simple_poll_get
1240
 
                                 (mc.simple_poll), &config, NULL,
1241
 
                                 NULL, &error);
1242
 
    
1243
 
    /* Free the Avahi configuration data */
 
850
    mc.server = avahi_server_new(avahi_simple_poll_get(simple_poll),
 
851
                              &config, NULL, NULL, &error);
 
852
 
 
853
    /* Free the configuration data */
1244
854
    avahi_server_config_free(&config);
1245
 
  }
1246
 
  
1247
 
  /* Check if creating the Avahi server object succeeded */
1248
 
  if(mc.server == NULL){
1249
 
    fprintf(stderr, "Failed to create Avahi server: %s\n",
1250
 
            avahi_strerror(error));
1251
 
    exitcode = EXIT_FAILURE;
1252
 
    goto end;
1253
 
  }
1254
 
  
1255
 
  /* Create the Avahi service browser */
1256
 
  sb = avahi_s_service_browser_new(mc.server, if_index,
1257
 
                                   AVAHI_PROTO_UNSPEC, "_mandos._tcp",
1258
 
                                   NULL, 0, browse_callback, NULL);
1259
 
  if(sb == NULL){
1260
 
    fprintf(stderr, "Failed to create service browser: %s\n",
1261
 
            avahi_strerror(avahi_server_errno(mc.server)));
1262
 
    exitcode = EXIT_FAILURE;
1263
 
    goto end;
1264
 
  }
1265
 
  
1266
 
  /* Run the main loop */
1267
 
  
1268
 
  if(debug){
1269
 
    fprintf(stderr, "Starting Avahi loop search\n");
1270
 
  }
1271
 
  
1272
 
  avahi_simple_poll_loop(mc.simple_poll);
1273
 
  
1274
 
 end:
1275
 
  
1276
 
  if(debug){
1277
 
    fprintf(stderr, "%s exiting\n", argv[0]);
1278
 
  }
1279
 
  
1280
 
  /* Cleanup things */
1281
 
  if(sb != NULL)
1282
 
    avahi_s_service_browser_free(sb);
1283
 
  
1284
 
  if(mc.server != NULL)
1285
 
    avahi_server_free(mc.server);
1286
 
  
1287
 
  if(mc.simple_poll != NULL)
1288
 
    avahi_simple_poll_free(mc.simple_poll);
1289
 
  
1290
 
  if(gnutls_initialized){
1291
 
    gnutls_certificate_free_credentials(mc.cred);
1292
 
    gnutls_global_deinit();
1293
 
    gnutls_dh_params_deinit(mc.dh_params);
1294
 
  }
1295
 
  
1296
 
  if(gpgme_initialized){
1297
 
    gpgme_release(mc.ctx);
1298
 
  }
1299
 
  
1300
 
  /* Removes the temp directory used by GPGME */
1301
 
  if(tempdir_created){
1302
 
    DIR *d;
1303
 
    struct dirent *direntry;
1304
 
    d = opendir(tempdir);
1305
 
    if(d == NULL){
1306
 
      if(errno != ENOENT){
1307
 
        perror("opendir");
1308
 
      }
1309
 
    } else {
1310
 
      while(true){
1311
 
        direntry = readdir(d);
1312
 
        if(direntry == NULL){
1313
 
          break;
1314
 
        }
1315
 
        /* Skip "." and ".." */
1316
 
        if(direntry->d_name[0] == '.'
1317
 
           and (direntry->d_name[1] == '\0'
1318
 
                or (direntry->d_name[1] == '.'
1319
 
                    and direntry->d_name[2] == '\0'))){
1320
 
          continue;
1321
 
        }
1322
 
        char *fullname = NULL;
1323
 
        ret = asprintf(&fullname, "%s/%s", tempdir,
1324
 
                       direntry->d_name);
1325
 
        if(ret < 0){
1326
 
          perror("asprintf");
1327
 
          continue;
1328
 
        }
1329
 
        ret = remove(fullname);
1330
 
        if(ret == -1){
1331
 
          fprintf(stderr, "remove(\"%s\"): %s\n", fullname,
1332
 
                  strerror(errno));
1333
 
        }
1334
 
        free(fullname);
1335
 
      }
1336
 
      closedir(d);
1337
 
    }
1338
 
    ret = rmdir(tempdir);
1339
 
    if(ret == -1 and errno != ENOENT){
1340
 
      perror("rmdir");
1341
 
    }
1342
 
  }
1343
 
  
1344
 
  return exitcode;
 
855
 
 
856
    /* Check if creating the server object succeeded */
 
857
    if (!mc.server) {
 
858
        fprintf(stderr, "Failed to create server: %s\n",
 
859
                avahi_strerror(error));
 
860
        returncode = EXIT_FAILURE;
 
861
        goto exit;
 
862
    }
 
863
    
 
864
    /* Create the service browser */
 
865
    sb = avahi_s_service_browser_new(mc.server, if_index,
 
866
                                     AVAHI_PROTO_INET6,
 
867
                                     "_mandos._tcp", NULL, 0,
 
868
                                     browse_callback, &mc);
 
869
    if (!sb) {
 
870
        fprintf(stderr, "Failed to create service browser: %s\n",
 
871
                avahi_strerror(avahi_server_errno(mc.server)));
 
872
        returncode = EXIT_FAILURE;
 
873
        goto exit;
 
874
    }
 
875
    
 
876
    /* Run the main loop */
 
877
 
 
878
    if (debug){
 
879
      fprintf(stderr, "Starting avahi loop search\n");
 
880
    }
 
881
    
 
882
    avahi_simple_poll_loop(simple_poll);
 
883
    
 
884
 exit:
 
885
 
 
886
    if (debug){
 
887
      fprintf(stderr, "%s exiting\n", argv[0]);
 
888
    }
 
889
    
 
890
    /* Cleanup things */
 
891
    if (sb)
 
892
        avahi_s_service_browser_free(sb);
 
893
    
 
894
    if (mc.server)
 
895
        avahi_server_free(mc.server);
 
896
 
 
897
    if (simple_poll)
 
898
        avahi_simple_poll_free(simple_poll);
 
899
    free(certfile);
 
900
    free(certkey);
 
901
    
 
902
    return returncode;
1345
903
}