__ __ __ __ _____ _ _ _____ _ _ _ | \/ | \ \ / / | __ \ (_) | | / ____| | | | | | \ / |_ __\ V / | |__) | __ ___ ____ _| |_ ___ | (___ | |__ ___| | | | |\/| | '__|> < | ___/ '__| \ \ / / _` | __/ _ \ \___ \| '_ \ / _ \ | | | | | | |_ / . \ | | | | | |\ V / (_| | || __/ ____) | | | | __/ | | |_| |_|_(_)_/ \_\ |_| |_| |_| \_/ \__,_|\__\___| |_____/|_| |_|\___V 2.1 if you need WebShell for Seo everyday contact me on Telegram Telegram Address : @jackleetFor_More_Tools:
#!/usr/bin/perl
use warnings;
use strict;
use Net::DBus;
use Net::DBus::Dumper;
use Carp qw(confess);
$SIG{__DIE__} = sub {confess $_[0] };
my $bus = Net::DBus->find;
if (int(@ARGV) != 2) {
die "syntax: $0 SERVICE OBJECT";
}
my $service = $bus->get_service(shift @ARGV);
my $object = $service->get_object(shift @ARGV);
my $xml = $object->_introspector->format();
print $xml, "\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 |
|