From bcdc13b5ca68c369f32042c619bdf1a905ad03ef Mon Sep 17 00:00:00 2001
From: rudolfkoenig <>
Date: Fri, 23 Sep 2011 11:52:00 +0000
Subject: [PATCH] Changing to the dialout group added

git-svn-id: https://svn.fhem.de/fhem/trunk@1015 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/fhem.pl | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/fhem/fhem.pl b/fhem/fhem.pl
index a31196a84..11c5eb7b7 100755
--- a/fhem/fhem.pl
+++ b/fhem/fhem.pl
@@ -167,7 +167,7 @@ my $nextat;                     # Time when next timer will be triggered.
 my $intAtCnt=0;
 my %duplicate;                  # Pool of received msg for multi-fhz/cul setups
 my $duplidx=0;                  # helper for the above pool
-my $cvsid = '$Id: fhem.pl,v 1.151 2011-09-12 15:22:06 rudolfkoenig Exp $';
+my $cvsid = '$Id: fhem.pl,v 1.152 2011-09-23 11:52:00 rudolfkoenig Exp $';
 my $namedef =
   "where <name> is either:\n" .
   "- a single device name\n" .
@@ -251,6 +251,13 @@ if(int(@ARGV) != 1 && int(@ARGV) != 2) {
 
 # If started as root, and there is a fhem user in the /etc/passwd, su to it
 if($^O !~ m/Win/ && $< == 0) {
+
+  my @gr = getgrnam("dialout");
+  if(@gr) {
+    use POSIX qw(setgid);
+    setgid($gr[2]);
+  }
+
   my @pw = getpwnam("fhem");
   if(@pw) {
     use POSIX qw(setuid);