[Mimedefang] Simple feature request

[Jan Pieter Cornet]

On Mon, Sep 13, 2004 at 05:42:30PM -0400, Michael Faurot wrote:
> This really is a simple one. :)
> 
> For one of the mail gateways I administer, it does relaying for another
> server that can't be connected to via the normal SMTP port 25/TCP.
> Instead that server is contacted via an alternate TCP port.  To
> insure only legimate recipients get relayed to this remote server I made
> a copy of the function md_check_against_smtp_server() from mimedefang.pl
> and called it my_check_against_smtp_server().  To make this work, I set it up
> to accept an addtional argument for port number and then changed the call
> to IO::Socket::INET->new to use that new argument/variable.
> 
> Could the capability to optionally specify a port number in
> md_check_against_smtp_server() be included in a future version of
> MIMEDefang?

Well, in a way, that functionality is already present, but it's
undocumented. You can add a portnumber to the server spec, by
adding a colon and a portnumber to the servername.

This, however, depends on an undocumented feature of IO::Socket::INET,
so it might disappear ;)

-- 
#!perl -wpl # mmfppfmpmmpp mmpffm <pmmppfmfpppppfmmmf at fpffmm4mmmpmfpmf.ppppmf>
$p=3-2*/[^\W\dmpf_]/i;s.[a-z]{$p}.vec($f=join('',$p-1?chr(sub{$_[0]*9+$_[1]*3+
$_[2]}->(map{/p|f/i+/f/i}split//,$&)+97):qw(m p f)[map{((ord$&)%32-1)/$_%3}(9,
3,1)]),5,1)='`'lt$&;$f.eig;                                # Jan-Pieter Cornet