1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
package serverdatadumper;
#: Version: 1.0.0
#: Description: Dumps server data
#: Author: Eduardo M Kalinowski
use Data::Dumper;
$::world->hook('OnServerData', '/serverdatadumper::dump()', { name => 'serverdatadump:dump' });
sub help {
$::world->echonl("Dumps server data received via out-of-band protocols such as GMCP and MSDP.");
$::world->echonl("Just load the plugin and whenever data is received, it will be");
$::world->echonl("displayed (using Data::Dumper).");
}
sub dump {
$::world->echonl("Got server data:");
$::world->echo(Data::Dumper->Dump([\%::server_data], ['%::server_data']));
}
|
