fix iodev error on autocreate
This commit is contained in:
parent
4ce293d0fc
commit
ff9e647dfc
@ -140,18 +140,18 @@ sub AMADDevice_Define($$) {
|
|||||||
my $i = 0;
|
my $i = 0;
|
||||||
|
|
||||||
######## Kann in kommenden Versionen gelöscht werden ###############
|
######## Kann in kommenden Versionen gelöscht werden ###############
|
||||||
#foreach my $param ( @a ) {
|
foreach my $param ( @a ) {
|
||||||
# if( $param =~ m/IODev=([^\s]*)/ ) {
|
if( $param =~ m/IODev=([^\s]*)/ ) {
|
||||||
|
|
||||||
# $iodev = $1;
|
$iodev = $1;
|
||||||
# splice( @a, $i, 3 );
|
splice( @a, $i, 4 );
|
||||||
# last;
|
last;
|
||||||
# }
|
}
|
||||||
|
|
||||||
# $i++;
|
$i++;
|
||||||
#}
|
}
|
||||||
|
|
||||||
return "too few parameters: define <name> AMADDevice <HOST-IP> <amad_id> <remoteServer>" if( @a != 5 );
|
return "too few parameters: define <name> AMADDevice <HOST-IP> <amad_id> <remoteServer>" if( @a != 4 );
|
||||||
return "Cannot define a AMAD device. Perl modul $missingModul is missing." if ( $missingModul );
|
return "Cannot define a AMAD device. Perl modul $missingModul is missing." if ( $missingModul );
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user