NAME

Convert::TLI - Encoding and decoding of TLI style strings TLI is Transport Layer Interface

subase/interfaces file:

my_server
master tli tcp /dev/tcp 0x0002333337f00001
query tli tcp /dev/tcp 0x0002333337f00001

SYNOPSIS

	use Convert::TLI;
	my $tli = Convert::TLI->new();
	my ($ip, $port) = $tli->decode_tli('0x0002333337f00001');
	print "Server $ip @ $port";
	my $decoded =  $tli->encode_tli($ip,$port);
	print "Got encoded: $decoded";
  

DESCRIPTION

This module provides functions to convert strings to/from the TLI style encoding as described infocenter.sybase.com

FUNCTIONS

• new

  my $encoded = Convert::TLI->new();
  
  Create Convert::TLI object.
  
  Possible options:
  C<prefix> and C<nulls> 
   It will be the prefix and suffix for encripted line only
   
   my $encoded = Convert::TLI->new( prefix=>'XXXX', nulls=>'000' );
   my $decoded =  $tli_decoded->encode_tli($ip,$port);
   print "Got encoded: $decoded";
   XXXX....000

• encode_tli

  my $encoded = encode_tli("192.168.0.1", "3100");

  Encode a string of bytes into its TLI representation.

• decode_tli

  my  ( $ip, $port ) = decode_tli("0x0002333337f00001");

  Decode a TLI string into a string of bytes.

• detect_tli

  my $decoded = ( detect_tli("0x0002333337f00001") ) 
                  ? 'You have TLI style' 
                  : 'Regular IP style';

  Detect is string TLI styled

AUTHOR

Alex Mazur (aka NEONOX) <alex@emuwebmail.com>

COPYRIGHT AND LICENSE

Copyright (C) 2014 by Oleksandr Mazur

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.10.1 or, at your option, any later version of Perl 5 you may have available.