fix iodev error on autocreate
This commit is contained in:
		@@ -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 );
 | 
				
			||||||
    
 | 
					    
 | 
				
			||||||
    
 | 
					    
 | 
				
			||||||
 
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user