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
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)
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
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: {
#
