5 # Make sure we have the list of authors for git imports.
6 # Call with the path to the Authors/ subdirectory.
14 # This file is Copyright (c) 2016 Network Time Foundation
16 # Copying and distribution of this file, with or without modification, are
17 # permitted in any medium without royalty provided the copyright notice,
18 # author attribution and this notice are preserved. This file is offered
19 # as-is, without any warranty.
24 # Read in the list of known authors.
26 # bk changes -and:USER: | sort -u
27 # to get the list of users who have made commits.
28 # Make sure that each of these users is in the set of known authors.
29 # Make sure the format of that file is 1 or more lines of the form:
30 # user = User Name <user@place>
32 # If all of the above is true, exit 0.
33 # If there are any problems, squawk and exit 1.
35 my $bk_u = "bk changes -and:USER: | sort -u |";
36 chomp(my $bk_root = `bk root`);
37 my $A_dir = "$bk_root/BitKeeper/etc/Authors";
38 my $A_file = "$bk_root/BitKeeper/etc/authors.txt";
42 die "bkroot: <$bk_root>, A_dir: <$A_dir>\n" if (! -r $A_dir);
43 die "bkroot: <$bk_root>, A_file: <$A_file>\n" if (! -r $A_file);
45 # Process the authors.txt file
46 open(my $FILE, '<', $A_file) or die "Could not open <$A_file>: $!\n";
49 if (/^([\S]+) = ([\V]+) <([\w.-]+\@[\w.-]+)>$/) {
50 # print "Got '$1 = $2 <$3>'\n";
53 print "In $A_file: unrecognized line: '$_'\n";
59 #print "\%authors = ", join(' ', sort keys %authors), "\n";
61 die "Fix the problem(s) noted above!\n" if $problem;
63 # Process "bk changes ..."
65 open(BKU, $bk_u) || die "$0: <$bk_u> failed: $!\n";
70 # print "Got Name <$Name>, name <$name>\n";
71 if (!defined($authors{$Name})) {
73 print "<$Name> is not a defined author!\n";
74 open(my $FILE, '>>', "$A_dir/$name.txt") || die "Cannot create '$A_dir/$name.txt': $!\n";
75 print $FILE "$Name = \n";
80 die "Fix the problem(s) noted above!\n" if $problem;