(RADIATOR) SNMP checking for Colubris Wi-fi NAS

[Mike McCauley]

Hello Vangelis,

Thank you for your contribution!
We have added it for the next release, and it is also in the latest patches 
now.
We took the liberty of some very minor cleaning up.
Thanks again.

Cheers.

On Wednesday 06 April 2005 00:12, Vangelis Kyriakakis wrote:
> Hello,
>
>   Here is a routine for SNMP checking for Colubris Wi-fi NASes. Tested
> with Colubris CN3200.
>
>               Regards
>                      Vangelis
>
> # Colubris.pm
> #
> # Created by Vangelis Kyriakakis (vkyriak at forthnet.gr)
> #
> # Implement Radiator routines for communicating with a given type of NAS
> #
>
> package Radius::Nas::Colubris;
> use Radius::SNMP;
> use strict;
>
> # The Colubris SNMP MIB
> $Radius::Nas::ColubrisMIB =
> '.iso.org.dod.internet.private.enterprises.8744';
>
> sub isOnline
> {
>     my ($name, $nas_id, $nas_port, $session_id, $client) = @_;
>
>     return 1 unless &Radius::SNMP::snmpgetprogExists();
>
>         &main::log($main::LOG_DEBUG, "Colubris: Checking $session_id->
> $nas_id:$nas_port:$name" );
>
>         my $result = &Radius::SNMP::snmpget
>             ($nas_id,
>              $client->{SNMPCommunity},
>              "$Radius::Nas::ColubrisMIB.5.1.1.3.6.1.6.$nas_port");
>
>         return 1 if (!$result || $result =~ /no response/i); # Could not
> SNMP. Assume still there
>         return uc($1) eq uc($name)
>             if ($result =~ /^.*\"([^"]+)".*$/);
>
>     return 0; # not there
> }
>
> 1;
>
> --
> Archive at http://www.open.com.au/archives/radiator/
> Announcements on radiator-announce at open.com.au
> To unsubscribe, email 'majordomo at open.com.au' with
> 'unsubscribe radiator' in the body of the message.

-- 
Mike McCauley                               mikem at open.com.au
Open System Consultants Pty. Ltd            Unix, Perl, Motif, C++, WWW
9 Bulbul Place Currumbin Waters QLD 4223 Australia   http://www.open.com.au
Phone +61 7 5598-7474                       Fax   +61 7 5598-7070

Radiator: the most portable, flexible and configurable RADIUS server 
anywhere. SQL, proxy, DBM, files, LDAP, NIS+, password, NT, Emerald, 
Platypus, Freeside, TACACS+, PAM, external, Active Directory, EAP, TLS, 
TTLS, PEAP etc on Unix, Windows, MacOS etc.

--
Archive at http://www.open.com.au/archives/radiator/
Announcements on radiator-announce at open.com.au
To unsubscribe, email 'majordomo at open.com.au' with
'unsubscribe radiator' in the body of the message.