path: root/xpp/dahdi_genconf

#! /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::Std;
use Dahdi;
use Dahdi::Xpp;
use Dahdi::Config::GenconfDefaults;

my %opts;
my $genconf_defaults;

my %default_context = (
	FXO	=> 'from-pstn',
	FXS	=> 'from-internal',
	IN	=> 'astbank-input',
	OUT	=> 'astbank-output',
	BRI_TE	=> 'from-pstn',
	BRI_NT	=> 'from-internal',
	E1_TE	=> 'from-pstn',
	T1_TE	=> 'from-pstn',
	J1_TE	=> 'from-pstn',
	E1_NT	=> 'from-internal',
	T1_NT	=> 'from-internal',
	J1_NT	=> 'from-internal',
	);

my %default_group = (
	FXO	=> 0,
	FXS	=> "5",
	IN	=> '',
	OUT	=> '',
	BRI_TE	=> 0,
	BRI_NT	=> 6,
	E1_TE	=> 0,
	T1_TE	=> 0,
	J1_TE	=> 0,
	E1_NT	=> 6,
	T1_NT	=> 6,
	J1_NT	=> 6,
	);

my $fxs_default_start = 'ks';

my %default_dahdi_signalling = (
	FXO	=> 'fxsks',
	FXS	=> "fxo{fxs_default_start}",
	IN	=> "fxo{fxs_default_start}",
	OUT	=> "fxo{fxs_default_start}",
	);

my %default_chan_dahdi_signalling = (
	FXO	=> 'fxs_ks',
	FXS	=> "fxo_{fxs_default_start}",
	IN	=> "fxo_{fxs_default_start}",
	OUT	=> "fxo_{fxs_default_start}",
	);

my $lc_country = 'us';
my $pri_termtype = 'SPAN/* TE';
my $echo_can = 'mg2';

my %global_config = (
		'genconf_file'	=> 'HARD-CODED-DEFAULT',	# GenconfDefaults override
		'base_exten'	=> 4000,
		'fxs_immediate'	=> 'no',
		'loadzone'	=> $lc_country,
		'defaultzone'	=> $lc_country,
		'context'	=> \%default_context,
		'group'		=> \%default_group,
		'bri_hardhdlc'	=> 'no',
		'bri_sig_style'	=> 'bri_ptmp',
		'r2_idle_bits'	=> '1101',
		'bri_overlapdial'	=> 'no',
		'pri_connection_type'	=> 'PRI', # PRI or R2
		'dahdi_signalling'	=> \%default_dahdi_signalling,
		'chan_dahdi_signalling'	=> \%default_chan_dahdi_signalling,
	);

my %dahdi_default_vars = (
		GENCONF_FILE		=> \$global_config{'genconf_file'},
		base_exten		=> \$global_config{'base_exten'},
		fxs_immediate		=> \$global_config{'fxs_immediate'},
		fxs_default_start	=> \$fxs_default_start,
		lc_country		=> [
						\$global_config{'loadzone'},
						\$global_config{'defaultzone'},
					],
		context_lines		=> \$default_context{FXO},
		context_phones		=> \$default_context{FXS},
		context_input		=> \$default_context{IN},
		context_output		=> \$default_context{OUT},
		group_phones		=> [
						\$default_group{FXS},
						\$default_group{IN},
						\$default_group{OUT},
					],
		group_lines		=> \$default_group{FXO},
		bri_sig_style		=> \$global_config{'bri_sig_style'},
		bri_overlapdial		=> \$global_config{'bri_overlapdial'},
		pri_termtype		=> \$pri_termtype,
		pri_connection_type	=> \$global_config{'pri_connection_type'},
		r2_idle_bits		=> \$global_config{'r2_idle_bits'},
		echo_can		=> \$echo_can,
		bri_hardhdlc		=> \$global_config{'bri_hardhdlc'},
		);

sub map_dahdi_defaults {
	my %defaults = @_;
	foreach my $name (keys %defaults) {
		my $val = $defaults{$name};
		my $ref = $dahdi_default_vars{$name};
		my $type = ref $ref;
		my @vars = ();
		# Some broken shells (msh) export even variables
		# That where not defined. Work around that.
		next unless defined $val && $val ne '';
		if($type eq 'SCALAR') {
			@vars = ($ref);
		} elsif($type eq 'ARRAY') {
			@vars = @$ref;
		} else {
			die "$0: Don't know how to map '$name' (type=$type)\n";
		}
		foreach my $v (@vars) {
			$$v = $val;
			#printf STDERR "%-20s %s\n", $v, $val;
		}
	}
}

my @spans = Dahdi::spans();

sub set_defaults {
	# Source default files
	my $default_file = $ENV{GENCONF_PARAMETERS} || "/etc/dahdi/genconf_parameters";
	$genconf_defaults = Dahdi::Config::GenconfDefaults->new($default_file);
	if($opts{v}) {
		print "Default parameters from ", $genconf_defaults->{GENCONF_FILE}, "\n";
	}
	#$genconf_defaults->dump;
	map_dahdi_defaults(%$genconf_defaults);
	foreach my $span (@spans) {
		if($span->is_pri) {
			$span->pri_set_fromconfig($genconf_defaults);
		}
	}
	# Fixups
	foreach my $val (values %default_dahdi_signalling, values %default_chan_dahdi_signalling) {
		$val =~ s/{fxs_default_start}/$fxs_default_start/g;
	}
}

sub parse_args {
	my @default_generators;

	getopts('v', \%opts);
	if (@ARGV) {
		for my $gen (@ARGV) {
			push @default_generators, $gen;
		}
	} else {
		# No files given. Use the defaults.
		@default_generators = ('system', 'chandahdi');
		if($global_config{'pri_connection_type'} eq 'R2') {
			push @default_generators, 'unicall';
		}
	}
	return @default_generators;
}

sub run_generator($$) {
	my ($name, $genopts) = @_;

	if(defined $opts{'v'}) {
		$genopts->{'verbose'} = $opts{v};
	}
	my $module = "Dahdi::Config::Gen::$name";
	eval "use $module";
	if($@) {
		die "Failed to load configuration generator for '$name'\n";
	}
	my $cfg = new $module(\%global_config, $genopts);
	$cfg->generate(@spans);
}

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 @default_generators = @_;

	for my $gen (@default_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);
		run_generator($name, \%genopts);
	}
}

my @default_generators = parse_args;
set_defaults;
generate_files @default_generators;

__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_params

A configuration file that supplements the hardware information.
Its location may be overriden via the C<GENCONF_PARAMETERS> environment
variable.

=back

The dahdi_genconf script can generate various kinds of configuration files
as specificed by the generator arguments.  Each generator is a perl classes
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, 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

Global options:

=over 4

=item -v

Verbose -- also sets the C<'verbose'> option for all generators.

=back