Hi Christian.

Thanks for the patch. We have applied it for the next release.

Cheers.

On Apr 18,  1:02pm, Christian Hammers wrote:
> Subject: (RADIATOR) patch for getProfiles
> Hello
>
> The problem I reported regarding the cut off in getProfiles has had
> a different cause. (the position 254 was arbitrary):
> Some attributes like the vendor-specifig cisco-avpair attributes requires
> colons in them causing the getProfiles function to fail as it takes
> colons as seperators itself. Here's a working patch:
>
> bye,
>
>  -christian-
>
> --- getProfiles.orig  Tue Apr 18 12:44:38 2000
> +++ getProfiles       Tue Apr 18 12:59:15 2000
> @@ -33,7 +33,6 @@
>        && return);
>
>      my $record;
> -    my ($profile, $identifier, $attributes);
>
>      while (<FILE>)
>      {
> @@ -42,14 +41,14 @@
>          next if /^#/ || /^\s*$/;
>
>       chomp($record = $_);
> -
> -     if(($profile, $identifier, $attributes)
> -         = split(/:/, $record))
> +
> +     # Format: $profile:$identifier:$attributes
> +     # We cannot use split due to ':' in attributes like cisco-avpair
> +     if ($record =~ /^([^:]+):([^:]+):(.*)/)
>       {
>           # add Profile to GlobalVars for use by PostAuthHook
> -         &main::log($main::LOG_DEBUG,
> -             "setVariable |".$profile.$identifier."|,|".$attributes."|");
> -         &main::setVariable($profile.$identifier, $attributes);
> +         &main::log($main::LOG_DEBUG,"setVariable |$1|.|$2|=|$3|");
> +         &main::setVariable($1.$2, $3);
>       }
>      }
>      close(FILE);
>
> --
> Christian Hammers    WESTEND GmbH - Aachen und Dueren     Tel 0241/701333-0
> [EMAIL PROTECTED]     Internet & Security for Professionals    Fax 0241/911879
>
> ===
> Archive at http://www.starport.net/~radiator/
> Announcements on [EMAIL PROTECTED]
> To unsubscribe, email '[EMAIL PROTECTED]' with
> 'unsubscribe radiator' in the body of the message.
>-- End of excerpt from Christian Hammers



-- 
Mike McCauley                               [EMAIL PROTECTED]
Open System Consultants Pty. Ltd            Unix, Perl, Motif, C++, WWW
24 Bateman St Hampton, VIC 3188 Australia   http://www.open.com.au
Phone +61 3 9598-0985                       Fax   +61 3 9598-0955

Radiator: the most portable, flexible and configurable RADIUS server 
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald, 
Platypus, Freeside, TACACS+, PAM, external, etc etc on Unix, Win95/8, 
2000, NT, MacOS X
===
Archive at http://www.starport.net/~radiator/
Announcements on [EMAIL PROTECTED]
To unsubscribe, email '[EMAIL PROTECTED]' with
'unsubscribe radiator' in the body of the message.

Reply via email to