#!/usr/bin/perl -I/usr/sausalito/perl
# $Id: 10poweron,v 1.1 2001/08/28 00:59:14 pbose Exp $
#
# Copyright 2001 Sun Microsystems, Inc.  All rights reserved.
#
# Configure soft power behavior to power on when power is applied

use POSIX;
use Term::ReadLine;
use Getopt::Std;
use CCE;
use I18n;
require LCD;

getopts("sc");
$option = ($opt_s) ? "-s" : "";

my $i18n = new I18n;

$line1 = $i18n->get("[[base-power.willPowerUp1]]");
$line2 = $i18n->get("[[base-power.willPowerUp2]]");

if ($opt_c) {
	printf("\n$line1\n$line2\n\n");
} else {
	system("/sbin/lcd-write $option \"$line1\" \"$line2\"");
}

sleep 2;

my $cce = new CCE;
$cce->connectuds();


my (@soids) = $cce->find("System");
$cce->set( $soids[0], 'Power', {  'powermode' => 'on' } );

exit(0);

