Use current xlats and syntax

diff --git a/raddb/sites-available/coa-relay b/raddb/sites-available/coa-relay
index 0f2f1e7810d4c3e173cb24537a8922eb34a80147..90fe184b71dde34ded4ebc3160483b425b4ac7d3 100644 (file)
--- a/raddb/sites-available/coa-relay
+++ b/raddb/sites-available/coa-relay
@@ -149,16 +149,16 @@ server coa {
                #
                if ("%str.split(control.user-session, '|')") {
 
-                       foreach control.user-session {
+                       foreach session (control.user-session) {
                                #
                                #  Send an update for each session we find.
                                #
-                               if ("%{Foreach-Variable-0}" =~ /([^#]*)#(.*)/) {
+                               if (session =~ /([^#]*)#(.*)/) {
                                        #  NAS-IP-Address
-                                       control.NAS-IP-Address := "%{1}"
+                                       control.NAS-IP-Address := %regex.match(1)
 
                                        #  Acct-Session-Id
-                                       control.Acct-Session-Id := "%{2}"
+                                       control.Acct-Session-Id := %regex.match(2)
 
                                        subrequest ::CoA-Request {
                                                #
@@ -175,7 +175,7 @@ server coa {
                                                #
                                                #  Some NASs want these, others don't
                                                #
-                                               request.Event-Timestamp := "%l"
+                                               request.Event-Timestamp := %time.request()
                                                request.Message-Authenticator := 0x00
 
                                                #