NAME

FTN::Crypt::Nodelist - Nodelist processing for the FTN::Crypt module.

SYNOPSIS

use FTN::Crypt::Nodelist;

my $obj = FTN::Crypt::Nodelist->new(
    Nodelist => 'NODELIST.*',
    Pointlist => [
        'pointlist_1.*',
        'pointlist_2',
    ],
    Username => 'user', # optional, defaults to 'sysop'
);
my ($addr, $method) = $obj->get_email_addr('99:8877/1');

METHODS

new()

Constructor.

Parameters:

  • Nodelist: Path to nodelist file(s), either scalar or arrayref. If contains wildcard, file with maximum number in digital extension will be selected.

  • Optional Pointlist: Path to pointlist file(s), either scalar or arrayref. If contains wildcard, file with maximum number in digital extension will be selected.

  • Optional Username: Username part in email address, which corresponds to the FTN one, defaults to 'sysop'.

Returns:

Created object or error in FTN::Crypt::Nodelist->error.

Sample:

my $obj = FTN::Crypt::Nodelist->new(
    Nodelist => 'NODELIST.*',
    Pointlist => [
        'pointlist_1.*',
        'pointlist_2',
    ],
    Username => 'user', # optional, defaults to 'sysop'
);

get_email_addr()

If recipient supports PGP encryption, get recipient's email address and encryption method.

Parameters:

  • Recipient's FTN address.

Returns:

Recipient's email address and encryption method or error in $obj->error.

Sample:

my ($addr, $method) = $obj->get_email_addr('99:8877/1') or die $obj->error;

AUTHOR

Petr Antonov, <pietro@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2019 by Petr Antonov

This library is free software; you can redistribute it and/or modify it under the same terms as Perl 5.10.0. For more details, see the full text of the licenses at https://opensource.org/licenses/Artistic-1.0, and http://www.gnu.org/licenses/gpl-2.0.html.

This package is provided "as is" and without any express or implied warranties, including, without limitation, the implied warranties of merchantability and fitness for a particular purpose.