Bug#868453: xorg log flooded by dbus messages

[Ivan Shmakov <ivan@siamics.net>]

>>>>> Ivan Shmakov <ivan@siamics.net> writes:
>>>>> Trek <trek00@inbox.ru> writes:

 >> Version: 2:1.16.4-1+deb8u1+b1

 >> with the latest update, the dbus dependency is gone and the error
 >> message is no more printed to the log

 > I’m observing the same issue on Stretch (2:1.19.2-1+deb9u1.)

[…]

	Any progress on this one?

	(I guess it’s the same bug as [1], reported over a year ago.)

[1] https://bugs.launchpad.net/ubuntu/+source/xorg-server/+bug/1562610
    Bug #1562610 “/var/log/Xorg.0.log gets flooded with “(EE) dbus-…” 

	Curiously, while the Debian changelog indicates that
	libdbus-1-dev became a build dependency back in 2:1.3.99.0-1
	(2007), I don’t recall ever observing this specific issue.

	Sure, it’s only 191 octets every 10 seconds, but in a month,
	that easily becomes over 40 MiB:

-rw-r--r-- 1 root root 44581359 Oct  3 13:33 /var/log/Xorg.1.0.log 
14757  4672 tty11    Ssl+ 355988 32540 Wed Sep  6 10:20:46 2017 /usr/lib/xorg…

	As a workaround, I was able to use the simplistic Perl server
	MIMEd that accepts connections on the socket, receives a single
	“message,” and closes the connection.  As it seems, it’s enough
	for the library to consider it a “success” and stop complaining.

-- 
FSF associate member #7257  http://am-1.org/~ivan/    7D17 4A59 6A21 3D97 6DDB

#!/usr/bin/perl
### nodbus.perl  -*- Perl -*-
## Listen on the D-Bus socket; accept, discard, and close.

### Ivan Shmakov, 2017

## To the extent possible under law, the author(s) have dedicated
## all copyright and related and neighboring rights to this software
## to the public domain worldwide.  This software is distributed
## without any warranty.

## You should have received a copy of the CC0 Public Domain Dedication
## along with this software.  If not, see
## <http://creativecommons.org/publicdomain/zero/1.0/>.

### Code:

use common::sense;
use English qw (-no_match_vars);

require Socket;

my $socket_filename
    = ($ARGV[0] // "/run/dbus/system_bus_socket");
socket (SERVER, &Socket::AF_UNIX, &Socket::SOCK_STREAM, &Socket::PF_UNSPEC)
    and bind (SERVER, Socket::sockaddr_un ($socket_filename))
    or die ("Server: ", $!);

listen (SERVER, 5)
    or die ("listen: ", $!);

$SIG{"CHLD"}
    = "IGNORE";

while (accept (CLIENT, SERVER)) {
    my $pid
	= fork ();
    die ("fork: ", $!)
	unless (defined ($pid));
    if ($pid == 0) {
	binmode (CLIENT);

	my $s;
	recv (CLIENT, $s, 65536, 0)
	    or die ("recv: ", $!);

	exit (0);
    }

    close (CLIENT);
}

### nodbus.perl ends here