show last Calling-Station-Id on RADIUS summary, RT#29154

[freeside.git] / httemplate / view / elements / svc_radius_usage.html

diff --git a/httemplate/view/elements/svc_radius_usage.html b/httemplate/view/elements/svc_radius_usage.html
index 1d58ef6..08d6d53 100644 (file)
--- a/httemplate/view/elements/svc_radius_usage.html
+++ b/httemplate/view/elements/svc_radius_usage.html
@@ -25,6 +25,11 @@
 %  my $output = $svc->attribute_since_sqlradacct(
 %    $last_bill, time, 'AcctOutputOctets'
 %  ) / 1048576;
+%
+%  my $last_mac = $svc->attribute_last_sqlradacct( 'CallingStationId' );
+%  if ( $last_mac =~ /^\s*(([\dA-F]{2}[\-:]){5}[\dA-F]{2})/i ) {
+%    $last_mac .= ' ('. (Net::MAC::Vendor::lookup($1))->[0]. ')';
+%  }
 
 
   RADIUS session information<BR>
@@ -57,6 +62,9 @@
 % if ( $svc->table eq 'svc_acct' ) {
     Last Login: <B><% $svc->last_login_text %></B><BR>
 % }
+% if ( length($last_mac) ) {
+    Last Source or MAC: <B><% $last_mac %></B><BR>
+% }
 % my $href = qq!<A HREF="${p}search/sqlradius.cgi?svcnum=!. $svc->svcnum; 
 
   View session detail: