Re: [Ekiga-devel-list] Using Dbus

[Eugen Dedu <Eugen Dedu pu-pm univ-fcomte fr>]

On 26/04/11 21:34, David Woodfall wrote:
> I've been trying to get a perl script to use dbus but I'm having some
> problems. I get the timed out or a no reply errors:
>
> org.freedesktop.DBus.Error.TimedOut: Activation of net.ekiga.instance
> timed out
>
> org.freedesktop.DBus.Error.NoReply: Did not receive a reply. Possible
> causes include: the remote application did not send a reply, the
> message bus security policy blocked the reply, the reply timeout
> expired, or the network connection was broken.
>
> The script is pretty much hacked out of the one in the dbus readme
> supplied with ekiga:
>
> #####################################
>
> #!/usr/bin/perl -w
>
> use strict;
> use Net::DBus;
> use Net::DBus::Reactor;
>
> my $bus = Net::DBus->session
> or die "Can't connect to the session D-Bus";
>
> my $service = $bus->get_service("net.ekiga.instance")
> or die "Can't find the Ekiga instance on the D-Bus";
>
> my $object = Net::DBus::RemoteObject->new($service, '/net/ekiga/instance',
> 'net.ekiga.calls') or die "Can't get the ekiga instance";
>
> $object->connect_to_signal('StateChanged', sub {
> my ($callid, $state) = @_;
> open my $start, '>',
> '/sys/devices/pci0000:00/0000:00:1d.1/usb3/3-2/3-2:1.3/show_icon
>  >/dev/null 2>&1';
> open my $stop, '>',
> '/sys/devices/pci0000:00/0000:00:1d.1/usb3/3-2/3-2:1.3/hide_icon
>  >/dev/null 2>&1';
> print $state;
> if ($state == 4) {
> print $start "RINGTONE";
> } else {
> print $stop "RINGTONE";
> }
> close $start;
> close $stop;
> });
> #############################
>
> Basically it make my phone ring using its ringtone function.
>
> The actual 'instance' service file doesn't exist in Slackware so I
> grabbed one from an RPM. Perhaps recent versions don't use
> it anymore?
>
> Anyway if anyone could help it would great.

I am sorry, but I cannot help right now.  I remember vaguely that using 
ekiga through dbus has some issues though.

--
Eugen