#!/usr/bin/perl
#
# IPFire HDD Shutdown state reader
#
# This code is distributed under the terms of the GPL
#
# 18.09.2007 Maniacikarus - IPFire.org - maniacikarus@ipfire.org
#

# begin

my @devices = `kudzu -qps -c HD | grep device: | cut -d" " -f2 | sort | uniq`;
my $diskstats = "";
my $newdiskstats = "";
my $debug = 1;
my $status = "unknown";

if ($debug){print "### Searching for available Disks ###\n";}

foreach (@devices){
chomp $_;
$diskstats = `iostat -d -t $_ | tail -2 | head -1 | awk '{ print \$5","\$6}'`;

if ( $_ =~ /^s/ ){$status = `sdparm --command=ready /dev/$_ | tail -1`;}
else {$status = `hdparm -C /dev/$_ | tail -1 | cut -d: -f2`;}

chomp $status;
chomp $diskstats;
if ($debug){print "Device ".$_." is in status ".$status." and has ".$diskstats." write and read Requests.\n";}
sleep 30;

$newdiskstats = `iostat -d -t $_ | tail -2 | head -1 | awk '{ print \$5","\$6}'`;
chomp $newdiskstats;

  if ($diskstats eq $newdiskstats && $status !~/standby/){
      if ($debug){print "Device ".$_." is set to standy.\n";}
      if ( $_ =~ /^s/ ){system("sdparm --command=stop /dev/$_");}
      else {system("/sbin/hdparm -y /dev/$_");}
      system("touch /tmp/hddshutdown-$_");
  }
  elsif ($diskstatus{$_} ne "0" ){
    if ($debug){print "Device ".$_." is active.\n";}
    if ( -e "/tmp/hddshutdown-$_" ) { system("unlink /tmp/hddshutdown-$_"); }
  }
  elsif ( $status =~/standby/ ){
    if ($debug){print "Device ".$_." is in standby mode.\n";}
  }
}

# end