add articleinfo support

diff --git a/util/update_copyrights b/util/update_copyrights
index 446e45be747eb5303079fae92e3ae2fc958019ad..8b1eed6b4c606c7c150b05deb88df2cbdf8f5400 100644 (file)
--- 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);