From 213defa2dd44f2b70ae0d040e668fc119e7f0ae3 Mon Sep 17 00:00:00 2001
From: Nigel Kukard <nkukard@lbsd.net>
Date: Sun, 1 Mar 2009 09:00:25 +0000
Subject: [PATCH] * Make sure we reply to the NAS that we got the accounting
packet
---
smradiusd | 7 +++++++
1 file changed, 7 insertions(+)
diff --git a/smradiusd b/smradiusd
index b738f728..4cfd6c64 100755
--- a/smradiusd
+++ b/smradiusd
@@ -513,6 +513,13 @@ sub process_request {
}
}
}
+ # Tell the NAS we got its packet
+ my $resp = Radius::Packet->new($self->{'radius'}->{'dictionary'});
+ $resp->set_code('Accounting-Response');
+ $resp->set_identifier($pkt->identifier);
+ $resp->set_authenticator($pkt->authenticator);
+ $udp_packet = auth_resp($resp->pack, "test");
+ $server->{'client'}->send($udp_packet);
# Or maybe a access request
--
GitLab