|
Packit |
57988d |
# Copyright 2006 by Willi Mann <willi@wm1.at>
|
|
Packit |
57988d |
###########################################################################
|
|
Packit |
57988d |
# $Id$
|
|
Packit |
57988d |
###########################################################################
|
|
Packit |
57988d |
# $Log: dpkg,v $
|
|
Packit |
57988d |
# Revision 1.6 2008/12/08 15:21:28 mike
|
|
Packit |
57988d |
# Patch from Nathan Crawford re-install lines -mgt
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.5 2008/08/18 15:56:52 mike
|
|
Packit |
57988d |
# More ignore options - configure startup trigproc. From Debian Lenny patches -mgt
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.4 2008/06/30 23:07:51 kirk
|
|
Packit |
57988d |
# fixed copyright holders for files where I know who they should be
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.3 2008/03/24 23:31:26 kirk
|
|
Packit |
57988d |
# added copyright/license notice to each script
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.2 2007/02/16 04:15:52 bjorn
|
|
Packit |
57988d |
# Using default license for Logwatch, per Willi Mann.
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
# Revision 1.1 2006/12/15 04:39:22 bjorn
|
|
Packit |
57988d |
# New dpkg scripts, by Willi Mann.
|
|
Packit |
57988d |
#
|
|
Packit |
57988d |
###########################################################################
|
|
Packit |
57988d |
|
|
Packit |
57988d |
########################################################
|
|
Packit |
57988d |
## Copyright (c) 2008 Willi Mann
|
|
Packit |
57988d |
## Covered under the included MIT/X-Consortium License:
|
|
Packit |
57988d |
## http://www.opensource.org/licenses/mit-license.php
|
|
Packit |
57988d |
## All modifications and contributions by other persons to
|
|
Packit |
57988d |
## this script are assumed to have been donated to the
|
|
Packit |
57988d |
## Logwatch project and thus assume the above copyright
|
|
Packit |
57988d |
## and licensing terms. If you want to make contributions
|
|
Packit |
57988d |
## under your own copyright or a different license this
|
|
Packit |
57988d |
## must be explicitly stated in the contribution an the
|
|
Packit |
57988d |
## Logwatch project reserves the right to not accept such
|
|
Packit |
57988d |
## contributions. If you have made significant
|
|
Packit |
57988d |
## contributions to this script and want to claim
|
|
Packit |
57988d |
## copyright please contact logwatch-devel@lists.sourceforge.net.
|
|
Packit |
57988d |
#########################################################
|
|
Packit |
57988d |
|
|
Packit |
57988d |
use strict;
|
|
Packit |
57988d |
|
|
Packit |
57988d |
my @install;
|
|
Packit |
57988d |
my @reinstall;
|
|
Packit |
57988d |
my @upgrade;
|
|
Packit |
57988d |
my @remove;
|
|
Packit |
57988d |
my @purge;
|
|
Packit |
57988d |
my @conffile;
|
|
Packit |
57988d |
|
|
Packit |
57988d |
my @unknown;
|
|
Packit |
57988d |
|
|
Packit |
57988d |
while(my $line=<STDIN>) {
|
|
Packit |
57988d |
chomp $line;
|
|
Packit |
57988d |
if ( my ( $do, $pkg, $ver1, $ver2) = ( $line =~ /^\S+ \S+ (install|upgrade|remove|purge) (\S+) (\S+)(?: (\S+))?/ )) {
|
|
Packit |
57988d |
if(($do eq "remove" or $do eq "purge") and ($ver1 ne $ver2) and ($ver2 !~ /^<\w+>$/ )) {
|
|
Packit |
57988d |
push @unknown, $line;
|
|
Packit |
57988d |
} elsif ($do eq "remove") {
|
|
Packit |
57988d |
push @remove, "$pkg $ver1";
|
|
Packit |
57988d |
} elsif ( $do eq "purge") {
|
|
Packit |
57988d |
push @purge, "$pkg $ver1";
|
|
Packit |
57988d |
} elsif ($ver1 =~ /[<>]/) {
|
|
Packit |
57988d |
push @install, "$pkg $ver2";
|
|
Packit |
57988d |
} elsif ($ver1 eq $ver2) {
|
|
Packit |
57988d |
push @reinstall, "$pkg $ver1";
|
|
Packit |
57988d |
} else {
|
|
Packit |
57988d |
push @upgrade, "$pkg $ver1 => $ver2";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
} elsif ( $line =~ /^\S+ \S+ conffile / ) {
|
|
Packit |
57988d |
my ( $conffilename, $action ) = ( $line =~ /^\S+ \S+ conffile (\S+) (\S+)/ );
|
|
Packit |
57988d |
push @conffile, "$action $conffilename";
|
|
Packit |
57988d |
} elsif ( $line =~ /^\S+ \S+ (status|configure|startup|trigproc) / ) {
|
|
Packit |
57988d |
#ignore
|
|
Packit |
57988d |
} else {
|
|
Packit |
57988d |
push @unknown, $line;
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
my @k = ( "Installed" , \@install,
|
|
Packit |
57988d |
"Reinstalled" , \@reinstall,
|
|
Packit |
57988d |
"Upgraded" , \@upgrade,
|
|
Packit |
57988d |
"Removed", \@remove,
|
|
Packit |
57988d |
"Purged", \@purge,
|
|
Packit |
57988d |
"Configuration files", \@conffile,
|
|
Packit |
57988d |
"Unknown lines", \@unknown);
|
|
Packit |
57988d |
|
|
Packit |
57988d |
while (@k > 0) {
|
|
Packit |
57988d |
my $text = shift @k;
|
|
Packit |
57988d |
my $array = shift @k;
|
|
Packit |
57988d |
if(@$array) {
|
|
Packit |
57988d |
print "\n$text:\n";
|
|
Packit |
57988d |
foreach my $line (sort @$array) {
|
|
Packit |
57988d |
print " $line\n";
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
}
|
|
Packit |
57988d |
|
|
Packit |
57988d |
# vi: shiftwidth=3 tabstop=3 syntax=perl et
|
|
Packit |
57988d |
# Local Variables:
|
|
Packit |
57988d |
# mode: perl
|
|
Packit |
57988d |
# perl-indent-level: 3
|
|
Packit |
57988d |
# indent-tabs-mode: nil
|
|
Packit |
57988d |
# End:
|