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>

perl v5.32.1                                       2021-12-26                            NetSDS::App::SMTPD(3pm)