--- 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:<FILE>' or
+		  'dist-upgrade:<FILE>', 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)/, <I>;
+	    . join "", grep /^(?:\d|Inst|Conf|Remv)/, <I>;
 
 	die $opt_message;
     }