diff options
author | Ivan Kohler <ivan@freeside.biz> | 2016-03-21 18:00:36 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2016-03-21 18:00:36 -0700 |
commit | 1e70119f22c91c80c1a9aff7bd1d2b37fd5c7ff2 (patch) | |
tree | 26a4905990760f6681077ca793da26d4f688e9f0 /FS/FS/svc_IP_Mixin.pm | |
parent | fd75ab8b129eea8d69f90b4e50288fa0950447a2 (diff) |
set Motorola-Canopy-Gateway, RT#41261
Diffstat (limited to 'FS/FS/svc_IP_Mixin.pm')
-rw-r--r-- | FS/FS/svc_IP_Mixin.pm | 19 |
1 files changed, 11 insertions, 8 deletions
diff --git a/FS/FS/svc_IP_Mixin.pm b/FS/FS/svc_IP_Mixin.pm index 5b06082..c0f202e 100644 --- a/FS/FS/svc_IP_Mixin.pm +++ b/FS/FS/svc_IP_Mixin.pm @@ -1,9 +1,10 @@ package FS::svc_IP_Mixin; +use base 'FS::IP_Mixin'; use strict; -use base 'FS::IP_Mixin'; -use FS::Record qw(qsearchs qsearch); use NEXT; +use FS::Record qw(qsearchs qsearch); +use FS::Conf; =item addr_block @@ -183,16 +184,18 @@ means "Framed-Route" if there's an attached router. sub radius_reply { my $self = shift; - my %reply; - my ($block) = $self->attached_block; - if ( $block ) { + my %reply = (); + if ( my $block = $self->attached_block ) { # block routed over dynamic IP: "192.168.100.0/29 0.0.0.0 1" # or # block routed over fixed IP: "192.168.100.0/29 192.168.100.1 1" # (the "1" at the end is the route metric) - $reply{'Framed-Route'} = - $block->cidr . ' ' . - ($self->ip_addr || '0.0.0.0') . ' 1'; + $reply{'Framed-Route'} = $block->cidr . ' ' . + ($self->ip_addr || '0.0.0.0') . ' 1'; + + $reply{'Motorola-Canopy-Gateway'} = $block->ip_gateway + if FS::Conf->new->exists('radius-canopy'); + } %reply; } |