diff -r b1954e2f261c -r a69ac45de2f0 log.pl --- a/log.pl Tue Aug 01 08:06:36 2006 +0000 +++ b/log.pl Tue Aug 01 12:25:50 2006 +0000 @@ -6,10 +6,12 @@ --[no]db insert into log database [$opt_db] --[no]mail send mails to @config::mailto [$opt_mail] --message=s message - if the message looks like a file name (e.g.: - ./text or /tmp/text, the message is read - from this file) - + - if the message looks like a file name (e.g.: + ./text or /tmp/text, the message is read + from this file) + - if message is 'upgrade:' or + 'dist-upgrade:', the file is parsed as apt + output # use strict; @@ -78,7 +80,7 @@ } elsif ($opt_message =~ /^((?:dist-)?upgrade):(.*)/) { open(I, $2) or die "Can't open $2: $!\n"; $opt_message = "$1\n" - . join "", grep /^(?:Inst|Conf|Remv)/, ; + . join "", grep /^(?:\d|Inst|Conf|Remv)/, ; die $opt_message; }