summaryrefslogtreecommitdiff
path: root/net/ispman/patches/patch-ab
diff options
context:
space:
mode:
authorrh <rh@pkgsrc.org>2000-11-22 10:44:51 +0000
committerrh <rh@pkgsrc.org>2000-11-22 10:44:51 +0000
commitcffd0848a0af3c66659b184670c56b9442ea850d (patch)
tree44c70e5e945bce20c083b5f58a786098850cac02 /net/ispman/patches/patch-ab
parent01aeef90ab78ff85265b1e368cf8a9e8e79e45e1 (diff)
downloadpkgsrc-cffd0848a0af3c66659b184670c56b9442ea850d.tar.gz
Update ispman to 0.5nb1. Fixes some bugs in the ldap2named script.
Diffstat (limited to 'net/ispman/patches/patch-ab')
-rw-r--r--net/ispman/patches/patch-ab42
1 files changed, 42 insertions, 0 deletions
diff --git a/net/ispman/patches/patch-ab b/net/ispman/patches/patch-ab
new file mode 100644
index 00000000000..52df654bc3c
--- /dev/null
+++ b/net/ispman/patches/patch-ab
@@ -0,0 +1,42 @@
+$NetBSD: patch-ab,v 1.1 2000/11/22 10:44:52 rh Exp $
+
+--- ispman-utils/bin/ldap2named.orig Sat Sep 23 01:24:28 2000
++++ ispman-utils/bin/ldap2named
+@@ -31,7 +31,10 @@
+
+
+ if ($soa) {
+- print ZONE "@ IN SOA $soa->{'primary'}. $soa->{'rootmail'}. (\n";
++ my $primary = $soa->{'primary'};
++ $primary="$primary\." if (($primary =~ /\./) && ($primary !~ /\.$/));
++ print ZONE "\$TTL $soa->{'minimum'}\n";
++ print ZONE "@ IN SOA $primary $soa->{'rootmail'}. (\n";
+ for (qw(serial refresh retry expire minimum)) {
+ print ZONE "\t $soa->{$_} ; $_\n";
+ }
+@@ -45,7 +48,7 @@
+ print ZONE "\n; NS RECORDS\n";
+ for (@$nsrecords) {
+ my ($origion, $host)=split(/\s*,\s*/, $_);
+- $host=($host=~/\.$/)?$host: "$host\.";
++ $host="$host\." if (($host =~ /\./) && ($host !~ /\.$/));
+ print ZONE "$origion IN NS $host\n";
+ }
+
+@@ -55,7 +58,7 @@
+ for (@$mxrecords) {
+
+ my ($origion, ,$pref, $host)=split(/\s*,\s*/, $_);
+- $host=($host=~/\.$/)?$host: "$host\.";
++ $host="$host\." if (($host =~ /\./) && ($host !~ /\.$/));
+ print ZONE "$origion IN MX $pref $host\n";
+ }
+
+@@ -72,6 +75,7 @@
+ my $cnames=$ispman->getRecords($domains->{$domain}, "cnames");
+ for (@$cnames) {
+ my ($alias, $host)=split(/\s*,\s*/, $_);
++ $host="$host\." if (($host =~ /\./) && ($host !~ /\.$/));
+ print ZONE "$alias IN CNAME $host\n";
+ }
+