680f3e1d1d
* If xpp.dahdi_autoreg parameter is 'Y' -- Skip actuall registration. * If dahdi.auto_assign_spans is '0' and there's no /etc/dahdi/pinned-spans.conf Than use 'span_assignments auto ...' to assign device spans. * Since dahdi_registration iterate in correct xpp_order, the span assignment logic provides migration path for users who did not generate their pinned-spans.conf configuration yet. Signed-off-by: Tzafrir Cohen <tzafrir.cohen@xorcom.com>
212 lines
5.6 KiB
Perl
Executable File
212 lines
5.6 KiB
Perl
Executable File
#! /usr/bin/perl -w
|
|
#
|
|
# Written by Oron Peled <oron@actcom.co.il>
|
|
# Copyright (C) 2007, Xorcom
|
|
# This program is free software; you can redistribute and/or
|
|
# modify it under the same terms as Perl itself.
|
|
#
|
|
# $Id$
|
|
#
|
|
use strict;
|
|
use File::Basename;
|
|
BEGIN { my $dir = dirname($0); unshift(@INC, "$dir", "$dir/perl_modules"); }
|
|
|
|
use Dahdi;
|
|
use Dahdi::Span;
|
|
use Dahdi::Xpp;
|
|
use Dahdi::Xpp::Xbus;
|
|
use Dahdi::Xpp::Xpd;
|
|
use Getopt::Std;
|
|
|
|
sub usage {
|
|
die "Usage: $0 [-v] [-R] [-s sort_order] [on|off|1|0]\n";
|
|
}
|
|
|
|
sub check_param {
|
|
my $param = shift || die;
|
|
open(F, $param) || return '';
|
|
my $val = <F>;
|
|
close F;
|
|
chomp $val;
|
|
return $val;
|
|
}
|
|
|
|
my %opts;
|
|
getopts('vRs:', \%opts) || usage;
|
|
|
|
my $dahdi_autoreg = check_param('/sys/module/xpp/parameters/dahdi_autoreg') eq 'Y';
|
|
my $auto_assign_spans = check_param('/sys/module/dahdi/parameters/auto_assign_spans') eq '1';
|
|
my $pinned_spans_config = $ENV{'PINNED_SPANS_CONF_FILE'} || '/etc/dahdi/pinned-spans.conf';
|
|
my $span_types_config = $ENV{'SPAN_TYPES_CONF_FILE'} || '/etc/dahdi/span-types.conf';
|
|
my $have_pinned_spans_config = -f $pinned_spans_config || 0;
|
|
my $have_span_types_config = -f $span_types_config || 0;
|
|
|
|
my $sorter;
|
|
my $sort_order = $opts{'s'};
|
|
if(defined $sort_order) {
|
|
my $sorter = Dahdi::Xpp::sorters($sort_order);
|
|
|
|
if(!defined $sorter) {
|
|
my @sorter_names = Dahdi::Xpp::sorters;
|
|
print STDERR "Unknown sort order $sort_order. Select from:\n\t";
|
|
print STDERR join("\n\t", @sorter_names);
|
|
print STDERR "\n";
|
|
exit 1;
|
|
}
|
|
}
|
|
|
|
@ARGV == 0 or @ARGV == 1 or usage;
|
|
my $on = shift;
|
|
my $verbose = $opts{'v'};
|
|
my $should_output = 1;
|
|
|
|
#print "dahdi_autoreg=$dahdi_autoreg auto_assign_spans=$auto_assign_spans have_pinned_spans_config='$have_pinned_spans_config' have_span_types_config='$have_span_types_config'\n";
|
|
|
|
if(defined($on)) { # Translate to booleans
|
|
$on = uc($on);
|
|
$on =~ /^(ON|OFF|1|0)$/ or usage;
|
|
$on = ($on eq 'ON') ? 1 : 0;
|
|
$should_output = 0 unless $verbose;
|
|
}
|
|
|
|
undef $on if $dahdi_autoreg and not $opts{'R'};
|
|
|
|
sub state2str($) {
|
|
return (shift)?"on":"off";
|
|
}
|
|
|
|
sub myprintf {
|
|
printf @_ if $should_output;
|
|
}
|
|
|
|
my @spans = Dahdi::spans;
|
|
|
|
foreach my $xbus (Dahdi::Xpp::xbuses($sorter)) {
|
|
myprintf "%-10s\t%3s-%s\t%s\n",
|
|
$xbus->name, $xbus->xpporder, $xbus->label, $xbus->connector;
|
|
next unless $xbus->status eq 'CONNECTED';
|
|
foreach my $xpd (Dahdi::Xpp::Xpd::telephony_devs($xbus->xpds())) {
|
|
my $prev = $xpd->dahdi_registration($on);
|
|
if(!defined($prev)) { # Failure
|
|
printf "%s: Failed %s\n", $xpd->fqn, $!;
|
|
next;
|
|
}
|
|
myprintf "\t%-10s: ", $xpd->fqn;
|
|
if(!defined($on)) { # Query only
|
|
my ($span) = grep { $_->name eq $xpd->fqn } @spans;
|
|
my $spanstr = ($span) ? ("Span " . $span->num) : "";
|
|
myprintf "%s %s\n", state2str($prev), $spanstr ;
|
|
next;
|
|
}
|
|
myprintf "%3s ==> %3s\n", state2str($prev), state2str($on);
|
|
}
|
|
if (defined($on) && $on && ! $have_pinned_spans_config && ! $auto_assign_spans) {
|
|
# Emulate /etc/dahdi/pinned-spans.conf:
|
|
# - We iterate over $xbus according to /etc/dahdi/xpp_order
|
|
# - We "auto" assign all spans of current $xbus
|
|
my $devpath = sprintf "/sys/bus/dahdi_devices/devices/astribanks:xbus-%02d", $xbus->num;
|
|
my @cmd = ('span_assignments', 'auto', $devpath);
|
|
system @cmd;
|
|
warn "Failed '@cmd' (status=$?)\n" if $?;
|
|
}
|
|
}
|
|
myprintf "# Sorted: $sort_order\n" if defined $sort_order;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
dahdi_registration - Handle registration of Xorcom XPD modules in dahdi.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
dahdi_registration [-v] [-s sortorder] [-R] [on|off]
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Without parameters, show all connected XPDs sorted by physical connector order.
|
|
Each one is show to be unregistered (off), or registered to a specific dahdi
|
|
span (the span number is shown).
|
|
|
|
All registerations/deregisterations are sorted by physical connector string.
|
|
|
|
Span registration should generally always succeed. Span unregistration may
|
|
fail if channels from the span are in use by e.g. asterisk. In such a case
|
|
you'll also see those channels as '(In use)' in the output of lsdahdi(8).
|
|
|
|
dahdi_registration is intended to be used when the xpp module parameter
|
|
B<dahdi_autoreg> is false (and implicitly: when the dahdi module parameter
|
|
B<auto_assign_span> is true.
|
|
|
|
If dahdi_autoreg is true, the program will normally do nothing.
|
|
|
|
=head2 Parameters
|
|
|
|
off -- deregisters all XPD's from dahdi.
|
|
|
|
on -- registers all XPD's to dahdi.
|
|
|
|
=head2 Options
|
|
|
|
=over
|
|
|
|
=item -v
|
|
|
|
verbose output.
|
|
|
|
=item -R
|
|
|
|
Force operations (on/off) even if the module parameter B<dahdi_autoreg>
|
|
for xpp is enabled (which makes this program unneeded).
|
|
|
|
=item -s I<sort_order>
|
|
|
|
The sort order to use.
|
|
|
|
=back
|
|
|
|
If the option is not used, the sort order is taken from the environment
|
|
variable XBUS_SORT and failing that: the hard-coded default of
|
|
SORT_XPPORDER.
|
|
|
|
The available sorting orders are documented in Dahdi::Xpp manual.
|
|
|
|
|
|
|
|
=head2 Sample Output
|
|
|
|
An example of the output of dahdi_registration for some registered
|
|
Astribanks:
|
|
|
|
$ dahdi_registration -s type
|
|
XBUS-01 usb:0000153 usb-0000:00:10.4-2
|
|
XBUS-01/XPD-00: on Span 1
|
|
XBUS-01/XPD-01: on Span 2
|
|
XBUS-00 usb:0000157 usb-0000:00:10.4-4
|
|
XBUS-00/XPD-00: on Span 3
|
|
XBUS-00/XPD-01: on Span 4
|
|
XBUS-00/XPD-02: on Span 5
|
|
XBUS-00/XPD-03: on Span 6
|
|
XBUS-00/XPD-04: on Span 7
|
|
XBUS-00/XPD-05: on Span 8
|
|
XBUS-00/XPD-06: on Span 9
|
|
XBUS-00/XPD-07: on Span 10
|
|
XBUS-02 usb-0000:00:10.4-1
|
|
XBUS-02/XPD-00: on Span 11
|
|
XBUS-02/XPD-10: on Span 12
|
|
# Sorted: type
|
|
|
|
=head1 FILES
|
|
|
|
=over
|
|
|
|
=item /proc/xpp/XBUS-nn/XPD-mm/dahdi_registration
|
|
|
|
Reading from this file shows if if the if the specific XPD is
|
|
registered. Writing to it 0 or 1 registers / unregisters the device.
|
|
|
|
This should allow you to register / unregister a specific XPD rather
|
|
than all of them.
|
|
|
|
=back
|