--- ui/web/base/dns/dns.php.orig        Thu Dec  7 10:30:17 2000
+++ ui/web/base/dns/dns.php     Fri Mar 16 19:37:05 2001
@@ -35,7 +35,7 @@
 $Ui->Divider( "global_settings" );
 $Ui->IpAddressList( "forwarders", array( "Optional" => 'loud' ) );
 $Ui->IpAddressList( "zone_xfer_ipaddr", array( "Optional" => 'loud') );
-$Ui->Alters( "zone_format", array("rfc2317", "dion", "ocn-jt") );
+$Ui->Alters( "zone_format", array("rfc2317", "dion", "ocn-jt", "A-type") );

 $Ui->AddSaveButton();


--- handlers/base/dns/dns_generate.pl.orig      Thu Dec  7 10:30:18 2000
+++ handlers/base/dns/dns_generate.pl   Fri Mar 16 19:35:27 2001
@@ -461,6 +461,12 @@
       "%4h.%3.%2.%1.in-addr.arpa",
       "%1.in-addr.arpa",
     ],
+    'A-type' => [
+      "A%2.%1.in-addr.arpa",
+      "A%3.%2.%1.in-addr.arpa",
+      "A%4.%3.%2.%1.in-addr.arpa",
+      "%1.in-addr.arpa",
+    ],
   );

   # what zone format should we use?

--- schemas/base/dns/dns.schema.orig    Thu Dec  7 10:30:18 2000
+++ schemas/base/dns/dns.schema Fri Mar 16 19:39:40 2001
@@ -2,7 +2,7 @@

 <typedef name="dns_record_type" type="re"
   data="^(A|PTR|CNAME|MX|NS)$"/>
-<typedef name="dns_zone_format" type="re" data="^(rfc2317|dion|ocn-jt)$"/>
+<typedef name="dns_zone_format" type="re" data="^(rfc2317|dion|ocn-jt|A-type)$"/>

 <!-- global DNS settings -->