fhem.pl: cmdalias support

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@4077 2b470e98-0d58-463d-a4d8-8e2adae1ed80

fhem/fhem.pl

@@ -824,7 +824,7 @@ AnalyzeCommand($$)
 
   $param = "" if(!defined($param));
   no strict "refs";
-  my $ret = &{$cmds{$fn}{Fn} }($cl, $param);
+  my $ret = &{$cmds{$fn}{Fn} }($cl, $param, $fn);
   use strict "refs";
   return undef if(defined($ret) && $ret eq "");
   return $ret;