Hey all,
How can I determine from within a perl-based filter whether the message
was received via an authenticated session?
thanks,
-ben
--
Ben Kennedy, chief magician
zygoat creative technical services
613-228-3392 | 1-866-466-4628
http://www.zygoat.ca
Ben Kennedy writes:
Hey all,
How can I determine from within a perl-based filter whether the message
was received via an authenticated session?
You can look at the first Received: header and dig it out from there.
Perl's great for these kinds of things.
pgpeCocVfQJeh.pgp
Description: PGP sign
Sam Varshavchik wrote at 11:26 am (-0400) on Wed 20 Apr 2005:
>You can look at the first Received: header and dig it out from there.
>Perl's great for these kinds of things.
Alright, thanks.
At first assessment it seems that I might collapse the (potentially
multi-line) Received header into a
Ben Kennedy writes:
Sam Varshavchik wrote at 11:26 am (-0400) on Wed 20 Apr 2005:
You can look at the first Received: header and dig it out from there.
Perl's great for these kinds of things.
Alright, thanks.
At first assessment it seems that I might collapse the (potentially
multi-line) Received
Sam Varshavchik wrote at 11:53 am (-0400) on Wed 20 Apr 2005:
>If Courier was able to obtain ident info from the connecting IP address,
>there's going to be an IDENT: before AUTH:
Thanks. Modified to:
'^Received: from .*\s+\(.*\)\s+\((.* )?AUTH\:\ '
What would make this cleaner and funkier wo
Ben Kennedy wrote:
> Modified to:
>
> '^Received: from .*\s+\(.*\)\s+\((.* )?AUTH\:\ '
This is how Courier::Message[1] from Courier::Filter does it:
sub authenticated {
my ($message) = @_;
return $message->{authenticated}
if defined($message->{authenticated});
TRY: {