#!/usr/bin/perl
#
# checkrad.pl	See if a user is (still) logged in on a certain port.
#
#		This is used by the FreeRADIUS server to check
#		if its idea of a user logged in on a certain port/nas
#		is correct if a double login is detected.
#
# Called as:	nas_type nas_ip nas_port login session_id
#
# Returns:	0 = no duplicate, 1 = duplicate, >1 = error.
#
# Version:	$Id: checkrad.pl.in,v 1.34 2007/05/14 22:27:02 nbk Exp $
#
#		livingston_snmp  1.2	Author: miquels@cistron.nl
#		cvx_snmp	 1.0	Author: miquels@cistron.nl
#		portslave_finger 1.0	Author: miquels@cistron.nl
#		max40xx_finger	 1.0	Author: costa@mdi.ca
#		ascend_snmp      1.1    Author: blaz@amis.net
#		computone_finger 1.2	Author: pacman@world.std.com
#		sub tc_tccheck	 1.1	Author: alexisv@compass.com.ph
#		cyclades_telnet	 1.2	Author: accdias@sst.com.br
#		patton_snmp	 1.0	Author: accdias@sst.com.br
#		digitro_rusers	 1.1	Author: accdias@sst.com.br
#		cyclades_snmp	 1.0	Author: accdias@sst.com.br
#		usrhiper_snmp    1.0    Author: igor@ipass.net
#		multitech_snmp   1.0    Author: ehonzay@willmar.com
#		netserver_telnet 1.0	Author: mts@interplanet.es
#		versanet_snmp    1.0    Author: support@versanetcomm.com
#		bay_finger	 1.0	Author: chris@shenton.org
#		cisco_l2tp	 1.14	Author: paul@distributel.net
#		mikrotik_telnet  1.1    Author: Evren Yurtesen <yurtesen@ispro.net.tr>
#		mikrotik_snmp    1.0    Author: Evren Yurtesen <yurtesen@ispro.net.tr>
#		redback_telnet          Author: Eduardo Roldan
#
#	Config: $debug is the file you want to put debug messages in
#		$snmpget is the location of your ``snmpget'' program
#		$snmpwalk is the location of your ``snmpwalk'' program
#	        $snmp_timeout is the timeout for snmp queries
#	        $snmp_retries is the number of retries for timed out snmp queries
#		$snmp_version is the version of to use for snmp queries [1,2c,3]
#		$rusers is the location of your ``rusers'' program
#		$naspass is the location of your NAS admin password file
#

$prefix		= "/usr";
$localstatedir	= "/var";
$logdir		= "/var/log/freeradius";
$sysconfdir	= "/etc";
$raddbdir	= "/etc/freeradius";

$debug		= "";
#$debug		= "$logdir/checkrad.log";

$snmpget	= "";
$snmpwalk	= "";
$snmp_timeout	= 5;
$snmp_retries	= 1;
$snmp_version	= "2c";
$rusers		= "/usr/bin/rusers";
$naspass	= "$raddbdir/naspasswd";

# Community string. Change this if yours isn't "public".
$cmmty_string	= "public";
# path to finger command
$finger = "/usr/bin/finger";

#
#	USR-Hiper: $hiper_density is the reported port density (default 256
#	but 24 makes more sense)
#
$hiper_density = 256;

