/mandos/trunk : revision 669

9

* "browse_callback", and parts of "main".

10

*

11

* Everything else is

12

13

12

13

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

55

opendir(), DIR */

56

#include <sys/stat.h> /* open(), S_ISREG */

57

#include <sys/socket.h> /* socket(), struct sockaddr_in6,

58

inet_pton(), connect() */

58

inet_pton(), connect(),

59

getnameinfo() */

59

60

#include <fcntl.h> /* open() */

60

61

#include <dirent.h> /* opendir(), struct dirent, readdir()

61

62

*/

62

63

#include <inttypes.h> /* PRIu16, PRIdMAX, intmax_t,

63

64

strtoimax() */

64

#include <assert.h> /* assert() */

65

#include <errno.h> /* perror(), errno,

66

program_invocation_short_name */

67

#include <time.h> /* nanosleep(), time(), sleep() */

74

#include <unistd.h> /* close(), SEEK_SET, off_t, write(),

75

getuid(), getgid(), seteuid(),

76

setgid(), pause(), _exit() */

77

#include <arpa/inet.h> /* inet_pton(), htons, inet_ntop() */

77

#include <arpa/inet.h> /* inet_pton(), htons() */

78

#include <iso646.h> /* not, or, and */

79

#include <argp.h> /* struct argp_option, error_t, struct

80

argp_state, struct argp,

92

argz_delete(), argz_append(),

93

argz_stringify(), argz_add(),

94

argz_count() */

95

#include <netdb.h> /* getnameinfo(), NI_NUMERICHOST,

96

EAI_SYSTEM, gai_strerror() */

95

97

96

98

#ifdef __linux__

97

99

#include <sys/klog.h> /* klogctl() */

145

147

/* Doubly linked list that need to be circularly linked when used */

146

148

typedef struct server{

147

149

const char *ip;

148

uint16_t port;

150

in_port_t port;

149

151

AvahiIfIndex if_index;

150

152

int af;

151

153

struct timespec last_seen;

155

157

156

158

/* Used for passing in values through the Avahi callback functions */

157

159

typedef struct {

158

AvahiSimplePoll *simple_poll;

159

160

AvahiServer *server;

160

161

gnutls_certificate_credentials_t cred;

161

162

unsigned int dh_bits;

163

164

const char *priority;

164

165

gpgme_ctx_t ctx;

165

166

server *current_server;

167

char *interfaces;

168

size_t interfaces_size;

166

169

} mandos_context;

167

170

168

/* global context so signal handler can reach it*/

169

mandos_context mc = { .simple_poll = NULL, .server = NULL,

170

.dh_bits = 1024, .priority = "SECURE256"

171

":!CTYPE-X.509:+CTYPE-OPENPGP",

172

.current_server = NULL };

171

/* global so signal handler can reach it*/

172

AvahiSimplePoll *simple_poll;

173

174

sig_atomic_t quit_now = 0;

175

int signal_received = 0;

190

191

TEMP_FAILURE_RETRY(fprintf(stream, "Mandos plugin %s: ",

192

program_invocation_short_name));

193

return TEMP_FAILURE_RETRY(vfprintf(stream, format, ap));

193

return (int)TEMP_FAILURE_RETRY(vfprintf(stream, format, ap));

194

}

195

196

/*

201

size_t incbuffer(char **buffer, size_t buffer_length,

202

size_t buffer_capacity){

203

if(buffer_length + BUFFER_SIZE > buffer_capacity){

204

*buffer = realloc(*buffer, buffer_capacity + BUFFER_SIZE);

205

if(buffer == NULL){

204

char *new_buf = realloc(*buffer, buffer_capacity + BUFFER_SIZE);

205

if(new_buf == NULL){

206

int old_errno = errno;

207

free(*buffer);

208

errno = old_errno;

209

*buffer = NULL;

206

210

return 0;

207

211

}

212

*buffer = new_buf;

208

213

buffer_capacity += BUFFER_SIZE;

209

214

}

210

215

return buffer_capacity;

211

216

}

212

217

213

218

/* Add server to set of servers to retry periodically */

214

