1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
#!/usr/bin/perl
package Ping;
use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtDBus4;
use QtCore4::isa qw( Qt::Object );
use QtCore4::slots
start => ['const QString&', 'const QString&', 'const QString&'];
use PingCommon qw( SERVICE_NAME );
sub NEW {
shift->SUPER::NEW( @_ );
}
sub iface() {
return this->{iface};
}
my $foo = 0;
sub start {
my ($name, $oldValue, $newValue) = @_;
if ($name ne SERVICE_NAME || !$newValue) {
return;
}
# find our remote
this->{iface} = Qt::DBusInterface(SERVICE_NAME, '/', 'com.trolltech.QtDBus.ComplexPong.Pong',
Qt::DBusConnection::sessionBus(), this);
if (!this->iface->isValid()) {
printf STDERR "%s\n",
Qt::DBusConnection::sessionBus()->lastError()->message();
Qt::Application::instance()->quit();
}
this->connect(this->iface, SIGNAL 'aboutToQuit()', Qt::Application::instance(), SLOT 'quit()');
while (1) {
printf 'Ask your question: ';
chop( my $line = <STDIN> );
if (!$line) {
this->iface->call('quit');
return;
} elsif ($line eq 'value') {
my $reply = Qt::Variant( this->iface->value() );
if ($reply) {
printf "value = %s\n", $reply->toString();
}
} elsif ($line =~ m/^value=/) {
my $property = $line =~ s/^value=//;
this->iface->setValue( Qt::Variant($property) );
} else {
my $reply = Qt::DBusReply( this->iface->call( 'query', Qt::Variant(Qt::String($line))) );
if ($reply->isValid()) {
printf "Reply was: %s\n", $reply->value()->value();
}
}
if (this->iface->lastError()->isValid()) {
printf STDERR "Call failed: %s\n", this->iface->lastError()->message();
}
}
}
1;
package main;
use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtDBus4;
use Ping;
sub main {
my $app = Qt::Application(\@ARGV);
if (!Qt::DBusConnection::sessionBus()->isConnected()) {
printf STDERR "Cannot connect to the D-Bus session bus.\n" .
"To start it, run:\n" .
"\teval `dbus-launch --auto-syntax`\n";
exit 1;
}
my $ping = Ping();
$ping->connect(Qt::DBusConnection::sessionBus()->interface(),
SIGNAL 'serviceOwnerChanged(QString,QString,QString)',
SLOT 'start(QString,QString,QString)');
my $pong = Qt::Process();
$pong->start('./complexpong.pl');
exit $app->exec();
}
main();
|
