diff options
| author | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2009-06-02 14:22:15 -0700 |
|---|---|---|
| committer | An-Cheng Huang <ancheng@vyatta.com> | 2009-07-17 14:30:20 -0700 |
| commit | ba60053e94147f401efd298fe1bd4d38cf9f34f7 (patch) | |
| tree | 0a52ff1572e9a8f7d6ff55c5297a719f60721726 /lib/Vyatta/Login/RadiusServer.pm | |
| parent | 6859b8c8e408817161a1723a19396c880ae6e889 (diff) | |
| download | vyatta-cfg-system-ba60053e94147f401efd298fe1bd4d38cf9f34f7.tar.gz vyatta-cfg-system-ba60053e94147f401efd298fe1bd4d38cf9f34f7.zip | |
Change API for login modules
The login modules aren't really objects (if Perl really had objects), so
just use dynamic invoke of update routine.
(cherry picked from commit 37ba59896d4c9ac5c914d1901d86ed7e7d844871)
Diffstat (limited to 'lib/Vyatta/Login/RadiusServer.pm')
| -rw-r--r-- | lib/Vyatta/Login/RadiusServer.pm | 16 |
1 files changed, 1 insertions, 15 deletions
diff --git a/lib/Vyatta/Login/RadiusServer.pm b/lib/Vyatta/Login/RadiusServer.pm index 97ae4eb6..34da8a31 100644 --- a/lib/Vyatta/Login/RadiusServer.pm +++ b/lib/Vyatta/Login/RadiusServer.pm @@ -83,25 +83,11 @@ sub add_radius_servers { return 1; } -sub new { - my $that = shift; - my $class = ref($that) || $that; +sub update { my $rconfig = new Vyatta::Config; $rconfig->setLevel("system login radius-server"); my %servers = $rconfig->listNodeStatus(); - my $self = \%servers; - - bless $self, $class; - - return $self; -} - -sub update { - my $self = shift; - my %servers = %$self; my $server_str = ''; - my $rconfig = new Vyatta::Config; - $rconfig->setLevel('system login radius-server'); if (%servers) { remove_radius_servers(); |