[ Oops, forgot to include the patch, so here it is...]

A new bug has been introduced in the last patches of the UseExtendedIds
code.
An 'AddToRequest Proxy-State = whatever' will not be functional because in
the 'sendHost()' code all Proxy-State attributes are removed.

So I made a patch wich is more refined, only Proxy-States that are being
used as an ExtendedId are removed. This patch is based on AuthRADIUS.pm
v1.79 of 2003/06/23.

Could you include this patch in the official patchpacket?

groeten van mij... 
Ruud Besseling 
-- 
Product Specialist 
KPN - Internet Operator - Development TI 

tel.:   (070 - 45) 11081 
mail:  [EMAIL PROTECTED]


--- AuthRADIUS.pm       Wed Aug  6 01:27:45 2003
+++ AuthRADIUS-rb.pm    Thu Aug  7 14:31:57 2003
@@ -220,7 +220,8 @@
     
     # Copy the attributes
     $fp->add_attr_list($p);
-    
+    $fp->delete_attr('Proxy-State');                                   # RB 2003-08-07
+
     if ($fp->code eq 'Accounting-Request')
     {
        # Change or set the Acct-Delay. Dont lose delay times from
@@ -851,7 +852,14 @@
     $fp->set_identifier($identifier);
 
     # Never send Proxy-State from the original request or an earlier Host 
trasnmission: 
-    $fp->delete_attr('Proxy-State');
+    #$fp->delete_attr('Proxy-State');                                  # patch RB 
2003-08-07
+
+    $fp->delete_attr_fn(
+       #sub { my ($name, $value, @args) = @_; return (($name eq 'Proxy-State') && 
(substr($value, 0, 15) eq 'OSC-Extended-Id')); },
+       sub { return ((shift eq 'Proxy-State') && (substr(shift, 0, 15) eq 
'OSC-Extended-Id')); },
+       undef
+    );
+                                                                       # end of patch
 
     if ($host->{UseExtendedIds}) 
     {
@@ -902,6 +910,7 @@
             'ServerHasBrokenAddresses' => 
                 $self->{ServerHasBrokenAddresses},
             'IgnoreReplySignature' => $self->{IgnoreReplySignature},
+             'UseExtendedIds' => $self->{UseExtendedIds},              # RB 2003-08-07
             );
        push(@{$self->{Hosts}}, $object) if $object;
     }

Reply via email to