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