From 10e873cb368b0ed17a328e5421a0411eb90da0cb Mon Sep 17 00:00:00 2001
From: Mark Andrews <marka@isc.org>
Date: Tue, 24 Oct 2006 00:57:16 +0000
Subject: [PATCH] add articleinfo support

---
 util/update_copyrights | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/util/update_copyrights b/util/update_copyrights
index 446e45be74..8b1eed6b4c 100644
--- a/util/update_copyrights
+++ b/util/update_copyrights
@@ -15,7 +15,7 @@
 # OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 # PERFORMANCE OF THIS SOFTWARE.
 
-# $Id: update_copyrights,v 1.41 2005/09/06 01:59:12 marka Exp $
+# $Id: update_copyrights,v 1.42 2006/10/24 00:57:16 marka Exp $
 
 require 5.002;
 
@@ -423,6 +423,11 @@ foreach $file (keys %file_types) {
                 $_ = <SOURCE>;
                 $/ = "\n";
 
+		if ($type eq 'SGML' && m:<articleinfo>.*?</articleinfo>:s) {
+			# print "docinfo: $file\n";
+			my $r = copyrights(@years);
+			s:<articleinfo>.*?</articleinfo>:<articleinfo>\n$r  </articleinfo>:s;
+		}
 		if ($type eq 'SGML' && m:<docinfo>.*?</docinfo>:s) {
 			# print "docinfo: $file\n";
 			my $r = copyrights(@years);