summaryrefslogtreecommitdiff
path: root/xpp/perl_modules/Dahdi/Config
diff options
context:
space:
mode:
authorTzafrir Cohen <tzafrir.cohen@xorcom.com>2008-06-25 10:01:11 +0000
committerTzafrir Cohen <tzafrir.cohen@xorcom.com>2008-06-25 10:01:11 +0000
commitf543cf5b0c9cbe3053ee445f6f9b2f3506a2e949 (patch)
tree9dad753ececa54c19681f6da369da6264c2f4261 /xpp/perl_modules/Dahdi/Config
parent5d43e446fe362574ad89b95599411ea4f0fa3192 (diff)
* Rename Dahdi::Config::Defaults to Dahdi::Config::GenconfDefaults .
* Reads from the new /etc/dahdi/genconf_parameters . * Do installl xpp_fxloader (the firmware loading wrapper script). * Even more /etc/dahdi/system.conf string fixes. git-svn-id: http://svn.asterisk.org/svn/dahdi/tools/trunk@4463 a0bf4364-ded3-4de4-8d8a-66a801d63aff
Diffstat (limited to 'xpp/perl_modules/Dahdi/Config')
-rw-r--r--xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm (renamed from xpp/perl_modules/Dahdi/Config/Defaults.pm)26
1 files changed, 4 insertions, 22 deletions
diff --git a/xpp/perl_modules/Dahdi/Config/Defaults.pm b/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm
index e720568..9988929 100644
--- a/xpp/perl_modules/Dahdi/Config/Defaults.pm
+++ b/xpp/perl_modules/Dahdi/Config/GenconfDefaults.pm
@@ -1,4 +1,4 @@
-package Dahdi::Config::Defaults;
+package Dahdi::Config::GenconfDefaults;
#
# Written by Oron Peled <oron@actcom.co.il>
# Copyright (C) 2007, Xorcom
@@ -28,29 +28,11 @@ sub do_source($@) {
sub source_vars {
my @vars = @_;
- my $default_file;
- my %system_files = (
- "/etc/default/zaptel" => 'Debian and friends',
- "/etc/sysconfig/zaptel" => 'Red Hat and friends',
- "/etc/dahdi/defaults" => 'Dahdi generic',
- );
-
- if(defined $ENV{DAHDI_DEFAULTS}) {
- $default_file = $ENV{DAHDI_DEFAULTS};
- } else {
- foreach my $f (keys %system_files) {
- if(-r $f) {
- if(defined $default_file) {
- die "An '$f' collides with '$default_file'";
- }
- $default_file = $f;
- }
- }
- }
- if (! $default_file) {
+ my $default_file = $ENV{GENCONF_PARAMETERS} || "/etc/dahdi/genconf_parameters";
+ if (! -r $default_file) {
return ("", ());
}
- my %vars = Dahdi::Config::Defaults::do_source($default_file, @vars);
+ my %vars = do_source($default_file, @vars);
return ($default_file, %vars);
}