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