mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-08-31 22:45:39 +00:00
Code Issues Releases Wiki Activity

make SOA MNAME and NS records consistent; keep

Browse Source 
lines under 80 columns
This commit is contained in:
Andreas Gustafsson
2000-11-18 01:35:05 +00:00
parent e1f0415f3f
commit 3c0454fe25
2 changed files with 10 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
contrib/sdb/lookup.tcl
View File

@@ -13,7 +13,7 @@
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION # NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. # WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# $Id: lookup.tcl,v 1.4 2000/11/18 01:29:11 bwelling Exp $ # $Id: lookup.tcl,v 1.5 2000/11/18 01:35:05 gson Exp $
# #
# Sample lookup procedure for tcldb # Sample lookup procedure for tcldb
@@ -23,9 +23,10 @@ proc lookup {zone name} {
global dbargs global dbargs
switch -- $name { switch -- $name {
@ { return [list \ @ { return [list \
{SOA 86400 "ns.isp.nil. hostmaster.isp.nil. 0 3600 1800 1814400 3600"} \ {SOA 86400 "ns1.isp.nil. hostmaster.isp.nil. \
{NS 86400 "ns1"} \ 0 3600 1800 1814400 3600"} \
{NS 86400 "ns2"} \ {NS 86400 "ns1.isp.nil."} \
{NS 86400 "ns2.isp.nil."} \
{MX 86400 "10 mail.isp.nil."} ] } {MX 86400 "10 mail.isp.nil."} ] }
www { return [list [list A 3600 $dbargs($zone)] ] } www { return [list [list A 3600 $dbargs($zone)] ] }
} }

9
contrib/sdb/tcl/lookup.tcl
View File

@@ -13,7 +13,7 @@
# NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION # NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
# WITH THE USE OR PERFORMANCE OF THIS SOFTWARE. # WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
# $Id: lookup.tcl,v 1.4 2000/11/18 01:29:11 bwelling Exp $ # $Id: lookup.tcl,v 1.5 2000/11/18 01:35:05 gson Exp $
# #
# Sample lookup procedure for tcldb # Sample lookup procedure for tcldb
@@ -23,9 +23,10 @@ proc lookup {zone name} {
global dbargs global dbargs
switch -- $name { switch -- $name {
@ { return [list \ @ { return [list \
{SOA 86400 "ns.isp.nil. hostmaster.isp.nil. 0 3600 1800 1814400 3600"} \ {SOA 86400 "ns1.isp.nil. hostmaster.isp.nil. \
{NS 86400 "ns1"} \ 0 3600 1800 1814400 3600"} \
{NS 86400 "ns2"} \ {NS 86400 "ns1.isp.nil."} \
{NS 86400 "ns2.isp.nil."} \
{MX 86400 "10 mail.isp.nil."} ] } {MX 86400 "10 mail.isp.nil."} ] }
www { return [list [list A 3600 $dbargs($zone)] ] } www { return [list [list A 3600 $dbargs($zone)] ] }
} }