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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
########################################################
# Please file all bug reports, patches, and feature
# requests under:
# https://sourceforge.net/p/logwatch/_list/tickets
# Help requests and discusion can be filed under:
# https://sourceforge.net/p/logwatch/discussion/
########################################################
########################################################
## Copyright (c) 2013-2016 Stefan Jakobs <logwatch@localside.net>
## Covered under the included MIT/X-Consortium License:
## http://www.opensource.org/licenses/mit-license.php
## All modifications and contributions by other persons to
## this script are assumed to have been donated to the
## Logwatch project and thus assume the above copyright
## and licensing terms. If you want to make contributions
## under your own copyright or a different license this
## must be explicitly stated in the contribution an the
## Logwatch project reserves the right to not accept such
## contributions. If you have made significant
## contributions to this script and want to claim
## copyright please contact logwatch-devel@lists.sourceforge.net.
#########################################################
use strict;
my @install;
my @remove;
my @rremove;
my @radd;
my %commands;
my @patch;
my @unknown;
while(my $line=<STDIN>) {
chomp $line;
if ( my ( $do, $pkg, $ver, $arch, $user, $repo, $hash) =
( $line =~ /^\S+ \S+\|(?:(install|remove) ?)\|([^\|\s]+)\|([^\|\s]+)\|([^\|\s]+)\|([^\|\s]+)?(?:\|([^\|\s]+)\|([^\|\s]+))?/ )) {
if ($do eq "remove") {
push @remove, "$pkg $ver";
} elsif ($do eq "install") {
push @install, "$pkg $ver";
}
} elsif ( my ( $do, $repo, $url) = ( $line =~ /^\S+ \S+\|(?:(rremove|radd) {0,3})\|([^\|\s]+)(?:\|([^\|]+))?/) ) {
if ($repo eq "_tmpRPMcache_") {
# ignore
} elsif ($do eq "radd") {
push @radd, "$repo: $url";
} elsif ($do eq "rremove") {
push @rremove, "$repo";
}
} elsif ( my ( $do, $who, $cmd) = ( $line =~ /^\S+ \S+\|(?:(command)\|([^\|\s]+)\|([^\|]+)\|)/ )) {
$cmd =~ tr/'//d;
$commands{$who}{$cmd}++;
} elsif ( my ( $patch ) = ( $line =~ /^\S+ \S+\|patch \|([^\|]*).*\|applied\|/ )) {
push @patch, "$patch";
} else {
push @unknown, $line;
}
}
if (keys %commands) {
print "\nCommands:\n";
foreach my $who (keys %commands) {
print " $who:\n";
foreach my $cmd (keys %{$commands{$who}}) {
printf " %3d: %s\n", $commands{$who}{$cmd}, $cmd;
}
}
}
my @k = ( "Installed" , \@install,
"Removed", \@remove,
"Repository added", \@radd,
"Repository removed", \@rremove,
"Patches applied", \@patch,
"Unknown lines", \@unknown);
while (@k > 0) {
my $text = shift @k;
my $array = shift @k;
if(@$array) {
print "\n$text:\n";
foreach my $line (sort @$array) {
print " $line\n";
}
}
}
# vi: shiftwidth=3 tabstop=3 syntax=perl et
|
