blob: 998892927316437ab99aec00eee3a84c7647e700 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
package Dahdi::Config::GenconfDefaults;
#
# 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 the shell to source a file and expand a given list
# of variables.
sub do_source($@) {
my $file = shift;
my @vars = @_;
my @output = `env -i sh -ec '. $file; export @vars; for i in @vars; do eval echo \$i=\\\$\$i; done'`;
die "$0: Sourcing '$file' exited with $?" if $?;
my %vars;
foreach my $line (@output) {
chomp $line;
my ($k, $v) = split(/=/, $line, 2);
$vars{$k} = $v if grep /^$k$/, @vars;
}
return %vars;
}
sub source_vars {
my @vars = @_;
my $default_file = $ENV{GENCONF_PARAMETERS} || "/etc/dahdi/genconf_parameters";
if (! -r $default_file) {
return ("", ());
}
my %vars = do_source($default_file, @vars);
return ($default_file, %vars);
}
1;
|
