app::kgb::client::serverref(3pm) [debian man page]

App::KGB::Client::ServerRef(3pm)			User Contributed Perl Documentation			  App::KGB::Client::ServerRef(3pm)

NAME

       App::KGB::Client::ServerRef - server instance in KGB client

SYNOPSIS

	   use App::KGB::Client::ServerRef;
	   my $s = App::KGB::Client::ServerRef->new(
	       {   uri	    => "http://some.server:port/",
		   password => 's3cr1t',
		   timeout  => 5
	       }
	   );

	   $s->send_changes( $client, $commit, $branch, $module );

DESCRIPTION

       App::KGB::Client::ServerRef is used in App::KGB::Client to refer to remote KGB server instances. It encapsulates sending change sets to the
       remote server, maintaining the SOAP protocol encapsulation and authentication to the remote KGB server.

CONSTRUCTOR

       new The usual constructor. Accepts a hashref of initialiers.

FIELDS

       uri (mandatory)
	   The URI of the remote KGB server. Something like "http://some.host:port/".

       proxy
	   This is the SOAP proxy used to communicate with the server. If omitted, defaults to the value of uri field, with "?session=KGB"
	   appended.

       password (mandatory)
	   Password, to be used for authentication to the remote KGB server.

       timeout
	   Specifies the timeout for the SOAP transaction in seconds. Defaults to 15 seconds.

       verbose
	   Be verbose about communicating with KGB server.

METHODS

       send_changes (message parameters)
	   Transmits the change set and all data about it along with the necessary authentication hash. If error occures, an exception is thrown.

	   Message parameters are passed as arguments in the following order:

	   Client instance (App::KGB::Client)
	   Commit (an instance of App::KGB::Commit)
	   Branch
	   Module

perl v5.12.4							    2011-09-15					  App::KGB::Client::ServerRef(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)