[Script] für Eicon Diva Config

[TobiasUnsleber]

Hallo hier ein kleines Script das von der Eicon die Konfiguration auf der Kommandozeile mit dem Programm divactrl ausgibt. Ich hab' mir das geschrieben weil ich gerne die komplette Konfiguration ausgeben lassen will um darin rumzugrepen. Vielleicht kann das einer brauchen.

#!/usr/bin/perl

#
# Gibt den Konfigurationsbaum eines Eicon Diva Controllers aus
#

$mantool="/usr/lib/eicon/divas/mantool";

my $usage="$0 <CtrlNumber>";

unless ( $ARGV[0] ) {
	print $usage."\n";
	exit(1);
	}

$myargs=" -b ";
my $depth=0;

&readMantool();

sub readMantool {

	#print "--> \n";
	#$nix=<STDIN>;
	my $fh=undef;
	$depth++;
	my $treeToRead=shift;
	my $parentDir= ( split("/",$treeToRead))[-1]; 
	#&out("",0);
	#&out("DIR: $treeToRead",$depth);

	if(open($fh, "$mantool $myargs -r\"$treeToRead\" |")) {
		#&out("mantool opened...\n");
	} else {
		&out("err opening mantool: $!\n");
	}

	while ($line=<$fh>) {
		
		next if($line =~ /^(\t )*$/);

		&out($line,$depth);
		
		if($line =~ /-dir[^[]+\[([a-zA-Z0-9-\.\ _\(\)]+) \.*\]/) {

			$treeToRead .= "/" if($treeToRead and ( substr($treeToRead,-1) ne "/" ));
			&readMantool( $treeToRead.$1);
		}
	}
	$depth--;
	close($fh);
}

sub out {

	my $line=shift;
	my $indent=shift;
	print "". ( "   " x $indent ) . "$line";
}

 

[TobiasUnsleber]

...Wer lesen kann ist stark im Vorteil.

Die Option -Recursive macht genau das was mein Script macht.