diff options
Diffstat (limited to 'xpp/utils/xpp_blink')
-rwxr-xr-x | xpp/utils/xpp_blink | 19 |
1 files changed, 15 insertions, 4 deletions
diff --git a/xpp/utils/xpp_blink b/xpp/utils/xpp_blink index 65be247..8a96502 100755 --- a/xpp/utils/xpp_blink +++ b/xpp/utils/xpp_blink @@ -17,13 +17,13 @@ use Zaptel::Xpp; use Zaptel::Xpp::Xbus; sub usage { - die "Usage: $0 {on|off|bzzt} {span <number> | xpd <bus num> [<xpd num>]}\n"; + die "Usage: $0 {on|off|bzzt} {span <number> | xpd <bus num> [<xpd num>] | label <label>}\n"; } my $state = shift; my $selector = shift; usage unless defined($state) and $state =~ /^(on|off|bzzt)$/; -usage unless defined($selector) and $selector =~ /^(span|xpd)$/i; +usage unless defined($selector) and $selector =~ /^(span|xpd|label)$/i; my $xpd; my @xpds; @@ -58,6 +58,13 @@ if($selector =~ /^span$/i) { @xpds = $xbus->xpds; die "XBUS number $busnum has no XPDS!\n" unless @xpds; } +} elsif($selector =~ /^label$/i) { + my $label = shift; + usage unless defined($label); + my $xbus = Zaptel::Xpp::Xbus::by_label($label); + die "Unkown XBUS label $label\n" unless defined $xbus; + @xpds = $xbus->xpds; + die "XBUS label '$label' has no XPDS!\n" unless @xpds; } if($state eq 'on') { @@ -107,6 +114,8 @@ Blink all the leds of an XPD. =item xpd Select by xbus + xpd numbers. If only xbus number is given, all the XPDs of the selected xbus (Astribank) are blinked. +=item label Select by xbus label. Affect the whole Astribank. + =back =head1 EXAMPLES @@ -114,6 +123,8 @@ Blink all the leds of an XPD. $ xpp_blink bzzt span 2 Using XBUS-04/XPD-10 (connected via usb-0000:00:1d.7-1): channels 15 16 17 18 19 20 21 22 - $ xpp_blink xpd 0 1 + $ xpp_blink on xpd 0 1 + + $ xpp_blink off xpd 0 - $ xpp_blink xpd 0 + $ xpp_blink bzzt label 'usb:QA-02' |