#!/usr/bin/perl -w
#############################
# powerdown event handler
# Mike Schilli, 2007
#############################
use strict;
use Sysadm::Install qw(:all);
use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init({
    file =>
        ">>/tmp/powerdown.log",
    level => $DEBUG
});

my ($state, $softhard) =
    @ARGV;

LOGDIE
    "usage: $0 state SOFT|HARD"
    if !$softhard
    or $softhard !~ /SOFT|HARD/;

DEBUG
"Called $0 $state $softhard";

if ($state eq "OK") {
    DEBUG "Ignoring OK";
    exit 0;
}

    if ($softhard eq "SOFT") {
     DEBUG "Ignoring soft mode";
    exit 0;
}

# Shut PC off
INFO "Shutting down";
tap("sudo",
    "/usr/bin/poweroff");