mir/bind
2
0
Fork 0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-09-01 06:55:30 +00:00
Code Issues Releases Wiki Activity

cope with lines that don't have a year on them without causing perl warnings.

Browse Source 
provide automatic type for rndc.conf files.
This commit is contained in:
David Lawrence
2000-07-27 03:27:35 +00:00
parent ab123a8e1b
commit 0014d6342b
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
util/merge_copyrights
View File

@@ -15,7 +15,7 @@
# ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS # ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
# SOFTWARE. # SOFTWARE.
# $Id: merge_copyrights,v 1.12 2000/06/28 22:00:38 tale Exp $ # $Id: merge_copyrights,v 1.13 2000/07/27 03:27:35 tale Exp $
%file_types = (); %file_types = ();
%file_years = (); %file_years = ();
@@ -64,7 +64,7 @@ while (<FILES>) {
$file_types{$_} = "MAN"; $file_types{$_} = "MAN";
} elsif ($base =~ /\/Makefile$/) { } elsif ($base =~ /\/Makefile$/) {
$file_types{$_} = "MAKE"; $file_types{$_} = "MAKE";
} elsif ($base =~ /\/named.?\.conf$/) { } elsif ($base =~ /\/(named|rndc).?\.conf$/) {
$file_types{$_} = "CONF-C"; $file_types{$_} = "CONF-C";
} elsif ($base =~ /\/resolv.?\.conf$/) { } elsif ($base =~ /\/resolv.?\.conf$/) {
$file_types{$_} = "CONF-SH"; $file_types{$_} = "CONF-SH";
@@ -94,9 +94,14 @@ while (<FILES>) {
$dev = $ino = $mode = $nlink = $uid = $gid = $rdev = $size = 0; $dev = $ino = $mode = $nlink = $uid = $gid = $rdev = $size = 0;
$atime = $blksize = $blocks = 0; $atime = $blksize = $blocks = 0;
} else { } else {
if ($file_types{$_} eq "X" || $file_years{$_} eq "????") { if (! defined($file_years{$_}) || $file_years{$_} eq "????") {
next; print "$_: must set copyright year(s) manually\n";
} $file_years{$_} = "????";
next;
}
next if $file_types{$_} eq "X";
@years = split(/,/, $file_years{$_}); @years = split(/,/, $file_years{$_});
$has_current = 0; $has_current = 0;
foreach $fyear (@years) { foreach $fyear (@years) {