From 68ac0202dce8f50c0852b3a9d7b3f9de0bbf8370 Mon Sep 17 00:00:00 2001
From: Andrew Ruthven <andrew@etc.gen.nz>
Date: Tue, 10 Mar 2009 12:34:33 +1300
Subject: [PATCH] Allow using a YAML file to provide the list of resolvers to
use.
---
enum-agi.yml | 4 ++++
enum.agi | 16 +++++++++++++++-
2 files changed, 19 insertions(+), 1 deletion(-)
create mode 100644 enum-agi.yml
diff --git a/enum-agi.yml b/enum-agi.yml
new file mode 100644
index 0000000..57fde02
--- /dev/null
+++ b/enum-agi.yml
@@ -0,0 +1,4 @@
+# A list of ENUM domains to search in.
+resolvers:
+ - e164.org
+ - e164.arpa
diff --git a/enum.agi b/enum.agi
index 38e8cce..ac28bcf 100644
--- a/enum.agi
+++ b/enum.agi
@@ -16,12 +16,26 @@ use warnings;
use Net::DNS;
use Asterisk::AGI;
+use YAML::Syck qw/LoadFile/;
my ( @resolvers, $A, %AGI, $num, $resources );
-# in order of preference
+# in order of preference - default. Can be over ridden using
+# /etc/asterisk/enum-agi.yml .
@resolvers = qw/ e164.org e164.arpa /;
+my $config_file = "/etc/asterisk/enum-agi.yml";
+if (-f $config_file) {
+ my $config = eval { LoadFile $config_file };
+ if ($@) {
+ die "Failed to load config file: $config_file, error: $@";
+ }
+
+ if (defined $config->{'resolvers'} && scalar(@{ $config->{'resolvers'} })) {
+ @resolvers = @{ $config->{'resolvers'} };
+ }
+}
+
# setup AGI environment
$A = Asterisk::AGI->new();
%AGI = $A->ReadParse;
--
2.30.2