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.
