- my $record = $gi->record_by_addr($ip);
- my @values = map { sprintf $_[0], namify($_[1]), $gi->$_[1] } (
- '%s' => 'country',
- '%s' => 'region',
- '%s' => 'city',
- '%s' => 'postal_code',
- '%.2f' => 'latitude',
- '%s' => 'longitude',
- '%s' => 'time_zone',
- );
- my $command = sprintf('say IP: (%s) Hostname: $hostname %s',
- $ip, $hostname, join(' ', @values),
- );
- Xchat::command($command);
- sub namify {
- return join ' ', map { ucfirst } split /_/, shift;
- }