bool add_server(const char *ip, uint16_t port, AvahiIfIndex if_index,

215

int af){

219

bool add_server(const char *ip, in_port_t port, AvahiIfIndex if_index,

220

int af, server **current_server){

216

221

int ret;

217

222

server *new_server = malloc(sizeof(server));

218

223

if(new_server == NULL){

227

232

perror_plus("strdup");

228

233

return false;

229

234

}

235

ret = clock_gettime(CLOCK_MONOTONIC, &(new_server->last_seen));

236

if(ret == -1){

237

perror_plus("clock_gettime");

238

return false;

239

}

230

240

/* Special case of first server */

231

if (mc.current_server == NULL){

241

if(*current_server == NULL){

232

242

new_server->next = new_server;

233

243

new_server->prev = new_server;

234

mc.current_server = new_server;

244

*current_server = new_server;

235

245

/* Place the new server last in the list */

236

246

} else {

237

new_server->next = mc.current_server;

238

new_server->prev = mc.current_server->prev;

247

new_server->next = *current_server;

248

new_server->prev = (*current_server)->prev;

239

249

new_server->prev->next = new_server;

240

mc.current_server->prev = new_server;

241

}

242

ret = clock_gettime(CLOCK_MONOTONIC, &mc.current_server->last_seen);

243

if(ret == -1){

244

perror_plus("clock_gettime");

245

return false;

250

(*current_server)->prev = new_server;

246

251

}

247

252

return true;

248

253

}

251

256

* Initialize GPGME.

252

257

*/

253

258

static bool init_gpgme(const char *seckey, const char *pubkey,

254

const char *tempdir){

259

const char *tempdir, mandos_context *mc){

255

260

gpgme_error_t rc;

256

261

gpgme_engine_info_t engine_info;

257

262

258

259

263

/*

260

264

* Helper function to insert pub and seckey to the engine keyring.

261

265

*/

277

281

return false;

278

282

}

279

283

280

rc = gpgme_op_import(mc.ctx, pgp_data);

284

rc = gpgme_op_import(mc->ctx, pgp_data);

281

285

if(rc != GPG_ERR_NO_ERROR){

282

286

fprintf_plus(stderr, "bad gpgme_op_import: %s: %s\n",

283

287

gpgme_strsource(rc), gpgme_strerror(rc));

327

331

}

328

332

329

333

/* Create new GPGME "context" */

330

rc = gpgme_new(&(mc.ctx));

334

rc = gpgme_new(&(mc->ctx));

331

335

if(rc != GPG_ERR_NO_ERROR){

332

336

fprintf_plus(stderr, "Mandos plugin mandos-client: "

333

337

"bad gpgme_new: %s: %s\n", gpgme_strsource(rc),

348

352

*/

349

353

static ssize_t pgp_packet_decrypt(const char *cryptotext,

350

354

size_t crypto_size,

351

char **plaintext){

355

char **plaintext,

356

mandos_context *mc){

352

357

gpgme_data_t dh_crypto, dh_plain;

353

358

gpgme_error_t rc;

354

359

ssize_t ret;

380

385

381

386

/* Decrypt data from the cryptotext data buffer to the plaintext

382

387

data buffer */

383

rc = gpgme_op_decrypt(mc.ctx, dh_crypto, dh_plain);

388

rc = gpgme_op_decrypt(mc->ctx, dh_crypto, dh_plain);

384

389

if(rc != GPG_ERR_NO_ERROR){

385

390

fprintf_plus(stderr, "bad gpgme_op_decrypt: %s: %s\n",

386

391

gpgme_strsource(rc), gpgme_strerror(rc));

387

392

plaintext_length = -1;

388

393

if(debug){

389

394

gpgme_decrypt_result_t result;

390

result = gpgme_op_decrypt_result(mc.ctx);

395

result = gpgme_op_decrypt_result(mc->ctx);

391

396

if(result == NULL){

392

397

fprintf_plus(stderr, "gpgme_op_decrypt_result failed\n");

393

398

} else {

471

476

}

472

477

473

478

static const char * safer_gnutls_strerror(int value){

474

const char *ret = gnutls_strerror(value); /* Spurious warning from

475

-Wunreachable-code */

479

const char *ret = gnutls_strerror(value);

476

480

if(ret == NULL)

477

481

ret = "(unknown)";

478

482

return ret;

485

489

}

486

490

487

491

static int init_gnutls_global(const char *pubkeyfilename,

488

const char *seckeyfilename){

492

const char *seckeyfilename,

493

mandos_context *mc){

489

494

int ret;

490

495

491

496

if(debug){

508

513

}

509

514

510

515

/* OpenPGP credentials */

511

ret = gnutls_certificate_allocate_credentials(&mc.cred);

516

ret = gnutls_certificate_allocate_credentials(&mc->cred);

512

517

if(ret != GNUTLS_E_SUCCESS){

513

518

fprintf_plus(stderr, "GnuTLS memory error: %s\n",

514

519

safer_gnutls_strerror(ret));

524

529

}

525

530

526

531

ret = gnutls_certificate_set_openpgp_key_file

527

(mc.cred, pubkeyfilename, seckeyfilename,

532

(mc->cred, pubkeyfilename, seckeyfilename,

528

533

GNUTLS_OPENPGP_FMT_BASE64);

529

534

if(ret != GNUTLS_E_SUCCESS){

530

535

fprintf_plus(stderr,

536

541

}

537

542

538

543

/* GnuTLS server initialization */

539

ret = gnutls_dh_params_init(&mc.dh_params);

544

ret = gnutls_dh_params_init(&mc->dh_params);

540

545

if(ret != GNUTLS_E_SUCCESS){

541

546

fprintf_plus(stderr, "Error in GnuTLS DH parameter"

542

547

" initialization: %s\n",

543

548

safer_gnutls_strerror(ret));

544

549

goto globalfail;

545

550

}

546

ret = gnutls_dh_params_generate2(mc.dh_params, mc.dh_bits);

551

ret = gnutls_dh_params_generate2(mc->dh_params, mc->dh_bits);

547

552

if(ret != GNUTLS_E_SUCCESS){

548

553

fprintf_plus(stderr, "Error in GnuTLS prime generation: %s\n",

549

554

safer_gnutls_strerror(ret));

550

555

goto globalfail;

551

556

}

552

557

553

gnutls_certificate_set_dh_params(mc.cred, mc.dh_params);

558

gnutls_certificate_set_dh_params(mc->cred, mc->dh_params);

554

559

555

560

return 0;

556

561

557

562

globalfail:

558

563

559

gnutls_certificate_free_credentials(mc.cred);

564

gnutls_certificate_free_credentials(mc->cred);

560

565

gnutls_global_deinit();

561

gnutls_dh_params_deinit(mc.dh_params);

566

gnutls_dh_params_deinit(mc->dh_params);

562

567

return -1;

563

568

}

564

569

565

static int init_gnutls_session(gnutls_session_t *session){

570

static int init_gnutls_session(gnutls_session_t *session,

571

mandos_context *mc){

566

572

int ret;

567

573

/* GnuTLS session creation */

568

574

do {

580

586

{

581

587

const char *err;

582

588

do {

583

ret = gnutls_priority_set_direct(*session, mc.priority, &err);

589

ret = gnutls_priority_set_direct(*session, mc->priority, &err);

584

590

if(quit_now){

585

591

gnutls_deinit(*session);

586

592

return -1;

597

603

598

604

do {

599

605

ret = gnutls_credentials_set(*session, GNUTLS_CRD_CERTIFICATE,

600

mc.cred);

606

mc->cred);

601

607

if(quit_now){

602

608

gnutls_deinit(*session);

603

609

return -1;

613

619

/* ignore client certificate if any. */

614

620

gnutls_certificate_server_set_request(*session, GNUTLS_CERT_IGNORE);

615

621

616

gnutls_dh_set_prime_bits(*session, mc.dh_bits);

622

gnutls_dh_set_prime_bits(*session, mc->dh_bits);

617

623

618

624

return 0;

619

625

}

623

629

__attribute__((unused)) const char *txt){}

624

630

625

631

/* Called when a Mandos server is found */

626

static int start_mandos_communication(const char *ip, uint16_t port,

632

static int start_mandos_communication(const char *ip, in_port_t port,

627

633

AvahiIfIndex if_index,

628

int af){

634

int af, mandos_context *mc){

629

635

int ret, tcp_sd = -1;

630

636

ssize_t sret;

631

union {

632

struct sockaddr_in in;

633

struct sockaddr_in6 in6;

634

} to;

637

struct sockaddr_storage to;

635

638

char *buffer = NULL;

636

639

char *decrypted_buffer = NULL;

637

640

size_t buffer_length = 0;

661

664

return -1;

662

665

}

663

666

664

ret = init_gnutls_session(&session);

667

/* If the interface is specified and we have a list of interfaces */

668

if(if_index != AVAHI_IF_UNSPEC and mc->interfaces != NULL){

669

/* Check if the interface is one of the interfaces we are using */

670

bool match = false;

671

{

672

char *interface = NULL;

673

while((interface=argz_next(mc->interfaces, mc->interfaces_size,

674

interface))){

675

if(if_nametoindex(interface) == (unsigned int)if_index){

676

match = true;

677

break;

678

}

679

}

680

}

681

if(not match){

682

/* This interface does not match any in the list, so we don't

683

connect to the server */

684

if(debug){

685

char interface[IF_NAMESIZE];

686

if(if_indextoname((unsigned int)if_index, interface) == NULL){

687

perror_plus("if_indextoname");

688

} else {

689

fprintf_plus(stderr, "Skipping server on non-used interface"

690

" \"%s\"\n",

691

if_indextoname((unsigned int)if_index,

692

interface));

693

}

694

}

695

return -1;

696

}

697

}

698

699

ret = init_gnutls_session(&session, mc);

665

700

if(ret != 0){

666

701

return -1;

667

702

}

668

703

669

704

if(debug){

670

705

fprintf_plus(stderr, "Setting up a TCP connection to %s, port %"

671

PRIu16 "\n", ip, port);

706

PRIuMAX "\n", ip, (uintmax_t)port);

672

707

}

673

708

674

709

tcp_sd = socket(pf, SOCK_STREAM, 0);

686

721

687

722

memset(&to, 0, sizeof(to));

688

723

if(af == AF_INET6){

689

to.in6.sin6_family = (sa_family_t)af;

690

ret = inet_pton(af, ip, &to.in6.sin6_addr);

724

((struct sockaddr_in6 *)&to)->sin6_family = (sa_family_t)af;

725

ret = inet_pton(af, ip, &((struct sockaddr_in6 *)&to)->sin6_addr);

691

726

} else { /* IPv4 */

692

to.in.sin_family = (sa_family_t)af;

693

ret = inet_pton(af, ip, &to.in.sin_addr);

727

((struct sockaddr_in *)&to)->sin_family = (sa_family_t)af;

728

ret = inet_pton(af, ip, &((struct sockaddr_in *)&to)->sin_addr);

694

729

}

695

730

if(ret < 0 ){

696

731

int e = errno;

705

740

goto mandos_end;

706

741

}

707

742

if(af == AF_INET6){

708

to.in6.sin6_port = htons(port); /* Spurious warnings from

709

-Wconversion and

710

-Wunreachable-code */

711

712

if(IN6_IS_ADDR_LINKLOCAL /* Spurious warnings from */

713

(&to.in6.sin6_addr)){ /* -Wstrict-aliasing=2 or lower and

714

-Wunreachable-code*/

743

((struct sockaddr_in6 *)&to)->sin6_port = htons(port);

744

if(IN6_IS_ADDR_LINKLOCAL

745

(&((struct sockaddr_in6 *)&to)->sin6_addr)){

715

746

if(if_index == AVAHI_IF_UNSPEC){

716

747

fprintf_plus(stderr, "An IPv6 link-local address is"

717

748

" incomplete without a network interface\n");

719

750

goto mandos_end;

720

751

}

721

752

/* Set the network interface number as scope */

722

to.in6.sin6_scope_id = (uint32_t)if_index;

753

((struct sockaddr_in6 *)&to)->sin6_scope_id = (uint32_t)if_index;

723

754

}

724

755

} else {

725

to.in.sin_port = htons(port); /* Spurious warnings from

726

-Wconversion and

727

-Wunreachable-code */

756

((struct sockaddr_in *)&to)->sin_port = htons(port);

728

757

}

729

758

730

759

if(quit_now){

738

767

if(if_indextoname((unsigned int)if_index, interface) == NULL){

739

768

perror_plus("if_indextoname");

740

769

} else {

741

fprintf_plus(stderr, "Connection to: %s%%%s, port %" PRIu16

742

"\n", ip, interface, port);

770

fprintf_plus(stderr, "Connection to: %s%%%s, port %" PRIuMAX

771

"\n", ip, interface, (uintmax_t)port);

743

772

}

744

773

} else {

745

fprintf_plus(stderr, "Connection to: %s, port %" PRIu16 "\n",

746

ip, port);

774

fprintf_plus(stderr, "Connection to: %s, port %" PRIuMAX "\n",

775

ip, (uintmax_t)port);

747

776

}

748

777

char addrstr[(INET_ADDRSTRLEN > INET6_ADDRSTRLEN) ?

749

778

INET_ADDRSTRLEN : INET6_ADDRSTRLEN] = "";

750

const char *pcret;

751

779

if(af == AF_INET6){

752

pcret = inet_ntop(af, &(to.in6.sin6_addr), addrstr,

753

sizeof(addrstr));

780

ret = getnameinfo((struct sockaddr *)&to,

781

sizeof(struct sockaddr_in6),

782

addrstr, sizeof(addrstr), NULL, 0,

783

NI_NUMERICHOST);

754

784

} else {

755

pcret = inet_ntop(af, &(to.in.sin_addr), addrstr,

756

sizeof(addrstr));

785

ret = getnameinfo((struct sockaddr *)&to,

786

sizeof(struct sockaddr_in),

787

addrstr, sizeof(addrstr), NULL, 0,

788

NI_NUMERICHOST);

757

789

}

758

if(pcret == NULL){

759

perror_plus("inet_ntop");

760

} else {

761

if(strcmp(addrstr, ip) != 0){

762

fprintf_plus(stderr, "Canonical address form: %s\n", addrstr);

763

}

790

if(ret == EAI_SYSTEM){

791

perror_plus("getnameinfo");

792

} else if(ret != 0) {

793

fprintf_plus(stderr, "getnameinfo: %s", gai_strerror(ret));

794

} else if(strcmp(addrstr, ip) != 0){

795

fprintf_plus(stderr, "Canonical address form: %s\n", addrstr);

764

796

}

765

797

}

766

798

770

802

}

771

803

772

804

if(af == AF_INET6){

773

ret = connect(tcp_sd, &to.in6, sizeof(to));

805

ret = connect(tcp_sd, (struct sockaddr *)&to,

806

sizeof(struct sockaddr_in6));

774

807

} else {

775

ret = connect(tcp_sd, &to.in, sizeof(to)); /* IPv4 */

808

ret = connect(tcp_sd, (struct sockaddr *)&to, /* IPv4 */

809

sizeof(struct sockaddr_in));

776

810

}

777

811

if(ret < 0){

778

812

if ((errno != ECONNREFUSED and errno != ENETUNREACH) or debug){

942

976

if(buffer_length > 0){

943

977

ssize_t decrypted_buffer_size;

944

978

decrypted_buffer_size = pgp_packet_decrypt(buffer, buffer_length,

945

&decrypted_buffer);

979

&decrypted_buffer, mc);

946

980

if(decrypted_buffer_size >= 0){

947

981

948

982

written = 0;

1009

1043

AVAHI_GCC_UNUSED AvahiStringList *txt,

1010

1044

AVAHI_GCC_UNUSED AvahiLookupResultFlags

1011

1045

flags,

1012

AVAHI_GCC_UNUSED void* userdata){

1013

assert(r);

1046

void* mc){

1047

if(r == NULL){

1048

return;

1049

}

1014

1050

1015

1051

/* Called whenever a service has been resolved successfully or

1016

1052

timed out */

1025

1061

fprintf_plus(stderr, "(Avahi Resolver) Failed to resolve service "

1026

1062

"'%s' of type '%s' in domain '%s': %s\n", name, type,

1027

1063

domain,

1028

avahi_strerror(avahi_server_errno(mc.server)));

1064

avahi_strerror(avahi_server_errno

1065

(((mandos_context*)mc)->server)));

1029

1066

break;

1030

1067

1031

1068

case AVAHI_RESOLVER_FOUND:

1037

1074

PRIdMAX ") on port %" PRIu16 "\n", name,

1038

1075

host_name, ip, (intmax_t)interface, port);

1039

1076

}

1040

int ret = start_mandos_communication(ip, port, interface,

1041

avahi_proto_to_af(proto));

1077

int ret = start_mandos_communication(ip, (in_port_t)port,

1078

interface,

1079

avahi_proto_to_af(proto),

1080

mc);

1042

1081

if(ret == 0){

1043

avahi_simple_poll_quit(mc.simple_poll);

1082

avahi_simple_poll_quit(simple_poll);

1044

1083

} else {

1045

if(not add_server(ip, port, interface,

1046

avahi_proto_to_af(proto))){

1084

if(not add_server(ip, (in_port_t)port, interface,

1085

avahi_proto_to_af(proto),

1086

&((mandos_context*)mc)->current_server)){

1047

1087

fprintf_plus(stderr, "Failed to add server \"%s\" to server"

1048

1088

" list\n", name);

1049

1089

}

1062

1102

const char *domain,

1063

1103

AVAHI_GCC_UNUSED AvahiLookupResultFlags

1064

1104

flags,

1065

AVAHI_GCC_UNUSED void* userdata){

1066

assert(b);

1105

void* mc){

1106

if(b == NULL){

1107

return;

1108

}

1067

1109

1068

1110

/* Called whenever a new services becomes available on the LAN or

1069

1111

is removed from the LAN */

1077

1119

case AVAHI_BROWSER_FAILURE:

1078

1120

1079

1121

fprintf_plus(stderr, "(Avahi browser) %s\n",

1080

avahi_strerror(avahi_server_errno(mc.server)));

1081

avahi_simple_poll_quit(mc.simple_poll);

1122

avahi_strerror(avahi_server_errno

1123

(((mandos_context*)mc)->server)));

1124

avahi_simple_poll_quit(simple_poll);

1082

1125

return;

1083

1126

1084

1127

case AVAHI_BROWSER_NEW:

1087

1130

the callback function is called the Avahi server will free the

1088

1131

resolver for us. */

1089

1132

1090

if(avahi_s_service_resolver_new(mc.server, interface, protocol,

1091

name, type, domain, protocol, 0,

1092

resolve_callback, NULL) == NULL)

1133

if(avahi_s_service_resolver_new(((mandos_context*)mc)->server,

1134

interface, protocol, name, type,

1135

domain, protocol, 0,

1136

resolve_callback, mc) == NULL)

1093

1137

fprintf_plus(stderr, "Avahi: Failed to resolve service '%s':"

1094

1138

" %s\n", name,

1095

avahi_strerror(avahi_server_errno(mc.server)));

1139

avahi_strerror(avahi_server_errno

1140

(((mandos_context*)mc)->server)));

1096

1141

break;

1097

1142

1098

1143

case AVAHI_BROWSER_REMOVE:

1117

1162

signal_received = sig;

1118

1163

int old_errno = errno;

1119

1164

/* set main loop to exit */

1120

if(mc.simple_poll != NULL){

1121

avahi_simple_poll_quit(mc.simple_poll);

1165

if(simple_poll != NULL){

1166

avahi_simple_poll_quit(simple_poll);

1122

1167

}

1123

1168

errno = old_errno;

1124

1169

}

1318

1363

return 1;

1319

1364

}

1320

1365

1321

int avahi_loop_with_timeout(AvahiSimplePoll *s, int retry_interval){

1366

int avahi_loop_with_timeout(AvahiSimplePoll *s, int retry_interval,

1367

mandos_context *mc){

1322

1368

int ret;

1323

1369

struct timespec now;

1324

1370

struct timespec waited_time;

1325

1371

intmax_t block_time;

1326

1372

1327

1373

while(true){

1328

if(mc.current_server == NULL){

1374

if(mc->current_server == NULL){

1329

1375

if (debug){

1330

1376

fprintf_plus(stderr, "Wait until first server is found."

1331

1377

" No timeout!\n");

1345

1391

/* Calculating in ms how long time between now and server

1346

1392

who we visted longest time ago. Now - last seen. */

1347

1393

waited_time.tv_sec = (now.tv_sec

1348

- mc.current_server->last_seen.tv_sec);

1394

- mc->current_server->last_seen.tv_sec);

1349

1395

waited_time.tv_nsec = (now.tv_nsec

1350

- mc.current_server->last_seen.tv_nsec);

1396

- mc->current_server->last_seen.tv_nsec);

1351

1397

/* total time is 10s/10,000ms.

1352

1398

Converting to s from ms by dividing by 1,000,

1353

1399

and ns to ms by dividing by 1,000,000. */

1361

1407

}

1362

1408

1363

1409

if(block_time <= 0){

1364

ret = start_mandos_communication(mc.current_server->ip,

1365

mc.current_server->port,

1366

mc.current_server->if_index,

1367

mc.current_server->af);

1410

ret = start_mandos_communication(mc->current_server->ip,

1411

mc->current_server->port,

1412

mc->current_server->if_index,

1413

mc->current_server->af, mc);

1368

1414

if(ret == 0){

1369

avahi_simple_poll_quit(mc.simple_poll);

1415

avahi_simple_poll_quit(s);

1370

1416

return 0;

1371

1417

}

1372

1418

ret = clock_gettime(CLOCK_MONOTONIC,

1373

&mc.current_server->last_seen);

1419

&mc->current_server->last_seen);

1374

1420

if(ret == -1){

1375

1421

perror_plus("clock_gettime");

1376

1422

return -1;

1377

1423

}

1378

mc.current_server = mc.current_server->next;

1424

mc->current_server = mc->current_server->next;

1379

1425

block_time = 0; /* Call avahi to find new Mandos

1380

1426

servers, but don't block */

1381

1427

}

1445

1491

bool run_network_hooks(const char *mode, const char *interface,

1446

1492

const float delay){

1447

1493

struct dirent **direntries;

1448

struct dirent *direntry;

1449

int ret;

1450

1494

int numhooks = scandir(hookdir, &direntries, runnable_hook,

1451

1495

alphasort);

1452

1496

if(numhooks == -1){

1453

perror_plus("scandir");

1497

if(errno == ENOENT){

1498

if(debug){

1499

fprintf_plus(stderr, "Network hook directory \"%s\" not"

1500

" found\n", hookdir);

1501

}

1502

} else {

1503

perror_plus("scandir");

1504

}

1454

1505

} else {

1506

struct dirent *direntry;

1507

int ret;

1455

1508

int devnull = open("/dev/null", O_RDONLY);

1456

1509

for(int i = 0; i < numhooks; i++){

1457

1510

direntry = direntries[i];

1677

1730

}

1678

1731

1679

1732

error_t take_down_interface(const char *const interface){

1680

int sd = -1;

1681

1733

error_t old_errno = errno;

1682

error_t ret_errno = 0;

1683

int ret, ret_setflags;

1684

1734

struct ifreq network;

1685

1735

unsigned int if_index = if_nametoindex(interface);

1686

1736

if(if_index == 0){

1689

1739

return ENXIO;

1690

1740

}

1691

1741

if(interface_is_up(interface)){

1742

error_t ret_errno = 0;

1692

1743

if(not get_flags(interface, &network) and debug){

1693

1744

ret_errno = errno;

1694

1745

fprintf_plus(stderr, "Failed to get flags for interface "

1697

1748

}

1698

1749

network.ifr_flags &= ~(short)IFF_UP; /* clear flag */

1699

1750

1700

sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);

1751

int sd = socket(PF_INET6, SOCK_DGRAM, IPPROTO_IP);

1701

1752

if(sd < 0){

1702

1753

ret_errno = errno;

1703

1754

perror_plus("socket");

1713

1764

/* Raise priviliges */

1714

1765

raise_privileges();

1715

1766

1716

ret_setflags = ioctl(sd, SIOCSIFFLAGS, &network);

1767

int ret_setflags = ioctl(sd, SIOCSIFFLAGS, &network);

1717

1768

ret_errno = errno;

1718

1769

1719

1770

/* Lower privileges */

1720

1771

lower_privileges();

1721

1772

1722

1773

/* Close the socket */

1723

ret = (int)TEMP_FAILURE_RETRY(close(sd));

1774

int ret = (int)TEMP_FAILURE_RETRY(close(sd));

1724

1775

if(ret == -1){

1725

1776

perror_plus("close");

1726

1777

}

1741

1792

}

1742

1793

1743

1794

int main(int argc, char *argv[]){

1795

mandos_context mc = { .server = NULL, .dh_bits = 1024,

1796

.priority = "SECURE256:!CTYPE-X.509:"

1797

"+CTYPE-OPENPGP", .current_server = NULL,

1798

.interfaces = NULL, .interfaces_size = 0 };

1744

1799

AvahiSServiceBrowser *sb = NULL;

1745

1800

error_t ret_errno;

1746

1801

int ret;

1747

1802

intmax_t tmpmax;

1748

1803

char *tmp;

1749

1804

int exitcode = EXIT_SUCCESS;

1750

char *interfaces = NULL;

1751

size_t interfaces_size = 0;

1752

1805

char *interfaces_to_take_down = NULL;

1753

1806

size_t interfaces_to_take_down_size = 0;

1754

1807

char tempdir[] = "/tmp/mandosXXXXXX";

1757

1810

const char *seckey = PATHDIR "/" SECKEY;

1758

1811

const char *pubkey = PATHDIR "/" PUBKEY;

1759

1812

char *interfaces_hooks = NULL;

1760

size_t interfaces_hooks_size = 0;

1761

1813

1762

1814

bool gnutls_initialized = false;

1763

1815

bool gpgme_initialized = false;

1854

1906

connect_to = arg;

1855

1907

break;

1856

1908

case 'i': /* --interface */

1857

ret_errno = argz_add_sep(&interfaces, &interfaces_size, arg,

1858

(int)',');

1909

ret_errno = argz_add_sep(&mc.interfaces, &mc.interfaces_size,

1910

arg, (int)',');

1859

1911

if(ret_errno != 0){

1860

1912

argp_error(state, "%s", strerror(ret_errno));

1861

1913

}

1988

2040

}

1989

2041

1990

2042

/* Lower privileges */

1991

errno = 0;

1992

ret = seteuid(uid);

1993

if(ret == -1){

1994

perror_plus("seteuid");

1995

}

2043

lower_privileges();

1996

2044

}

1997

2045

}

1998

2046

1999

/* Remove empty interface names */

2047

/* Remove invalid interface names (except "none") */

2000

2048

{

2001

2049

char *interface = NULL;

2002

while((interface = argz_next(interfaces, interfaces_size,

2050

while((interface = argz_next(mc.interfaces, mc.interfaces_size,

2003

2051

interface))){

2004

if(if_nametoindex(interface) == 0){

2005

if(interface[0] != '\0' and strcmp(interface, "none") != 0){

2052

if(strcmp(interface, "none") != 0

2053

and if_nametoindex(interface) == 0){

2054

if(interface[0] != '\0'){

2006

2055

fprintf_plus(stderr, "Not using nonexisting interface"

2007

2056

" \"%s\"\n", interface);

2008

2057

}

2009

argz_delete(&interfaces, &interfaces_size, interface);

2058

argz_delete(&mc.interfaces, &mc.interfaces_size, interface);

2010

2059

interface = NULL;

2011

2060

}

2012

2061

}

2014

2063

2015

2064

/* Run network hooks */

2016

2065

{

2017

ret_errno = argz_append(&interfaces_hooks, &interfaces_hooks_size,

2018

interfaces, interfaces_size);

2019

if(ret_errno != 0){

2020

errno = ret_errno;

2021

perror_plus("argz_append");

2022

goto end;

2066

if(mc.interfaces != NULL){

2067

interfaces_hooks = malloc(mc.interfaces_size);

2068

if(interfaces_hooks == NULL){

2069

perror_plus("malloc");

2070

goto end;

2071

}

2072

memcpy(interfaces_hooks, mc.interfaces, mc.interfaces_size);

2073

argz_stringify(interfaces_hooks, mc.interfaces_size, (int)',');

2023

2074

}

2024

argz_stringify(interfaces_hooks, interfaces_hooks_size, (int)',');

2025

if(not run_network_hooks("start", interfaces_hooks, delay)){

2075

if(not run_network_hooks("start", interfaces_hooks != NULL ?

2076

interfaces_hooks : "", delay)){

2026

2077

goto end;

2027

2078

}

2028

2079

}

2035

2086

from the signal handler */

2036

2087

/* Initialize the pseudo-RNG for Avahi */

2037

2088

srand((unsigned int) time(NULL));

2038

mc.simple_poll = avahi_simple_poll_new();

2039

if(mc.simple_poll == NULL){

2089

simple_poll = avahi_simple_poll_new();

2090

if(simple_poll == NULL){

2040

2091

fprintf_plus(stderr,

2041

2092

"Avahi: Failed to create simple poll object.\n");

2042

2093

exitcode = EX_UNAVAILABLE;

2107

2158

}

2108

2159

2109

2160

/* If no interfaces were specified, make a list */

2110

if(interfaces == NULL){

2161

if(mc.interfaces == NULL){

2111

2162

struct dirent **direntries;

2112

2163

/* Look for any good interfaces */

2113

2164

ret = scandir(sys_class_net, &direntries, good_interface,

2115

2166

if(ret >= 1){

2116

2167

/* Add all found interfaces to interfaces list */

2117

2168

for(int i = 0; i < ret; ++i){

2118

ret_errno = argz_add(&interfaces, &interfaces_size,

2169

ret_errno = argz_add(&mc.interfaces, &mc.interfaces_size,

2119

2170

direntries[i]->d_name);

2120

2171

if(ret_errno != 0){

2172

errno = ret_errno;

2121

2173

perror_plus("argz_add");

2122

2174

continue;

2123

2175

}

2135

2187

}

2136

2188

}

2137

2189

2138

/* If we only got one interface, explicitly use only that one */

2139

if(argz_count(interfaces, interfaces_size) == 1){

2140

if(debug){

2141

fprintf_plus(stderr, "Using only interface \"%s\"\n",

2142

interfaces);

2143

}

2144

if_index = (AvahiIfIndex)if_nametoindex(interfaces);

2145

}

2146

2147

/* Bring up interfaces which are down */

2148

if(not (argz_count(interfaces, interfaces_size) == 1

2149

and strcmp(interfaces, "none") == 0)){

2190

/* Bring up interfaces which are down, and remove any "none"s */

2191

{

2150

2192

char *interface = NULL;

2151

while((interface = argz_next(interfaces, interfaces_size,

2193

while((interface = argz_next(mc.interfaces, mc.interfaces_size,

2152

2194

interface))){

2195

/* If interface name is "none", stop bringing up interfaces.

2196

Also remove all instances of "none" from the list */

2197

if(strcmp(interface, "none") == 0){

2198

argz_delete(&mc.interfaces, &mc.interfaces_size,

2199

interface);

2200

interface = NULL;

2201

while((interface = argz_next(mc.interfaces,

2202

mc.interfaces_size, interface))){

2203

if(strcmp(interface, "none") == 0){

2204

argz_delete(&mc.interfaces, &mc.interfaces_size,

2205

interface);

2206

interface = NULL;

2207

}

2208

}

2209

break;

2210

}

2153

2211

bool interface_was_up = interface_is_up(interface);

2154

2212

ret = bring_up_interface(interface, delay);

2155

2213

if(not interface_was_up){

2160

2218

ret_errno = argz_add(&interfaces_to_take_down,

2161

2219

&interfaces_to_take_down_size,

2162

2220

interface);

2221

if(ret_errno != 0){

2222

errno = ret_errno;

2223

perror_plus("argz_add");

2224

}

2163

2225

}

2164

2226

}

2165

2227

}

2166

free(interfaces);

2167

interfaces = NULL;

2168

interfaces_size = 0;

2169

2228

if(debug and (interfaces_to_take_down == NULL)){

2170

2229

fprintf_plus(stderr, "No interfaces were brought up\n");

2171

2230

}

2172

2231

}

2173

2232

2233

/* If we only got one interface, explicitly use only that one */

2234

if(argz_count(mc.interfaces, mc.interfaces_size) == 1){

2235

if(debug){

2236

fprintf_plus(stderr, "Using only interface \"%s\"\n",

2237

mc.interfaces);

2238

}

2239

if_index = (AvahiIfIndex)if_nametoindex(mc.interfaces);

2240

}

2241

2174

2242

if(quit_now){

2175

2243

goto end;

2176

2244

}

2177

2245

2178

ret = init_gnutls_global(pubkey, seckey);

2246

ret = init_gnutls_global(pubkey, seckey, &mc);

2179

2247

if(ret == -1){

2180

2248

fprintf_plus(stderr, "init_gnutls_global failed\n");

2181

2249

exitcode = EX_UNAVAILABLE;

2198

2266

goto end;

2199

2267

}

2200

2268

2201

if(not init_gpgme(pubkey, seckey, tempdir)){

2269

if(not init_gpgme(pubkey, seckey, tempdir, &mc)){

2202

2270

fprintf_plus(stderr, "init_gpgme failed\n");

2203

2271

exitcode = EX_UNAVAILABLE;

2204

2272

goto end;

2225

2293

goto end;

2226

2294

}

2227

2295

2228

uint16_t port;

2296

in_port_t port;

2229

2297

errno = 0;

2230

2298

tmpmax = strtoimax(address+1, &tmp, 10);

2231

2299

if(errno != 0 or tmp == address+1 or *tmp != '\0'

2232

or tmpmax != (uint16_t)tmpmax){

2300

or tmpmax != (in_port_t)tmpmax){

2233

2301

fprintf_plus(stderr, "Bad port number\n");

2234

2302

exitcode = EX_USAGE;

2235

2303

goto end;

2236

2304

}

2237

2305

2238

2306

if(quit_now){

2239

2307

goto end;

2240

2308

}

2241

2309

2242

port = (uint16_t)tmpmax;

2310

port = (in_port_t)tmpmax;

2243

2311

*address = '\0';

2244

2312

/* Colon in address indicates IPv6 */

2245

2313

int af;

2261

2329

}

2262

2330

2263

2331

while(not quit_now){

2264

ret = start_mandos_communication(address, port, if_index, af);

2332

ret = start_mandos_communication(address, port, if_index, af,

2333

&mc);

2265

2334

if(quit_now or ret == 0){

2266

2335

break;

2267

2336

}

2269

2338

fprintf_plus(stderr, "Retrying in %d seconds\n",

2270

2339

(int)retry_interval);

2271

2340

}

2272

sleep((int)retry_interval);

2341

sleep((unsigned int)retry_interval);

2273

2342

}

2274

2343

2275

2344

if (not quit_now){

2293

2362

config.publish_domain = 0;

2294

2363

2295

2364

/* Allocate a new server */

2296

mc.server = avahi_server_new(avahi_simple_poll_get

2297

(mc.simple_poll), &config, NULL,

2298

NULL, &ret_errno);

2365

mc.server = avahi_server_new(avahi_simple_poll_get(simple_poll),

2366

&config, NULL, NULL, &ret_errno);

2299

2367

2300

2368

/* Free the Avahi configuration data */

2301

2369

avahi_server_config_free(&config);

2316

2384

/* Create the Avahi service browser */

2317

2385

sb = avahi_s_service_browser_new(mc.server, if_index,

2318

2386

AVAHI_PROTO_UNSPEC, "_mandos._tcp",

2319

NULL, 0, browse_callback, NULL);

2387

NULL, 0, browse_callback,

2388

(void *)&mc);

2320

2389

if(sb == NULL){

2321

2390

fprintf_plus(stderr, "Failed to create service browser: %s\n",

2322

2391

avahi_strerror(avahi_server_errno(mc.server)));

2334

2403

fprintf_plus(stderr, "Starting Avahi loop search\n");

2335

2404

}

2336

2405

2337

ret = avahi_loop_with_timeout(mc.simple_poll,

2338

(int)(retry_interval * 1000));

2406

ret = avahi_loop_with_timeout(simple_poll,

2407

(int)(retry_interval * 1000), &mc);

2339

2408

if(debug){

2340

2409

fprintf_plus(stderr, "avahi_loop_with_timeout exited %s\n",

2341

2410

(ret == 0) ? "successfully" : "with error");

2348

2417

}

2349

2418

2350

2419

/* Cleanup things */

2420

free(mc.interfaces);

2421

2351

2422

if(sb != NULL)

2352

2423

avahi_s_service_browser_free(sb);

2353

2424

2354

2425

if(mc.server != NULL)

2355

2426

avahi_server_free(mc.server);

2356

2427

2357

if(mc.simple_poll != NULL)

2358

avahi_simple_poll_free(mc.simple_poll);

2428

if(simple_poll != NULL)

2429

avahi_simple_poll_free(simple_poll);

2359

2430

2360

2431

if(gnutls_initialized){

2361

2432

gnutls_certificate_free_credentials(mc.cred);

2383

2454

raise_privileges();

2384

2455

2385

2456

/* Run network hooks */

2386

run_network_hooks("stop", interfaces_hooks, delay);

2457

run_network_hooks("stop", interfaces_hooks != NULL ?

2458

interfaces_hooks : "", delay);

2387

2459

2388

2460

/* Take down the network interfaces which were brought up */

2389

2461

{