NAME
    FTN::Address - Process FTN addresses

SYNOPSIS
     my $addr = new FTN::Address('2:464/4077');

     my $address4D = $addr->get();     # 2:464/4077.0

     my $address5D = $addr->getfull(); # 2:464/4077.0@fidonet

     my $fqdn = $addr->fqdn();         # f4077.n464.z2.fidonet.net

     my $addr = empty FTN::Address();

     $addr->assign('2:464/4077');

     my $address4D = $addr->get();     # 2:464/4077.0

DESCRIPTION
    FTN::Address

METHODS
  new
    This method creates FTN::Address object. Takes FTN address as argument.
    Address can be feed in three addressing variants:

    3D, ex.: new FTN::Address '2:464/0' 4D, ex.: new FTN::Address
    '2:464/4077.1' 5D, ex.: new FTN::Address '2:464/357.0@fidonet'

    Default domain for 3D and 4D address is 'fidonet'

  empty
    This method creates empty FTN::Address object. You cannot use it before
    assigning a new value.

    Takes no parameters.

  assign( $address )
    This method assign new address to FTN::Address object.

    Takes FTN address as argument (like 'new' method).

  get()
    This method returns qualified 4D address.

    Takes no parameters.

  getfull()
    This method returns qualified 5D address.

    Takes no parameters.

  fqdn( [ $root_domain [, $level ] ] );
    This method returns fully qualified domain name, as described in
    FSP-1026 Fidonet Technical Standards Comittee document. See this
    document for details.

    Valid values for level are "0, 1, 2, 3, 4, DOM, DO1, DO2, DO3, DO4"
    Parameters can be omitted, default values will be used. Default root
    domain is 'net', default level is '0'.

    Examples:

     my $addr = new FTN::Address('2:464/4077');
 
     print $addr->fqdn();                    # f4077.n464.z2.fidonet.net
 
     print $addr->fqdn('org');               # f4077.n464.z2.fidonet.org
 
     print $addr->fqdn('railways.dp.ua', 2); # f4077.n464.railways.dp.ua

AUTHORS
    Serguei Trouchelle <stro@railways.dp.ua>

COPYRIGHT
    Copyright (c) 2005-2006 Serguei Trouchelle. All rights reserved.

    This program is free software; you can redistribute it and/or modify it
    under the same terms as Perl itself.