From bc6ae86fc9111d252e2dc984f0fb005bf5d825eb Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 5 Aug 2009 02:27:10 +0000
Subject: [PATCH] export negative byte values to chillispot attributes as 0,
 RT#5815

---
 FS/FS/svc_acct.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index 8376d7bd0..d6d132b41 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -1408,6 +1408,7 @@ sub radius_reply {
       my $is = $whatis{$what}.'bytes';
       if ( $self->$is() =~ /\d/ ) {
         my $big = new Math::BigInt $self->$is();
+        $big = new Math::BigInto '0' if $big->is_neg();
         my $att = "Chillispot-Max-\u$what";
         $reply{"$att-Octets"}    = $big->copy->band(0xffffffff)->bstr;
         $reply{"$att-Gigawords"} = $big->copy->brsft(32)->bstr;
-- 
2.20.1