Skip to content
Browse files

IP-SLA 2.0.1

  • Loading branch information...
1 parent ca7ef11 commit aeb4532b018fcdc9d978cbc4efd86a5bdae0f12a @mattray mattray committed Sep 30, 2010
View
52 ZenPacks/ipSLA/SLADevice/Collect.pl
@@ -1,52 +0,0 @@
-#! /usr/bin/perl
-$what = shift(@ARGV);
-$community = shift(@ARGV);
-$verP = shift(@ARGV);
-$host = shift(@ARGV);
-$baseoid = "1.3.6.1.4.1.9.9.42.1.2.10.1";
-$timeout=5;
-
-use threads;
-use threads::shared;
-use Thread::Exit;
-
-my $done;
-
-$child_thread=threads->new(\&Call_Doit);
-$child_thread->detach();
-
-CallTimer();
-
-sub Call_Doit
-{
-
- $name=`snmpwalk -c$community -$verP $host -O qv 1.3.6.1.4.1.9.9.42.1.2.1.1.3 | grep -m 1 -w '$what'`;
- $id=`snmpwalk -c$community -$verP $host -O nqa 1.3.6.1.4.1.9.9.42.1.2.1.1.3 | grep -m 1 -w '$what'`;
- $name=~ s/"//g;
- $id=~s/"//g;
- $id=~s/.1.3.6.1.4.1.9.9.42.1.2.1.1.3.//g;
- $id=~s/$name//g;
-
- $tmp=`snmpwalk -c$community -$verP $host -O vq $baseoid.1.$id`;
- $response="rttMonLatestRttOperCompletionTime=$tmp";
-
- $tmpB=`snmpwalk -c$community -$verP $host -O vq $baseoid.2.$id `;
- $response="$response rttMonLatestRttOperSense=$tmpB";
-
- $tmpC=`snmpwalk -c$community -$verP $host -O vq $baseoid.3.$id`;
- $response=" $response rttMonLatestRttOperApplSpecificSense=$tmpC";
-
- $tmpD=`snmpwalk -c$community -$verP $host -O vqt $baseoid.5.$id`;
- $response=" $response rttMonLatestRttOperTime=$tmpD";
-
- $response=~ s/\n//g;
- $response=~ s/ //g;
-
- print "OK| $response\n";
- exit();
-}
-
-sub CallTimer
-{
-sleep $timeout;
-}
View
55 ZenPacks/ipSLA/SLADevice/Collect_HTTP.pl
@@ -1,55 +0,0 @@
-#! /usr/bin/perl
-$what = shift(@ARGV);
-$community = shift(@ARGV);
-$verP = shift(@ARGV);
-$host = shift(@ARGV);
-$baseoid = "1.3.6.1.4.1.9.9.42.1.5.1.1";
-$timeout=5;
-
-use threads;
-use threads::shared;
-use Thread::Exit;
-
-my $done;
-
-$child_thread=threads->new(\&Call_Doit);
-$child_thread->detach();
-
-CallTimer();
-
-sub Call_Doit
-{
-
- $name=`snmpwalk -c$community -$verP $host -O qv 1.3.6.1.4.1.9.9.42.1.2.1.1.3 | grep -m 1 -w '$what'`;
- $id=`snmpwalk -c$community -$verP $host -O nqa 1.3.6.1.4.1.9.9.42.1.2.1.1.3 | grep -m 1 -w '$what'`;
- $name=~ s/"//g;
- $id=~s/"//g;
- $id=~s/.1.3.6.1.4.1.9.9.42.1.2.1.1.3.//g;
- $id=~s/$name//g;
-
- $tmp=`snmpwalk -c$community -$verP $host -O vq $baseoid.1.$id`;
- $response="rttMonLatestHTTPOperRTT=$tmp";
-
- $tmpB=`snmpwalk -c$community -$verP $host -O vq $baseoid.2.$id `;
- $response="$response rttMonLatestHTTPOperDNSRTT=$tmpB";
-
- $tmpC=`snmpwalk -c$community -$verP $host -O vq $baseoid.3.$id `;
- $response="$response rttMonLatestHTTPOperTCPConnectRTT=$tmpC";
-
- $tmpD=`snmpwalk -c$community -$verP $host -O vq $baseoid.4.$id `;
- $response="$response rttMonLatestHTTPOperTransactionRTT=$tmpD";
-
- $tmpE=`snmpwalk -c$community -$verP $host -O vq $baseoid.6.$id `;
- $response="$response rttMonLatestHTTPErrorSenseDescription=$tmpE";
-
- $response=~ s/\n//g;
- $response=~ s/ //g;
-
- print "OK| $response\n";
- exit();
-}
-
-sub CallTimer
-{
-sleep $timeout;
-}
View
55 ZenPacks/ipSLA/SLADevice/Collect_VoIP.pl
@@ -1,55 +0,0 @@
-#! /usr/bin/perl
-$what = shift(@ARGV);
-$community = shift(@ARGV);
-$verP = shift(@ARGV);
-$host = shift(@ARGV);
-$baseoid = "1.3.6.1.4.1.9.9.42.1.5.2.1";
-$timeout=5;
-
-use threads;
-use threads::shared;
-use Thread::Exit;
-
-my $done;
-
-$child_thread=threads->new(\&Call_Doit);
-$child_thread->detach();
-
-CallTimer();
-
-sub Call_Doit
-{
-
- $name=`snmpwalk -c$community -$verP $host -O qv 1.3.6.1.4.1.9.9.42.1.2.1.1.3 | grep -m 1 -w '$what'`;
- $id=`snmpwalk -c$community -$verP $host -O nqa 1.3.6.1.4.1.9.9.42.1.2.1.1.3 | grep -m 1 -w '$what'`;
- $name=~ s/"//g;
- $id=~s/"//g;
- $id=~s/.1.3.6.1.4.1.9.9.42.1.2.1.1.3.//g;
- $id=~s/$name//g;
-
- $tmp=`snmpwalk -c$community -$verP $host -O vq $baseoid.46.$id`;
- $response="rttMonLatestJitterOperAvgJitter=$tmp";
-
- $tmpB=`snmpwalk -c$community -$verP $host -O vq $baseoid.42.$id `;
- $response="$response rttMonLatestJitterOperMOS=$tmpB";
-
- $tmpC=`snmpwalk -c$community -$verP $host -O vq $baseoid.43.$id `;
- $response="$response rttMonLatestJitterOperICPIF=$tmpC";
-
- $tmpD=`snmpwalk -c$community -$verP $host -O vq $baseoid.44.$id `;
- $response="$response rttMonLatestJitterOperIAJOut=$tmpD";
-
- $tmpE=`snmpwalk -c$community -$verP $host -O vq $baseoid.45.$id `;
- $response="$response rttMonLatestJitterOperIAJIn=$tmpE";
-
- $response=~ s/\n//g;
- $response=~ s/ //g;
-
- print "OK| $response\n";
- exit();
-}
-
-sub CallTimer
-{
-sleep $timeout;
-}

0 comments on commit aeb4532

Please sign in to comment.
Something went wrong with that request. Please try again.