1 | #!/usr/bin/perl -w |
---|
2 | |
---|
3 | # ==================================================================== |
---|
4 | # Show log messages matching a certain pattern. Usage: |
---|
5 | # |
---|
6 | # search-svnlog.pl [-v] [-f LOGFILE] REGEXP |
---|
7 | # |
---|
8 | # See &usage() for details. |
---|
9 | # |
---|
10 | # ==================================================================== |
---|
11 | # Copyright (c) 2000-2004 CollabNet. All rights reserved. |
---|
12 | # |
---|
13 | # This software is licensed as described in the file COPYING, which |
---|
14 | # you should have received as part of this distribution. The terms |
---|
15 | # are also available at http://subversion.tigris.org/license-1.html. |
---|
16 | # If newer versions of this license are posted there, you may use a |
---|
17 | # newer version instead, at your option. |
---|
18 | # |
---|
19 | # This software consists of voluntary contributions made by many |
---|
20 | # individuals. For exact contribution history, see the revision |
---|
21 | # history and logs, available at http://subversion.tigris.org/. |
---|
22 | # ==================================================================== |
---|
23 | |
---|
24 | use strict; |
---|
25 | use Getopt::Long; |
---|
26 | |
---|
27 | my $log_file; |
---|
28 | my $invert = 0; |
---|
29 | my $caseless = 0; |
---|
30 | |
---|
31 | GetOptions('f|file=s' => \$log_file, |
---|
32 | 'v|invert' => \$invert, |
---|
33 | 'i|caseinsensitive' => \$caseless) or &usage; |
---|
34 | |
---|
35 | &usage("$0: too few arguments") unless @ARGV; |
---|
36 | &usage("$0: too many arguments") if @ARGV > 1; |
---|
37 | |
---|
38 | my $filter = shift; |
---|
39 | $filter = '(?i)' . $filter if $caseless; |
---|
40 | |
---|
41 | my $log_cmd = "svn log"; |
---|
42 | |
---|
43 | my $log_separator = '-' x 72 . "\n"; |
---|
44 | |
---|
45 | my $open_string = defined $log_file ? $log_file : "$log_cmd |"; |
---|
46 | open(LOGDATA, $open_string) or |
---|
47 | die "$0: cannot open `$open_string' for reading: $!\n"; |
---|
48 | |
---|
49 | my $this_entry_accum = ""; |
---|
50 | my $this_rev = -1; |
---|
51 | my $this_lines = 0; |
---|
52 | my $seen_blank_line; # A blank line separates headers from body. |
---|
53 | |
---|
54 | while (<LOGDATA>) |
---|
55 | { |
---|
56 | if (/^r([0-9]+) \| [^\|]* \| [^\|]* \| ([0-9]+) (line|lines)$/) |
---|
57 | { |
---|
58 | $this_rev = $1; |
---|
59 | $this_lines = $2 + 1; # Compensate for blank line preceding body. |
---|
60 | |
---|
61 | $this_entry_accum .= $_; |
---|
62 | } |
---|
63 | elsif ($this_lines == 0) # Reached end of msg. Looking at log separator? |
---|
64 | { |
---|
65 | if (! ($_ eq $log_separator)) |
---|
66 | { |
---|
67 | die "$0: wrong number of lines for log message!\n${this_entry_accum}\n"; |
---|
68 | } |
---|
69 | |
---|
70 | if ($this_entry_accum =~ /$filter/og ^ $invert) |
---|
71 | { |
---|
72 | print "${this_entry_accum}${log_separator}"; |
---|
73 | } |
---|
74 | |
---|
75 | # Reset accumulators. |
---|
76 | $seen_blank_line = 0; |
---|
77 | $this_entry_accum = ""; |
---|
78 | $this_rev = -1; |
---|
79 | } |
---|
80 | elsif ($this_lines < 0) |
---|
81 | { |
---|
82 | die "$0: line weirdness parsing log.\n"; |
---|
83 | } |
---|
84 | else # Just continue accumulating. |
---|
85 | { |
---|
86 | $this_entry_accum .= $_; |
---|
87 | |
---|
88 | if ($seen_blank_line) |
---|
89 | { |
---|
90 | $this_lines--; |
---|
91 | } |
---|
92 | elsif (/^$/) |
---|
93 | { |
---|
94 | $seen_blank_line = 1; |
---|
95 | $this_lines--; |
---|
96 | } |
---|
97 | } |
---|
98 | } |
---|
99 | |
---|
100 | close(LOGDATA) or |
---|
101 | die "$0: closing `$open_string' failed: $!\n"; |
---|
102 | |
---|
103 | exit 0; |
---|
104 | |
---|
105 | sub usage { |
---|
106 | warn "@_\n" if @_; |
---|
107 | die "usage: $0: [-v] [-i] [-f LOGFILE] REGEXP\n", |
---|
108 | "\n", |
---|
109 | "Print only log messages matching REGEXP, either by running 'svn log'\n", |
---|
110 | "in the current working directory, or if '-f LOGFILE' is passed, then\n", |
---|
111 | "read the log data from LOGFILE (which should be in the same format\n", |
---|
112 | "as the output of 'svn log').\n", |
---|
113 | "\n", |
---|
114 | "If '-v' is given, the matching is inverted (like 'grep -v').\n", |
---|
115 | "\n", |
---|
116 | "If '-i' is given, the matching is case-insensitive (like 'grep -i').\n"; |
---|
117 | } |
---|