Added checks for juniper

diff --git a/src/main/checkrad.pl.in b/src/main/checkrad.pl.in
index 43c4f3f0ddf2f61b8efa750421a7d499d59fbe3c..e6ff2e4975899b369da8000b1a7d9a535a6e3e88 100644 (file)
--- a/src/main/checkrad.pl.in
+++ b/src/main/checkrad.pl.in
@@ -24,6 +24,7 @@
 #              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
+#              juniper_e_snmp   1.0    Author: guilhermefranco@gmail.com
 #              multitech_snmp   1.0    Author: ehonzay@willmar.com
 #              netserver_telnet 1.0    Author: mts@interplanet.es
 #              versanet_snmp    1.0    Author: support@versanetcomm.com
@@ -465,6 +466,22 @@ sub cisco_snmp {
        }
 }
 
+#
+#       Check the subscriber name on a Juniper JunosE E-Series BRAS (ERX, E120, E320 )
+#
+#       Author: Guilherme Franco <guilhermefranco@gmail.com>
+#
+sub juniper_e_snmp {
+
+
+out=snmpwalk($ARGV[1],$cmmty_string,".1.3.6.1.4.1.4874.2.2.20.1.8.4.1.2");
+                if($out=~/\"$ARGV[3]\"/){
+                        return 1;
+                }else{
+                        return 0;
+                }
+}
+
 #
 #       Check a MultiTech CommPlete Server ( CC9600 & CC2400 )
 #
@@ -1434,6 +1451,8 @@ if ($ARGV[0] eq 'livingston') {
        $ret = &cisco_snmp;
 } elsif ($ARGV[0] eq 'cvx') {
        $ret = &cvx_snmp;
+} elsif ($ARGV[0] eq 'juniper') {
+        $ret = &juniper_e_snmp;
 } elsif ($ARGV[0] eq 'multitech') {
        $ret = &multitech_snmp;
 } elsif ($ARGV[0] eq 'computone') {