git.ozlabs.org Git - petitboot/blob - discover/platform-powerpc.c

   1
   2 #include <assert.h>
   3 #include <string.h>
   4 #include <stdlib.h>
   5 #include <limits.h>
   6 #include <errno.h>
   7 #include <fcntl.h>
   8 #include <sys/types.h>
   9 #include <sys/wait.h>
  10 #include <sys/stat.h>
  11 #include <asm/byteorder.h>
  12
  13 #include <file/file.h>
  14 #include <talloc/talloc.h>
  15 #include <list/list.h>
  16 #include <log/log.h>
  17 #include <param_list/param_list.h>
  18 #include <process/process.h>
  19 #include <types/types.h>
  20 #include <url/url.h>
  21
  22 #include "hostboot.h"
  23 #include "platform.h"
  24 #include "ipmi.h"
  25 #include "dt.h"
  26
  27 static const char *partition = "common";
  28 static const char *sysparams_dir = "/sys/firmware/opal/sysparams/";
  29 static const char *devtree_dir = "/proc/device-tree/";
  30
  31 struct platform_powerpc {
  32         struct param_list params;
  33         struct ipmi     *ipmi;
  34         bool            ipmi_bootdev_persistent;
  35         int             (*get_ipmi_bootdev)(
  36                                 struct platform_powerpc *platform,
  37                                 uint8_t *bootdev, bool *persistent);
  38         int             (*clear_ipmi_bootdev)(
  39                                 struct platform_powerpc *platform,
  40                                 bool persistent);
  41         int             (*set_os_boot_sensor)(
  42                                 struct platform_powerpc *platform);
  43         void            (*get_platform_versions)(struct system_info *info);
  44 };
  45
  46 #define to_platform_powerpc(p) \
  47         (struct platform_powerpc *)(p->platform_data)
  48
  49 static int parse_nvram_params(struct platform_powerpc *platform,
  50                 char *buf, int len)
  51 {
  52         char *pos, *name, *value;
  53         unsigned int paramlen;
  54         int i, count;
  55
  56         /* discard 2 header lines:
  57          * "common" partiton"
  58          * ------------------
  59          */
  60         pos = buf;
  61         count = 0;
  62
  63         for (i = 0; i < len; i++) {
  64                 if (pos[i] == '\n')
  65                         count++;
  66                 if (count == 2)
  67                         break;
  68         }
  69
  70         if (i == len) {
  71                 fprintf(stderr, "failure parsing nvram output\n");
  72                 return -1;
  73         }
  74
  75         for (pos = buf + i; pos < buf + len; pos += paramlen + 1) {
  76                 unsigned int namelen;
  77                 char *newline;
  78
  79                 newline = strchr(pos, '\n');
  80                 if (!newline)
  81                         break;
  82
  83                 *newline = '\0';
  84
  85                 paramlen = strlen(pos);
  86
  87                 name = pos;
  88                 value = strchr(pos, '=');
  89                 if (!value)
  90                         continue;
  91
  92                 namelen = value - name;
  93                 if (namelen == 0)
  94                         continue;
  95
  96                 if (!param_list_is_known_n(&platform->params, name, namelen))
  97                         continue;
  98
  99                 *value = '\0';
 100                 value++;
 101
 102                 param_list_set(&platform->params, name, value, false);
 103         }
 104
 105         return 0;
 106 }
 107
 108 static int parse_nvram(struct platform_powerpc *platform)
 109 {
 110         struct process_stdout *stdout;
 111         const char *argv[5];
 112         int rc;
 113
 114         argv[0] = "nvram";
 115         argv[1] = "--print-config";
 116         argv[2] = "--partition";
 117         argv[3] = partition;
 118         argv[4] = NULL;
 119
 120         rc = process_get_stdout_argv(NULL, &stdout, argv);
 121
 122         if (rc) {
 123                 fprintf(stderr, "nvram process returned "
 124                                 "non-zero exit status\n");
 125                 rc = -1;
 126         } else {
 127                 rc = parse_nvram_params(platform, stdout->buf, stdout->len);
 128         }
 129
 130         talloc_free(stdout);
 131         return rc;
 132 }
 133
 134 static int write_nvram(struct platform_powerpc *platform)
 135 {
 136         struct process *process;
 137         struct param *param;
 138         const char *argv[6];
 139         int rc = 0;
 140
 141         argv[0] = "nvram";
 142         argv[1] = "--update-config";
 143         argv[2] = NULL;
 144         argv[3] = "--partition";
 145         argv[4] = partition;
 146         argv[5] = NULL;
 147
 148         process = process_create(platform);
 149         process->path = "nvram";
 150         process->argv = argv;
 151
 152         param_list_for_each(&platform->params, param) {
 153                 char *paramstr;
 154
 155                 if (!param->modified)
 156                         continue;
 157
 158                 paramstr = talloc_asprintf(platform, "%s=%s",
 159                                 param->name, param->value);
 160                 argv[2] = paramstr;
 161
 162                 rc = process_run_sync(process);
 163
 164                 talloc_free(paramstr);
 165
 166                 if (rc || !process_exit_ok(process)) {
 167                         rc = -1;
 168                         pb_log("nvram update process returned "
 169                                         "non-zero exit status\n");
 170                         break;
 171                 }
 172         }
 173
 174         process_release(process);
 175         return rc;
 176 }
 177
 178 static int parse_hwaddr(struct interface_config *ifconf, char *str)
 179 {
 180         int i;
 181
 182         if (strlen(str) != strlen("00:00:00:00:00:00"))
 183                 return -1;
 184
 185         for (i = 0; i < HWADDR_SIZE; i++) {
 186                 char byte[3], *endp;
 187                 unsigned long x;
 188
 189                 byte[0] = str[i * 3 + 0];
 190                 byte[1] = str[i * 3 + 1];
 191                 byte[2] = '\0';
 192
 193                 x = strtoul(byte, &endp, 16);
 194                 if (endp != byte + 2)
 195                         return -1;
 196
 197                 ifconf->hwaddr[i] = x & 0xff;
 198         }
 199
 200         return 0;
 201 }
 202
 203 static int parse_one_interface_config(struct config *config, char *confstr)
 204 {
 205         struct interface_config *ifconf;
 206         char *tok, *tok_gw, *tok_url, *saveptr;
 207
 208         ifconf = talloc_zero(config, struct interface_config);
 209
 210         if (!confstr || !strlen(confstr))
 211                 goto out_err;
 212
 213         /* first token should be the mac address */
 214         tok = strtok_r(confstr, ",", &saveptr);
 215         if (!tok)
 216                 goto out_err;
 217
 218         if (parse_hwaddr(ifconf, tok))
 219                 goto out_err;
 220
 221         /* second token is the method */
 222         tok = strtok_r(NULL, ",", &saveptr);
 223         if (!tok || !strlen(tok) || !strcmp(tok, "ignore")) {
 224                 ifconf->ignore = true;
 225
 226         } else if (!strcmp(tok, "dhcp")) {
 227                 ifconf->method = CONFIG_METHOD_DHCP;
 228
 229         } else if (!strcmp(tok, "static")) {
 230                 ifconf->method = CONFIG_METHOD_STATIC;
 231
 232                 /* ip/mask, [optional] gateway, [optional] url */
 233                 tok = strtok_r(NULL, ",", &saveptr);
 234                 if (!tok)
 235                         goto out_err;
 236                 ifconf->static_config.address =
 237                         talloc_strdup(ifconf, tok);
 238
 239                 /*
 240                  * If a url is set but not a gateway, we can accidentally
 241                  * interpret the url as the gateway. To avoid changing the
 242                  * parameter format check if the "gateway" is actually a
 243                  * pb-url if it's the last token.
 244                  */
 245                 tok_gw = strtok_r(NULL, ",", &saveptr);
 246                 tok_url = strtok_r(NULL, ",", &saveptr);
 247
 248                 if (tok_gw) {
 249                         if (tok_url || !is_url(tok_gw))
 250                                 ifconf->static_config.gateway =
 251                                         talloc_strdup(ifconf, tok_gw);
 252                         else
 253                                         tok_url = tok_gw;
 254                 }
 255
 256                 if (tok_url)
 257                         ifconf->static_config.url =
 258                                 talloc_strdup(ifconf, tok_url);
 259         } else {
 260                 pb_log("Unknown network configuration method %s\n", tok);
 261                 goto out_err;
 262         }
 263
 264         config->network.interfaces = talloc_realloc(config,
 265                         config->network.interfaces,
 266                         struct interface_config *,
 267                         ++config->network.n_interfaces);
 268
 269         config->network.interfaces[config->network.n_interfaces - 1] = ifconf;
 270
 271         return 0;
 272 out_err:
 273         talloc_free(ifconf);
 274         return -1;
 275 }
 276
 277 static int parse_one_dns_config(struct config *config, char *confstr)
 278 {
 279         char *tok, *saveptr = NULL;
 280
 281         for (tok = strtok_r(confstr, ",", &saveptr); tok;
 282                         tok = strtok_r(NULL, ",", &saveptr)) {
 283
 284                 char *server = talloc_strdup(config, tok);
 285
 286                 config->network.dns_servers = talloc_realloc(config,
 287                                 config->network.dns_servers, const char *,
 288                                 ++config->network.n_dns_servers);
 289
 290                 config->network.dns_servers[config->network.n_dns_servers - 1]
 291                                 = server;
 292         }
 293
 294         return 0;
 295 }
 296
 297 static void populate_network_config(struct config *config, const char *cval)
 298 {
 299         char *val, *saveptr = NULL;
 300         int i;
 301
 302         if (!cval || !strlen(cval))
 303                 return;
 304
 305         val = talloc_strdup(config, cval);
 306
 307         for (i = 0; ; i++) {
 308                 char *tok;
 309
 310                 tok = strtok_r(i == 0 ? val : NULL, " ", &saveptr);
 311                 if (!tok)
 312                         break;
 313
 314                 if (!strncasecmp(tok, "dns,", strlen("dns,")))
 315                         parse_one_dns_config(config, tok + strlen("dns,"));
 316                 else
 317                         parse_one_interface_config(config, tok);
 318
 319         }
 320
 321         talloc_free(val);
 322 }
 323
 324 static int read_bootdev(void *ctx, char **pos, struct autoboot_option *opt)
 325 {
 326         char *delim = strchr(*pos, ' ');
 327         int len, prefix = 0, rc = -1;
 328         enum device_type type;
 329
 330         if (!strncmp(*pos, "uuid:", strlen("uuid:"))) {
 331                 prefix = strlen("uuid:");
 332                 opt->boot_type = BOOT_DEVICE_UUID;
 333         } else if (!strncmp(*pos, "mac:", strlen("mac:"))) {
 334                 prefix = strlen("mac:");
 335                 opt->boot_type = BOOT_DEVICE_UUID;
 336         } else {
 337                 type = find_device_type(*pos);
 338                 if (type != DEVICE_TYPE_UNKNOWN) {
 339                         opt->type = type;
 340                         opt->boot_type = BOOT_DEVICE_TYPE;
 341                         rc = 0;
 342                 }
 343         }
 344
 345         if (opt->boot_type == BOOT_DEVICE_UUID) {
 346                 if (delim)
 347                         len = (int)(delim - *pos) - prefix;
 348                 else
 349                         len = strlen(*pos) - prefix;
 350
 351                 if (len) {
 352                         opt->uuid = talloc_strndup(ctx, *pos + prefix, len);
 353                         rc = 0;
 354                 }
 355         }
 356
 357         /* Always advance pointer to next option or end */
 358         if (delim)
 359                 *pos = delim + 1;
 360         else
 361                 *pos += strlen(*pos);
 362
 363         return rc;
 364 }
 365
 366 static void populate_bootdev_config(struct config *config,
 367         const struct param_list *pl)
 368 {
 369         struct autoboot_option *opt, *new = NULL;
 370         char *pos, *end;
 371         unsigned int n_new = 0;
 372         const char *val;
 373
 374         /* Check for ordered bootdevs */
 375         val = param_list_get_value(pl, "petitboot,bootdevs");
 376         if (!val || !strlen(val)) {
 377                 pos = end = NULL;
 378         } else {
 379                 pos = talloc_strdup(config, val);
 380                 end = strchr(pos, '\0');
 381         }
 382
 383         while (pos && pos < end) {
 384                 opt = talloc(config, struct autoboot_option);
 385
 386                 if (read_bootdev(config, &pos, opt)) {
 387                         pb_log("bootdev config is in an unknown format "
 388                                "(expected uuid:... or mac:...)\n");
 389                         talloc_free(opt);
 390                         continue;
 391                 }
 392
 393                 new = talloc_realloc(config, new, struct autoboot_option,
 394                                      n_new + 1);
 395                 new[n_new] = *opt;
 396                 n_new++;
 397                 talloc_free(opt);
 398
 399         }
 400
 401         if (!n_new) {
 402                 /* If autoboot has been disabled, clear the default options */
 403                 if (!config->autoboot_enabled) {
 404                         talloc_free(config->autoboot_opts);
 405                         config->n_autoboot_opts = 0;
 406                 }
 407                 return;
 408         }
 409
 410         talloc_free(config->autoboot_opts);
 411         config->autoboot_opts = new;
 412         config->n_autoboot_opts = n_new;
 413 }
 414
 415 static void populate_config(struct config *config, const struct param_list *pl)
 416 {
 417         const char *val;
 418         char *end;
 419         unsigned long timeout;
 420
 421         /* if the "auto-boot?' property is present and "false", disable auto
 422          * boot */
 423         val = param_list_get_value(pl, "auto-boot?");
 424         config->autoboot_enabled = !val || strcmp(val, "false");
 425
 426         val = param_list_get_value(pl, "petitboot,timeout");
 427         if (val) {
 428                 timeout = strtoul(val, &end, 10);
 429                 if (end != val) {
 430                         if (timeout >= INT_MAX)
 431                                 timeout = INT_MAX;
 432                         config->autoboot_timeout_sec = (int)timeout;
 433                 }
 434         }
 435
 436         val = param_list_get_value(pl, "petitboot,language");
 437         config->lang = val ? talloc_strdup(config, val) : NULL;
 438
 439         val = param_list_get_value(pl, "petitboot,network");
 440         populate_network_config(config, val);
 441
 442         populate_bootdev_config(config, pl);
 443
 444         if (!config->debug) {
 445                 val = param_list_get_value(pl, "petitboot,debug?");
 446                 config->debug = val && !strcmp(val, "true");
 447         }
 448
 449         val = param_list_get_value(pl, "petitboot,write?");
 450         if (val)
 451                 config->allow_writes = !strcmp(val, "true");
 452
 453         val = param_list_get_value(pl, "petitboot,snapshots?");
 454         if (val)
 455                 config->disable_snapshots = !strcmp(val, "false");
 456
 457         val = param_list_get_value(pl, "petitboot,console");
 458         if (val)
 459                 config->boot_console = talloc_strdup(config, val);
 460         /* If a full path is already set we don't want to override it */
 461         config->manual_console = config->boot_console &&
 462                                         !strchr(config->boot_console, '[');
 463
 464         val = param_list_get_value(pl, "petitboot,http_proxy");
 465         if (val)
 466                 config->http_proxy = talloc_strdup(config, val);
 467         val = param_list_get_value(pl, "petitboot,https_proxy");
 468         if (val)
 469                 config->https_proxy = talloc_strdup(config, val);
 470 }
 471
 472 static char *iface_config_str(void *ctx, struct interface_config *config)
 473 {
 474         char *str;
 475
 476         /* todo: HWADDR size is hardcoded as 6, but we may need to handle
 477          * different hardware address formats */
 478         str = talloc_asprintf(ctx, "%02x:%02x:%02x:%02x:%02x:%02x,",
 479                         config->hwaddr[0], config->hwaddr[1],
 480                         config->hwaddr[2], config->hwaddr[3],
 481                         config->hwaddr[4], config->hwaddr[5]);
 482
 483         if (config->ignore) {
 484                 str = talloc_asprintf_append(str, "ignore");
 485
 486         } else if (config->method == CONFIG_METHOD_DHCP) {
 487                 str = talloc_asprintf_append(str, "dhcp");
 488
 489         } else if (config->method == CONFIG_METHOD_STATIC) {
 490                 str = talloc_asprintf_append(str, "static,%s%s%s%s%s",
 491                                 config->static_config.address,
 492                                 config->static_config.gateway ? "," : "",
 493                                 config->static_config.gateway ?: "",
 494                                 config->static_config.url ? "," : "",
 495                                 config->static_config.url ?: "");
 496         }
 497         return str;
 498 }
 499
 500 static char *dns_config_str(void *ctx, const char **dns_servers, int n)
 501 {
 502         char *str;
 503         int i;
 504
 505         str = talloc_strdup(ctx, "dns,");
 506         for (i = 0; i < n; i++) {
 507                 str = talloc_asprintf_append(str, "%s%s",
 508                                 i == 0 ? "" : ",",
 509                                 dns_servers[i]);
 510         }
 511
 512         return str;
 513 }
 514
 515 static void update_network_config(struct param_list *pl, const char *param_name,
 516         const struct config *config)
 517 {
 518         unsigned int i;
 519         char *val;
 520
 521         /*
 522          * Don't store IPMI overrides to NVRAM. If this was a persistent
 523          * override it was already stored in NVRAM by
 524          * get_ipmi_network_override()
 525          */
 526         if (config->network.n_interfaces &&
 527                 config->network.interfaces[0]->override)
 528                 return;
 529
 530         val = talloc_strdup(pl, "");
 531
 532         for (i = 0; i < config->network.n_interfaces; i++) {
 533                 char *iface_str = iface_config_str(pl,
 534                                         config->network.interfaces[i]);
 535                 val = talloc_asprintf_append(val, "%s%s",
 536                                 *val == '\0' ? "" : " ", iface_str);
 537                 talloc_free(iface_str);
 538         }
 539
 540         if (config->network.n_dns_servers) {
 541                 char *dns_str = dns_config_str(pl,
 542                                                 config->network.dns_servers,
 543                                                 config->network.n_dns_servers);
 544                 val = talloc_asprintf_append(val, "%s%s",
 545                                 *val == '\0' ? "" : " ", dns_str);
 546                 talloc_free(dns_str);
 547         }
 548
 549         param_list_set_non_empty(pl, param_name, val, true);
 550         talloc_free(val);
 551 }
 552
 553 static void update_bootdev_config(struct param_list *pl, const char *param_name,
 554         const struct config *config)
 555 {
 556         char *val = NULL, *boot_str = NULL, *tmp = NULL;
 557         struct autoboot_option *opt;
 558         const char delim = ' ';
 559         unsigned int i;
 560
 561         if (!config->n_autoboot_opts)
 562                 val = "";
 563
 564         for (i = 0; i < config->n_autoboot_opts; i++) {
 565                 opt = &config->autoboot_opts[i];
 566                 switch (opt->boot_type) {
 567                         case BOOT_DEVICE_TYPE:
 568                                 boot_str = talloc_asprintf(config, "%s%c",
 569                                                 device_type_name(opt->type),
 570                                                 delim);
 571                                 break;
 572                         case BOOT_DEVICE_UUID:
 573                                 boot_str = talloc_asprintf(config, "uuid:%s%c",
 574                                                 opt->uuid, delim);
 575                                 break;
 576                         }
 577                         tmp = val = talloc_asprintf_append(val, "%s", boot_str);
 578         }
 579
 580         param_list_set_non_empty(pl, param_name, val, true);
 581         talloc_free(tmp);
 582         if (boot_str)
 583                 talloc_free(boot_str);
 584 }
 585
 586 static void update_config(struct param_list *pl, struct config *config,
 587         const struct config *defaults)
 588 {
 589         char *tmp = NULL;
 590         const char *val;
 591
 592         if (config->autoboot_enabled == defaults->autoboot_enabled)
 593                 val = "";
 594         else
 595                 val = config->autoboot_enabled ? "true" : "false";
 596
 597         param_list_set_non_empty(pl, "auto-boot?", val, true);
 598
 599         if (config->autoboot_timeout_sec == defaults->autoboot_timeout_sec)
 600                 val = "";
 601         else
 602                 val = tmp = talloc_asprintf(pl, "%d",
 603                         config->autoboot_timeout_sec);
 604
 605         param_list_set_non_empty(pl, "petitboot,timeout", val, true);
 606         if (tmp)
 607                 talloc_free(tmp);
 608
 609         val = config->lang ?: "";
 610         param_list_set_non_empty(pl, "petitboot,language", val, true);
 611
 612         if (config->allow_writes == defaults->allow_writes)
 613                 val = "";
 614         else
 615                 val = config->allow_writes ? "true" : "false";
 616         param_list_set_non_empty(pl, "petitboot,write?", val, true);
 617
 618         if (!config->manual_console) {
 619                 val = config->boot_console ?: "";
 620                 param_list_set_non_empty(pl, "petitboot,console", val, true);
 621         }
 622
 623         val = config->http_proxy ?: "";
 624         param_list_set_non_empty(pl, "petitboot,http_proxy", val, true);
 625         val = config->https_proxy ?: "";
 626         param_list_set_non_empty(pl, "petitboot,https_proxy", val, true);
 627
 628         update_network_config(pl, "petitboot,network", config);
 629         update_bootdev_config(pl, "petitboot,bootdevs", config);
 630 }
 631
 632 static void set_ipmi_bootdev(struct config *config, enum ipmi_bootdev bootdev,
 633                 bool persistent)
 634 {
 635         config->ipmi_bootdev = bootdev;
 636         config->ipmi_bootdev_persistent = persistent;
 637
 638         if (bootdev == IPMI_BOOTDEV_SAFE)
 639                 config->safe_mode = true;
 640 }
 641
 642 static int read_bootdev_sysparam(const char *name, uint8_t *val)
 643 {
 644         uint8_t buf[2];
 645         char path[50];
 646         int fd, rc;
 647
 648         assert(strlen(sysparams_dir) + strlen(name) < sizeof(path));
 649         snprintf(path, sizeof(path), "%s%s", sysparams_dir, name);
 650
 651         fd = open(path, O_RDONLY);
 652         if (fd < 0) {
 653                 pb_debug("powerpc: can't access sysparam %s\n",
 654                                 name);
 655                 return -1;
 656         }
 657
 658         rc = read(fd, buf, sizeof(buf));
 659
 660         close(fd);
 661
 662         /* bootdev definitions should only be one byte in size */
 663         if (rc != 1) {
 664                 pb_debug("powerpc: sysparam %s read returned %d\n",
 665                                 name, rc);
 666                 return -1;
 667         }
 668
 669         pb_debug("powerpc: sysparam %s: 0x%02x\n", name, buf[0]);
 670
 671         if (!ipmi_bootdev_is_valid(buf[0]))
 672                 return -1;
 673
 674         *val = buf[0];
 675         return 0;
 676 }
 677
 678 static int write_bootdev_sysparam(const char *name, uint8_t val)
 679 {
 680         char path[50];
 681         int fd, rc;
 682
 683         assert(strlen(sysparams_dir) + strlen(name) < sizeof(path));
 684         snprintf(path, sizeof(path), "%s%s", sysparams_dir, name);
 685
 686         fd = open(path, O_WRONLY);
 687         if (fd < 0) {
 688                 pb_debug("powerpc: can't access sysparam %s for writing\n",
 689                                 name);
 690                 return -1;
 691         }
 692
 693         for (;;) {
 694                 errno = 0;
 695                 rc = write(fd, &val, sizeof(val));
 696                 if (rc == sizeof(val)) {
 697                         rc = 0;
 698                         break;
 699                 }
 700
 701                 if (rc <= 0 && errno != EINTR) {
 702                         pb_log("powerpc: error updating sysparam %s: %s",
 703                                         name, strerror(errno));
 704                         rc = -1;
 705                         break;
 706                 }
 707         }
 708
 709         close(fd);
 710
 711         if (!rc)
 712                 pb_debug("powerpc: set sysparam %s: 0x%02x\n", name, val);
 713
 714         return rc;
 715 }
 716
 717 static int clear_ipmi_bootdev_sysparams(
 718                 struct platform_powerpc *platform __attribute__((unused)),
 719                 bool persistent)
 720 {
 721         if (persistent) {
 722                 /* invalidate default-boot-device setting */
 723                 write_bootdev_sysparam("default-boot-device", 0xff);
 724         } else {
 725                 /* invalidate next-boot-device setting */
 726                 write_bootdev_sysparam("next-boot-device", 0xff);
 727         }
 728         return 0;
 729 }
 730
 731 static int get_ipmi_bootdev_sysparams(
 732                 struct platform_powerpc *platform __attribute__((unused)),
 733                 uint8_t *bootdev, bool *persistent)
 734 {
 735         uint8_t next_bootdev, default_bootdev;
 736         bool next_valid, default_valid;
 737         int rc;
 738
 739         rc = read_bootdev_sysparam("next-boot-device", &next_bootdev);
 740         next_valid = rc == 0;
 741
 742         rc = read_bootdev_sysparam("default-boot-device", &default_bootdev);
 743         default_valid = rc == 0;
 744
 745         /* nothing valid? no need to change the config */
 746         if (!next_valid && !default_valid)
 747                 return -1;
 748
 749         *persistent = !next_valid;
 750         *bootdev = next_valid ? next_bootdev : default_bootdev;
 751         return 0;
 752 }
 753
 754 static int clear_ipmi_bootdev_ipmi(struct platform_powerpc *platform,
 755                                    bool persistent __attribute__((unused)))
 756 {
 757         uint16_t resp_len;
 758         uint8_t resp[1];
 759         uint8_t req[] = {
 760                 0x05, /* parameter selector: boot flags */
 761                 0x80, /* data 1: valid */
 762                 0x00, /* data 2: bootdev: no override */
 763                 0x00, /* data 3: system defaults */
 764                 0x00, /* data 4: no request for shared mode, mux defaults */
 765                 0x00, /* data 5: no instance request */
 766         };
 767
 768         resp_len = sizeof(resp);
 769
 770         ipmi_transaction(platform->ipmi, IPMI_NETFN_CHASSIS,
 771                         IPMI_CMD_CHASSIS_SET_SYSTEM_BOOT_OPTIONS,
 772                         req, sizeof(req),
 773                         resp, &resp_len,
 774                         ipmi_timeout);
 775         return 0;
 776 }
 777
 778 static int get_ipmi_bootdev_ipmi(struct platform_powerpc *platform,
 779                 uint8_t *bootdev, bool *persistent)
 780 {
 781         uint16_t resp_len;
 782         uint8_t resp[8];
 783         int rc;
 784         uint8_t req[] = {
 785                 0x05, /* parameter selector: boot flags */
 786                 0x00, /* no set selector */
 787                 0x00, /* no block selector */
 788         };
 789
 790         resp_len = sizeof(resp);
 791         rc = ipmi_transaction(platform->ipmi, IPMI_NETFN_CHASSIS,
 792                         IPMI_CMD_CHASSIS_GET_SYSTEM_BOOT_OPTIONS,
 793                         req, sizeof(req),
 794                         resp, &resp_len,
 795                         ipmi_timeout);
 796         if (rc) {
 797                 pb_log("platform: error reading IPMI boot options\n");
 798                 return -1;
 799         }
 800
 801         if (resp_len != sizeof(resp)) {
 802                 pb_log("platform: unexpected length (%d) in "
 803                                 "boot options response\n", resp_len);
 804                 return -1;
 805         }
 806
 807         pb_debug("IPMI get_bootdev response:\n");
 808         for (int i = 0; i < resp_len; i++)
 809                 pb_debug("%x ", resp[i]);
 810         pb_debug("\n");
 811
 812         if (resp[0] != 0) {
 813                 pb_log("platform: non-zero completion code %d from IPMI req\n",
 814                                 resp[0]);
 815                 return -1;
 816         }
 817
 818         /* check for correct parameter version */
 819         if ((resp[1] & 0xf) != 0x1) {
 820                 pb_log("platform: unexpected version (0x%x) in "
 821                                 "boot options response\n", resp[0]);
 822                 return -1;
 823         }
 824
 825         /* check for valid paramters */
 826         if (resp[2] & 0x80) {
 827                 pb_debug("platform: boot options are invalid/locked\n");
 828                 return -1;
 829         }
 830
 831         *persistent = false;
 832
 833         /* check for valid flags */
 834         if (!(resp[3] & 0x80)) {
 835                 pb_debug("platform: boot flags are invalid, ignoring\n");
 836                 return -1;
 837         }
 838
 839         *persistent = resp[3] & 0x40;
 840         *bootdev = (resp[4] >> 2) & 0x0f;
 841         return 0;
 842 }
 843
 844 static int set_ipmi_os_boot_sensor(struct platform_powerpc *platform)
 845 {
 846         int sensor_number;
 847         uint16_t resp_len;
 848         uint8_t resp[1];
 849         uint8_t req[] = {
 850                 0x00, /* sensor number: os boot */
 851                 0xA9, /* operation: set everything */
 852                 0x00, /* sensor reading: none */
 853                 0x40, /* assertion mask lsb: set state 6 */
 854                 0x00, /* assertion mask msb: none */
 855                 0x00, /* deassertion mask lsb: none */
 856                 0x00, /* deassertion mask msb: none */
 857                 0x00, /* event data 1: none */
 858                 0x00, /* event data 2: none */
 859                 0x00, /* event data 3: none */
 860         };
 861
 862         sensor_number = get_ipmi_sensor(platform, IPMI_SENSOR_ID_OS_BOOT);
 863         if (sensor_number < 0) {
 864                 pb_log("Couldn't find OS boot sensor in device tree\n");
 865                 return -1;
 866         }
 867
 868         req[0] = sensor_number;
 869
 870         resp_len = sizeof(resp);
 871
 872         ipmi_transaction(platform->ipmi, IPMI_NETFN_SE,
 873                         IPMI_CMD_SENSOR_SET,
 874                         req, sizeof(req),
 875                         resp, &resp_len,
 876                         ipmi_timeout); return 0;
 877
 878         return 0;
 879 }
 880
 881 static void get_ipmi_network_override(struct platform_powerpc *platform,
 882                         struct config *config)
 883 {
 884         uint16_t min_len = 12, resp_len = 53, version;
 885         const uint32_t magic_value = 0x21706221;
 886         uint8_t resp[resp_len];
 887         uint32_t cookie;
 888         bool persistent;
 889         int i, rc;
 890         uint8_t req[] = {
 891                 0x61, /* parameter selector: OEM section (network) */
 892                 0x00, /* no set selector */
 893                 0x00, /* no block selector */
 894         };
 895
 896         rc = ipmi_transaction(platform->ipmi, IPMI_NETFN_CHASSIS,
 897                         IPMI_CMD_CHASSIS_GET_SYSTEM_BOOT_OPTIONS,
 898                         req, sizeof(req),
 899                         resp, &resp_len,
 900                         ipmi_timeout);
 901
 902         pb_debug("IPMI net override resp [%d][%d]:\n", rc, resp_len);
 903         if (resp_len > 0) {
 904                 for (i = 0; i < resp_len; i++) {
 905                         pb_debug(" %02x", resp[i]);
 906                         if (i && (i + 1) % 16 == 0 && i != resp_len - 1)
 907                                 pb_debug("\n");
 908                         else if (i && (i + 1) % 8 == 0)
 909                                 pb_debug(" ");
 910                 }
 911                 pb_debug("\n");
 912         }
 913
 914         if (rc) {
 915                 pb_debug("IPMI network config option unavailable\n");
 916                 return;
 917         }
 918
 919         if (resp_len < min_len) {
 920                 pb_debug("IPMI net response too small\n");
 921                 return;
 922         }
 923
 924         if (resp[0] != 0) {
 925                 pb_log("platform: non-zero completion code %d from IPMI network req\n",
 926                        resp[0]);
 927                 return;
 928         }
 929
 930         /* Check for correct parameter version */
 931         if ((resp[1] & 0xf) != 0x1) {
 932                 pb_log("platform: unexpected version (0x%x) in network override response\n",
 933                        resp[0]);
 934                 return;
 935         }
 936
 937         /* Check that the parameters are valid */
 938         if (resp[2] & 0x80) {
 939                 pb_debug("platform: network override is invalid/locked\n");
 940                 return;
 941         }
 942
 943         /* Check for valid parameters in the boot flags section */
 944         if (!(resp[3] & 0x80)) {
 945                 pb_debug("platform: network override valid flag not set\n");
 946                 return;
 947         }
 948         /* Read the persistent flag; if it is set we need to save this config */
 949         persistent = resp[3] & 0x40;
 950         if (persistent)
 951                 pb_debug("platform: network override is persistent\n");
 952
 953         /* Check 4-byte cookie value */
 954         i = 4;
 955         memcpy(&cookie, &resp[i], sizeof(cookie));
 956         cookie = __be32_to_cpu(cookie);
 957         if (cookie != magic_value) {
 958                 pb_log_fn("Incorrect cookie %x\n", cookie);
 959                 return;
 960         }
 961         i += sizeof(cookie);
 962
 963         /* Check 2-byte version number */
 964         memcpy(&version, &resp[i], sizeof(version));
 965         version = __be16_to_cpu(version);
 966         i += sizeof(version);
 967         if (version != 1) {
 968                 pb_debug("Unexpected version: %u\n", version);
 969                 return;
 970         }
 971
 972         /* Interpret the rest of the interface config */
 973         rc = parse_ipmi_interface_override(config, &resp[i], resp_len - i);
 974
 975         if (!rc && persistent) {
 976                 /* Write this new config to NVRAM */
 977                 update_network_config(&platform->params, "petitboot,network",
 978                         config);
 979                 rc = write_nvram(platform);
 980                 if (rc)
 981                         pb_log("platform: Failed to save persistent interface override\n");
 982         }
 983 }
 984
 985 static void get_active_consoles(struct config *config)
 986 {
 987         struct stat sbuf;
 988         char *fsp_prop = NULL;
 989
 990         config->n_consoles = 2;
 991         config->consoles = talloc_array(config, char *, config->n_consoles);
 992         if (!config->consoles)
 993                 goto err;
 994
 995         config->consoles[0] = talloc_asprintf(config->consoles,
 996                                         "/dev/hvc0 [IPMI / Serial]");
 997         config->consoles[1] = talloc_asprintf(config->consoles,
 998                                         "/dev/tty1 [VGA]");
 999
1000         fsp_prop = talloc_asprintf(config, "%sfsps", devtree_dir);
1001         if (stat(fsp_prop, &sbuf) == 0) {
1002                 /* FSP based machines also have a separate serial console */
1003                 config->consoles = talloc_realloc(config, config->consoles,
1004                                                 char *, config->n_consoles + 1);
1005                 if (!config->consoles)
1006                         goto err;
1007                 config->consoles[config->n_consoles++] = talloc_asprintf(
1008                                                 config->consoles,
1009                                                 "/dev/hvc1 [Serial]");
1010         }
1011
1012         return;
1013 err:
1014         config->n_consoles = 0;
1015         pb_log("Failed to allocate memory for consoles\n");
1016 }
1017
1018 static int load_config(struct platform *p, struct config *config)
1019 {
1020         struct platform_powerpc *platform = to_platform_powerpc(p);
1021         int rc;
1022
1023         rc = parse_nvram(platform);
1024         if (rc)
1025                 pb_log_fn("Failed to parse nvram\n");
1026
1027         populate_config(config, &platform->params);
1028
1029         if (platform->get_ipmi_bootdev) {
1030                 bool bootdev_persistent;
1031                 uint8_t bootdev = IPMI_BOOTDEV_INVALID;
1032                 rc = platform->get_ipmi_bootdev(platform, &bootdev,
1033                                 &bootdev_persistent);
1034                 if (!rc && ipmi_bootdev_is_valid(bootdev)) {
1035                         set_ipmi_bootdev(config, bootdev, bootdev_persistent);
1036                 }
1037         }
1038
1039         if (platform->ipmi)
1040                 get_ipmi_network_override(platform, config);
1041
1042         get_active_consoles(config);
1043
1044         return 0;
1045 }
1046
1047 static int save_config(struct platform *p, struct config *config)
1048 {
1049         struct platform_powerpc *platform = to_platform_powerpc(p);
1050         struct config *defaults;
1051
1052         if (config->ipmi_bootdev == IPMI_BOOTDEV_INVALID &&
1053             platform->clear_ipmi_bootdev) {
1054                 platform->clear_ipmi_bootdev(platform,
1055                                 config->ipmi_bootdev_persistent);
1056                 config->ipmi_bootdev = IPMI_BOOTDEV_NONE;
1057                 config->ipmi_bootdev_persistent = false;
1058         }
1059
1060         defaults = talloc_zero(platform, struct config);
1061         config_set_defaults(defaults);
1062
1063         update_config(&platform->params, config, defaults);
1064
1065         talloc_free(defaults);
1066         return write_nvram(platform);
1067 }
1068
1069 static void pre_boot(struct platform *p, const struct config *config)
1070 {
1071         struct platform_powerpc *platform = to_platform_powerpc(p);
1072
1073         if (!config->ipmi_bootdev_persistent && platform->clear_ipmi_bootdev)
1074                 platform->clear_ipmi_bootdev(platform, false);
1075
1076         if (platform->set_os_boot_sensor)
1077                 platform->set_os_boot_sensor(platform);
1078 }
1079
1080 static int get_sysinfo(struct platform *p, struct system_info *sysinfo)
1081 {
1082         struct platform_powerpc *platform = p->platform_data;
1083         char *buf, *filename;
1084         int len, rc;
1085
1086         filename = talloc_asprintf(platform, "%smodel", devtree_dir);
1087         rc = read_file(platform, filename, &buf, &len);
1088         if (rc == 0)
1089                 sysinfo->type = talloc_steal(sysinfo, buf);
1090         talloc_free(filename);
1091
1092         filename = talloc_asprintf(platform, "%ssystem-id", devtree_dir);
1093         rc = read_file(platform, filename, &buf, &len);
1094         if (rc == 0)
1095                 sysinfo->identifier = talloc_steal(sysinfo, buf);
1096         talloc_free(filename);
1097
1098         sysinfo->bmc_mac = talloc_zero_size(sysinfo, HWADDR_SIZE);
1099
1100         if (platform->ipmi) {
1101                 ipmi_get_bmc_mac(platform->ipmi, sysinfo->bmc_mac);
1102                 ipmi_get_bmc_versions(platform->ipmi, sysinfo);
1103         }
1104
1105         if (platform->get_platform_versions)
1106                 platform->get_platform_versions(sysinfo);
1107
1108         return 0;
1109 }
1110
1111 static bool probe(struct platform *p, void *ctx)
1112 {
1113         struct platform_powerpc *platform;
1114         struct stat statbuf;
1115         bool bmc_present;
1116         int rc;
1117
1118         /* we need a device tree */
1119         rc = stat("/proc/device-tree", &statbuf);
1120         if (rc)
1121                 return false;
1122
1123         if (!S_ISDIR(statbuf.st_mode))
1124                 return false;
1125
1126         platform = talloc_zero(ctx, struct platform_powerpc);
1127         param_list_init(&platform->params, common_known_params());
1128
1129         p->platform_data = platform;
1130
1131         bmc_present = stat("/proc/device-tree/bmc", &statbuf) == 0;
1132
1133         if (ipmi_present() && bmc_present) {
1134                 pb_debug("platform: using direct IPMI for IPMI paramters\n");
1135                 platform->ipmi = ipmi_open(platform);
1136                 platform->get_ipmi_bootdev = get_ipmi_bootdev_ipmi;
1137                 platform->clear_ipmi_bootdev = clear_ipmi_bootdev_ipmi;
1138                 platform->set_os_boot_sensor = set_ipmi_os_boot_sensor;
1139         } else if (!stat(sysparams_dir, &statbuf)) {
1140                 pb_debug("platform: using sysparams for IPMI paramters\n");
1141                 platform->get_ipmi_bootdev = get_ipmi_bootdev_sysparams;
1142                 platform->clear_ipmi_bootdev = clear_ipmi_bootdev_sysparams;
1143
1144         } else {
1145                 pb_log("platform: no IPMI parameter support\n");
1146         }
1147
1148         if (bmc_present)
1149                 platform->get_platform_versions = hostboot_load_versions;
1150
1151         return true;
1152 }
1153
1154
1155 static struct platform platform_powerpc = {
1156         .name                   = "powerpc",
1157         .dhcp_arch_id           = 0x000e,
1158         .probe                  = probe,
1159         .load_config            = load_config,
1160         .save_config            = save_config,
1161         .pre_boot               = pre_boot,
1162         .get_sysinfo            = get_sysinfo,
1163 };
1164
1165 register_platform(platform_powerpc);