Commit | Line | Data |
23b3bd7f |
1 | #!/usr/bin/perl -w |
808270a4 |
2 | # |
3 | # Generate a nice changelist by querying perforce. |
4 | # |
5 | # Each change is described with the change number, description, |
6 | # which branch the change happened in, files modified, |
7 | # and who was responsible for entering the change. |
8 | # |
9 | # Can be called with a list of change numbers or a range of the |
10 | # form "12..42". Changelog will be printed from highest number |
11 | # to lowest. |
12 | # |
13 | # Outputs the changelist to stdout. |
14 | # |
6e238990 |
15 | # Gurusamy Sarathy <gsar@activestate.com> |
808270a4 |
16 | # |
17 | |
18 | use Text::Wrap; |
18075169 |
19 | use Text::Tabs; |
808270a4 |
20 | |
21 | $0 =~ s|^.*/||; |
22 | unless (@ARGV) { |
23 | die <<USAGE; |
2ebe8b91 |
24 | $0 [-p \$P4PORT] [-bi branch_include] [-be branch_exclude] <change numbers or from..to> |
808270a4 |
25 | USAGE |
26 | } |
27 | |
28 | my @changes; |
29 | |
30 | my %editkind; |
31 | @editkind{ qw( add edit delete integrate branch )} |
32 | = qw( + ! - !> +> ); |
33 | |
34 | my $p4port = $ENV{P4PORT} || 'localhost:1666'; |
35 | |
2ebe8b91 |
36 | my @branch_include; |
37 | my @branch_exclude; |
38 | my %branch_include; |
39 | my %branch_exclude; |
40 | |
808270a4 |
41 | while (@ARGV) { |
42 | $_ = shift; |
18a48444 |
43 | if (/^(\d+)\.\.(\d+)?$/) { |
44 | push @changes, $1 .. ($2 || (split(' ', `p4 changes -m 1`))[1]); |
808270a4 |
45 | } |
46 | elsif (/^\d+$/) { |
47 | push @changes, $_; |
48 | } |
49 | elsif (/^-p(.*)$/) { |
50 | $p4port = $1 || shift; |
51 | } |
2ebe8b91 |
52 | elsif (/^-bi(.*)$/) { |
53 | push @branch_include, $1 || shift; |
54 | } |
55 | elsif (/^-be(.*)$/) { |
56 | push @branch_exclude, $1 || shift; |
57 | } |
808270a4 |
58 | else { |
59 | warn "Arguments must be change numbers, ignoring `$_'\n"; |
60 | } |
61 | } |
62 | |
63 | @changes = sort { $b <=> $a } @changes; |
64 | |
2ebe8b91 |
65 | @branch_include{@branch_include} = @branch_include if @branch_include; |
66 | @branch_exclude{@branch_exclude} = @branch_exclude if @branch_exclude; |
67 | |
808270a4 |
68 | my @desc = `p4 -p $p4port describe -s @changes`; |
69 | if ($?) { |
70 | die "$0: `p4 -p $p4port describe -s @changes` failed, status[$?]\n"; |
71 | } |
72 | else { |
77ebfeac |
73 | tr/\r/\n/ foreach @desc; |
808270a4 |
74 | chomp @desc; |
75 | while (@desc) { |
76 | my ($change,$who,$date,$time,@log,$branch,$file,$type,%files); |
2ebe8b91 |
77 | my $skip = 0; |
0b3b9d72 |
78 | my $nbranch = 0; |
808270a4 |
79 | $_ = shift @desc; |
80 | if (/^Change (\d+) by (\w+)\@.+ on (\S+) (\S+)\s*$/) { |
81 | ($change, $who, $date, $time) = ($1,$2,$3,$4); |
82 | $_ = shift @desc; # get rid of empty line |
83 | while (@desc) { |
84 | $_ = shift @desc; |
85 | last if /^Affected/; |
86 | push @log, $_; |
87 | } |
88 | if (/^Affected/) { |
89 | $_ = shift @desc; # get rid of empty line |
90 | while ($_ = shift @desc) { |
91 | last unless /^\.\.\./; |
92 | if (m{^\.\.\. //depot/(.*?perl|[^/]*)/([^#]+)#\d+ (\w+)\s*$}) { |
93 | ($branch,$file,$type) = ($1,$2,$3); |
0b3b9d72 |
94 | $nbranch++; |
2ebe8b91 |
95 | if (exists $branch_exclude{$branch} or |
96 | @branch_include and |
97 | not exists $branch_include{$branch}) { |
98 | $skip++; |
99 | } |
808270a4 |
100 | $files{$branch} = {} unless exists $files{$branch}; |
101 | $files{$branch}{$type} = [] unless exists $files{$branch}{$type}; |
102 | push @{$files{$branch}{$type}}, $file; |
103 | } |
104 | else { |
105 | warn "Unknown line [$_], ignoring\n"; |
106 | } |
107 | } |
108 | } |
109 | } |
18a48444 |
110 | next if ((not $change) or $skip); |
18075169 |
111 | my $output = ("_" x 76) . "\n"; |
112 | $output .= sprintf <<EOT, $change, $who, $date, $time; |
808270a4 |
113 | [%6s] By: %-25s on %9s %9s |
114 | EOT |
18075169 |
115 | $output .= " Log: "; |
808270a4 |
116 | my $i = 0; |
117 | while (@log) { |
118 | $_ = shift @log; |
119 | s/^\s*//; |
120 | s/^\[.*\]\s*// unless $i ; |
121 | # don't print last empty line |
122 | if ($_ or @log) { |
18075169 |
123 | $output .= " " if $i++; |
124 | $output .= "$_\n"; |
808270a4 |
125 | } |
126 | } |
127 | for my $branch (sort keys %files) { |
18075169 |
128 | $output .= sprintf "%11s: $branch\n", 'Branch'; |
808270a4 |
129 | for my $kind (sort keys %{$files{$branch}}) { |
130 | warn("### $kind ###\n"), next unless exists $editkind{$kind}; |
131 | my $files = $files{$branch}{$kind}; |
132 | # don't show large branches and integrations |
133 | $files = ["($kind " . scalar(@$files) . ' files)'] |
6abf89b4 |
134 | if (@$files > 25 && ($kind eq 'integrate' |
135 | || $kind eq 'branch')) |
136 | || @$files > 100; |
18075169 |
137 | $output .= wrap(sprintf("%12s ", $editkind{$kind}), |
138 | sprintf("%12s ", $editkind{$kind}), |
139 | "@$files\n"); |
808270a4 |
140 | } |
141 | } |
18075169 |
142 | print unexpand($output); |
808270a4 |
143 | } |
144 | } |