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
|
=begin
**
** Copyright (C) 2004-2006 Trolltech AS. All rights reserved.
**
** This file is part of the example classes of the Qt Toolkit.
**
** This file may be used under the terms of the GNU General Public
** License version 2.0 as published by the Free Software Foundation
** and appearing in the file LICENSE.GPL included in the packaging of
** this file. Please review the following information to ensure GNU
** General Public Licensing requirements will be met:
** http://www.trolltech.com/products/qt/opensource.html
**
** If you are unsure which license is appropriate for your use, please
** review the following information:
** http://www.trolltech.com/products/qt/licensing.html or contact the
** sales department at sales@trolltech.com.
**
** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE
** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
**
** Translated to QtRuby by Richard Dale
=end
require 'Qt'
require 'ping-common.rb'
app = Qt::CoreApplication.new(ARGV)
if !Qt::DBusConnection.sessionBus.connected?
$stderr.puts("Cannot connect to the D-BUS session bus.\n" \
"To start it, run:\n" \
"\teval `dbus-launch --auto-syntax`\n")
exit(1)
end
iface = Qt::DBusInterface.new(SERVICE_NAME, "/", "", Qt::DBusConnection.sessionBus)
if iface.valid?
message = iface.call("ping", ARGV.length > 0 ? ARGV[0] : "")
reply = Qt::DBusReply.new(message)
if reply.valid?
puts("Reply was: %s\n" % reply.value)
exit(0)
end
$stderr.puts("Call failed: %s\n" % reply.error.message)
exit(1)
end
$stderr.puts("%s\n" % Qt::DBusConnection.sessionBus.lastError.message)
exit(1)
|
