From ef42b45d888a22de8be499b9f79bb7012b4ca8de Mon Sep 17 00:00:00 2001
From: justme1968 <justme1968@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Fri, 8 Feb 2013 15:46:57 +0000
Subject: [PATCH] added get filesystems command

git-svn-id: https://svn.fhem.de/fhem/trunk@2664 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/32_SYSSTAT.pm | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)

diff --git a/fhem/FHEM/32_SYSSTAT.pm b/fhem/FHEM/32_SYSSTAT.pm
index cadbe6e74..7e1d89e17 100644
--- a/fhem/FHEM/32_SYSSTAT.pm
+++ b/fhem/FHEM/32_SYSSTAT.pm
@@ -12,6 +12,7 @@ SYSSTAT_Initialize($)
 
   $hash->{DefFn}    = "SYSSTAT_Define";
   $hash->{UndefFn}  = "SYSSTAT_Undefine";
+  $hash->{GetFn}    = "SYSSTAT_Get";
   $hash->{AttrFn}   = "SYSSTAT_Attr";
   $hash->{AttrList} = "filesystems showpercent:1 useregex:1 loglevel:0,1,2,3,4,5,6 ".
                        $readingFnAttributes;
@@ -51,6 +52,31 @@ SYSSTAT_Undefine($$)
   return undef;
 }
 
+sub   
+SYSSTAT_Get($@)
+{     
+  my ($hash, @a) = @_; 
+
+  my $name = $a[0];
+  return "$name: get needs at least one parameter" if(@a < 2);
+      
+  my $cmd= $a[1];
+      
+  if($cmd eq "filesystems") {
+
+    my $sys  = Sys::Statistics::Linux->new(diskusage => 1);
+    my $filesystems = $sys->get->{diskusage};
+
+    my $ret;
+    foreach my $filesystem (keys %$filesystems ) { 
+      $ret .= $filesystem ." <= ". $filesystems->{$filesystem}->{mountpoint} ."\n";
+    }
+    return $ret;
+  } else {
+    return "Unknown argument $cmd, choose one of filesystems";
+  }   
+}     
+
 sub
 SYSSTAT_Attr($$$)
 {