__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
#!/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";
}
| Name | Type | Size | Permission | Actions |
|---|---|---|---|---|
| dump-object-xml.pl | File | 393 B | 0644 |
|
| dump-object.pl | File | 419 B | 0644 |
|
| example-client-async.pl | File | 1.01 KB | 0644 |
|
| example-client-no-introspect.pl | File | 666 B | 0644 |
|
| example-client.pl | File | 894 B | 0644 |
|
| example-proxy-service.pl | File | 1.71 KB | 0644 |
|
| example-service-async.pl | File | 1.27 KB | 0644 |
|
| example-service-magic.pl | File | 1.54 KB | 0644 |
|
| example-service-no-introspect.pl | File | 1014 B | 0644 |
|
| example-service.pl | File | 1.5 KB | 0644 |
|
| example-signal-emitter.pl | File | 949 B | 0644 |
|
| example-signal-receiver.pl | File | 1.16 KB | 0644 |
|
| lshal.pl | File | 643 B | 0644 |
|
| notification.pl | File | 516 B | 0644 |
|
| strict-exports.pl | File | 1.29 KB | 0644 |
|