dahdi-tools/xpp/dahdi_genconf

242 lines
5.8 KiB
Plaintext
Raw Permalink Normal View History

#! /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 Getopt::Long;
use Dahdi;
use Dahdi::Xpp;
use Dahdi::Config::Gen;
use Dahdi::Config::Params;
Getopt::Long::Configure ("bundling");
my $version = '1'; # Functionality version (integer)
my $revision = '$Revision$';
my %opts;
sub usage {
warn "Usage: $0 [options] <generators>\n";
warn " Options:\n";
warn " --line-mode=<E1|T1|J1> - Also generate span-types.conf with default line mode\n";
warn " -F|--freepbx - Modify configuration for Freepbx (skip FXS channels)\n";
warn " -v|--verbose - Be versbose, show generated files\n";
warn " -V|--version - Show version and exit\n";
warn " -h|--help - Show this message\n";
exit 1;
}
sub set_defaults {
my $default_file = $ENV{GENCONF_PARAMETERS} || "/etc/dahdi/genconf_parameters";
my $params = Dahdi::Config::Params->new($default_file);
#$params->dump;
if($opts{v}) {
print "Default parameters from ", $params->{GENCONF_FILE}, "\n";
}
my $gconfig = Dahdi::Config::Gen->new($params);
#$gconfig->dump;
return $gconfig;
}
sub spans_prep($@) {
my $gconfig = shift || die;
my @spans = @_;
foreach my $span (@spans) {
if($span->is_pri || $span->is_bri) {
$span->pri_set_fromconfig($gconfig);
}
}
}
sub munge_spantypes {
if ($opts{'line-mode'}) {
print "Will generate span-types.conf with line-mode=$opts{'line-mode'}\n"
if $opts{'verbose'};
return "spantypes=line-mode=$opts{'line-mode'}";
} else {
print "Will generate span-types.conf\n" if $opts{'verbose'};
return "spantypes";
}
}
sub generator_list($) {
my $gconfig = shift || die;
my @genlist;
if (@ARGV) {
for my $gen (@ARGV) {
$gen = munge_spantypes() if $gen eq 'spantypes';
push @genlist, $gen;
}
} else {
# No files given. Use the defaults.
@genlist = ('assignedspans', 'system', 'chandahdi');
if($gconfig->{'pri_connection_type'} eq 'R2') {
push @genlist, 'unicall';
}
push(@genlist, munge_spantypes()) if $opts{'line-mode'};
}
return @genlist;
}
sub parse_genopts($) {
my $optstr = shift;
my %genopts;
$optstr = '' unless defined $optstr;
foreach my $o (split(/,/, $optstr)) {
my ($k, $v) = split(/=/, $o, 2);
$v = 1 unless defined $v and $v;
$genopts{$k} = $v;
}
return %genopts;
}
sub generate_files($@) {
my $gconfig = shift || die;
my @spans = @_;
my @generators = generator_list($gconfig);
for my $gen (@generators) {
my ($name, $optstr) = split(/=/, $gen, 2);
die "Illegal name '$name'\n" unless $name =~ /^\w+$/;
$name =~ s/(.)(.*)/\u$1\L$2/;
my %genopts = parse_genopts($optstr);
$genopts{'freepbx'} = 'yes' if $opts{'F'};
if(defined $opts{'v'}) {
$genopts{'verbose'} = $opts{v};
}
$gconfig->run_generator($name, \%genopts, @spans);
}
}
GetOptions(\%opts,
"line-mode=s",
"h|help",
"v|verbose",
"V|version",
"F|freepbx",
) or usage;
usage if $opts{h};
if($opts{'V'}) {
my $revstr = $revision;
$revstr =~ s/[^$]*\$[^:]+:\s*//;
$revstr =~ s/\s*\$.*//;
print "$0: version=$version revision=$revstr\n";
exit 0;
}
my $gconfig = set_defaults;
my @spans = Dahdi::spans();
spans_prep($gconfig, @spans);
generate_files($gconfig, @spans);
__END__
=head1 NAME
dahdi_genconf - Generate configuration for Dahdi channels.
=head1 SYNOPSIS
dahdi_genconf [options] [generator...]
=head1 DESCRIPTION
This script generate configuration files for Dahdi hardware.
It uses two information sources:
=over 4
=item Hardware
The actual Dahdi hardware is automatically detected on the host.
=item /etc/dahdi/genconf_parameters
A configuration file that supplements the hardware information.
Its location may be overridden via the C<GENCONF_PARAMETERS> environment
variable.
=back
The dahdi_genconf script can generate various kinds of configuration files
as specified by the generator arguments. Each generator is a perl class
in Dahdi::Config::Gen namespace. The generator names on the command line
are the class names in lowercase.
The following generators are currently implemented: system, modules, spantypes,
assignedspans, chandahdi, unicall, users.
For further documentation on each, please user perldoc on the relevant
class. E.g: C<perldoc Dahdi::Config::Gen::Chandahdi>
Each generator on the command line may be passed custom options by assigning
a comma separated list of options to the generator name. E.g:
dahdi_genconf system chandahdi=verbose unicall
=head2 Global options:
=over 4
=item -V --version
Version -- print version string and exit.
=item -v --verbose
Verbose -- sets the C<'verbose'> option for all generators.
=item -F --freepbx
Freepbx -- sets the C<'freepbx'> option for all generators.
Currently, chandahdi is affected.
=item --line-mode=I<mode>
I<mode> may be E1, J1 or T1.
Enables the generator B<spantypes> and the option B<line-mode> to it.
(Equivalent to the option C<--line-mode> to C<dahdi_span_types>). This
will generate a C<span-types.conf> file with a single wildcard line
setting the line mode to I<mode>.
=back
=head2 Implementation notes:
=over 4
=item *
F<genconf_parameters> parsing is done via C<Dahdi::Config::Params>.
An object representing the parsed data is instantiated by:
C<Dahdi::Config::Params-E<gt>new()>.
The C<item()> method of this object contains all the hard coded
defaults of the configuration directives.
=item *
A configuration object is instantiated by C<Dahdi::Config::Gen-E<gt>new($params)>.
The mapping of configuration directives into semantic configuration is
done in the constructor.
=item *
A single generator is run via the the C<run_generator()> method of the
configuration object.
=back