#!/usr/bin/perl -W
use strict;
use Sys::Hostname;

my $transferrate=0; # kb/s

my $host = hostname();
my @disk = split(/\s+/,(split(/\n/,`df .`))[1]);
my ($hname,$tmp) = split(/\./,$host);

# Default size is reported in 1024 byte blocks, so convert to MB (2^20 bytes).
my $cdisk = $disk[1] >> 10;
my $udisk = $disk[2] >> 10;
my $adisk = $disk[3] >> 10;

print "storage.$hname STATE=Idle;CDISK=$cdisk;ADISK=$adisk TRANSFERRATE=$transferrate\n";