#!/usr/bin/perl -w -I/usr/local/raqdevil/perl -I.
# $Id: reboot.pl,v 1.2 2005/10/07 11:10:34 dodell Exp $

use CCE;

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

my ($oid) = $cce->find('System');
my $new = $cce->event_new();

if ($new->{reboot} eq '1') {
	$cce->set($oid, 'Power', { reboot => '0' });
	my $honk = `/sbin/reboot 2>&1`;
	print STDERR "FOO MOO I HATE REBOOTING $honk";
}

$cce->bye('SUCCESS');
exit(0);