FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

Do not allow - for rename, found by E.C.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@812 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2011-01-29 07:32:48 +00:00
parent f6155c7498
commit 5a5c138828
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/fhem.pl
View File

@ -165,7 +165,7 @@ my $nextat; # Time when next timer will be triggered.
my $intAtCnt=0; my $intAtCnt=0;
my %duplicate; # Pool of received msg for multi-fhz/cul setups my %duplicate; # Pool of received msg for multi-fhz/cul setups
my $duplidx=0; # helper for the above pool my $duplidx=0; # helper for the above pool
my $cvsid = '$Id: fhem.pl,v 1.123 2011-01-29 07:24:29 rudolfkoenig Exp $'; my $cvsid = '$Id: fhem.pl,v 1.124 2011-01-29 07:32:48 rudolfkoenig Exp $';
my $namedef = my $namedef =
"where <name> is either:\n" . "where <name> is either:\n" .
"- a single device name\n" . "- a single device name\n" .
@ -1454,8 +1454,8 @@ CommandRename($$)
my ($old, $new) = split(" ", $param); my ($old, $new) = split(" ", $param);
return "Please define $old first" if(!defined($defs{$old})); return "Please define $old first" if(!defined($defs{$old}));
return "Invalid characters in name (not A-Za-z0-9.:-): $new" return "Invalid characters in name (not A-Za-z0-9.:_): $new"
if($new !~ m/^[a-z0-9.:_-]*$/i); if($new !~ m/^[a-z0-9.:_]*$/i);
return "Cannot rename global" if($old eq "global"); return "Cannot rename global" if($old eq "global");
$defs{$new} = $defs{$old}; $defs{$new} = $defs{$old};