2 # hex2ip.pl: Convert hex gateway idents to an IP (eg:ABCDEF12)
3 # Author: Dan McGrath <djmcgrath@users.sourceforget.net>
4 # Licensing: Artistic License (as perl itself)
7 # Copyright (c) 2007 Dan McGrath
18 &::VERB("hex2ip: Converting Hex address $hexstr to IP");
20 if ( $hexstr =~ /^([a-fA-F0-9]{2}){4}$/ ) {
22 $hexstr =~ /(..)(..)(..)(..)/;
29 $result = uc "$hexstr = " . join( ".", @conv );
32 $result = "Invalid string: $hexstr";
39 &::performStrictReply( &convert(@_) );
45 # vim:ts=4:sw=4:expandtab:tw=80