fix iodev error on autocreate

This commit is contained in:
Marko Oldenburg 2017-12-13 21:39:28 +01:00
parent 4ce293d0fc
commit ff9e647dfc

View File

@ -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 );