#!/usr/pkg/bin/perl
# (C) 2000 David Leadbeater (http://contact.dgl.cx/)
# cgi-irc comes with ABSOLUTELY NO WARRANTY
# This is free software, and you are welcome to redistribute it
# under certain conditions; read the file COPYING for details

# Decode hex ip addresses as found in CGI:IRC whois (realname) output with the 
# encode ip addresses option turned on

# Now i understand wtf pack and unpack do:
# perl -le'print join ".", unpack "C*",pack "H*", $ARGV[0]'

use strict;
use Socket;
my($input,$output);

if($#ARGV >= $[) {
	$input = shift;
} else {
	print "Type the Hex IP to decode into a normal IP address\n";
	$input=<>;
}

$input =~ s/[^a-z0-9]//gi;

$output = pack "H*", $input;

print "IP: " . join(".", unpack "C*", $output) . "\n";
print "Host: " . scalar gethostbyaddr($output, AF_INET) . "\n";

