Login or Register to Ask a Question and Join Our Community


Software Releases - RSS News

SSID-based SMTP server changer for Evolution 1.0 (Default branch)

Login to Discuss or Reply to this Discussion in Our Community

 
Thread Tools Search this Thread
Special Forums News, Links, Events and Announcements Software Releases - RSS News SSID-based SMTP server changer for Evolution 1.0 (Default branch)
# 1  
Old 05-03-2008
SSID-based SMTP server changer for Evolution 1.0 (Default branch)
SSID-based SMTP server changer for Evolution is a simple script that uses gconf and NetworkManager (via D-Bus) to check which wireless network (SSID) you are currently connected to, and updates Evolution's accounts list (in gconf) to point to the correct SMTP server for that network. It is useful for when roaming between wireless networks that are connected to different ISPs.Image

More...
Login or Register to Ask a Question

Previous Thread | Next Thread
Login or Register to Ask a Question

LEARN ABOUT DEBIAN

net::smtp::server::relay

Server::Relay(3pm)					User Contributed Perl Documentation					Server::Relay(3pm)

NAME

       Net::SMTP::Server::Relay - A simple relay module for Net::SMTP::Server.

SYNOPSIS

	 use Carp;
	 use Net::SMTP::Server;
	 use Net::SMTP::Server::Client;
	 use Net::SMTP::Server::Relay;

	 $server = new Net::SMTP::Server('localhost', 25) ||
	   croak("Unable to handle client connection: $!
");

	 while($conn = $server->accept()) {
	   # We can perform all sorts of checks here for spammers, ACLs,
	   # and other useful stuff to check on a connection.

	   # Handle the client's connection and spawn off a new parser.
	   # This can/should be a fork() or a new thread,
	   # but for simplicity...
	   my $client = new Net::SMTP::Server::Client($conn) ||
	       croak("Unable to handle client connection: $!
");

	   # Process the client.  This command will block until
	   # the connecting client completes the SMTP transaction.
	   $client->process || next;

	   # In this simple server, we're just relaying everything
	   # to a server.  If a real server were implemented, you
	   # could save email to a file, or perform various other
	   # actions on it here.
	   my $relay = new Net::SMTP::Server::Relay($client->{FROM},
						    $client->{TO},
						    $client->{MSG});
	 }

DESCRIPTION

       The Net::SMTP::Server::Relay module implements simple SMTP relaying for use with the Net::SMTP::Server module.  All this module does is to
       take a given message and iterate through the list of recipients, doing DNS lookups for the associated MX record and delivering the
       messages.  This module makes extensive use of the plethora of other modules already implemented for Perl (specifically the DNS and
       Net::SMTP modules in this case), and should give but a glimpse of the potential for extending the Net::SMTP::Server's functionality to
       provide a full-featured SMTP server, native to Perl.

       The above example illustrates the use of the Net::SMTP::Server::Relay modules -- you simply have to instantiate the module, passing along
       the sender, recipients, and message.  More formally:

	 $relay = new Net::SMTP::Server::Relay($from, @to, $msg);

       Where $from is the sender, @to is an array containing the list of recipients, and $msg is the message to relay.

AUTHOR AND COPYRIGHT Net::SMTP::Server / SMTP::Server is Copyright(C) 1999, MacGyver (aka Habeeb J. Dihu) <macgyver@tos.net>.  ALL RIGHTS
       RESERVED.
       You may distribute this package under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl
       README file.

SEE ALSO

       Net::SMTP::Server::Server, Net::SMTP::Server::Client

perl v5.10.1							    1999-12-28							Server::Relay(3pm)