One Hat Cyber Team

Your IP: 216.73.216.1
Server IP: 185.238.29.86
Server: Linux server2 6.8.12-6-pve #1 SMP PREEMPT_DYNAMIC PMX 6.8.12-6 (2024-12-19T19:05Z) x86_64
Server Software: nginx/1.18.0
PHP Version: 8.1.31
Buat File | Buat Folder

Dir : ~/usr/share/doc/libnet-dbus-perl/examples/

View File Name : lshal.pl

#!/usr/bin/perl -w

use strict;
use Net::DBus;

my $bus = Net::DBus->system;

# Get a handle to the HAL service
my $hal = $bus->get_service("org.freedesktop.Hal");

# Get the device manager
my $manager = $hal->get_object("/org/freedesktop/Hal/Manager", "org.freedesktop.Hal.Manager");

print "Warning. There may be a slight pause while this next\n";
print "method times out, if your version of HAL still just\n";
print "silently ignores unsupported method calls, rather than\n";
print "returning an error. The timeout is ~60 seconds\n";

# List devices
foreach my $dev (sort { $a cmp $b } @{$manager->GetAllDevices}) {
    print $dev, "\n";
}