This commit is contained in:
Mark Andrews
2007-08-06 05:55:29 +00:00
parent fecfd60f6f
commit a95e47ee20
+7 -3
View File
@@ -1,9 +1,9 @@
#!/usr/local/bin/perl -w
#
# Copyright (C) 2004-2007 Internet Systems Consortium, Inc. ("ISC")
# Copyright (C) 1998-2003 Internet Software Consortium.
# Copyright (C) 1998-2001, 2003 Internet Software Consortium.
#
# Permission to use, copy, modify, and distribute this software for any
# Permission to use, copy, modify, and/or distribute this software for any
# purpose with or without fee is hereby granted, provided that the above
# copyright notice and this permission notice appear in all copies.
#
@@ -15,7 +15,7 @@
# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
# PERFORMANCE OF THIS SOFTWARE.
# $Id: merge_copyrights,v 1.16.2.2.8.11 2007/01/18 00:06:10 marka Exp $
# $Id: merge_copyrights,v 1.16.2.2.8.12 2007/08/06 05:55:29 marka Exp $
%file_types = ();
%file_years = ();
@@ -80,6 +80,10 @@ while (<FILES>) {
$file_types{$_} = "ZONE";
} elsif ($base =~ /(\/\.cvsignore|\.gif|\.jpg|\.dsp|\.dsw)$/i) {
$file_types{$_} = "X";
} elsif ($base =~ /\.rnc$/i) {
$file_types{$_} = "RNC";
} elsif ($base =~ /\.bat$/i) {
$file_types{$_} = "BAT";
} else {
$file_types{$_} = "?";
}