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.