1 /* 2 * CDDL HEADER START 3 * 4 * The contents of this file are subject to the terms of the 5 * Common Development and Distribution License (the "License"). 6 * You may not use this file except in compliance with the License. 7 * 8 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9 * or http://www.opensolaris.org/os/licensing. 10 * See the License for the specific language governing permissions 11 * and limitations under the License. 12 * 13 * When distributing Covered Code, include this CDDL HEADER in each 14 * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15 * If applicable, add the following below this CDDL HEADER, with the 16 * fields enclosed by brackets "[]" replaced with your own identifying 17 * information: Portions Copyright [yyyy] [name of copyright owner] 18 * 19 * CDDL HEADER END 20 */ 21 /* 22 * Copyright 2009 Sun Microsystems, Inc. All rights reserved. 23 * Use is subject to license terms. 24 * Copyright 2016 Nexenta Systems, Inc. All rights reserved. 25 */ 26 27 #include <stdio.h> /* Standard */ 28 #include <stdlib.h> 29 #include <fcntl.h> 30 #include <sys/types.h> 31 #include <time.h> 32 #include <string.h> 33 #include <errno.h> 34 #include <pwd.h> 35 #include <dirent.h> 36 #include <thread.h> 37 #include <limits.h> 38 #include <sys/todio.h> /* Time-Of-Day chip */ 39 #include <sys/stat.h> 40 #include <sys/wait.h> 41 #include <sys/ipc.h> /* IPC functions */ 42 #include <signal.h> /* signal handling */ 43 #include <syslog.h> 44 #include <unistd.h> 45 #include <libdevinfo.h> 46 #include <poll.h> 47 #include <sys/pm.h> /* power management driver */ 48 #include <sys/uadmin.h> 49 #include <sys/openpromio.h> /* for prom access */ 50 #include <sys/sysmacros.h> /* for MIN & MAX macros */ 51 #include <sys/modctl.h> 52 #include <sys/stropts.h> /* for INFTIM */ 53 #include <sys/pbio.h> 54 #include <sys/cpr.h> 55 #include <sys/srn.h> 56 #include <stdarg.h> 57 58 #include "powerd.h" 59 60 /* External Functions */ 61 extern struct tm *localtime_r(const time_t *, struct tm *); 62 extern void sysstat_init(void); 63 extern int check_tty(hrtime_t *, int); 64 extern int check_disks(hrtime_t *, int); 65 extern int check_load_ave(hrtime_t *, float); 66 extern int check_nfs(hrtime_t *, int); 67 extern int last_disk_activity(hrtime_t *, int); 68 extern int last_tty_activity(hrtime_t *, int); 69 extern int last_load_ave_activity(hrtime_t *); 70 extern int last_nfs_activity(hrtime_t *, int); 71 72 #define PM "/dev/pm" 73 #define TOD "/dev/tod" 74 #define PROM "/dev/openprom" 75 #define PB "/dev/power_button" 76 #define SRN "/dev/srn" 77 #define LOGFILE "./powerd.log" 78 79 #define PBM_THREAD 0 80 #define ATTACH_THREAD 1 81 #define NUM_THREADS 2 82 83 #define CHECK_INTERVAL 5 84 #define IDLECHK_INTERVAL 15 85 #define MINS_TO_SECS 60 86 #define HOURS_TO_SECS (60 * 60) 87 #define DAYS_TO_SECS (24 * 60 * 60) 88 #define HOURS_TO_MINS 60 89 #define DAYS_TO_MINS (24 * 60) 90 91 #define LIFETIME_SECS (7 * 365 * DAYS_TO_SECS) 92 #define DEFAULT_POWER_CYCLE_LIMIT 10000 93 #define DEFAULT_SYSTEM_BOARD_DATE 804582000 /* July 1, 1995 */ 94 95 #define LLEN 80 96 97 typedef enum {root, options} prom_node_t; 98 99 /* State Variables */ 100 static struct cprconfig asinfo; 101 static time_t shutdown_time; /* Time for next shutdown check */ 102 static time_t checkidle_time; /* Time for next idleness check */ 103 static time_t last_resume; 104 pwr_info_t *info; /* private as config data buffer */ 105 static int pb_fd; /* power button driver */ 106 static int broadcast; /* Enables syslog messages */ 107 static int start_calc; 108 static int autoshutdown_en; 109 static int do_idlecheck; 110 static int got_sighup; 111 static int estar_v2_prop; 112 static int estar_v3_prop; 113 static int log_power_cycles_error = 0; 114 static int log_system_board_date_error = 0; 115 static int log_no_autoshutdown_warning = 0; 116 static mutex_t poweroff_mutex; 117 118 static char *autoshutdown_cmd[] = { 119 "/usr/bin/sys-suspend", 120 "-n", "-d", ":0", NULL 121 }; 122 123 static char *power_button_cmd[] = { 124 "/usr/bin/sys-suspend", 125 "-h", "-d", ":0", NULL 126 }; 127 128 #ifdef __x86 129 static char *autoS3_cmd[] = { 130 "/usr/bin/sys-suspend", 131 "-n", "-d", ":0", NULL 132 }; 133 #endif 134 135 static char pidpath[] = PIDPATH; 136 static char scratch[PATH_MAX]; 137 static char *prog; 138 139 /* Local Functions */ 140 static void alarm_handler(int); 141 static void thaw_handler(int); 142 static void kill_handler(int); 143 static void work_handler(int); 144 static void check_shutdown(time_t *, hrtime_t *); 145 static void check_idleness(time_t *, hrtime_t *); 146 static int last_system_activity(hrtime_t *); 147 static int run_idlecheck(void); 148 static void set_alarm(time_t); 149 static int poweroff(const char *, char **); 150 static int is_ok2shutdown(time_t *); 151 static int get_prom(int, prom_node_t, char *, char *, size_t); 152 static void power_button_monitor(void *); 153 static int open_pidfile(char *); 154 static int write_pidfile(int, pid_t); 155 static int read_cpr_config(void); 156 static void system_activity_monitor(void); 157 #ifdef __x86 158 static void autos3_monitor(void); 159 #endif 160 static void do_attach(void); 161 static void *attach_devices(void *); 162 static int powerd_debug; 163 164 /* PRINTFLIKE1 */ 165 static void 166 logerror(const char *fmt, ...) 167 { 168 va_list args; 169 170 va_start(args, fmt); 171 if (broadcast) 172 vsyslog(LOG_ERR, fmt, args); 173 va_end(args); 174 } 175 176 177 static void 178 estrcpy(char *dst, char *src, size_t dlen) 179 { 180 size_t slen; 181 182 slen = strlcpy(dst, src, dlen); 183 if (slen >= dlen) { 184 logerror("%s: string too long \"%s ...\"\n" 185 "(len %d, max %d)\n", prog, dst, slen, dlen - 1); 186 exit(EXIT_FAILURE); 187 } 188 } 189 190 191 int 192 main(int argc, char *argv[]) 193 { 194 pid_t pid; 195 int pm_fd; 196 struct sigaction act; 197 sigset_t sigmask; 198 int c; 199 char errmsg[PATH_MAX + 64]; 200 int pid_fd; 201 202 prog = argv[0]; 203 if (geteuid() != 0) { 204 (void) fprintf(stderr, "%s: Must be root\n", prog); 205 exit(EXIT_FAILURE); 206 } 207 208 if ((pid_fd = open_pidfile(prog)) == -1) 209 exit(EXIT_FAILURE); 210 211 /* 212 * Process options 213 */ 214 broadcast = 1; 215 while ((c = getopt(argc, argv, "nd")) != EOF) { 216 switch (c) { 217 case 'd': 218 powerd_debug = 1; 219 break; 220 case 'n': 221 broadcast = 0; 222 break; 223 case '?': 224 (void) fprintf(stderr, "Usage: %s [-n]\n", prog); 225 exit(EXIT_FAILURE); 226 } 227 } 228 229 pm_fd = open(PM, O_RDWR); 230 if (pm_fd == -1) { 231 (void) snprintf(errmsg, sizeof (errmsg), "%s: %s", prog, PM); 232 perror(errmsg); 233 exit(EXIT_FAILURE); 234 } 235 (void) close(pm_fd); 236 237 /* 238 * Initialize mutex lock used to insure only one command to 239 * run at a time. 240 */ 241 if (mutex_init(&poweroff_mutex, USYNC_THREAD, NULL) != 0) { 242 (void) fprintf(stderr, 243 "%s: Unable to initialize mutex lock\n", prog); 244 exit(EXIT_FAILURE); 245 } 246 247 if ((info = (pwr_info_t *)malloc(sizeof (pwr_info_t))) == NULL) { 248 (void) snprintf(errmsg, sizeof (errmsg), "%s: malloc", prog); 249 perror(errmsg); 250 exit(EXIT_FAILURE); 251 } 252 253 /* 254 * Daemon is set to go... 255 */ 256 if ((pid = fork()) < 0) 257 exit(EXIT_FAILURE); 258 else if (pid != 0) 259 exit(EXIT_SUCCESS); 260 261 pid = getpid(); 262 openlog(prog, 0, LOG_DAEMON); 263 if (write_pidfile(pid_fd, pid) == -1) /* logs errors on failure */ 264 exit(EXIT_FAILURE); 265 (void) close(pid_fd); 266 267 /* 268 * Close all the parent's file descriptors (Bug 1225843). 269 */ 270 closefrom(0); 271 (void) setsid(); 272 (void) chdir("/"); 273 (void) umask(0); 274 #ifdef DEBUG 275 /* 276 * Connect stdout to the console. 277 */ 278 if (dup2(open("/dev/console", O_WRONLY|O_NOCTTY), 1) == -1) { 279 logerror("Unable to connect to the console."); 280 } 281 #endif 282 info->pd_flags = PD_AC; 283 info->pd_idle_time = -1; 284 info->pd_start_time = 0; 285 info->pd_finish_time = 0; 286 287 /* 288 * Allow SIGQUIT, SIGINT and SIGTERM signals to terminate us 289 * any time 290 */ 291 act.sa_handler = kill_handler; 292 (void) sigemptyset(&act.sa_mask); 293 act.sa_flags = 0; 294 (void) sigaction(SIGQUIT, &act, NULL); 295 (void) sigaction(SIGINT, &act, NULL); 296 (void) sigaction(SIGTERM, &act, NULL); 297 298 (void) sigfillset(&sigmask); 299 (void) sigdelset(&sigmask, SIGQUIT); 300 (void) sigdelset(&sigmask, SIGINT); 301 (void) sigdelset(&sigmask, SIGTERM); 302 (void) thr_sigsetmask(SIG_SETMASK, &sigmask, NULL); 303 304 /* 305 * If "power_button" device node can be opened, create a new 306 * thread to monitor the power button. 307 */ 308 if ((pb_fd = open(PB, O_RDONLY)) != -1) { 309 if (powerd_debug) 310 logerror("powerd starting power button monitor."); 311 if (thr_create(NULL, NULL, 312 (void *(*)(void *))power_button_monitor, NULL, 313 THR_DAEMON, NULL) != 0) { 314 logerror("Unable to monitor system's power button."); 315 } 316 } 317 318 do_attach(); 319 320 /* 321 * Create a new thread to monitor system activity and suspend 322 * system if idle. 323 */ 324 if (powerd_debug) 325 logerror("powerd starting system activity monitor."); 326 if (thr_create(NULL, NULL, 327 (void *(*)(void *))system_activity_monitor, NULL, 328 THR_DAEMON, NULL) != 0) { 329 logerror("Unable to create thread to monitor system activity."); 330 } 331 332 #ifdef __x86 333 /* 334 * Create a new thread to handle autos3 trigger 335 */ 336 if (powerd_debug) 337 logerror("powerd starting autos3 monitor."); 338 if (thr_create(NULL, NULL, 339 (void *(*)(void *))autos3_monitor, NULL, THR_DAEMON, NULL) != 0) { 340 logerror("Unable to create thread to monitor autos3 activity."); 341 } 342 #endif 343 344 /* 345 * Block until we receive an explicit terminate signal 346 */ 347 (void) sigsuspend(&sigmask); 348 349 return (1); 350 } 351 352 static void 353 system_activity_monitor(void) 354 { 355 struct sigaction act; 356 sigset_t sigmask; 357 358 /* 359 * Setup for gathering system's statistic. 360 */ 361 sysstat_init(); 362 363 /* 364 * In addition to the SIGQUIT, SIGINT and SIGTERM signals already 365 * being handled, this thread also needs to handle SIGHUP, SIGALRM 366 * and SIGTHAW signals. 367 */ 368 (void) sigemptyset(&act.sa_mask); 369 act.sa_flags = 0; 370 act.sa_handler = alarm_handler; 371 (void) sigaction(SIGALRM, &act, NULL); 372 act.sa_handler = work_handler; 373 (void) sigaction(SIGHUP, &act, NULL); 374 act.sa_handler = thaw_handler; 375 (void) sigaction(SIGTHAW, &act, NULL); 376 377 /* 378 * Invoke work_handler with a dummy SIGHUP signal to read 379 * cpr config file, get autoshutdown properties and schedule 380 * an alarm if needed. 381 */ 382 work_handler(SIGHUP); 383 384 /* 385 * Wait for signal to read file 386 */ 387 (void) thr_sigsetmask(0, 0, &sigmask); 388 (void) sigdelset(&sigmask, SIGHUP); 389 (void) sigdelset(&sigmask, SIGALRM); 390 (void) sigdelset(&sigmask, SIGTHAW); 391 (void) thr_sigsetmask(SIG_SETMASK, &sigmask, NULL); 392 do { 393 (void) sigsuspend(&sigmask); 394 } while (errno == EINTR); 395 } 396 397 #ifdef __x86 398 static void 399 autos3_monitor(void) 400 { 401 struct pollfd poll_fd; 402 srn_event_info_t srn_event; /* contains suspend type */ 403 int fd, ret; 404 405 fd = open(SRN, O_RDWR|O_EXCL|O_NDELAY); 406 if (fd == -1) { 407 logerror("Unable to open %s: %s", SRN, strerror(errno)); 408 thr_exit((void *)(intptr_t)errno); 409 } 410 411 /* 412 * Tell device we want the special sauce 413 */ 414 ret = ioctl(fd, SRN_IOC_AUTOSX, NULL); 415 if (ret == -1) { 416 logerror("Ioctl SRN_IOC_AUTOSX failed: %s", strerror(errno)); 417 (void) close(fd); 418 thr_exit((void *)(intptr_t)errno); 419 } 420 poll_fd.fd = fd; 421 /*CONSTCOND*/ 422 while (1) { 423 poll_fd.revents = 0; 424 poll_fd.events = POLLIN; 425 if (poll(&poll_fd, 1, -1) < 0) { 426 switch (errno) { 427 case EINTR: 428 case EAGAIN: 429 continue; 430 default: 431 logerror("Poll error: %s", strerror(errno)); 432 (void) close(fd); 433 thr_exit((void *)(intptr_t)errno); 434 } 435 } 436 437 ret = ioctl(fd, SRN_IOC_NEXTEVENT, &srn_event); 438 if (ret == -1) { 439 logerror("ioctl error: %s", strerror(errno)); 440 (void) close(fd); 441 thr_exit((void *)(intptr_t)errno); 442 } 443 switch (srn_event.ae_type) { 444 case 3: /* S3 */ 445 if (powerd_debug) 446 logerror("ioctl returns type: %d", 447 srn_event.ae_type); 448 break; 449 default: 450 logerror("Unsupported target state %d", 451 srn_event.ae_type); 452 continue; 453 } 454 (void) poweroff("AutoS3", autoS3_cmd); 455 continue; 456 } 457 } 458 #endif 459 460 static int 461 read_cpr_config(void) 462 { 463 int asfd; 464 465 if ((asfd = open(CPR_CONFIG, O_RDONLY)) < 0) { 466 logerror("Unable to open CPR config file '%s'", CPR_CONFIG); 467 return (-1); 468 } 469 470 if (read(asfd, (void *)&asinfo, sizeof (asinfo)) != sizeof (asinfo)) { 471 logerror("Unable to read CPR config file '%s'", CPR_CONFIG); 472 (void) close(asfd); 473 return (-1); 474 } 475 476 (void) close(asfd); 477 478 return (0); 479 } 480 481 /*ARGSUSED*/ 482 static void 483 thaw_handler(int sig) 484 { 485 start_calc = 0; 486 last_resume = time(NULL); 487 } 488 489 /*ARGSUSED*/ 490 static void 491 kill_handler(int sig) 492 { 493 int ret_code = EXIT_SUCCESS; 494 495 /* 496 * Free resources 497 */ 498 499 free(info); 500 if (pb_fd != -1) { 501 (void) close(pb_fd); 502 } 503 (void) mutex_destroy(&poweroff_mutex); 504 (void) unlink(pidpath); 505 closelog(); 506 exit(ret_code); 507 } 508 509 /*ARGSUSED*/ 510 static void 511 alarm_handler(int sig) 512 { 513 time_t now; 514 hrtime_t hr_now; 515 516 now = time(NULL); 517 hr_now = gethrtime(); 518 if (checkidle_time <= now && checkidle_time != 0) 519 check_idleness(&now, &hr_now); 520 if (shutdown_time <= now && shutdown_time != 0) 521 check_shutdown(&now, &hr_now); 522 523 set_alarm(now); 524 } 525 526 /*ARGSUSED*/ 527 static void 528 work_handler(int sig) 529 { 530 time_t now; 531 hrtime_t hr_now; 532 struct stat stat_buf; 533 534 do_idlecheck = 0; 535 info->pd_flags = PD_AC; 536 537 /* 538 * Parse the config file for autoshutdown and idleness entries. 539 */ 540 if (read_cpr_config() < 0) 541 return; 542 543 /* 544 * Since Oct. 1, 1995, any new system shipped had root 545 * property "energystar-v2" defined in its prom. Systems 546 * shipped after July 1, 1999, will have "energystar-v3" 547 * property. 548 */ 549 estar_v2_prop = asinfo.is_cpr_default; 550 551 info->pd_flags |= asinfo.is_autowakeup_capable; 552 553 if (strlen(asinfo.idlecheck_path) > 0) { 554 if (stat(asinfo.idlecheck_path, &stat_buf) != 0) { 555 logerror("unable to access idlecheck program \"%s\".", 556 asinfo.idlecheck_path); 557 } else if (!(stat_buf.st_mode & S_IXUSR)) { 558 logerror("idlecheck program \"%s\" is not executable.", 559 asinfo.idlecheck_path); 560 } else { 561 do_idlecheck = 1; 562 } 563 } 564 565 if (strlen(asinfo.as_behavior) == 0 || 566 strcmp(asinfo.as_behavior, "noshutdown") == 0 || 567 strcmp(asinfo.as_behavior, "unconfigured") == 0) { 568 info->pd_autoshutdown = 0; 569 } else if (strcmp(asinfo.as_behavior, "default") == 0) { 570 info->pd_autoshutdown = estar_v2_prop; 571 } else if (strcmp(asinfo.as_behavior, "shutdown") == 0 || 572 strcmp(asinfo.as_behavior, "autowakeup") == 0) { 573 info->pd_autoshutdown = asinfo.is_cpr_capable; 574 } else { 575 logerror("autoshutdown behavior \"%s\" unrecognized.", 576 asinfo.as_behavior); 577 info->pd_autoshutdown = 0; 578 } 579 580 if (info->pd_autoshutdown) { 581 info->pd_idle_time = asinfo.as_idle; 582 info->pd_start_time = 583 (asinfo.as_sh * 60 + asinfo.as_sm) % DAYS_TO_MINS; 584 info->pd_finish_time = 585 (asinfo.as_fh * 60 + asinfo.as_fm) % DAYS_TO_MINS; 586 info->pd_autoresume = 587 (strcmp(asinfo.as_behavior, "autowakeup") == 0) ? 1 : 0; 588 } 589 autoshutdown_en = (asinfo.as_idle >= 0 && info->pd_autoshutdown) 590 ? 1 : 0; 591 592 #ifdef DEBUG 593 (void) fprintf(stderr, "autoshutdown_en = %d, as_idle = %d, " 594 "pd_autoresume = %d\n", 595 autoshutdown_en, asinfo.as_idle, info->pd_autoresume); 596 597 (void) fprintf(stderr, " pd_start_time=%d, pd_finish_time=%d\n", 598 info->pd_start_time, info->pd_finish_time); 599 #endif 600 601 got_sighup = 1; 602 now = last_resume = time(NULL); 603 hr_now = gethrtime(); 604 check_idleness(&now, &hr_now); 605 check_shutdown(&now, &hr_now); 606 set_alarm(now); 607 } 608 609 static void 610 check_shutdown(time_t *now, hrtime_t *hr_now) 611 { 612 int tod_fd = -1; 613 int kbd, mouse, system, least_idle, idlecheck_time; 614 int next_time; 615 int s, f; 616 struct tm tmp_time; 617 time_t start_of_day, time_since_last_resume; 618 time_t wakeup_time; 619 extern long conskbd_idle_time(void); 620 extern long consms_idle_time(void); 621 static int warned_kbd, warned_ms; /* print error msg one time */ 622 623 if (!autoshutdown_en) { 624 shutdown_time = 0; 625 return; 626 } 627 628 (void) localtime_r(now, &tmp_time); 629 tmp_time.tm_sec = 0; 630 tmp_time.tm_min = 0; 631 tmp_time.tm_hour = 0; 632 start_of_day = mktime(&tmp_time); 633 s = start_of_day + info->pd_start_time * 60; 634 f = start_of_day + info->pd_finish_time * 60; 635 if ((s < f && *now >= s && *now < f) || 636 (s >= f && (*now < f || *now >= s))) { 637 if ((mouse = (int)consms_idle_time()) < 0) { 638 if (! warned_ms) { 639 warned_ms = 1; 640 logerror("powerd: failed to get " 641 "idle time for console mouse"); 642 } 643 return; 644 } 645 if ((kbd = (int)conskbd_idle_time()) < 0) { 646 if (! warned_kbd) { 647 warned_kbd = 1; 648 logerror("powerd: failed to get " 649 "idle time for console keyboard"); 650 } 651 return; 652 } 653 654 system = last_system_activity(hr_now); 655 /* who is the last to go idle */ 656 least_idle = MIN(system, MIN(kbd, mouse)); 657 658 /* 659 * Calculate time_since_last_resume and the next_time 660 * to auto suspend. 661 */ 662 start_calc = 1; 663 time_since_last_resume = time(NULL) - last_resume; 664 next_time = info->pd_idle_time * 60 - 665 MIN(least_idle, time_since_last_resume); 666 667 #ifdef DEBUG 668 fprintf(stderr, " check_shutdown: next_time=%d\n", next_time); 669 #endif 670 671 /* 672 * If we have get the SIGTHAW signal at this point - our 673 * calculation of time_since_last_resume is wrong so 674 * - we need to recalculate. 675 */ 676 while (start_calc == 0) { 677 /* need to redo calculation */ 678 start_calc = 1; 679 time_since_last_resume = time(NULL) - last_resume; 680 next_time = info->pd_idle_time * 60 - 681 MIN(least_idle, time_since_last_resume); 682 } 683 684 /* 685 * Only when everything else is idle, run the user's idlecheck 686 * script. 687 */ 688 if (next_time <= 0 && do_idlecheck) { 689 got_sighup = 0; 690 idlecheck_time = run_idlecheck(); 691 next_time = info->pd_idle_time * 60 - 692 MIN(idlecheck_time, MIN(least_idle, 693 time_since_last_resume)); 694 /* 695 * If we have caught SIGTHAW or SIGHUP, need to 696 * recalculate. 697 */ 698 while (start_calc == 0 || got_sighup == 1) { 699 start_calc = 1; 700 got_sighup = 0; 701 idlecheck_time = run_idlecheck(); 702 time_since_last_resume = time(NULL) - 703 last_resume; 704 next_time = info->pd_idle_time * 60 - 705 MIN(idlecheck_time, MIN(least_idle, 706 time_since_last_resume)); 707 } 708 } 709 710 if (next_time <= 0) { 711 if (is_ok2shutdown(now)) { 712 /* 713 * Setup the autowakeup alarm. Clear it 714 * right after poweroff, just in case if 715 * shutdown doesn't go through. 716 */ 717 if (info->pd_autoresume) 718 tod_fd = open(TOD, O_RDWR); 719 if (info->pd_autoresume && tod_fd != -1) { 720 wakeup_time = (*now < f) ? f : 721 (f + DAYS_TO_SECS); 722 /* 723 * A software fix for hardware 724 * bug 1217415. 725 */ 726 if ((wakeup_time - *now) < 180) { 727 logerror( 728 "Since autowakeup time is less than 3 minutes away, " 729 "autoshutdown will not occur."); 730 shutdown_time = *now + 180; 731 (void) close(tod_fd); 732 return; 733 } 734 if (ioctl(tod_fd, TOD_SET_ALARM, 735 &wakeup_time) == -1) { 736 logerror("Unable to program TOD" 737 " alarm for autowakeup."); 738 (void) close(tod_fd); 739 return; 740 } 741 } 742 743 (void) poweroff("Autoshutdown", 744 autoshutdown_cmd); 745 746 if (info->pd_autoresume && tod_fd != -1) { 747 if (ioctl(tod_fd, TOD_CLEAR_ALARM, 748 NULL) == -1) 749 logerror("Unable to clear " 750 "alarm in TOD device."); 751 (void) close(tod_fd); 752 } 753 754 (void) time(now); 755 /* wait at least 5 mins */ 756 shutdown_time = *now + 757 ((info->pd_idle_time * 60) > 300 ? 758 (info->pd_idle_time * 60) : 300); 759 } else { 760 /* wait 5 mins */ 761 shutdown_time = *now + 300; 762 } 763 } else 764 shutdown_time = *now + next_time; 765 } else if (s < f && *now >= f) { 766 shutdown_time = s + DAYS_TO_SECS; 767 } else 768 shutdown_time = s; 769 } 770 771 static int 772 is_ok2shutdown(time_t *now) 773 { 774 int prom_fd = -1; 775 char power_cycles_st[LLEN]; 776 char power_cycle_limit_st[LLEN]; 777 char system_board_date_st[LLEN]; 778 int power_cycles, power_cycle_limit, free_cycles, scaled_cycles; 779 time_t life_began, life_passed; 780 int no_power_cycles = 0; 781 int no_system_board_date = 0; 782 int ret = 1; 783 784 /* CONSTCOND */ 785 while (1) { 786 if ((prom_fd = open(PROM, O_RDWR)) == -1 && 787 (errno == EAGAIN)) 788 continue; 789 break; 790 } 791 792 /* 793 * when #power-cycles property does not exist 794 * power cycles are unlimited. 795 */ 796 if (get_prom(prom_fd, options, "#power-cycles", 797 power_cycles_st, sizeof (power_cycles_st)) == 0) 798 goto ckdone; 799 800 if (get_prom(prom_fd, root, "power-cycle-limit", 801 power_cycle_limit_st, sizeof (power_cycle_limit_st)) == 0) { 802 power_cycle_limit = DEFAULT_POWER_CYCLE_LIMIT; 803 } else { 804 power_cycle_limit = atoi(power_cycle_limit_st); 805 } 806 807 /* 808 * Allow 10% of power_cycle_limit as free cycles. 809 */ 810 free_cycles = power_cycle_limit / 10; 811 812 power_cycles = atoi(power_cycles_st); 813 if (power_cycles < 0) 814 no_power_cycles++; 815 else if (power_cycles <= free_cycles) 816 goto ckdone; 817 818 if (no_power_cycles && log_power_cycles_error == 0) { 819 logerror("Invalid PROM property \"#power-cycles\" was found."); 820 log_power_cycles_error++; 821 } 822 823 if (get_prom(prom_fd, options, "system-board-date", 824 system_board_date_st, sizeof (system_board_date_st)) == 0) { 825 no_system_board_date++; 826 } else { 827 life_began = strtol(system_board_date_st, (char **)NULL, 16); 828 if (life_began > *now) { 829 no_system_board_date++; 830 } 831 } 832 if (no_system_board_date) { 833 if (log_system_board_date_error == 0) { 834 logerror("No or invalid PROM property " 835 "\"system-board-date\" was found."); 836 log_system_board_date_error++; 837 } 838 life_began = DEFAULT_SYSTEM_BOARD_DATE; 839 } 840 841 life_passed = *now - life_began; 842 843 /* 844 * Since we don't keep the date that last free_cycle is ended, we 845 * need to spread (power_cycle_limit - free_cycles) over the entire 846 * 7-year life span instead of (lifetime - date free_cycles ended). 847 */ 848 scaled_cycles = (int)(((float)life_passed / (float)LIFETIME_SECS) * 849 (power_cycle_limit - free_cycles)); 850 851 if (no_power_cycles) 852 goto ckdone; 853 854 #ifdef DEBUG 855 (void) fprintf(stderr, "Actual power_cycles = %d\t" 856 "Scaled power_cycles = %d\n", power_cycles, scaled_cycles); 857 #endif 858 if (power_cycles > scaled_cycles) { 859 if (log_no_autoshutdown_warning == 0) { 860 logerror("Automatic shutdown has been temporarily " 861 "suspended in order to preserve the reliability " 862 "of this system."); 863 log_no_autoshutdown_warning++; 864 } 865 ret = 0; 866 goto ckdone; 867 } 868 869 ckdone: 870 if (prom_fd != -1) 871 (void) close(prom_fd); 872 return (ret); 873 } 874 875 static void 876 check_idleness(time_t *now, hrtime_t *hr_now) 877 { 878 879 /* 880 * Check idleness only when autoshutdown is enabled. 881 */ 882 if (!autoshutdown_en) { 883 checkidle_time = 0; 884 return; 885 } 886 887 info->pd_ttychars_idle = check_tty(hr_now, asinfo.ttychars_thold); 888 info->pd_loadaverage_idle = 889 check_load_ave(hr_now, asinfo.loadaverage_thold); 890 info->pd_diskreads_idle = check_disks(hr_now, asinfo.diskreads_thold); 891 info->pd_nfsreqs_idle = check_nfs(hr_now, asinfo.nfsreqs_thold); 892 893 #ifdef DEBUG 894 (void) fprintf(stderr, "Idle ttychars for %d secs.\n", 895 info->pd_ttychars_idle); 896 (void) fprintf(stderr, "Idle loadaverage for %d secs.\n", 897 info->pd_loadaverage_idle); 898 (void) fprintf(stderr, "Idle diskreads for %d secs.\n", 899 info->pd_diskreads_idle); 900 (void) fprintf(stderr, "Idle nfsreqs for %d secs.\n", 901 info->pd_nfsreqs_idle); 902 #endif 903 904 checkidle_time = *now + IDLECHK_INTERVAL; 905 } 906 907 static int 908 last_system_activity(hrtime_t *hr_now) 909 { 910 int act_idle, latest; 911 912 latest = info->pd_idle_time * 60; 913 act_idle = last_tty_activity(hr_now, asinfo.ttychars_thold); 914 latest = MIN(latest, act_idle); 915 act_idle = last_load_ave_activity(hr_now); 916 latest = MIN(latest, act_idle); 917 act_idle = last_disk_activity(hr_now, asinfo.diskreads_thold); 918 latest = MIN(latest, act_idle); 919 act_idle = last_nfs_activity(hr_now, asinfo.nfsreqs_thold); 920 latest = MIN(latest, act_idle); 921 922 return (latest); 923 } 924 925 static int 926 run_idlecheck() 927 { 928 char pm_variable[LLEN]; 929 char *cp; 930 int status; 931 pid_t child; 932 933 /* 934 * Reap any child process which has been left over. 935 */ 936 while (waitpid((pid_t)-1, &status, WNOHANG) > 0) 937 ; 938 939 /* 940 * Execute the user's idlecheck script and set variable PM_IDLETIME. 941 * Returned exit value is the idle time in minutes. 942 */ 943 if ((child = fork1()) == 0) { 944 (void) sprintf(pm_variable, "PM_IDLETIME=%d", 945 info->pd_idle_time); 946 (void) putenv(pm_variable); 947 cp = strrchr(asinfo.idlecheck_path, '/'); 948 if (cp == NULL) 949 cp = asinfo.idlecheck_path; 950 else 951 cp++; 952 (void) execl(asinfo.idlecheck_path, cp, NULL); 953 exit(-1); 954 } else if (child == -1) { 955 return (info->pd_idle_time * 60); 956 } 957 958 /* 959 * Wait until the idlecheck program completes. 960 */ 961 if (waitpid(child, &status, 0) != child) { 962 /* 963 * We get here if the calling process gets a signal. 964 */ 965 return (info->pd_idle_time * 60); 966 } 967 968 if (WEXITSTATUS(status) < 0) { 969 return (info->pd_idle_time * 60); 970 } else { 971 return (WEXITSTATUS(status) * 60); 972 } 973 } 974 975 static void 976 set_alarm(time_t now) 977 { 978 time_t itime, stime, next_time, max_time; 979 int next_alarm; 980 981 max_time = MAX(checkidle_time, shutdown_time); 982 if (max_time == 0) { 983 (void) alarm(0); 984 return; 985 } 986 itime = (checkidle_time == 0) ? max_time : checkidle_time; 987 stime = (shutdown_time == 0) ? max_time : shutdown_time; 988 next_time = MIN(itime, stime); 989 next_alarm = (next_time <= now) ? 1 : (next_time - now); 990 (void) alarm(next_alarm); 991 992 #ifdef DEBUG 993 (void) fprintf(stderr, "Currently @ %s", ctime(&now)); 994 (void) fprintf(stderr, "Checkidle in %d secs\n", checkidle_time - now); 995 (void) fprintf(stderr, "Shutdown in %d secs\n", shutdown_time - now); 996 (void) fprintf(stderr, "Next alarm goes off in %d secs\n", next_alarm); 997 (void) fprintf(stderr, "************************************\n"); 998 #endif 999 } 1000 1001 static int 1002 poweroff(const char *msg, char **cmd_argv) 1003 { 1004 struct stat statbuf; 1005 pid_t pid, child; 1006 struct passwd *pwd; 1007 char *home, *user; 1008 char ehome[] = "HOME="; 1009 char euser[] = "LOGNAME="; 1010 int status; 1011 char **ca; 1012 1013 if (mutex_trylock(&poweroff_mutex) != 0) 1014 return (0); 1015 1016 if (stat("/dev/console", &statbuf) == -1 || 1017 (pwd = getpwuid(statbuf.st_uid)) == NULL) { 1018 (void) mutex_unlock(&poweroff_mutex); 1019 return (1); 1020 } 1021 1022 if (msg) 1023 syslog(LOG_NOTICE, msg); 1024 1025 if (*cmd_argv == NULL) { 1026 logerror("No command to run."); 1027 (void) mutex_unlock(&poweroff_mutex); 1028 return (1); 1029 } 1030 1031 home = malloc(strlen(pwd->pw_dir) + sizeof (ehome)); 1032 user = malloc(strlen(pwd->pw_name) + sizeof (euser)); 1033 if (home == NULL || user == NULL) { 1034 free(home); 1035 free(user); 1036 logerror("No memory."); 1037 (void) mutex_unlock(&poweroff_mutex); 1038 return (1); 1039 } 1040 (void) strcpy(home, ehome); 1041 (void) strcat(home, pwd->pw_dir); 1042 (void) strcpy(user, euser); 1043 (void) strcat(user, pwd->pw_name); 1044 1045 /* 1046 * Need to simulate the user enviroment, minimaly set HOME, and USER. 1047 */ 1048 if ((child = fork1()) == 0) { 1049 (void) putenv(home); 1050 (void) putenv(user); 1051 (void) setgid(pwd->pw_gid); 1052 (void) setuid(pwd->pw_uid); 1053 1054 /* 1055 * check for shutdown flag and set environment 1056 */ 1057 for (ca = cmd_argv; *ca; ca++) { 1058 if (strcmp("-h", *ca) == 0) { 1059 (void) putenv("SYSSUSPENDDODEFAULT="); 1060 break; 1061 } 1062 } 1063 1064 (void) execv(cmd_argv[0], cmd_argv); 1065 exit(EXIT_FAILURE); 1066 } else { 1067 free(home); 1068 free(user); 1069 if (child == -1) { 1070 (void) mutex_unlock(&poweroff_mutex); 1071 return (1); 1072 } 1073 } 1074 pid = 0; 1075 while (pid != child) 1076 pid = wait(&status); 1077 if (WEXITSTATUS(status)) { 1078 (void) syslog(LOG_ERR, "Failed to exec \"%s\".", cmd_argv[0]); 1079 (void) mutex_unlock(&poweroff_mutex); 1080 return (1); 1081 } 1082 1083 (void) mutex_unlock(&poweroff_mutex); 1084 return (0); 1085 } 1086 1087 #define PBUFSIZE 256 1088 1089 /* 1090 * Gets the value of a prom property at either root or options node. It 1091 * returns 1 if it is successful, otherwise it returns 0 . 1092 */ 1093 static int 1094 get_prom(int prom_fd, prom_node_t node_name, 1095 char *property_name, char *property_value, size_t len) 1096 { 1097 union { 1098 char buf[PBUFSIZE + sizeof (uint_t)]; 1099 struct openpromio opp; 1100 } oppbuf; 1101 register struct openpromio *opp = &(oppbuf.opp); 1102 int got_it = 0; 1103 1104 if (prom_fd == -1) { 1105 return (0); 1106 } 1107 1108 switch (node_name) { 1109 case root: 1110 (void *) memset(oppbuf.buf, 0, PBUFSIZE); 1111 opp->oprom_size = PBUFSIZE; 1112 if (ioctl(prom_fd, OPROMNEXT, opp) < 0) { 1113 return (0); 1114 } 1115 1116 /* 1117 * Passing null string will give us the first property. 1118 */ 1119 (void *) memset(oppbuf.buf, 0, PBUFSIZE); 1120 do { 1121 opp->oprom_size = PBUFSIZE; 1122 if (ioctl(prom_fd, OPROMNXTPROP, opp) < 0) { 1123 return (0); 1124 } 1125 if (strcmp(opp->oprom_array, property_name) == 0) { 1126 got_it++; 1127 break; 1128 } 1129 } while (opp->oprom_size > 0); 1130 1131 if (!got_it) { 1132 return (0); 1133 } 1134 if (got_it && property_value == NULL) { 1135 return (1); 1136 } 1137 opp->oprom_size = PBUFSIZE; 1138 if (ioctl(prom_fd, OPROMGETPROP, opp) < 0) { 1139 return (0); 1140 } 1141 if (opp->oprom_size == 0) { 1142 *property_value = '\0'; 1143 } else { 1144 estrcpy(property_value, opp->oprom_array, len); 1145 } 1146 break; 1147 case options: 1148 estrcpy(opp->oprom_array, property_name, PBUFSIZE); 1149 opp->oprom_size = PBUFSIZE; 1150 if (ioctl(prom_fd, OPROMGETOPT, opp) < 0) { 1151 return (0); 1152 } 1153 if (opp->oprom_size == 0) { 1154 return (0); 1155 } 1156 if (property_value != NULL) { 1157 estrcpy(property_value, opp->oprom_array, len); 1158 } 1159 break; 1160 default: 1161 logerror("Only root node and options node are supported.\n"); 1162 return (0); 1163 } 1164 1165 return (1); 1166 } 1167 1168 #define isspace(ch) ((ch) == ' ' || (ch) == '\t') 1169 #define iseol(ch) ((ch) == '\n' || (ch) == '\r' || (ch) == '\f') 1170 1171 /*ARGSUSED*/ 1172 static void 1173 power_button_monitor(void *arg) 1174 { 1175 struct pollfd pfd; 1176 int events, ret; 1177 1178 if (ioctl(pb_fd, PB_BEGIN_MONITOR, NULL) == -1) { 1179 logerror("Failed to monitor the power button."); 1180 thr_exit((void *) 0); 1181 } 1182 1183 pfd.fd = pb_fd; 1184 pfd.events = POLLIN; 1185 1186 /*CONSTCOND*/ 1187 while (1) { 1188 if (poll(&pfd, 1, INFTIM) == -1) { 1189 logerror("Failed to poll for power button events."); 1190 thr_exit((void *) 0); 1191 } 1192 1193 if (!(pfd.revents & POLLIN)) 1194 continue; 1195 1196 /* 1197 * Monitor the power button, but only take action if 1198 * gnome-power-manager is not running. 1199 * 1200 * ret greater than 0 means could not find process. 1201 */ 1202 ret = system("/usr/bin/pgrep -fx gnome-power-manager"); 1203 1204 if (ioctl(pfd.fd, PB_GET_EVENTS, &events) == -1) { 1205 logerror("Failed to get power button events."); 1206 thr_exit((void *) 0); 1207 } 1208 1209 if ((ret > 0) && (events & PB_BUTTON_PRESS) && 1210 (poweroff(NULL, power_button_cmd) != 0)) { 1211 logerror("Power button is pressed, powering " 1212 "down the system!"); 1213 1214 /* 1215 * Send SIGPWR signal to the init process to 1216 * shut down the system. 1217 */ 1218 if (kill(1, SIGPWR) == -1) 1219 (void) uadmin(A_SHUTDOWN, AD_POWEROFF, 0); 1220 } 1221 1222 /* 1223 * Clear any power button event that has happened 1224 * meanwhile we were busy processing the last one. 1225 */ 1226 if (ioctl(pfd.fd, PB_GET_EVENTS, &events) == -1) { 1227 logerror("Failed to get power button events."); 1228 thr_exit((void *) 0); 1229 } 1230 } 1231 } 1232 1233 static void 1234 do_attach(void) 1235 { 1236 if (read_cpr_config() < 0) 1237 return; 1238 1239 /* 1240 * If autopm behavior is explicitly enabled for energystar-v2, or 1241 * set to default for energystar-v3, create a new thread to attach 1242 * all devices. 1243 */ 1244 estar_v3_prop = asinfo.is_autopm_default; 1245 if ((strcmp(asinfo.apm_behavior, "enable") == 0) || 1246 (estar_v3_prop && strcmp(asinfo.apm_behavior, "default") == 0)) { 1247 if (powerd_debug) 1248 logerror("powerd starting device attach thread."); 1249 if (thr_create(NULL, NULL, attach_devices, NULL, 1250 THR_DAEMON, NULL) != 0) { 1251 logerror("Unable to create thread to attach devices."); 1252 } 1253 } 1254 } 1255 1256 /*ARGSUSED*/ 1257 static void * 1258 attach_devices(void *arg) 1259 { 1260 di_node_t root_node; 1261 1262 (void) sleep(60); /* let booting finish first */ 1263 1264 if ((root_node = di_init("/", DINFOFORCE)) == DI_NODE_NIL) { 1265 logerror("Failed to attach devices."); 1266 return (NULL); 1267 } 1268 di_fini(root_node); 1269 1270 /* 1271 * Unload all the modules. 1272 */ 1273 (void) modctl(MODUNLOAD, 0); 1274 1275 return (NULL); 1276 } 1277 1278 1279 /* 1280 * Create a file which will contain our pid. Pmconfig will check this file 1281 * to see if we are running and can use the pid to signal us. Returns the 1282 * file descriptor if successful, -1 otherwise. 1283 * 1284 * Note: Deal with attempt to launch multiple instances and also with existence 1285 * of an obsolete pid file caused by an earlier abort. 1286 */ 1287 static int 1288 open_pidfile(char *me) 1289 { 1290 int fd; 1291 const char *e1 = "%s: Cannot open pid file for read: "; 1292 const char *e2 = "%s: Cannot unlink obsolete pid file: "; 1293 const char *e3 = "%s: Either another daemon is running or the" 1294 " process is defunct (pid %d). \n"; 1295 const char *e4 = "%s: Cannot create pid file: "; 1296 1297 again: 1298 if ((fd = open(pidpath, O_CREAT | O_EXCL | O_WRONLY, 0444)) == -1) { 1299 if (errno == EEXIST) { 1300 FILE *fp; 1301 pid_t pid; 1302 1303 if ((fp = fopen(pidpath, "r")) == NULL) { 1304 (void) fprintf(stderr, e1, me); 1305 perror(NULL); 1306 return (-1); 1307 } 1308 1309 /* Read the pid */ 1310 pid = (pid_t)-1; 1311 (void) fscanf(fp, "%ld", &pid); 1312 (void) fclose(fp); 1313 if (pid == -1) { 1314 if (unlink(pidpath) == -1) { 1315 (void) fprintf(stderr, e2, me); 1316 perror(NULL); 1317 return (-1); 1318 } else /* try without corrupted file */ 1319 goto again; 1320 } 1321 1322 /* Is pid for a running process */ 1323 if (kill(pid, 0) == -1) { 1324 if (errno == ESRCH) { 1325 if (unlink(pidpath) == -1) { 1326 (void) fprintf(stderr, e2, me); 1327 perror(NULL); 1328 return (-1); 1329 } else /* try without obsolete file */ 1330 goto again; 1331 } 1332 } else { /* powerd deamon still running or defunct */ 1333 (void) fprintf(stderr, e3, me, pid); 1334 return (-1); 1335 } 1336 1337 } else { /* create failure not due to existing file */ 1338 (void) fprintf(stderr, e4, me); 1339 perror(NULL); 1340 return (-1); 1341 } 1342 } 1343 1344 (void) fchown(fd, (uid_t)-1, (gid_t)0); 1345 return (fd); 1346 } 1347 1348 /* 1349 * Write a pid to the pid file. Report errors to syslog. 1350 * 1351 */ 1352 static int 1353 write_pidfile(int fd, pid_t pid) 1354 { 1355 int len; 1356 int rc = 0; /* assume success */ 1357 1358 len = sprintf(scratch, "%ld\n", pid); 1359 if (write(fd, scratch, len) != len) { 1360 logerror("Cannot write pid file: %s", strerror(errno)); 1361 rc = -1; 1362 } 1363 1364 return (rc); 1365 } 1366