From eef7c73060f8f22b2acd211dbb37ee7281b96bd0 Mon Sep 17 00:00:00 2001
From: Nigel Kukard <nkukard@lbsd.net>
Date: Tue, 14 Jan 2014 07:04:17 +0000
Subject: [PATCH] Better display of Expires attribute
---
opentrafficshaper/plugins/radius/radius.pm | 14 ++++++++++++--
1 file changed, 12 insertions(+), 2 deletions(-)
diff --git a/opentrafficshaper/plugins/radius/radius.pm b/opentrafficshaper/plugins/radius/radius.pm
index 3986d75..933b09f 100644
--- a/opentrafficshaper/plugins/radius/radius.pm
+++ b/opentrafficshaper/plugins/radius/radius.pm
@@ -430,7 +430,12 @@ sub _session_socket_read
my @txtChanges;
foreach my $item (keys %{$changes}) {
- push(@txtChanges,sprintf("%s = %s",$item,$changes->{$item}));
+ # Make expires look nice
+ my $value = $changes->{$item};
+ if ($item eq "Expires") {
+ $value = sprintf("%s [%s]",$value,scalar(localtime($value)));
+ }
+ push(@txtChanges,sprintf("%s = %s",$item,$value));
}
if (@txtChanges) {
$logger->log(LOG_INFO,"[RADIUS] Pool '%s' updated: %s",$poolName,join(", ",@txtChanges));
@@ -487,7 +492,12 @@ sub _session_socket_read
my @txtChanges;
foreach my $item (keys %{$changes}) {
- push(@txtChanges,sprintf("%s = %s",$item,$changes->{$item}));
+ # Make expires look nice
+ my $value = $changes->{$item};
+ if ($item eq "Expires") {
+ $value = sprintf("%s [%s]",$value,scalar(localtime($value)));
+ }
+ push(@txtChanges,sprintf("%s = %s",$item,$value));
}
if (@txtChanges) {
$logger->log(LOG_INFO,"[RADIUS] Pool '%s' member '%s' updated: %s",
--
GitLab