(RADIATOR) AuthBy IMAP problem

[Mike McCauley]

Hello Petr,

Thanks for your note.
There is no problem with the change you have made. It sounds like you have 
made this patch some time in the past, and your upgrade to 3.14 broke it.

We have now added your patches to Radiator, and it is now available in the 
latest 3.14 patch set.

Thank for telling us about this.

Cheers.

On Tuesday 21 February 2006 15:43, Petr Zimak wrote:
> Hi all
>
> I updated to radiator 3.14 and have a problem with <AuthBy IMAP>. It
> does'nt recognize the special formatting characters in the Host (and
> also other) parameters. My config is
>
>
> <Realm /^host((\.subdom)?\.domain\.edu)?$/i>
>    RewriteUsername       s/^([^@]+).*/$1\@host.subdom.domain.edu/
>    AuthBy                mailbox-auth
>    ...
>
>      </Realm>
>
> and
>
> <AuthBy GROUP>
>    Identifier mailbox-auth
>    AuthByPolicy ContinueWhileAccept
>    ...
>    <AuthBy IMAP>
>      Identifier imap-auth
>      Host %R
>      ...
>    </AuthBy>
>    ...
>
>
> </AuthBy>
>
>
> I got an "Invalid parameter" error from the socket creation function.
> It turned out that the PeerHost was empty. In the Radiator distribution,
> the AuthIMAP.pm module calls the Radius::Util::format_special function
> on several parameters, but just with one argument, so that no replacements
> can take place. I changed all calls to format_special to have the packet
> as a second argument, and everything seems to work again (see the diff
> below).
>
> Is there any problen with this change, like security or side effects?
>
> Regards, Petr
>
> --------------------------------------------------------------------
>
> # diff /usr/lib/perl5/site_perl/5.8.6/Radius/AuthIMAP.pm
> /usr/lib/perl5/site_perl/5.8.6/Radius/AuthIMAP.pm.orig 166c166
> <     $args{PeerHost} = &Radius::Util::format_special( $self->{Host}, $p )
> ---
>
>  >     $args{PeerHost} = &Radius::Util::format_special( $self->{Host} )
>
> 168c168
> <     $args{PeerPort} = &Radius::Util::format_special( $self->{Port}, $p )
> ---
>
>  >     $args{PeerPort} = &Radius::Util::format_special( $self->{Port} )
>
> 170c170
> <     $args{LocalAddr} = &Radius::Util::format_special( $self->{LocalAddr},
> $p ) ---
>
>  >     $args{LocalAddr} = &Radius::Util::format_special( $self->{LocalAddr}
>  > )
>
> 177c177
> <         $self->log( $main::LOG_DEBUG, "$class: create IMAP socket (Host
> $args{PeerHost}, Port $args{PeerPort})", $p ); ---
>
>  >         $self->log( $main::LOG_DEBUG, "$class: create IMAP socket", $p
>  > );
>
> 194c194
> <         $args{SSL_ca_file} = &Radius::Util::format_special(
> $self->{SSLCAFile}, $p ) ---
>
>  >         $args{SSL_ca_file} = &Radius::Util::format_special(
>  > $self->{SSLCAFile} )
>
> 196c196
> <         $args{SSL_ca_path} = &Radius::Util::format_special(
> $self->{SSLCAPath}, $p ) ---
>
>  >         $args{SSL_ca_path} = &Radius::Util::format_special(
>  > $self->{SSLCAPath} )
>
> 199c199
> <           &Radius::Util::format_special( $self->{SSLCAClientCert}, $p )
> ---
>
>  >           &Radius::Util::format_special( $self->{SSLCAClientCert} )
>
> 202c202
> <           &Radius::Util::format_special( $self->{SSLCAClientKey}, $p )
> ---
>
>  >           &Radius::Util::format_special( $self->{SSLCAClientKey} )
>
> #
>
> --
> Archive at http://www.open.com.au/archives/radiator/
> Announcements on radiator-announce at open.com.au
> To unsubscribe, email 'majordomo at open.com.au' with
> 'unsubscribe radiator' in the body of the message.

-- 
Mike McCauley                               mikem at open.com.au
Open System Consultants Pty. Ltd            Unix, Perl, Motif, C++, WWW
9 Bulbul Place Currumbin Waters QLD 4223 Australia   http://www.open.com.au
Phone +61 7 5598-7474                       Fax   +61 7 5598-7070

Radiator: the most portable, flexible and configurable RADIUS server 
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald, 
Platypus, Freeside, TACACS+, PAM, external, Active Directory, EAP, TLS, 
TTLS, PEAP etc on Unix, Windows, MacOS, NetWare etc.

--
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.