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-xml.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 (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";
Simpan