--- a/debian/changelog	Tue Aug 01 08:06:36 2006 +0000
+++ b/debian/changelog	Tue Aug 01 12:25:50 2006 +0000
@@ -1,3 +1,9 @@
+logbuch (0.17-1) stable; urgency=low
+
+  * --help geht jetzt besser
+
+ -- Heiko Schlittermann <hs@schlittermann.de>  Tue, 01 Aug 2006 09:36:13 +0200
+
 logbuch (0.16-1) stable; urgency=low
 
   * new upstream for stable

--- a/debian/control	Tue Aug 01 08:06:36 2006 +0000
+++ b/debian/control	Tue Aug 01 12:25:50 2006 +0000
@@ -6,7 +6,7 @@
 Standards-Version: 3.5.2
 
 Package: logbuch
-Architecture: any
+Architecture: all
 Depends: ${perl:Depends}, libdbi-perl, libdbd-mysql-perl,
     libmailtools-perl
 Description: Logbuch for server maintainance

--- 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;
     }