>>>>> Ivan Shmakov <i...@siamics.net> writes:
>>>>> Trek <tre...@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
