summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorArnaud Desmons <adesmons@mandriva.com>2002-09-03 13:27:23 +0000
committerArnaud Desmons <adesmons@mandriva.com>2002-09-03 13:27:23 +0000
commit62086547910b4f73ae63c8c349a20f2718426e2f (patch)
tree600a88891a65e8b829877635ecf11c879a338c4e
parent386b7879607eaaa5284d68b6c75e2fd16561c9a9 (diff)
downloaddrakwizard-62086547910b4f73ae63c8c349a20f2718426e2f.tar
drakwizard-62086547910b4f73ae63c8c349a20f2718426e2f.tar.gz
drakwizard-62086547910b4f73ae63c8c349a20f2718426e2f.tar.bz2
drakwizard-62086547910b4f73ae63c8c349a20f2718426e2f.tar.xz
drakwizard-62086547910b4f73ae63c8c349a20f2718426e2f.zip
added some fillfunc's
-rw-r--r--dns_wizard/dns.wiz19
-rw-r--r--dns_wizard/scripts/Dnsconf.pm27
2 files changed, 31 insertions, 15 deletions
diff --git a/dns_wizard/dns.wiz b/dns_wizard/dns.wiz
index b9225c0b..b808e29d 100644
--- a/dns_wizard/dns.wiz
+++ b/dns_wizard/dns.wiz
@@ -93,7 +93,7 @@
name="wiz_ext_dns1"
variableName="wiz_ext_dns1"
helpText="Primary DNS Address:"
- fillScript="get_var wiz_ext_dns1"
+ fillfunc="get_dns1"
editable="true"
>
</Freetext>
@@ -102,7 +102,7 @@
name="wiz_ext_dns2"
variableName="wiz_ext_dns2"
helpText="Secondary DNS Address:"
- fillScript="get_var wiz_ext_dns2"
+ fillfunc="get_dns2"
editable="true"
>
</Freetext>
@@ -210,26 +210,15 @@ needed to configure your DNS service:"
>
</Info>
-
- <Info
- helpText="Primary DNS Address:"
- >
- </Info>
-
<Freetext
+ helpText="Primary DNS Address:"
name="wiz_ext_dns1"
variableName="wiz_ext_dns1"
editable="false"
>
</Freetext>
- <Info
- >
- </Info>
- <Info
- helpText="Secondary DNS Address:"
- >
- </Info>
<Freetext
+ helpText="Secondary DNS Address:"
name="wiz_ext_dns2"
variableName="wiz_ext_dns2"
editable="false"
diff --git a/dns_wizard/scripts/Dnsconf.pm b/dns_wizard/scripts/Dnsconf.pm
index f789f20c..b73359b5 100644
--- a/dns_wizard/scripts/Dnsconf.pm
+++ b/dns_wizard/scripts/Dnsconf.pm
@@ -27,6 +27,33 @@ use standalone;
my $o = DrakconnectConf->new();
+my $dns1;
+my $dns2;
+
+my $file = "/etc/named.conf";
+open (NEW, "< $file");
+DNS : while (<NEW>) {
+ $dns2 = "";
+ if (m/^\s*options\s*\{/s...m/^\s*\}\;/s ) {
+ if (m/^\s*forwarders\s*\{/s...m/^\s*\}\;/s ) {
+ if (/(\d{1,3})\.(\d{1,3})\.(\d{1,3})\.(\d{1,3})/) {
+ $dns2 = "$1.$2.$3.$4";
+ $dns1 and next DNS;
+ $dns1 = $dns2;
+ }
+ }
+ }
+}
+close (NEW);
+
+sub get_dns1 {
+ $dns1;
+}
+
+sub get_dns2 {
+ $dns2;
+}
+
sub up_serial {
my ($file) = @_;