mail::sendeasy::smtp(3pm) [debian man page]

Mail::SendEasy::SMTP(3pm)				User Contributed Perl Documentation				 Mail::SendEasy::SMTP(3pm)

NAME

       Mail::SendEasy::SMTP - Handles the communication with the SMTP server without dependencies.

DESCRIPTION

       This module will handle the communication with the SMTP server.	It hasn't dependencies and supports authentication.

USAGE

	 use Mail::SendEasy ;

	 $smtp = Mail::SendEasy::SMTP->new( 'domain.foo' , 25 , 120 ) ;

	 if ( !$smtp->auth ) { warn($smtp->last_response_line) ;}

	 if ( $smtp->MAIL("FROM:<$mail{from}>") !~ /^2/ ) { warn($smtp->last_response_line) ;}

	 if ( $smtp->RCPT("TO:<$to>") !~ /^2/ ) { warn($smtp->last_response_line) ;}

	 if ( $smtp->RCPT("TO:<$to>") !~ /^2/ ) { warn($smtp->last_response_line) ;}

	 if ( $smtp->DATA =~ /^3/ ) {
	   $smtp->print("To: foo@foo") ;
	   $smtp->print("Subject: test") ;
	   $smtp->print("
") ;
	   $smtp->print("This is a sample MSG!") ;
	   if ( $smtp->DATAEND !~ /^2/ ) { warn($smtp->last_response_line) ;}
	 }

	 $smtp->close ;

METHODS

   new ($host , $port , $timeout , $user , $pass)
       Create the SMTP object and connects to the server.

   connect
       Connect to the server.

   auth_types
       The authentication types supported by the SMTP server.

   auth($user , $pass)
       Does the authentication.

   print (data)
       Send data to the socket connection.

   cmd (CMD , @MORE)
       Send a command to the server.

   response
       Returns the code response.

       If wantarray returns an ARRAY with the response lines.

   last_response
       Returns an ARRAY with the response lines.

   last_response_msg
       The last response text.

   last_response_line
       The last response line (code and text).

   close
       QUIT and close the connection.

AUTHOR

       Graciliano M. P. <gm@virtuasites.com.br>

COPYRIGHT

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

perl v5.12.4							    2004-04-09						 Mail::SendEasy::SMTP(3pm)

NetSDS::App::SMTPD(3pm) 				User Contributed Perl Documentation				   NetSDS::App::SMTPD(3pm)

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.10.1							    2010-04-28						   NetSDS::App::SMTPD(3pm)