#
#	Try to load Net::Telnet, SNMP_Session etc.
#	Do not complain if we cannot find it.
#	Prefer a locally installed copy.
#
BEGIN {
	unshift @INC, "/usr/local/lib/site_perl";

	eval "use Net::Telnet 3.00;val`  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  
 H    ! 80         ` 8r0  A         X D !                        U    0   p       H 
   @ H  	 H!A@0(     @0 	        h          8  @	 <@A@0(      ` h x @ y @x     0    $              `op $0 @   	p  0    0 @4` <h  
x       ! 80  h   D !              u0 1xF  	!B !p B ˟	p@ !        	   0         p 8 Cx F < B    	     8      09 H`  Cp  8      8P ! 8X    8  H       n ! U  P      3B  p !C H         Xp !      8 9    	 C8~F        `8  C @  $ U  P      3B  p $O    	p         
p p8c       % HX    8  H       n ! U  P      3B  p F  He 	P  !`  B p !  B  	X!B0B`0B Faa! 0B xX0 9  B    ! H KX !01B         X	 n ! 0     p !PO    	            p   Cx D ! <          `H9k  Bp8J  80     	    p< @        `p `  p`D ! 80         p8j B	pD !    
p  p #    p  B    	 8Z <  	 8\ <  A	 8^ <  	 8` <  	 8b <   8d <      
     p #    pD ! 80         p rJȁ' B             HX0 9    a  n !    0K    ` s Kp ` 8s    	   O           P  B	x@C ! 0     x @8 Bz p <0 a  8` r0  Cp x     pP     p 8s Bx@ !0 B    	 ' H  08  1a 	 $ !H B@3 x      S$ ! H B BR  MX@`R
        
S	pD   @ @xRL.  8      `!H BAR     @)R        #     pD  < @ 	@* h #  x  08      	 (  D       <* p` #     L, \ #    p D p 9sv D      C    p:P C	     
 B        ppJa$        Q ! 2B    	' B                 X n !3 B    D ! H 8X n !`  C      , c8R99
@    	 8 ` <   @  C8R9   1 p  H` <x8#        `s ̣
@@  q    V           p#     8X     X8 9  B@@ X ! P  C  $  B XX09  B    `! X n !         @  $ U  P      3B  pD !8  	     80         p rJ         HpD !`8  	     80         p rPJ         pHpD !8  	     80         p rJ         0HpD !@
  H    	@    	     80         p rJ         H	pD !    a p  p< #	     80         p rpJ         H'                 X      B HL ! B (X n ! B    ! H (X      B  HD !     XЁ  $     X	pD !      	     80         p rJ         Hȁ'#  H             X    8  H       n ! U  P      3B  D !     X      H       n ! U  P      3B  P  !`  B @  !@  B`E`          HH=3~F     pB ! b @ 	p       8 !` 8r CXN !     Xp  !  B @  !0  B C(     (XJ  ! X    `H j  P         B F !                 X8 9      P !   C`H     XX0 9      PXF !    @  C`A'                 X0 9  J         XL !  B    pC !` r  C	    @0         p bp  Cx PΠEq%Ja	08 px 1 R         8	     1 !        @d)x    p9P Cp J     pP     ` 8s B	XA'R  H(         XX8 9  Ba `A !          @  C       8X T !0 B X      B         HU  
     0 B  XN !     HX0 9    @ 	 T !    @ (   J @  $ HU  
     0 B   @  $ HU  
     0 B  	`' B`%           X       B       T ! HU  
     0 B           xX T !    8pH  Hʧ         X       B       T ! HU  
     0 B  	    @
      H
              %3~F`  	B !pBO     0 B$  
      80#    	     0     x  !` 8r0  C	     <          `8sP  C         X      B A         U  0
     0 B  0@ !     a 8B !     X8 9  BJ	p@ !`0     8` BD;         X    p  s  (      pJ	pB !pO$  	@        @P !     X       B       J !  U  0
     0 B  
 H@    !0 0B !     X H !    ( $     xX H !P B X          H ! U   (%` B  	8D !     5          8X    p  r  08 ( ! X       B  0    `    C             (U   8D !
  H X    `  r  08 % (X       B  0    `  rJ8F !     Xx@ !ࠈ B  00 9   BpK	p  <          `x8q  C p0 `0 N9    0KD              X0 9  B@  B	8F B`8 Np$ hX0 9  J               (U     )0 b  	    `B  H             HX  B  B @ !`   C	@'   0#@          hX8  0  B8  $    C@ $        @P     X J !    d  8  $  B  @P     X          J !  U       ` B X J !                     U   
 o   02,   0G ;@ B@  A
x F 0  A     h  G;    H  F !               
 0 B   `?#         ` @ ! U  
           rlm_unix: No radwtmp file configured.  Ignoring accounting request.     rlm_unix: IPv6 is not supported!        rlm_unix: no Accounting-Status-Type attribute in request.       !root   uue: protocol error ?!  %03d:%s a       /RADIUSD/ANY/SHELL      rlm_unix: [%s]: password has expired    Crypt-Password  rlm_unix: [%s]: invalid shell [%s]      rlm_unix: Attribute "User-Password" is required for authentication.     rlm_unix: [%s]: invalid password        System  radwtmp NULL     XxphXPH@80(  $Id: sysutmp.h,v 1.11 2006/11/14 21:21:46 fcusack Exp $ $Id: modules.h,v 1.35 2008/02/15 09:47:58 aland Exp $   $Id: realms.h,v 1.19 2008/04/18 09:29:49 aland Exp $    $Id: event.h,v 1.7 2007/11/23 13:46:55 aland Exp $      $Id: conffile.h,v 1.45 2008/03/10 09:45:39 aland Exp $  $Id: packet.h,v 1.6 2008/02/16 09:20:05 aland Exp $     $Id: md4.h,v 1.14 2007/11/23 13:46:55 aland Exp $       $Id: hash.h,v 1.3 2007/11/23 13:46:55 aland Exp $       $Id: token.h,v 1.19 2007/12/17 10:32:30 aland Exp $     $Id: missing.h,v 1.42 2008/02/16 09:20:06 aland Exp $   $Id: libradius.h,v 1.153 2008/04/17 08:24:28 aland Exp $        $Id: radiusd.h,v 1.263 2008/04/30 10:00:53 aland Exp $  $Id: rlm_unix.c,v 1.85 2007/12/10 16:07:30 aland Exp $  ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/      F  1       " #         " #        	 #8             !2            F5 a"85aax,)         F( a~2&/5            "          F# >a*           F" 4      F$ aT             F# a9              "2              "   &          "   &        0       2      0      P      P3            P      1      `            02                   H2            !      `2      !      %      2      %      %      2      %      P'      2      P'      '      2      '      )      3      )      *       3      *      `+      83      `+      +      2      +      +      h3                                              p-      d                       x-                                                              &             2             A             Q             u                                
       `+             4                           5                          X      o                 x                   
                              p    08            08                                       h             
                   	              o    
      o           o    
      o                                                                                           7     J    h-                                                                                                                                                                     7                           08           08           08           08           08           08           08            08           08            08     0      08     @      08     P      08     `      08     p      08           08           08           08           08           08           08           08           08            08           08            08     0      08     @      08     rlm_unix-2.0.4.so   w: .shstrtab .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rela.dyn .rela.IA_64.pltoff .init .plt .text .fini .rodata .IA_64.unwind_info .IA_64.unwind .init_array .fini_array .jcr .data.rel.ro .dynamic .data .ctors .dtors .got .sdata .sbss .gnu_debuglink                                                                                X      X      \                              o                   <                                                                                             x      x                                   %   o       
      
      `                            2   o       
      
                                   A             
      
                                 K             h      h                                ^                         @                              d             `      `                                    i                                                       o             `+      `+      @                              u             +      +      P                             }             1      1                                        p       3      3      h                                        4     4                                                  5      5                                                 5     5                                                 5     5      P                                           `5     `5      @                                        7     7      p                                           8     8                                                  8      8                                                08     08      H                              P            8     8                                               @:     @:                                                H:     H:                                                          H:                                                          `:                                                                                                                                                                                                                                                                                                                           ./usr/sbin/                                                                                         0000755 0000000 0000000 00000000000 11061075424 011455  5                                                                                                    ustar   root                            root                                                                                                                                                                                                                   ./usr/sbin/checkrad                                                                                 0000755 0000000 0000000 00000107103 11061075414 013150  0                                                                                                    ustar   root                            root                                                                                                                                                                                                                   #!/usr/bin/perl
#
# checkrad.pl	See if a user is (still) logged in on a certain port.
#
#		This is used by the FreeRADIUS server to check
#		if its idea of a user logged in on a certain port/nas
#		is correct if a double login is detected.
#
# Called as:	nas_type nas_ip nas_port login session_id
#
# Returns:	0 = no duplicate, 1 = duplicate, >1 = error.
#
# Version:	$Id: checkrad.pl.in,v 1.34 2007/05/14 22:27:02 nbk Exp $
#
#		livingston_snmp  1.2	Author: miquels@cistron.nl
#		cvx_snmp	 1.0	Author: miquels@cistron.nl
#		portslave_finger 1.0	Author: miquels@cistron.nl
#		max40xx_finger	 1.0	Author: costa@mdi.ca
#		ascend_snmp      1.1    Author: blaz@amis.net
#		computone_finger 1.2	Author: pacman@world.std.com
#		sub tc_tccheck	 1.1	Author: alexisv@compass.com.ph
#		cyclades_telnet	 1.2	Author: accdias@sst.com.br
#		patton_snmp	 1.0	Author: accdias@sst.com.br
#		digitro_rusers	 1.1	Author: accdias@sst.com.br
#		cyclades_snmp	 1.0	Author: accdias@sst.com.br
#		usrhiper_snmp    1.0    Author: igor@ipass.net
#		multitech_snmp   1.0    Author: ehonzay@willmar.com
#		netserver_telnet 1.0	Author: mts@interplanet.es
#		versanet_snmp    1.0    Author: support@versanetcomm.com
#		bay_finger	 1.0	Author: chris@shenton.org
#		cisco_l2tp	 1.14	Author: paul@distributel.net
#		mikrotik_telnet  1.1    Author: Evren Yurtesen <yurtesen@ispro.net.tr>
#		mikrotik_snmp    1.0    Author: Evren Yurtesen <yurtesen@ispro.net.tr>
#		redback_telnet          Author: Eduardo Roldan
#
#	Config: $debug is the file you want to put debug messages in
#		$snmpget is the location of your ``snmpget'' program
#		$snmpwalk is the location of your ``snmpwalk'' program
#	        $snmp_timeout is the timeout for snmp queries
#	        $snmp_retries is the number of retries for timed out snmp queries
#		$snmp_version is the version of to use for snmp queries [1,2c,3]
#		$rusers is the location of your ``rusers'' program
#		$naspass is the location of your NAS admin password file
#

$prefix		= "/usr";
$localstatedir	= "/var";
$logdir		= "/var/log/freeradius";
$sysconfdir	= "/etc";
$raddbdir	= "/etc/freeradius";

$debug		= "";
#$debug		= "$logdir/checkrad.log";

$snmpget	= "";
$snmpwalk	= "";
$snmp_timeout	= 5;
$snmp_retries	= 1;
$snmp_version	= "2c";
$rusers		= "/usr/bin/rusers";
$naspass	= "$raddbdir/naspasswd";

# Community string. Change this if yours isn't "public".
$cmmty_string	= "public";
# path to finger command
$finger = "/usr/bin/finger";

#
#	USR-Hiper: $hiper_density is the reported port density (default 256
#	but 24 makes more sense)
#
$hiper_density = 256;

#
#	Try to load Net::Telnet, SNMP_Session etc.
#	Do not complain if we cannot find it.
#	Prefer a locally installed copy.
#
BEGIN {
	unshift @INC, "/usr/local/lib/site_perl";

	eval "use Net::Telnet 3.00;val`  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  
 H    ! 80         ` 8r0  A         X D !                        U    0   p       H 
   @ H  	 H!A@0(     @0 	        h          8  @	 <@A@0(      ` h x @ y @x     0    $              `op $0 @   	p  0    0 @4` <h  
x       ! 80  h   D !              u0 1xF  	!B !p B ˟	p@ !        	   0         p 8 Cx F < B    	     8      09 H`  Cp  8      8P ! 8X    8  H       n ! U  P      3B  p !C H         Xp !      8 9    	 C8~F        `8  C @  $ U  P      3B  p $O    	p         
p p8c       % HX    8  H       n ! U  P      3B  p F  He 	P  !`  B p !  B  	X!B0B`0B Faa! 0B xX0 9  B    ! H KX !01B         X	 n ! 0     p !PO    	            p   Cx D ! <          `H9k  Bp8J  80     	    p< @        `p `  p`D ! 80         p8j B	pD !    
p  p #    p  B    	 8Z <  	 8\ <  A	 8^ <  	 8` <  	 8b <   8d <      
     p #    pD ! 80         p rJȁ' B             HX0 9    a  n !    0K    ` s Kp ` 8s    	   O           P  B	x@C ! 0     x @8 Bz p <0 a  8` r0  Cp x     pP     p 8s Bx@ !0 B    	 ' H  08  1a 	 $ !H B@3 x      S$ ! H B BR  MX@`R
        
S	pD   @ @xRL.  8      `!H BAR     @)R        #     pD  < @ 	@* h #  x  08      	 (  D       <* p` #     L, \ #    p D p 9sv D      C    p:P C	     
 B        ppJa$        Q ! 2B    	' B                 X n !3 B    D ! H 8X n !`  C      , c8R99
@    	 8 ` <   @  C8R9   1 p  H` <x8#        `s ̣
@@  q    V           p#     8X     X8 9  B@@ X ! P  C  $  B XX09  B    `! X n !         @  $ U  P      3B  pD !8  	     80         p rJ         HpD !`8  	     80         p rPJ         pHpD !8  	     80         p rJ         0HpD !@
  H    	@    	     80         p rJ         H	pD !    a p  p< #	     80         p rpJ         H'                 X      B HL ! B (X n ! B    ! H (X      B  HD !     XЁ  $     X	pD !      	     80         p rJ         Hȁ'#  H             X    8  H       n ! U  P      3B  D !     X      H       n ! U  P      3B  P  !`  B @  !@  B`E`          HH=3~F     pB ! b @ 	p       8 !` 8r CXN !     Xp  !  B @  !0  B C(     (XJ  ! X    `H j  P         B F !                 X8 9      P !   C`H     XX0 9      PXF !    @  C`A'                 X0 9  J         XL !  B    pC !` r  C	    @0         p bp  Cx PΠEq%Ja	08 px 1 R         8	     1 !        @d)x    p9P Cp J     pP     ` 8s B	XA'R  H(         XX8 9  Ba `A !          @  C       8X T !0 B X      B         HU  
     0 B  XN !     HX0 9    @ 	 T !    @ (   J @  $ HU  
     0 B   @  $ HU  
     0 B  	`' B`%           X       B       T ! HU  
     0 B           xX T !    8pH  Hʧ         X       B       T ! HU  
     0 B  	    @
      H
              %3~F`  	B !pBO     0 B$  
      80#    	     0     x  !` 8r0  C	     <          `8sP  C         X      B A         U  0
     0 B  0@ !     a 8B !     X8 9  BJ	p@ !`0     8` BD;         X    p  s  (      pJ	pB !pO$  	@        @P !     X       B       J !  U  0
     0 B  
 H@    !0 0B !     X H !    ( $     xX H !P B X          H ! U   (%` B  	8D !     5          8X    p  r  08 ( ! X       B  0    `    C             (U   8D !
  H X    `  r  08 % (X       B  0    `  rJ8F !     Xx@ !ࠈ B  00 9   BpK	p  <          `x8q  C p0 `0 N9    0KD              X0 9  B@  B	8F B`8 Np$ hX0 9  J               (U     )0 b  	    `B  H             HX  B  B @ !`   C	@'   0#@          hX8  0  B8  $    C@ $        @P     X J !    d  8  $  B  @P     X          J !  U       ` B X J !                     U   
 o   02,   0G ;@ B@  A
x F 0  A     h  G;    H  F !               
 0 B   `?#         ` @ ! U  
           rlm_unix: No radwtmp file configured.  Ignoring accounting request.     rlm_unix: IPv6 is not supported!        rlm_unix: no Accounting-Status-Type attribute in request.       !root   uue: protocol error ?!  %03d:%s a       /RADIUSD/ANY/SHELL      rlm_unix: [%s]: password has expired    Crypt-Password  rlm_unix: [%s]: invalid shell [%s]      rlm_unix: Attribute "User-Password" is required for authentication.     rlm_unix: [%s]: invalid password        System  radwtmp NULL     XxphXPH@80(  $Id: sysutmp.h,v 1.11 2006/11/14 21:21:46 fcusack Exp $ $Id: modules.h,v 1.35 2008/02/15 09:47:58 aland Exp $   $Id: realms.h,v 1.19 2008/04/18 09:29:49 aland Exp $    $Id: event.h,v 1.7 2007/11/23 13:46:55 aland Exp $      $Id: conffile.h,v 1.45 2008/03/10 09:45:39 aland Exp $  $Id: packet.h,v 1.6 2008/02/16 09:20:05 aland Exp $     $Id: md4.h,v 1.14 2007/11/23 13:46:55 aland Exp $       $Id: hash.h,v 1.3 2007/11/23 13:46:55 aland Exp $       $Id: token.h,v 1.19 2007/12/17 10:32:30 aland Exp $     $Id: missing.h,v 1.42 2008/02/16 09:20:06 aland Exp $   $Id: libradius.h,v 1.153 2008/04/17 08:24:28 aland Exp $        $Id: radiusd.h,v 1.263 2008/04/30 10:00:53 aland Exp $  $Id: rlm_unix.c,v 1.85 2007/12/10 16:07:30 aland Exp $  ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/      F  1       " #         " #        	 #8             !2            F5 a"85aax,)         F( a~2&/5            "          F# >a*           F" 4      F$ aT             F# a9              "2              "   &          "   &        0       2      0      P      P3            P      1      `            02                   H2            !      `2      !      %      2      %      %      2      %      P'      2      P'      '      2      '      )      3      )      *       3      *      `+      83      `+      +      2      +      +      h3                                              p-      d                       x-                                                              &             2             A             Q             u                                
       `+             4                           5                          X      o                 x                   
                              p    08            08                                       h             
                   	              o    
      o           o    
      o                                                                                           7     J    h-                                                                                                                                                                     7                           08           08           08           08           08           08           08            08           08            08     0      08     @      08     P      08     `      08     p      08           08           08           08           08           08           08           08           08            08           08            08     0      08     @      08     rlm_unix-2.0.4.so   w: .shstrtab .gnu.hash .dynsym .dynstr .gnu.version .gnu.version_r .rela.dyn .rela.IA_64.pltoff .init .plt .text .fini .rodata .IA_64.unwind_info .IA_64.unwind .init_array .fini_array .jcr .data.rel.ro .dynamic .data .ctors .dtors .got .sdata .sbss .gnu_debuglink                                                                                X      X      \                              o                   <                                                                                             x      x                                   %   o       
      
      `                            2   o       
      
                                   A             
      
                                 K             h      h                                ^                         @                              d             `      `                                    i                                                       o             `+      `+      @                              u             +      +      P                             }             1      1                                        p       3      3      h                                        4     4                                                  5      5                                                 5     5                                                 5     5      P                                           `5     `5      @                                        7     7      p                                           8     8                                                  8      8                                                08     08      H                              P            8     8                                               @:     @:                                                H:     H:                                                          H:                                                          `:                                                                                                                                                                                                                                                                                                                           ./usr/sbin/                                                                                         0000755 0000000 0000000 00000000000 11061075424 011455  5                                                                                                    ustar   root                            root                                                                                                                                                                                                                   ./usr/sbin/checkrad                                                                                 0000755 0000000 0000000 00000107103 11061075414 013150  0                                                                                                    ustar   root                            root                                                                                                                                                                                                                   #!/usr/bin/perl
#
# checkrad.pl	See if a user is (still) logged in on a certain port.
#
#		This is used by the FreeRADIUS server to check
#		if its idea of a user logged in on a certain port/nas
#		is correct if a double login is detected.
#
# Called as:	nas_type nas_ip nas_port login session_id
#
# Returns:	0 = no duplicate, 1 = duplicate, >1 = error.
#
# Version:	$Id: checkrad.pl.in,v 1.34 2007/05/14 22:27:02 nbk Exp $
#
#		livingston_snmp  1.2	Author: miquels@cistron.nl
#		cvx_snmp	 1.0	Author: miquels@cistron.nl
#		portslave_finger 1.0	Author: miquels@cistron.nl
#		max40xx_finger	 1.0	Author: costa@mdi.ca
#		ascend_snmp      1.1    Author: blaz@amis.net
#		computone_finger 1.2	Author: pacman@world.std.com
#		sub tc_tccheck	 1.1	Author: alexisv@compass.com.ph
#		cyclades_telnet	 1.2	Author: accdias@sst.com.br
#		patton_snmp	 1.0	Author: accdias@sst.com.br
#		digitro_rusers	 1.1	Author: accdias@sst.com.br
#		cyclades_snmp	 1.0	Author: accdias@sst.com.br
#		usrhiper_snmp    1.0    Author: igor@ipass.net
#		multitech_snmp   1.0    Author: ehonzay@willmar.com
#		netserver_telnet 1.0	Author: mts@interplanet.es
#		versanet_snmp    1.0    Author: support@versanetcomm.com
#		bay_finger	 1.0	Author: chris@shenton.org
#		cisco_l2tp	 1.14	Author: paul@distributel.net
#		mikrotik_telnet  1.1    Author: Evren Yurtesen <yurtesen@ispro.net.tr>
#		mikrotik_snmp    1.0    Author: Evren Yurtesen <yurtesen@ispro.net.tr>
#		redback_telnet          Author: Eduardo Roldan
#
#	Config: $debug is the file you want to put debug messages in
#		$snmpget is the location of your ``snmpget'' program
#		$snmpwalk is the location of your ``snmpwalk'' program
#	        $snmp_timeout is the timeout for snmp queries
#	        $snmp_retries is the number of retries for timed out snmp queries
#		$snmp_version is the version of to use for snmp queries [1,2c,3]
#		$rusers is the location of your ``rusers'' program
#		$naspass is the location of your NAS admin password file
#

$prefix		= "/usr";
$localstatedir	= "/var";
$logdir		= "/var/log/freeradius";
$sysconfdir	= "/etc";
$raddbdir	= "/etc/freeradius";

$debug		= "";
#$debug		= "$logdir/checkrad.log";

$snmpget	= "";
$snmpwalk	= "";
$snmp_timeout	= 5;
$snmp_retries	= 1;
$snmp_version	= "2c";
$rusers		= "/usr/bin/rusers";
$naspass	= "$raddbdir/naspasswd";

# Community string. Change this if yours isn't "public".
$cmmty_string	= "public";
# path to finger command
$finger = "/usr/bin/finger";

#
#	USR-Hiper: $hiper_density is the reported port density (default 256
#	but 24 makes more sense)
#
$hiper_density = 256;

#
#	Try to load Net::Telnet, SNMP_Session etc.
#	Do not complain if we cannot find it.
#	Prefer a locally installed copy.
#
BEGIN {
	unshift @INC, "/usr/local/lib/site_perl";

	eval "use Net::Telnet 3.00;val`  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  x@$ A<p)  ` `  x$ A<p)  ` `  x$ A<p)  ` `  x $ A<p)  ` `  
 H    ! 80         ` 8r0  A         X D !                        U    0   p       H 
   @ H  	 H!A@0(     @0 	        h          8  @	 <@A@0(      ` h x @ y @x     0    $              `op $0 @   