diff options
Diffstat (limited to 'xpp/utils/zconf/Zaptel/Chans.pm')
-rw-r--r-- | xpp/utils/zconf/Zaptel/Chans.pm | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/xpp/utils/zconf/Zaptel/Chans.pm b/xpp/utils/zconf/Zaptel/Chans.pm index b02bf24..6f83f77 100644 --- a/xpp/utils/zconf/Zaptel/Chans.pm +++ b/xpp/utils/zconf/Zaptel/Chans.pm @@ -184,4 +184,19 @@ sub battery($) { return $line->battery; } +sub blink($$) { + my $self = shift or die; + my $on = shift; + my $span = $self->span or die; + + my $xpd = $span->xpd; + my $index = $self->index; + return undef if !$xpd; + + my @lines = @{$xpd->lines}; + my $line = $lines[$index]; + return $line->blink($on); +} + + 1; |