1 /*- 2 * SPDX-License-Identifier: BSD-2-Clause 3 * 4 * Copyright 1999 Internet Business Solutions Ltd., Switzerland 5 * All rights reserved. 6 * 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions 9 * are met: 10 * 1. Redistributions of source code must retain the above copyright 11 * notice, this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright 13 * notice, this list of conditions and the following disclaimer in the 14 * documentation and/or other materials provided with the distribution. 15 * 16 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 17 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 19 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 20 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 21 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 22 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 23 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 24 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 25 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 26 * SUCH DAMAGE. 27 * 28 */ 29 30 #include <stdint.h> 31 #include <sys/param.h> 32 33 #include <sys/select.h> 34 #include <sys/socket.h> 35 #include <netinet/in_systm.h> 36 #include <netinet/in.h> 37 #include <netinet/ip.h> 38 #include <arpa/inet.h> 39 #include <sys/un.h> 40 #include <net/route.h> 41 42 #ifdef LOCALRAD 43 #include "radlib.h" 44 #include "radlib_vs.h" 45 #else 46 #include <radlib.h> 47 #include <radlib_vs.h> 48 #endif 49 50 #include <errno.h> 51 #ifndef NODES 52 #include <md5.h> 53 #endif 54 #include <stdarg.h> 55 #include <stdio.h> 56 #include <stdlib.h> 57 #include <string.h> 58 #include <sys/time.h> 59 #include <termios.h> 60 #include <unistd.h> 61 #include <netdb.h> 62 63 #include "layer.h" 64 #include "defs.h" 65 #include "log.h" 66 #include "descriptor.h" 67 #include "prompt.h" 68 #include "timer.h" 69 #include "fsm.h" 70 #include "iplist.h" 71 #include "slcompress.h" 72 #include "throughput.h" 73 #include "lqr.h" 74 #include "hdlc.h" 75 #include "mbuf.h" 76 #include "ncpaddr.h" 77 #include "ip.h" 78 #include "ipcp.h" 79 #include "ipv6cp.h" 80 #include "route.h" 81 #include "command.h" 82 #include "filter.h" 83 #include "lcp.h" 84 #include "ccp.h" 85 #include "link.h" 86 #include "mp.h" 87 #include "radius.h" 88 #include "auth.h" 89 #include "async.h" 90 #include "physical.h" 91 #include "chat.h" 92 #include "cbcp.h" 93 #include "chap.h" 94 #include "datalink.h" 95 #include "ncp.h" 96 #include "bundle.h" 97 #include "proto.h" 98 #include "iface.h" 99 100 #ifndef NODES 101 struct mschap_response { 102 u_char ident; 103 u_char flags; 104 u_char lm_response[24]; 105 u_char nt_response[24]; 106 }; 107 108 struct mschap2_response { 109 u_char ident; 110 u_char flags; 111 u_char pchallenge[16]; 112 u_char reserved[8]; 113 u_char response[24]; 114 }; 115 116 #define AUTH_LEN 16 117 #define SALT_LEN 2 118 #endif 119 120 static const char * 121 radius_policyname(int policy) 122 { 123 switch(policy) { 124 case MPPE_POLICY_ALLOWED: 125 return "Allowed"; 126 case MPPE_POLICY_REQUIRED: 127 return "Required"; 128 } 129 return NumStr(policy, NULL, 0); 130 } 131 132 static const char * 133 radius_typesname(int types) 134 { 135 switch(types) { 136 case MPPE_TYPE_40BIT: 137 return "40 bit"; 138 case MPPE_TYPE_128BIT: 139 return "128 bit"; 140 case MPPE_TYPE_40BIT|MPPE_TYPE_128BIT: 141 return "40 or 128 bit"; 142 } 143 return NumStr(types, NULL, 0); 144 } 145 146 #ifndef NODES 147 static void 148 demangle(struct radius *r, const void *mangled, size_t mlen, 149 char **buf, size_t *len) 150 { 151 char R[AUTH_LEN]; /* variable names as per rfc2548 */ 152 const char *S; 153 u_char b[16]; 154 const u_char *A, *C; 155 MD5_CTX Context; 156 int Slen, i, Clen, Ppos; 157 u_char *P; 158 159 if (mlen % 16 != SALT_LEN) { 160 log_Printf(LogWARN, "Cannot interpret mangled data of length %ld\n", 161 (u_long)mlen); 162 *buf = NULL; 163 *len = 0; 164 return; 165 } 166 167 /* We need the RADIUS Request-Authenticator */ 168 if (rad_request_authenticator(r->cx.rad, R, sizeof R) != AUTH_LEN) { 169 log_Printf(LogWARN, "Cannot obtain the RADIUS request authenticator\n"); 170 *buf = NULL; 171 *len = 0; 172 return; 173 } 174 175 A = (const u_char *)mangled; /* Salt comes first */ 176 C = (const u_char *)mangled + SALT_LEN; /* Then the ciphertext */ 177 Clen = mlen - SALT_LEN; 178 S = rad_server_secret(r->cx.rad); /* We need the RADIUS secret */ 179 Slen = strlen(S); 180 P = alloca(Clen); /* We derive our plaintext */ 181 182 MD5Init(&Context); 183 MD5Update(&Context, S, Slen); 184 MD5Update(&Context, R, AUTH_LEN); 185 MD5Update(&Context, A, SALT_LEN); 186 MD5Final(b, &Context); 187 Ppos = 0; 188 189 while (Clen) { 190 Clen -= 16; 191 192 for (i = 0; i < 16; i++) 193 P[Ppos++] = C[i] ^ b[i]; 194 195 if (Clen) { 196 MD5Init(&Context); 197 MD5Update(&Context, S, Slen); 198 MD5Update(&Context, C, 16); 199 MD5Final(b, &Context); 200 } 201 202 C += 16; 203 } 204 205 /* 206 * The resulting plain text consists of a one-byte length, the text and 207 * maybe some padding. 208 */ 209 *len = *P; 210 if (*len > mlen - 1) { 211 log_Printf(LogWARN, "Mangled data seems to be garbage\n"); 212 *buf = NULL; 213 *len = 0; 214 return; 215 } 216 217 if ((*buf = malloc(*len)) == NULL) { 218 log_Printf(LogWARN, "demangle: Out of memory (%lu bytes)\n", (u_long)*len); 219 *len = 0; 220 } else 221 memcpy(*buf, P + 1, *len); 222 } 223 #endif 224 225 /* XXX: This should go into librarius. */ 226 #ifndef NOINET6 227 static uint8_t * 228 rad_cvt_ipv6prefix(const void *data, size_t len) 229 { 230 const size_t ipv6len = sizeof(struct in6_addr) + 2; 231 uint8_t *s; 232 233 if (len > ipv6len) 234 return NULL; 235 s = malloc(ipv6len); 236 if (s != NULL) { 237 memset(s, 0, ipv6len); 238 memcpy(s, data, len); 239 } 240 return s; 241 } 242 #endif 243 244 /* 245 * rad_continue_send_request() has given us `got' (non-zero). Deal with it. 246 */ 247 static void 248 radius_Process(struct radius *r, int got) 249 { 250 char *argv[MAXARGS], *nuke; 251 struct bundle *bundle; 252 int argc, addrs, res, width; 253 size_t len; 254 struct ncprange dest; 255 struct ncpaddr gw; 256 const void *data; 257 const char *stype; 258 u_int32_t ipaddr, vendor; 259 struct in_addr ip; 260 #ifndef NOINET6 261 uint8_t ipv6addr[INET6_ADDRSTRLEN]; 262 struct in6_addr ip6; 263 #endif 264 265 r->cx.fd = -1; /* Stop select()ing */ 266 stype = r->cx.auth ? "auth" : "acct"; 267 268 switch (got) { 269 case RAD_ACCESS_ACCEPT: 270 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 271 "Radius(%s): ACCEPT received\n", stype); 272 if (!r->cx.auth) { 273 rad_close(r->cx.rad); 274 return; 275 } 276 break; 277 278 case RAD_ACCESS_REJECT: 279 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 280 "Radius(%s): REJECT received\n", stype); 281 if (!r->cx.auth) { 282 rad_close(r->cx.rad); 283 return; 284 } 285 break; 286 287 case RAD_ACCESS_CHALLENGE: 288 /* we can't deal with this (for now) ! */ 289 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 290 "Radius: CHALLENGE received (can't handle yet)\n"); 291 if (r->cx.auth) 292 auth_Failure(r->cx.auth); 293 rad_close(r->cx.rad); 294 return; 295 296 case RAD_ACCOUNTING_RESPONSE: 297 /* 298 * It's probably not ideal to log this at PHASE level as we'll see 299 * too much stuff going to the log when ``set rad_alive'' is used. 300 * So we differ from older behaviour (ppp version 3.1 and before) 301 * and just log accounting responses to LogRADIUS. 302 */ 303 log_Printf(LogRADIUS, "Radius(%s): Accounting response received\n", 304 stype); 305 if (r->cx.auth) 306 auth_Failure(r->cx.auth); /* unexpected !!! */ 307 308 /* No further processing for accounting requests, please */ 309 rad_close(r->cx.rad); 310 return; 311 312 case -1: 313 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 314 "radius(%s): %s\n", stype, rad_strerror(r->cx.rad)); 315 if (r->cx.auth) 316 auth_Failure(r->cx.auth); 317 rad_close(r->cx.rad); 318 return; 319 320 default: 321 log_Printf(LogERROR, "rad_send_request(%s): Failed %d: %s\n", stype, 322 got, rad_strerror(r->cx.rad)); 323 if (r->cx.auth) 324 auth_Failure(r->cx.auth); 325 rad_close(r->cx.rad); 326 return; 327 } 328 329 /* Let's see what we've got in our reply */ 330 r->ip.s_addr = r->mask.s_addr = INADDR_NONE; 331 r->mtu = 0; 332 r->vj = 0; 333 while ((res = rad_get_attr(r->cx.rad, &data, &len)) > 0) { 334 switch (res) { 335 case RAD_FRAMED_IP_ADDRESS: 336 r->ip = rad_cvt_addr(data); 337 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 338 " IP %s\n", inet_ntoa(r->ip)); 339 break; 340 341 case RAD_FILTER_ID: 342 free(r->filterid); 343 if ((r->filterid = rad_cvt_string(data, len)) == NULL) { 344 log_Printf(LogERROR, "rad_cvt_string: %s\n", rad_strerror(r->cx.rad)); 345 auth_Failure(r->cx.auth); 346 rad_close(r->cx.rad); 347 return; 348 } 349 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 350 " Filter \"%s\"\n", r->filterid); 351 break; 352 353 case RAD_SESSION_TIMEOUT: 354 r->sessiontime = rad_cvt_int(data); 355 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 356 " Session-Timeout %lu\n", r->sessiontime); 357 break; 358 359 case RAD_FRAMED_IP_NETMASK: 360 r->mask = rad_cvt_addr(data); 361 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 362 " Netmask %s\n", inet_ntoa(r->mask)); 363 break; 364 365 case RAD_FRAMED_MTU: 366 r->mtu = rad_cvt_int(data); 367 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 368 " MTU %lu\n", r->mtu); 369 break; 370 371 case RAD_FRAMED_ROUTING: 372 /* Disabled for now - should we automatically set up some filters ? */ 373 /* rad_cvt_int(data); */ 374 /* bit 1 = Send routing packets */ 375 /* bit 2 = Receive routing packets */ 376 break; 377 378 case RAD_FRAMED_COMPRESSION: 379 r->vj = rad_cvt_int(data) == 1 ? 1 : 0; 380 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 381 " VJ %sabled\n", r->vj ? "en" : "dis"); 382 break; 383 384 case RAD_FRAMED_ROUTE: 385 /* 386 * We expect a string of the format ``dest[/bits] gw [metrics]'' 387 * Any specified metrics are ignored. MYADDR and HISADDR are 388 * understood for ``dest'' and ``gw'' and ``0.0.0.0'' is the same 389 * as ``HISADDR''. 390 */ 391 392 if ((nuke = rad_cvt_string(data, len)) == NULL) { 393 log_Printf(LogERROR, "rad_cvt_string: %s\n", rad_strerror(r->cx.rad)); 394 auth_Failure(r->cx.auth); 395 rad_close(r->cx.rad); 396 return; 397 } 398 399 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 400 " Route: %s\n", nuke); 401 bundle = r->cx.auth->physical->dl->bundle; 402 ip.s_addr = INADDR_ANY; 403 ncpaddr_setip4(&gw, ip); 404 ncprange_setip4host(&dest, ip); 405 argc = command_Interpret(nuke, strlen(nuke), argv); 406 if (argc < 0) 407 log_Printf(LogWARN, "radius: %s: Syntax error\n", 408 argc == 1 ? argv[0] : "\"\""); 409 else if (argc < 2) 410 log_Printf(LogWARN, "radius: %s: Invalid route\n", 411 argc == 1 ? argv[0] : "\"\""); 412 else if ((strcasecmp(argv[0], "default") != 0 && 413 !ncprange_aton(&dest, &bundle->ncp, argv[0])) || 414 !ncpaddr_aton(&gw, &bundle->ncp, argv[1])) 415 log_Printf(LogWARN, "radius: %s %s: Invalid route\n", 416 argv[0], argv[1]); 417 else { 418 ncprange_getwidth(&dest, &width); 419 if (width == 32 && strchr(argv[0], '/') == NULL) { 420 /* No mask specified - use the natural mask */ 421 ncprange_getip4addr(&dest, &ip); 422 ncprange_setip4mask(&dest, addr2mask(ip)); 423 } 424 addrs = 0; 425 426 if (!strncasecmp(argv[0], "HISADDR", 7)) 427 addrs = ROUTE_DSTHISADDR; 428 else if (!strncasecmp(argv[0], "MYADDR", 6)) 429 addrs = ROUTE_DSTMYADDR; 430 431 if (ncpaddr_getip4addr(&gw, &ipaddr) && ipaddr == INADDR_ANY) { 432 addrs |= ROUTE_GWHISADDR; 433 ncpaddr_setip4(&gw, bundle->ncp.ipcp.peer_ip); 434 } else if (strcasecmp(argv[1], "HISADDR") == 0) 435 addrs |= ROUTE_GWHISADDR; 436 437 route_Add(&r->routes, addrs, &dest, &gw); 438 } 439 free(nuke); 440 break; 441 442 case RAD_REPLY_MESSAGE: 443 free(r->repstr); 444 if ((r->repstr = rad_cvt_string(data, len)) == NULL) { 445 log_Printf(LogERROR, "rad_cvt_string: %s\n", rad_strerror(r->cx.rad)); 446 auth_Failure(r->cx.auth); 447 rad_close(r->cx.rad); 448 return; 449 } 450 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 451 " Reply-Message \"%s\"\n", r->repstr); 452 break; 453 454 #ifndef NOINET6 455 case RAD_FRAMED_IPV6_PREFIX: 456 free(r->ipv6prefix); 457 if ((r->ipv6prefix = rad_cvt_ipv6prefix(data, len)) == NULL) { 458 log_Printf(LogERROR, "rad_cvt_ipv6prefix: %s\n", 459 "Malformed attribute in response"); 460 auth_Failure(r->cx.auth); 461 rad_close(r->cx.rad); 462 return; 463 } 464 inet_ntop(AF_INET6, &r->ipv6prefix[2], ipv6addr, sizeof(ipv6addr)); 465 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 466 " IPv6 %s/%d\n", ipv6addr, r->ipv6prefix[1]); 467 break; 468 469 case RAD_FRAMED_IPV6_ROUTE: 470 /* 471 * We expect a string of the format ``dest[/bits] gw [metrics]'' 472 * Any specified metrics are ignored. MYADDR6 and HISADDR6 are 473 * understood for ``dest'' and ``gw'' and ``::'' is the same 474 * as ``HISADDR6''. 475 */ 476 477 if ((nuke = rad_cvt_string(data, len)) == NULL) { 478 log_Printf(LogERROR, "rad_cvt_string: %s\n", rad_strerror(r->cx.rad)); 479 auth_Failure(r->cx.auth); 480 rad_close(r->cx.rad); 481 return; 482 } 483 484 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 485 " IPv6 Route: %s\n", nuke); 486 bundle = r->cx.auth->physical->dl->bundle; 487 ncpaddr_setip6(&gw, &in6addr_any); 488 ncprange_set(&dest, &gw, 0); 489 argc = command_Interpret(nuke, strlen(nuke), argv); 490 if (argc < 0) 491 log_Printf(LogWARN, "radius: %s: Syntax error\n", 492 argc == 1 ? argv[0] : "\"\""); 493 else if (argc < 2) 494 log_Printf(LogWARN, "radius: %s: Invalid route\n", 495 argc == 1 ? argv[0] : "\"\""); 496 else if ((strcasecmp(argv[0], "default") != 0 && 497 !ncprange_aton(&dest, &bundle->ncp, argv[0])) || 498 !ncpaddr_aton(&gw, &bundle->ncp, argv[1])) 499 log_Printf(LogWARN, "radius: %s %s: Invalid route\n", 500 argv[0], argv[1]); 501 else { 502 addrs = 0; 503 504 if (!strncasecmp(argv[0], "HISADDR6", 8)) 505 addrs = ROUTE_DSTHISADDR6; 506 else if (!strncasecmp(argv[0], "MYADDR6", 7)) 507 addrs = ROUTE_DSTMYADDR6; 508 509 if (ncpaddr_getip6(&gw, &ip6) && IN6_IS_ADDR_UNSPECIFIED(&ip6)) { 510 addrs |= ROUTE_GWHISADDR6; 511 ncpaddr_copy(&gw, &bundle->ncp.ipv6cp.hisaddr); 512 } else if (strcasecmp(argv[1], "HISADDR6") == 0) 513 addrs |= ROUTE_GWHISADDR6; 514 515 route_Add(&r->ipv6routes, addrs, &dest, &gw); 516 } 517 free(nuke); 518 break; 519 #endif 520 521 case RAD_VENDOR_SPECIFIC: 522 if ((res = rad_get_vendor_attr(&vendor, &data, &len)) <= 0) { 523 log_Printf(LogERROR, "rad_get_vendor_attr: %s (failing!)\n", 524 rad_strerror(r->cx.rad)); 525 auth_Failure(r->cx.auth); 526 rad_close(r->cx.rad); 527 return; 528 } 529 530 switch (vendor) { 531 case RAD_VENDOR_MICROSOFT: 532 switch (res) { 533 #ifndef NODES 534 case RAD_MICROSOFT_MS_CHAP_ERROR: 535 free(r->errstr); 536 if (len == 0) 537 r->errstr = NULL; 538 else { 539 if (len < 3 || ((const char *)data)[1] != '=') { 540 /* 541 * Only point at the String field if we don't think the 542 * peer has misformatted the response. 543 */ 544 data = (const char *)data + 1; 545 len--; 546 } else 547 log_Printf(LogWARN, "Warning: The MS-CHAP-Error " 548 "attribute is mis-formatted. Compensating\n"); 549 if ((r->errstr = rad_cvt_string((const char *)data, 550 len)) == NULL) { 551 log_Printf(LogERROR, "rad_cvt_string: %s\n", 552 rad_strerror(r->cx.rad)); 553 auth_Failure(r->cx.auth); 554 rad_close(r->cx.rad); 555 return; 556 } 557 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 558 " MS-CHAP-Error \"%s\"\n", r->errstr); 559 } 560 break; 561 562 case RAD_MICROSOFT_MS_CHAP2_SUCCESS: 563 free(r->msrepstr); 564 if (len == 0) 565 r->msrepstr = NULL; 566 else { 567 if (len < 3 || ((const char *)data)[1] != '=') { 568 /* 569 * Only point at the String field if we don't think the 570 * peer has misformatted the response. 571 */ 572 data = (const char *)data + 1; 573 len--; 574 } else 575 log_Printf(LogWARN, "Warning: The MS-CHAP2-Success " 576 "attribute is mis-formatted. Compensating\n"); 577 if ((r->msrepstr = rad_cvt_string((const char *)data, 578 len)) == NULL) { 579 log_Printf(LogERROR, "rad_cvt_string: %s\n", 580 rad_strerror(r->cx.rad)); 581 auth_Failure(r->cx.auth); 582 rad_close(r->cx.rad); 583 return; 584 } 585 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 586 " MS-CHAP2-Success \"%s\"\n", r->msrepstr); 587 } 588 break; 589 590 case RAD_MICROSOFT_MS_MPPE_ENCRYPTION_POLICY: 591 r->mppe.policy = rad_cvt_int(data); 592 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 593 " MS-MPPE-Encryption-Policy %s\n", 594 radius_policyname(r->mppe.policy)); 595 break; 596 597 case RAD_MICROSOFT_MS_MPPE_ENCRYPTION_TYPES: 598 r->mppe.types = rad_cvt_int(data); 599 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 600 " MS-MPPE-Encryption-Types %s\n", 601 radius_typesname(r->mppe.types)); 602 break; 603 604 case RAD_MICROSOFT_MS_MPPE_RECV_KEY: 605 free(r->mppe.recvkey); 606 demangle(r, data, len, &r->mppe.recvkey, &r->mppe.recvkeylen); 607 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 608 " MS-MPPE-Recv-Key ********\n"); 609 break; 610 611 case RAD_MICROSOFT_MS_MPPE_SEND_KEY: 612 demangle(r, data, len, &r->mppe.sendkey, &r->mppe.sendkeylen); 613 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 614 " MS-MPPE-Send-Key ********\n"); 615 break; 616 #endif 617 618 default: 619 log_Printf(LogDEBUG, "Dropping MICROSOFT vendor specific " 620 "RADIUS attribute %d\n", res); 621 break; 622 } 623 break; 624 625 default: 626 log_Printf(LogDEBUG, "Dropping vendor %lu RADIUS attribute %d\n", 627 (unsigned long)vendor, res); 628 break; 629 } 630 break; 631 632 default: 633 log_Printf(LogDEBUG, "Dropping RADIUS attribute %d\n", res); 634 break; 635 } 636 } 637 638 if (res == -1) { 639 log_Printf(LogERROR, "rad_get_attr: %s (failing!)\n", 640 rad_strerror(r->cx.rad)); 641 auth_Failure(r->cx.auth); 642 } else if (got == RAD_ACCESS_REJECT) 643 auth_Failure(r->cx.auth); 644 else { 645 r->valid = 1; 646 auth_Success(r->cx.auth); 647 } 648 rad_close(r->cx.rad); 649 } 650 651 /* 652 * We've either timed out or select()ed on the read descriptor 653 */ 654 static void 655 radius_Continue(struct radius *r, int sel) 656 { 657 struct timeval tv; 658 int got; 659 660 timer_Stop(&r->cx.timer); 661 if ((got = rad_continue_send_request(r->cx.rad, sel, &r->cx.fd, &tv)) == 0) { 662 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 663 "Radius: Request re-sent\n"); 664 r->cx.timer.load = tv.tv_usec / TICKUNIT + tv.tv_sec * SECTICKS; 665 timer_Start(&r->cx.timer); 666 return; 667 } 668 669 radius_Process(r, got); 670 } 671 672 /* 673 * Time to call rad_continue_send_request() - timed out. 674 */ 675 static void 676 radius_Timeout(void *v) 677 { 678 radius_Continue((struct radius *)v, 0); 679 } 680 681 /* 682 * Time to call rad_continue_send_request() - something to read. 683 */ 684 static void 685 radius_Read(struct fdescriptor *d, struct bundle *bundle __unused, 686 const fd_set *fdset __unused) 687 { 688 radius_Continue(descriptor2radius(d), 1); 689 } 690 691 /* 692 * Flush any pending transactions 693 */ 694 void 695 radius_Flush(struct radius *r) 696 { 697 struct timeval tv; 698 fd_set s; 699 700 while (r->cx.fd != -1) { 701 FD_ZERO(&s); 702 FD_SET(r->cx.fd, &s); 703 tv.tv_sec = 0; 704 tv.tv_usec = TICKUNIT; 705 select(r->cx.fd + 1, &s, NULL, NULL, &tv); 706 radius_Continue(r, 1); 707 } 708 } 709 710 /* 711 * Behave as a struct fdescriptor (descriptor.h) 712 */ 713 static int 714 radius_UpdateSet(struct fdescriptor *d, fd_set *r, fd_set *w __unused, 715 fd_set *e __unused, int *n) 716 { 717 struct radius *rad = descriptor2radius(d); 718 719 if (r && rad->cx.fd != -1) { 720 FD_SET(rad->cx.fd, r); 721 if (*n < rad->cx.fd + 1) 722 *n = rad->cx.fd + 1; 723 log_Printf(LogTIMER, "Radius: fdset(r) %d\n", rad->cx.fd); 724 return 1; 725 } 726 727 return 0; 728 } 729 730 /* 731 * Behave as a struct fdescriptor (descriptor.h) 732 */ 733 static int 734 radius_IsSet(struct fdescriptor *d, const fd_set *fdset) 735 { 736 struct radius *r = descriptor2radius(d); 737 738 return r && r->cx.fd != -1 && FD_ISSET(r->cx.fd, fdset); 739 } 740 741 /* 742 * Behave as a struct fdescriptor (descriptor.h) 743 */ 744 static int 745 radius_Write(struct fdescriptor *d __unused, struct bundle *bundle __unused, 746 const fd_set *fdset __unused) 747 { 748 /* We never want to write here ! */ 749 log_Printf(LogALERT, "radius_Write: Internal error: Bad call !\n"); 750 return 0; 751 } 752 753 /* 754 * Initialise ourselves 755 */ 756 void 757 radius_Init(struct radius *r) 758 { 759 r->desc.type = RADIUS_DESCRIPTOR; 760 r->desc.UpdateSet = radius_UpdateSet; 761 r->desc.IsSet = radius_IsSet; 762 r->desc.Read = radius_Read; 763 r->desc.Write = radius_Write; 764 r->cx.fd = -1; 765 r->cx.rad = NULL; 766 memset(&r->cx.timer, '\0', sizeof r->cx.timer); 767 r->cx.auth = NULL; 768 r->valid = 0; 769 r->vj = 0; 770 r->ip.s_addr = INADDR_ANY; 771 r->mask.s_addr = INADDR_NONE; 772 r->routes = NULL; 773 r->mtu = DEF_MTU; 774 r->msrepstr = NULL; 775 r->repstr = NULL; 776 #ifndef NOINET6 777 r->ipv6prefix = NULL; 778 r->ipv6routes = NULL; 779 #endif 780 r->errstr = NULL; 781 r->mppe.policy = 0; 782 r->mppe.types = 0; 783 r->mppe.recvkey = NULL; 784 r->mppe.recvkeylen = 0; 785 r->mppe.sendkey = NULL; 786 r->mppe.sendkeylen = 0; 787 *r->cfg.file = '\0'; 788 log_Printf(LogDEBUG, "Radius: radius_Init\n"); 789 } 790 791 /* 792 * Forget everything and go back to initialised state. 793 */ 794 void 795 radius_Destroy(struct radius *r) 796 { 797 r->valid = 0; 798 log_Printf(LogDEBUG, "Radius: radius_Destroy\n"); 799 timer_Stop(&r->cx.timer); 800 route_DeleteAll(&r->routes); 801 #ifndef NOINET6 802 route_DeleteAll(&r->ipv6routes); 803 #endif 804 free(r->filterid); 805 r->filterid = NULL; 806 free(r->msrepstr); 807 r->msrepstr = NULL; 808 free(r->repstr); 809 r->repstr = NULL; 810 #ifndef NOINET6 811 free(r->ipv6prefix); 812 r->ipv6prefix = NULL; 813 #endif 814 free(r->errstr); 815 r->errstr = NULL; 816 free(r->mppe.recvkey); 817 r->mppe.recvkey = NULL; 818 r->mppe.recvkeylen = 0; 819 free(r->mppe.sendkey); 820 r->mppe.sendkey = NULL; 821 r->mppe.sendkeylen = 0; 822 if (r->cx.fd != -1) { 823 r->cx.fd = -1; 824 rad_close(r->cx.rad); 825 } 826 } 827 828 static int 829 radius_put_physical_details(struct radius *rad, struct physical *p) 830 { 831 int slot, type; 832 833 type = RAD_VIRTUAL; 834 if (p->handler) 835 switch (p->handler->type) { 836 case I4B_DEVICE: 837 type = RAD_ISDN_SYNC; 838 break; 839 840 case TTY_DEVICE: 841 type = RAD_ASYNC; 842 break; 843 844 case ETHER_DEVICE: 845 type = RAD_ETHERNET; 846 break; 847 848 case TCP_DEVICE: 849 case UDP_DEVICE: 850 case EXEC_DEVICE: 851 case ATM_DEVICE: 852 case NG_DEVICE: 853 type = RAD_VIRTUAL; 854 break; 855 } 856 857 if (rad_put_int(rad->cx.rad, RAD_NAS_PORT_TYPE, type) != 0) { 858 log_Printf(LogERROR, "rad_put: rad_put_int: %s\n", rad_strerror(rad->cx.rad)); 859 rad_close(rad->cx.rad); 860 return 0; 861 } 862 863 switch (rad->port_id_type) { 864 case RPI_PID: 865 slot = (int)getpid(); 866 break; 867 case RPI_IFNUM: 868 slot = p->dl->bundle->iface->index; 869 break; 870 case RPI_TUNNUM: 871 slot = p->dl->bundle->unit; 872 break; 873 case RPI_DEFAULT: 874 default: 875 slot = physical_Slot(p); 876 break; 877 } 878 879 if (slot >= 0) 880 if (rad_put_int(rad->cx.rad, RAD_NAS_PORT, slot) != 0) { 881 log_Printf(LogERROR, "rad_put: rad_put_int: %s\n", rad_strerror(rad->cx.rad)); 882 rad_close(rad->cx.rad); 883 return 0; 884 } 885 886 return 1; 887 } 888 889 /* 890 * Start an authentication request to the RADIUS server. 891 */ 892 int 893 radius_Authenticate(struct radius *r, struct authinfo *authp, const char *name, 894 const char *key, int klen, const char *nchallenge, 895 int nclen) 896 { 897 char hostname[MAXHOSTNAMELEN]; 898 struct timeval tv; 899 const char *what = "questionable"; /* silence warnings! */ 900 char *mac_addr; 901 int got; 902 struct hostent *hp; 903 struct in_addr hostaddr; 904 #ifndef NODES 905 struct mschap_response msresp; 906 struct mschap2_response msresp2; 907 const struct MSCHAPv2_resp *keyv2; 908 #endif 909 910 if (!*r->cfg.file) 911 return 0; 912 913 if (r->cx.fd != -1) 914 /* 915 * We assume that our name/key/challenge is the same as last time, 916 * and just continue to wait for the RADIUS server(s). 917 */ 918 return 1; 919 920 radius_Destroy(r); 921 922 if ((r->cx.rad = rad_auth_open()) == NULL) { 923 log_Printf(LogERROR, "rad_auth_open: %s\n", strerror(errno)); 924 return 0; 925 } 926 927 if (rad_config(r->cx.rad, r->cfg.file) != 0) { 928 log_Printf(LogERROR, "rad_config: %s\n", rad_strerror(r->cx.rad)); 929 rad_close(r->cx.rad); 930 return 0; 931 } 932 933 if (rad_create_request(r->cx.rad, RAD_ACCESS_REQUEST) != 0) { 934 log_Printf(LogERROR, "rad_create_request: %s\n", rad_strerror(r->cx.rad)); 935 rad_close(r->cx.rad); 936 return 0; 937 } 938 939 if (rad_put_string(r->cx.rad, RAD_USER_NAME, name) != 0 || 940 rad_put_int(r->cx.rad, RAD_SERVICE_TYPE, RAD_FRAMED) != 0 || 941 rad_put_int(r->cx.rad, RAD_FRAMED_PROTOCOL, RAD_PPP) != 0) { 942 log_Printf(LogERROR, "rad_put: %s\n", rad_strerror(r->cx.rad)); 943 rad_close(r->cx.rad); 944 return 0; 945 } 946 947 switch (authp->physical->link.lcp.want_auth) { 948 case PROTO_PAP: 949 /* We're talking PAP */ 950 if (rad_put_attr(r->cx.rad, RAD_USER_PASSWORD, key, klen) != 0) { 951 log_Printf(LogERROR, "PAP: rad_put_string: %s\n", 952 rad_strerror(r->cx.rad)); 953 rad_close(r->cx.rad); 954 return 0; 955 } 956 what = "PAP"; 957 break; 958 959 case PROTO_CHAP: 960 switch (authp->physical->link.lcp.want_authtype) { 961 case 0x5: 962 if (rad_put_attr(r->cx.rad, RAD_CHAP_PASSWORD, key, klen) != 0 || 963 rad_put_attr(r->cx.rad, RAD_CHAP_CHALLENGE, nchallenge, nclen) != 0) { 964 log_Printf(LogERROR, "CHAP: rad_put_string: %s\n", 965 rad_strerror(r->cx.rad)); 966 rad_close(r->cx.rad); 967 return 0; 968 } 969 what = "CHAP"; 970 break; 971 972 #ifndef NODES 973 case 0x80: 974 if (klen != 50) { 975 log_Printf(LogERROR, "CHAP80: Unrecognised key length %d\n", klen); 976 rad_close(r->cx.rad); 977 return 0; 978 } 979 980 rad_put_vendor_attr(r->cx.rad, RAD_VENDOR_MICROSOFT, 981 RAD_MICROSOFT_MS_CHAP_CHALLENGE, nchallenge, nclen); 982 msresp.ident = *key; 983 msresp.flags = 0x01; 984 memcpy(msresp.lm_response, key + 1, 24); 985 memcpy(msresp.nt_response, key + 25, 24); 986 rad_put_vendor_attr(r->cx.rad, RAD_VENDOR_MICROSOFT, 987 RAD_MICROSOFT_MS_CHAP_RESPONSE, &msresp, 988 sizeof msresp); 989 what = "MSCHAP"; 990 break; 991 992 case 0x81: 993 if (klen != sizeof(*keyv2) + 1) { 994 log_Printf(LogERROR, "CHAP81: Unrecognised key length %d\n", klen); 995 rad_close(r->cx.rad); 996 return 0; 997 } 998 999 keyv2 = (const struct MSCHAPv2_resp *)(key + 1); 1000 rad_put_vendor_attr(r->cx.rad, RAD_VENDOR_MICROSOFT, 1001 RAD_MICROSOFT_MS_CHAP_CHALLENGE, nchallenge, nclen); 1002 msresp2.ident = *key; 1003 msresp2.flags = keyv2->Flags; 1004 memcpy(msresp2.response, keyv2->NTResponse, sizeof msresp2.response); 1005 memset(msresp2.reserved, '\0', sizeof msresp2.reserved); 1006 memcpy(msresp2.pchallenge, keyv2->PeerChallenge, 1007 sizeof msresp2.pchallenge); 1008 rad_put_vendor_attr(r->cx.rad, RAD_VENDOR_MICROSOFT, 1009 RAD_MICROSOFT_MS_CHAP2_RESPONSE, &msresp2, 1010 sizeof msresp2); 1011 what = "MSCHAPv2"; 1012 break; 1013 #endif 1014 default: 1015 log_Printf(LogERROR, "CHAP: Unrecognised type 0x%02x\n", 1016 authp->physical->link.lcp.want_authtype); 1017 rad_close(r->cx.rad); 1018 return 0; 1019 } 1020 } 1021 1022 if (gethostname(hostname, sizeof hostname) != 0) 1023 log_Printf(LogERROR, "rad_put: gethostname(): %s\n", strerror(errno)); 1024 else { 1025 if (Enabled(authp->physical->dl->bundle, OPT_NAS_IP_ADDRESS) && 1026 (hp = gethostbyname(hostname)) != NULL) { 1027 hostaddr.s_addr = *(u_long *)hp->h_addr; 1028 if (rad_put_addr(r->cx.rad, RAD_NAS_IP_ADDRESS, hostaddr) != 0) { 1029 log_Printf(LogERROR, "rad_put: rad_put_string: %s\n", 1030 rad_strerror(r->cx.rad)); 1031 rad_close(r->cx.rad); 1032 return 0; 1033 } 1034 } 1035 if (Enabled(authp->physical->dl->bundle, OPT_NAS_IDENTIFIER) && 1036 rad_put_string(r->cx.rad, RAD_NAS_IDENTIFIER, hostname) != 0) { 1037 log_Printf(LogERROR, "rad_put: rad_put_string: %s\n", 1038 rad_strerror(r->cx.rad)); 1039 rad_close(r->cx.rad); 1040 return 0; 1041 } 1042 } 1043 1044 if ((mac_addr = getenv("HISMACADDR")) != NULL && 1045 rad_put_string(r->cx.rad, RAD_CALLING_STATION_ID, mac_addr) != 0) { 1046 log_Printf(LogERROR, "rad_put: %s\n", rad_strerror(r->cx.rad)); 1047 rad_close(r->cx.rad); 1048 return 0; 1049 } 1050 1051 radius_put_physical_details(r, authp->physical); 1052 1053 log_Printf(LogRADIUS, "Radius(auth): %s data sent for %s\n", what, name); 1054 1055 r->cx.auth = authp; 1056 if ((got = rad_init_send_request(r->cx.rad, &r->cx.fd, &tv))) 1057 radius_Process(r, got); 1058 else { 1059 log_Printf(log_IsKept(LogRADIUS) ? LogRADIUS : LogPHASE, 1060 "Radius: Request sent\n"); 1061 log_Printf(LogDEBUG, "Using radius_Timeout [%p]\n", radius_Timeout); 1062 r->cx.timer.load = tv.tv_usec / TICKUNIT + tv.tv_sec * SECTICKS; 1063 r->cx.timer.func = radius_Timeout; 1064 r->cx.timer.name = "radius auth"; 1065 r->cx.timer.arg = r; 1066 timer_Start(&r->cx.timer); 1067 } 1068 1069 return 1; 1070 } 1071 1072 /* Fetch IP, netmask from IPCP */ 1073 void 1074 radius_Account_Set_Ip(struct radacct *ac, struct in_addr *peer_ip, 1075 struct in_addr *netmask) 1076 { 1077 ac->proto = PROTO_IPCP; 1078 memcpy(&ac->peer.ip.addr, peer_ip, sizeof(ac->peer.ip.addr)); 1079 memcpy(&ac->peer.ip.mask, netmask, sizeof(ac->peer.ip.mask)); 1080 } 1081 1082 #ifndef NOINET6 1083 /* Fetch interface-id from IPV6CP */ 1084 void 1085 radius_Account_Set_Ipv6(struct radacct *ac, u_char *ifid) 1086 { 1087 ac->proto = PROTO_IPV6CP; 1088 memcpy(&ac->peer.ipv6.ifid, ifid, sizeof(ac->peer.ipv6.ifid)); 1089 } 1090 #endif 1091 1092 /* 1093 * Send an accounting request to the RADIUS server 1094 */ 1095 void 1096 radius_Account(struct radius *r, struct radacct *ac, struct datalink *dl, 1097 int acct_type, struct pppThroughput *stats) 1098 { 1099 struct timeval tv; 1100 int got; 1101 char hostname[MAXHOSTNAMELEN]; 1102 char *mac_addr; 1103 struct hostent *hp; 1104 struct in_addr hostaddr; 1105 1106 if (!*r->cfg.file) 1107 return; 1108 1109 if (r->cx.fd != -1) 1110 /* 1111 * We assume that our name/key/challenge is the same as last time, 1112 * and just continue to wait for the RADIUS server(s). 1113 */ 1114 return; 1115 1116 timer_Stop(&r->cx.timer); 1117 1118 if ((r->cx.rad = rad_acct_open()) == NULL) { 1119 log_Printf(LogERROR, "rad_auth_open: %s\n", strerror(errno)); 1120 return; 1121 } 1122 1123 if (rad_config(r->cx.rad, r->cfg.file) != 0) { 1124 log_Printf(LogERROR, "rad_config: %s\n", rad_strerror(r->cx.rad)); 1125 rad_close(r->cx.rad); 1126 return; 1127 } 1128 1129 if (rad_create_request(r->cx.rad, RAD_ACCOUNTING_REQUEST) != 0) { 1130 log_Printf(LogERROR, "rad_create_request: %s\n", rad_strerror(r->cx.rad)); 1131 rad_close(r->cx.rad); 1132 return; 1133 } 1134 1135 /* Grab some accounting data and initialize structure */ 1136 if (acct_type == RAD_START) { 1137 ac->rad_parent = r; 1138 /* Fetch username from datalink */ 1139 strncpy(ac->user_name, dl->peer.authname, sizeof ac->user_name); 1140 ac->user_name[AUTHLEN-1] = '\0'; 1141 1142 ac->authentic = 2; /* Assume RADIUS verified auth data */ 1143 1144 /* Generate a session ID */ 1145 snprintf(ac->session_id, sizeof ac->session_id, "%s%ld-%s%lu", 1146 dl->bundle->cfg.auth.name, (long)getpid(), 1147 dl->peer.authname, (unsigned long)stats->uptime); 1148 1149 /* And grab our MP socket name */ 1150 snprintf(ac->multi_session_id, sizeof ac->multi_session_id, "%s", 1151 dl->bundle->ncp.mp.active ? 1152 dl->bundle->ncp.mp.server.socket.sun_path : ""); 1153 } 1154 1155 if (rad_put_string(r->cx.rad, RAD_USER_NAME, ac->user_name) != 0 || 1156 rad_put_int(r->cx.rad, RAD_SERVICE_TYPE, RAD_FRAMED) != 0 || 1157 rad_put_int(r->cx.rad, RAD_FRAMED_PROTOCOL, RAD_PPP) != 0) { 1158 log_Printf(LogERROR, "rad_put: %s\n", rad_strerror(r->cx.rad)); 1159 rad_close(r->cx.rad); 1160 return; 1161 } 1162 switch (ac->proto) { 1163 case PROTO_IPCP: 1164 if (rad_put_addr(r->cx.rad, RAD_FRAMED_IP_ADDRESS, 1165 ac->peer.ip.addr) != 0 || 1166 rad_put_addr(r->cx.rad, RAD_FRAMED_IP_NETMASK, 1167 ac->peer.ip.mask) != 0) { 1168 log_Printf(LogERROR, "rad_put: %s\n", rad_strerror(r->cx.rad)); 1169 rad_close(r->cx.rad); 1170 return; 1171 } 1172 break; 1173 #ifndef NOINET6 1174 case PROTO_IPV6CP: 1175 if (rad_put_attr(r->cx.rad, RAD_FRAMED_INTERFACE_ID, ac->peer.ipv6.ifid, 1176 sizeof(ac->peer.ipv6.ifid)) != 0) { 1177 log_Printf(LogERROR, "rad_put_attr: %s\n", rad_strerror(r->cx.rad)); 1178 rad_close(r->cx.rad); 1179 return; 1180 } 1181 if (r->ipv6prefix) { 1182 /* 1183 * Since PPP doesn't delegate an IPv6 prefix to a peer, 1184 * Framed-IPv6-Prefix may be not used, actually. 1185 */ 1186 if (rad_put_attr(r->cx.rad, RAD_FRAMED_IPV6_PREFIX, r->ipv6prefix, 1187 sizeof(struct in6_addr) + 2) != 0) { 1188 log_Printf(LogERROR, "rad_put_attr: %s\n", rad_strerror(r->cx.rad)); 1189 rad_close(r->cx.rad); 1190 return; 1191 } 1192 } 1193 break; 1194 #endif 1195 default: 1196 /* We don't log any protocol specific information */ 1197 break; 1198 } 1199 1200 if ((mac_addr = getenv("HISMACADDR")) != NULL && 1201 rad_put_string(r->cx.rad, RAD_CALLING_STATION_ID, mac_addr) != 0) { 1202 log_Printf(LogERROR, "rad_put: %s\n", rad_strerror(r->cx.rad)); 1203 rad_close(r->cx.rad); 1204 return; 1205 } 1206 1207 if (gethostname(hostname, sizeof hostname) != 0) 1208 log_Printf(LogERROR, "rad_put: gethostname(): %s\n", strerror(errno)); 1209 else { 1210 if (Enabled(dl->bundle, OPT_NAS_IP_ADDRESS) && 1211 (hp = gethostbyname(hostname)) != NULL) { 1212 hostaddr.s_addr = *(u_long *)hp->h_addr; 1213 if (rad_put_addr(r->cx.rad, RAD_NAS_IP_ADDRESS, hostaddr) != 0) { 1214 log_Printf(LogERROR, "rad_put: rad_put_string: %s\n", 1215 rad_strerror(r->cx.rad)); 1216 rad_close(r->cx.rad); 1217 return; 1218 } 1219 } 1220 if (Enabled(dl->bundle, OPT_NAS_IDENTIFIER) && 1221 rad_put_string(r->cx.rad, RAD_NAS_IDENTIFIER, hostname) != 0) { 1222 log_Printf(LogERROR, "rad_put: rad_put_string: %s\n", 1223 rad_strerror(r->cx.rad)); 1224 rad_close(r->cx.rad); 1225 return; 1226 } 1227 } 1228 1229 radius_put_physical_details(r, dl->physical); 1230 1231 if (rad_put_int(r->cx.rad, RAD_ACCT_STATUS_TYPE, acct_type) != 0 || 1232 rad_put_string(r->cx.rad, RAD_ACCT_SESSION_ID, ac->session_id) != 0 || 1233 rad_put_string(r->cx.rad, RAD_ACCT_MULTI_SESSION_ID, 1234 ac->multi_session_id) != 0 || 1235 rad_put_int(r->cx.rad, RAD_ACCT_DELAY_TIME, 0) != 0) { 1236 /* XXX ACCT_DELAY_TIME should be increased each time a packet is waiting */ 1237 log_Printf(LogERROR, "rad_put: %s\n", rad_strerror(r->cx.rad)); 1238 rad_close(r->cx.rad); 1239 return; 1240 } 1241 1242 if (acct_type == RAD_STOP || acct_type == RAD_ALIVE) 1243 /* Show some statistics */ 1244 if (rad_put_int(r->cx.rad, RAD_ACCT_INPUT_OCTETS, stats->OctetsIn % UINT32_MAX) != 0 || 1245 rad_put_int(r->cx.rad, RAD_ACCT_INPUT_GIGAWORDS, stats->OctetsIn / UINT32_MAX) != 0 || 1246 rad_put_int(r->cx.rad, RAD_ACCT_INPUT_PACKETS, stats->PacketsIn) != 0 || 1247 rad_put_int(r->cx.rad, RAD_ACCT_OUTPUT_OCTETS, stats->OctetsOut % UINT32_MAX) != 0 || 1248 rad_put_int(r->cx.rad, RAD_ACCT_OUTPUT_GIGAWORDS, stats->OctetsOut / UINT32_MAX) != 0 || 1249 rad_put_int(r->cx.rad, RAD_ACCT_OUTPUT_PACKETS, stats->PacketsOut) 1250 != 0 || 1251 rad_put_int(r->cx.rad, RAD_ACCT_SESSION_TIME, throughput_uptime(stats)) 1252 != 0) { 1253 log_Printf(LogERROR, "rad_put: %s\n", rad_strerror(r->cx.rad)); 1254 rad_close(r->cx.rad); 1255 return; 1256 } 1257 1258 if (log_IsKept(LogPHASE) || log_IsKept(LogRADIUS)) { 1259 const char *what; 1260 int level; 1261 1262 switch (acct_type) { 1263 case RAD_START: 1264 what = "START"; 1265 level = log_IsKept(LogPHASE) ? LogPHASE : LogRADIUS; 1266 break; 1267 case RAD_STOP: 1268 what = "STOP"; 1269 level = log_IsKept(LogPHASE) ? LogPHASE : LogRADIUS; 1270 break; 1271 case RAD_ALIVE: 1272 what = "ALIVE"; 1273 level = LogRADIUS; 1274 break; 1275 default: 1276 what = "<unknown>"; 1277 level = log_IsKept(LogPHASE) ? LogPHASE : LogRADIUS; 1278 break; 1279 } 1280 log_Printf(level, "Radius(acct): %s data sent\n", what); 1281 } 1282 1283 r->cx.auth = NULL; /* Not valid for accounting requests */ 1284 if ((got = rad_init_send_request(r->cx.rad, &r->cx.fd, &tv))) 1285 radius_Process(r, got); 1286 else { 1287 log_Printf(LogDEBUG, "Using radius_Timeout [%p]\n", radius_Timeout); 1288 r->cx.timer.load = tv.tv_usec / TICKUNIT + tv.tv_sec * SECTICKS; 1289 r->cx.timer.func = radius_Timeout; 1290 r->cx.timer.name = "radius acct"; 1291 r->cx.timer.arg = r; 1292 timer_Start(&r->cx.timer); 1293 } 1294 } 1295 1296 /* 1297 * How do things look at the moment ? 1298 */ 1299 void 1300 radius_Show(struct radius *r, struct prompt *p) 1301 { 1302 prompt_Printf(p, " Radius config: %s", 1303 *r->cfg.file ? r->cfg.file : "none"); 1304 if (r->valid) { 1305 prompt_Printf(p, "\n IP: %s\n", inet_ntoa(r->ip)); 1306 prompt_Printf(p, " Netmask: %s\n", inet_ntoa(r->mask)); 1307 prompt_Printf(p, " MTU: %lu\n", r->mtu); 1308 prompt_Printf(p, " VJ: %sabled\n", r->vj ? "en" : "dis"); 1309 prompt_Printf(p, " Message: %s\n", r->repstr ? r->repstr : ""); 1310 prompt_Printf(p, " MPPE Enc Policy: %s\n", 1311 radius_policyname(r->mppe.policy)); 1312 prompt_Printf(p, " MPPE Enc Types: %s\n", 1313 radius_typesname(r->mppe.types)); 1314 prompt_Printf(p, " MPPE Recv Key: %seceived\n", 1315 r->mppe.recvkey ? "R" : "Not r"); 1316 prompt_Printf(p, " MPPE Send Key: %seceived\n", 1317 r->mppe.sendkey ? "R" : "Not r"); 1318 prompt_Printf(p, " MS-CHAP2-Response: %s\n", 1319 r->msrepstr ? r->msrepstr : ""); 1320 prompt_Printf(p, " Error Message: %s\n", r->errstr ? r->errstr : ""); 1321 if (r->routes) 1322 route_ShowSticky(p, r->routes, " Routes", 16); 1323 #ifndef NOINET6 1324 if (r->ipv6routes) 1325 route_ShowSticky(p, r->ipv6routes, " IPv6 Routes", 16); 1326 #endif 1327 } else 1328 prompt_Printf(p, " (not authenticated)\n"); 1329 } 1330 1331 static void 1332 radius_alive(void *v) 1333 { 1334 struct bundle *bundle = (struct bundle *)v; 1335 1336 timer_Stop(&bundle->radius.alive.timer); 1337 bundle->radius.alive.timer.load = bundle->radius.alive.interval * SECTICKS; 1338 if (bundle->radius.alive.timer.load) { 1339 radius_Account(&bundle->radius, &bundle->radacct, 1340 bundle->links, RAD_ALIVE, &bundle->ncp.ipcp.throughput); 1341 timer_Start(&bundle->radius.alive.timer); 1342 } 1343 } 1344 1345 void 1346 radius_StartTimer(struct bundle *bundle) 1347 { 1348 if (*bundle->radius.cfg.file && bundle->radius.alive.interval) { 1349 bundle->radius.alive.timer.func = radius_alive; 1350 bundle->radius.alive.timer.name = "radius alive"; 1351 bundle->radius.alive.timer.load = bundle->radius.alive.interval * SECTICKS; 1352 bundle->radius.alive.timer.arg = bundle; 1353 radius_alive(bundle); 1354 } 1355 } 1356 1357 void 1358 radius_StopTimer(struct radius *r) 1359 { 1360 timer_Stop(&r->alive.timer); 1361 } 1362