Newer
Older
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
#!/usr/bin/env perl
my $mode = "NONE";
my @modified, @added, @removed;
while($line = <>) {
if ($line =~ /Modified Files:/) {
$mode = "MODIFIED";
next;
}
if ($line =~ /Added Files:/) {
$mode = "ADDED";
next;
}
if ($line =~ /Removed Files:/) {
$mode = "REMOVED";
next;
}
if ($mode eq "NONE") { next; }
if ($line =~ /-------/) { next; }
chop($line);
$line =~ s/^CVS:\s+//;
$line =~ s/\s+$//;
# print "processing $line for $mode\n";
@files = split(/ /, $line);
# print "new files for $mode: ", join(', ', @files), "\n";
if ($mode eq "MODIFIED") {
push(@modified, @files);
} elsif ($mode eq "ADDED") {
push(@added, @files);
} elsif ($mode eq "REMOVED") {
push(@removed, @files);
} else {
die "Unknown mode $mode!";
}
}
print join(' ', @modified);
if ($ENV{"SHOW_ALL_FILES"} ne "no") {
print ' ', join(' ', @added), ' ', join(' ', @removed);
}
print "\n";