From a4e19c976c558114ad1609eb33b0fdb622be3a7c Mon Sep 17 00:00:00 2001
From: Durand Fabrice <oeufdure@gmail.com>
Date: Tue, 15 Oct 2024 17:11:11 -0400
Subject: [PATCH] Format the acl name to be compliant with what the Cisco
 switch expect.

---
 lib/pf/Switch/Cisco/Cisco_IOS_15_5.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/pf/Switch/Cisco/Cisco_IOS_15_5.pm b/lib/pf/Switch/Cisco/Cisco_IOS_15_5.pm
index 6529338b2f91..372bba2e7526 100644
--- a/lib/pf/Switch/Cisco/Cisco_IOS_15_5.pm
+++ b/lib/pf/Switch/Cisco/Cisco_IOS_15_5.pm
@@ -170,7 +170,7 @@ sub returnRadiusAccessAccept {
                     my @acl = split("\n", $access_list);
                     $args->{'acl'} = \@acl;
                     $args->{'acl_num'} = '101';
-                    push(@av_pairs, "subscriber:service-name=$mac-".$self->setRadiusSession($args));
+                    push(@av_pairs, "subscriber:service-name=".$args->{'user_role'}."-".$self->setRadiusSession($args));
                 } else {
                     my $acl_num = 101;
                     while($access_list =~ /([^\n]+)\n?/g){
@@ -213,7 +213,7 @@ sub returnRadiusAdvanced {
     my ($self, $args, $options) = @_;
     my $logger = $self->logger;
     my $status = $RADIUS::RLM_MODULE_OK;
-    my ($mac, $session_id) = split('-', $args->{'user_name'});
+    my ($role, $session_id) = split('-', $args->{'user_name'});
     my $radius_reply_ref = ();
     my @av_pairs;
     $radius_reply_ref->{'control:Proxy-To-Realm'} = 'LOCAL';