diff options
author | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2008-06-19 17:34:36 +0000 |
---|---|---|
committer | Tzafrir Cohen <tzafrir.cohen@xorcom.com> | 2008-06-19 17:34:36 +0000 |
commit | da10e87bd6c69c4374de470b7b286c36c823fdc2 (patch) | |
tree | 8ae3ddc2b5eff066497697c0c6ec1bc7ee6433ad /xpp/xpp_blink | |
parent | c1ae88873823bdc2d884f72cc2b06eab017b97b1 (diff) |
XPP tools rename: part 2.
Removed obsolete astribank_hook (not needed) and print_modes (moved to
kernel).
git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@4416 a0bf4364-ded3-4de4-8d8a-66a801d63aff
Diffstat (limited to 'xpp/xpp_blink')
-rwxr-xr-x | xpp/xpp_blink | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/xpp/xpp_blink b/xpp/xpp_blink index 7d0d845..ff63ae7 100755 --- a/xpp/xpp_blink +++ b/xpp/xpp_blink @@ -9,12 +9,12 @@ # use strict; use File::Basename; -BEGIN { my $dir = dirname($0); unshift(@INC, "$dir", "$dir/zconf"); } +BEGIN { my $dir = dirname($0); unshift(@INC, "$dir", "$dir/perl_modules"); } -use Zaptel; -use Zaptel::Span; -use Zaptel::Xpp; -use Zaptel::Xpp::Xbus; +use Dahdi; +use Dahdi::Span; +use Dahdi::Xpp; +use Dahdi::Xpp::Xbus; sub usage { die "Usage: $0 {on|off|bzzt} {span <number> | chan <number> | xpd <bus num> [<xpd num>] | label <label>}\n"; @@ -32,9 +32,9 @@ my @channels; if($selector =~ /^span$/i) { my $number = shift; usage unless defined($number) and $number =~ /^\d+/; - my $span = Zaptel::Span::by_number($number); + my $span = Dahdi::Span::by_number($number); die "Unkown Span $number\n" unless $span; - $xpd = Zaptel::Xpp::xpd_of_span($span); + $xpd = Dahdi::Xpp::xpd_of_span($span); die "Span $number is not an XPD\n" unless defined $xpd; my $xpdname = $xpd->fqn; my $connector = $xpd->xbus->connector; @@ -46,7 +46,7 @@ if($selector =~ /^span$/i) { } elsif($selector =~ /^chan$/i) { my $channo = shift; usage unless defined($channo) and $channo =~ /^\d+/; - my @spans = Zaptel::spans(); + my @spans = Dahdi::spans(); my @chans = map { $_->chans() } @spans; my ($chan) = grep { $_->num eq $channo } @chans; die "Channel $channo was not found\n" unless defined $chan; @@ -58,7 +58,7 @@ if($selector =~ /^span$/i) { my $xpdnum = shift; my $linenum = shift; usage unless defined($busnum) and $busnum =~ /^\d+/; - my $xbus = Zaptel::Xpp::Xbus::by_number($busnum); + my $xbus = Dahdi::Xpp::Xbus::by_number($busnum); die "Unkown XBUS number $busnum\n" unless defined $xbus; if(defined $xpdnum) { usage unless $xpdnum =~ /^\d+/; @@ -80,7 +80,7 @@ if($selector =~ /^span$/i) { } elsif($selector =~ /^label$/i) { my $label = shift; usage unless defined($label); - my $xbus = Zaptel::Xpp::Xbus::by_label($label); + my $xbus = Dahdi::Xpp::Xbus::by_label($label); die "Unkown XBUS label $label\n" unless defined $xbus; @blinklist = $xbus->xpds; die "XBUS label '$label' has no XPDS!\n" unless @blinklist; @@ -134,14 +134,14 @@ Blink briefly for 1 second. =item span -Select by span number. This only work for XPD registered to zaptel. +Select by span number. This only work for XPD registered to dahdi. -will also print the zaptel channels of the span and the xbus/xpd this +will also print the dahdi channels of the span and the xbus/xpd this span represents. =item chan -Select by channel number. This only work for XPD registered to zaptel. +Select by channel number. This only work for XPD registered to dahdi. =item xpd |