3 # $FreeBSD: src/tools/tools/commitsdb/make_commit_db,v 1.2 2002/10/17 16:29:26 joe Exp $
4 # $DragonFly: src/tools/tools/commitsdb/make_commit_db,v 1.5 2006/07/12 21:40:49 swildner Exp $
6 # This script walks the tree from the current directory
7 # and spits out a database generated by md5'ing the cvs log
8 # messages of each revision of every file in the tree.
11 use Digest::MD5 qw(md5_hex);
13 my $dbname = "commitsdb";
14 open DB, "> $dbname" or die "$!\n";
16 # Extract all the logs for the current directory.
19 my $dir = shift @dirs;
22 opendir DIR, $dir or die $!;
23 foreach my $f (grep { /[^\.]/ } readdir DIR) {
24 my $filename = "$dir/$f";
26 my %loghash = parse_log_message($filename);
29 $logs{$filename} = {%loghash};
30 } elsif (-d $filename) {
31 next if $filename =~ /\/CVS$/;
32 push @dirs, $filename;
37 # Produce a database of the commits
38 foreach my $f (keys %logs) {
40 foreach my $rev (keys %$file) {
41 my $hash = $$file{$rev};
43 print DB "$f $rev $hash\n";
47 print "\r" . " " x 30 . "\r$dir";
55 ##################################################
56 # Run a cvs log on a file and return a parse entry.
57 ##################################################
58 sub parse_log_message {
61 # Get a log of the file.
62 open LOG, "cvs -R log $file 2>/dev/null |" or die $!;
64 my $log = join "", @log;
67 # Split the log into revisions.
68 my @entries = split /(?<=\n)-{28}\n(?=revision\s)/, $log;
70 # Throw away the first entry.
73 # Record the hash of the message against the revision.
75 foreach my $e (@entries) {
76 # Get the revision number
77 $e =~ s/^revision\s+(\S+)(\s+locked\s+by:\s+\w+;)?\n//s;
80 # Strip off any other headers.
82 while ($e =~ s/^(date|branches):([^\n]*)\n//sg) {
84 $user = $1 if $sub =~ /author: (.*?);/;
87 my $hash = string_to_hash($e);
88 $loghash{$rev} = "$user:$hash";
95 ##################################################
96 # Convert a log message into an md5 checksum.
97 ##################################################
101 return md5_hex($logmsg);