2
0
mirror of https://gitlab.isc.org/isc-projects/bind9 synced 2025-09-03 16:15:27 +00:00

temporarily disable until updated to support non-C comments

This commit is contained in:
Bob Halley
1999-03-04 01:04:46 +00:00
parent 0b72c79146
commit efd6c944a4

View File

@@ -1,5 +1,7 @@
#!/usr/local/bin/perl -w #!/usr/local/bin/perl -w
die "This program is being updated; talk to Bob.";
if (@ARGV == 0) { if (@ARGV == 0) {
die "usage: update_copyrights <copyright_text>"; die "usage: update_copyrights <copyright_text>";
} }
@@ -9,21 +11,22 @@ open(COPYRIGHT, "<$ARGV[0]") || die "can't open $ARGV[0]: $!";
close(COPYRIGHT); close(COPYRIGHT);
while (<>) { while (<>) {
($file, $years_list) = split(/\s+/); ($file, $type, $years_list) = split(/\s+/);
@years = split(/,/, $years_list); @years = split(/,/, $years_list);
if ( ! -f $file ) { if ( ! -f $file ) {
print "$file: missing\n"; print "$file: missing\n";
} }
if ($years_list eq "SKIP") { if ($type eq "X") {
print "$file: SKIP\n"; print "$file: X type; skipping\n";
next; next;
} }
if ($file =~ /\.[chy]$/) { if ($type eq "C") {
$c_comment = 1; $c_comment = 1;
} else { } else {
die "only C comments are supported right now"; print "$file: type '$type' not supported yet; skipping\n";
next;
} }
open(SOURCE, "<$file") || die "can't open $file: $!"; open(SOURCE, "<$file") || die "can't open $file: $!";
$_ = <SOURCE>; $_ = <SOURCE>;