Paste: cache-message

Author: dharmatech
Mode: factor
Date: Tue, 14 Oct 2008 13:18:18
Plain Text | 
:: cache-message ( MSG -- msg )
   MSG rcode>> NAME-ERROR =
     [
       [let | NAME [ MSG message-query name>> ]
              TTL  [ MSG message-soa   ttl>>  ] |
         NAME TTL cache-non-existent-name
       ]
     ]
   when
   MSG answer-section>>     [ cache-add ] each
   MSG authority-section>>  [ cache-add ] each
   MSG additional-section>> [ cache-add ] each ;

New Annotation

Summary:
Author:
Mode:
Body: