[Gd-chatter] r11097 - trunk/libraries/network/koala/sources/examples/buddha

[hannes at gwydiondylan.org]

Author: hannes
Date: Fri Dec 22 02:23:31 2006
New Revision: 11097

Modified:
   trunk/libraries/network/koala/sources/examples/buddha/zone.dylan
Log:
Bug: 7257
minor data update

Modified: trunk/libraries/network/koala/sources/examples/buddha/zone.dylan
==============================================================================
--- trunk/libraries/network/koala/sources/examples/buddha/zone.dylan	(original)
+++ trunk/libraries/network/koala/sources/examples/buddha/zone.dylan	Fri Dec 22 02:23:31 2006
@@ -88,7 +88,7 @@
   data reverse? :: <boolean> = #f;
   has-many cname :: <cname>;
   data hostmaster :: <string> = "hostmaster.congress.ccc.de";
-  slot serial :: <integer> = 0;
+  data serial :: <string>;
   data refresh :: <integer> = 16384;
   data retry :: <integer> = 2048;
   data expire :: <integer> = 1048576;
@@ -98,7 +98,6 @@
   has-many mail-exchange :: <mail-exchange>;
   has-many host-record :: <host-record>;
   //has-many text :: <string>;
-  data zone-serial :: <string>;
 end;
 
 define method initialize (zone :: <zone>,
@@ -140,11 +139,11 @@
   let (year, month, days, hours, minutes, seconds) = decode-date(current-date());
   let s2 = rcurry(integer-to-string, size: 2);
   let ser = concatenate(integer-to-string(year, size: 4), s2(month), s2(days), s2(hours), s2(minutes));
-  print-zone.zone-serial := ser;
+  print-zone.serial := ser;
   //Zfqdn:mname:rname:ser:ref:ret:exp:min:ttl:timestamp:lo
   format(stream, "Z%s:%s.:%s.:%s:%d:%d:%d:%d:%d\n",
          print-zone.zone-name, print-zone.nameservers[0].ns-name,
-         print-zone.hostmaster, print-zone.zone-serial,
+         print-zone.hostmaster, print-zone.serial,
          print-zone.refresh, print-zone.retry,
          print-zone.expire, print-zone.minimum,
          print-zone.time-to-live);