On Thu, 2015-10-01 at 13:32 +0100, Nick Kew wrote:

> > Header set X-USER "expr=%{REMOTE_USER} =~ s/([^@]*)@.*/$1/"

> But I expect the line of least resistance would be to use
> plain regexp rather than expr.

Come to think of it, using regexp that looks a lot like:

<perl>
  ${REMOTE_USER} =~ s/([^@]*)@.*/$1/;
  %header{X-USER} = $_;
</perl>

I haven't tested the mod_perl syntax, but since it's
bog-standard perl, it's sure to be straightforward.

-- 
Nick Kew

Reply via email to