diff --git a/opentrafficshaper/plugins/radius/radius.pm b/opentrafficshaper/plugins/radius/radius.pm index 3986d752ba8ce313800709d7f1e5df61d87d6e2b..933b09f15a14611e91a54e8d53a3986ef13c7be7 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",