NAME¶
NetSDS::App::SMTPD
SYNOPSIS¶
use NetSDS::App::SMTPD
Packages¶
NetSDS::App::SMTPD::Socket¶
Needs for work with socket. This module is a parent for NetSDS::App::SMTPD and
NetSDS::App::SMTPD::Client and a child of a NetSDS::APP
ITEMS
- create_socket
- Creating a simple socket which could be transformed into a listening in
NetSDS::App::SMTPD and could be used in NetSDS::App::SMTPD::Client for
accept connection
- can_read
- This method uses for making a timeout before connections to the server: if
there is no connections to accept, program would be just waiting in select
while the connection appeared.
- close_socket
- Close socket
NetSDS::App::SMTPD::Client¶
Provides the smtp protocol bu using Net::Server::Mail::SMTP. Had attributes:
smtp - an object of Net::Server::Mail::SMTP, ip - ip of the remote host,
headers - ref hash with headers of a message, msg - a body of a message.
ITEMS
- set_callback and process
- All that subs do - its only call the methods of a Net::Server::Mail::SMTP
with the same name.
- get_mail
- In this sub we parse message and set headers of the object and message
body. This sub is call as a callback on event DATA
- get_header and get_msg
- Get methods that make you access to a header of a msg and message body.
Example: $client->get_header('FROM') or
$client->get_header('to');
NetSDS::App::SMTPD¶
This module init a smtp-server.
ITEMS
- create_socket
- Init a listening socket by creating a simple socket Super::create_socket
and make it listening.
- data
- Takes - a message that has been received, parses them and prepare the
structure of headers, body for next actions
- accept
- Waiting for an smtp connection and that accept it.
- data
- process
Example¶
#!/usr/bin/env perl
use strict;
use warnings;
Receiver->run(
infinite => 1,
debug => 1,
verbose => 1,
conf_file => '../conf/mts-receiver.conf',
);
1;
package Receiver;
use base 'NetSDS::App::SMTPD';
sub process {
my $self = shift;
my $client = $self->SUPER::process;
#do something with msg;
my $from = $client->get_header('from');
my $msg = $client->get_msg;
.....
return $self;
};
or you could reinit process like this:
sub process {
my $self = shift;
my $client = $self->accept;
return unless $client;
$client->process;
#do something
......
$client->close;
return $self;
};
AUTHOR¶
Yana Kornienko <yana@netstyle.com.ua>