(RADIATOR) patch for getProfiles

['Tunde Ogedengbe]

Mike/Hugh:

I have a profile file with each attribute of the profile having a minimum of
150 characters.  I have observed that only the first profile works
successfully.  Other reply attributes for profiles after the next one do not
attach to user connections.  We are using ver 2.18.  Is there anything you
can do for us?



'Tunde Ogedengbe
Linkserve Limited
22 Akin Adesola Street
Victoria Island
Lagos - Nigeria
Tel: +234 1 2623900
Fax: +234 1 2623906
URL: http://www.linkserve.net
----- Original Message -----
From: "Mike McCauley" <mikem at open.com.au>
To: "Christian Hammers" <ch at westend.com>; <radiator at open.com.au>
Sent: Wednesday, April 19, 2000 3:10 PM
Subject: Re: (RADIATOR) patch for getProfiles


> 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
> > ch at westend.com     Internet & Security for Professionals    Fax
0241/911879
> >
> > ===
> > Archive at http://www.starport.net/~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.
> >-- End of excerpt from Christian Hammers
>
>
>
> --
> Mike McCauley                               mikem at open.com.au
> 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 radiator-announce at open.com.au
> To unsubscribe, email 'majordomo at open.com.au' with
> 'unsubscribe radiator' in the body of the message.
>

===
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.