summaryrefslogtreecommitdiff
path: root/cleopatre/application/spidnetsnmp/perl/SNMP/examples/testleak.pl
diff options
context:
space:
mode:
Diffstat (limited to 'cleopatre/application/spidnetsnmp/perl/SNMP/examples/testleak.pl')
-rw-r--r--cleopatre/application/spidnetsnmp/perl/SNMP/examples/testleak.pl19
1 files changed, 0 insertions, 19 deletions
diff --git a/cleopatre/application/spidnetsnmp/perl/SNMP/examples/testleak.pl b/cleopatre/application/spidnetsnmp/perl/SNMP/examples/testleak.pl
deleted file mode 100644
index 495f33b0f4..0000000000
--- a/cleopatre/application/spidnetsnmp/perl/SNMP/examples/testleak.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-use SNMP 1.6;
-
-$host = shift;
-unless ($host) {
- $| = 1; print "enter SNMP host address: "; $| = 0;
- chomp($host = <STDIN>);
-}
-
-$obj = new SNMP::Session DestHost, $host;
-
-while (){
-print $obj->get(["ifNumber",0]);
- open(COM,"ps -u$$|") || die;
- @bar = <COM>;
- $siz = (split(' ',$bar[1]))[4];
- $rss = (split(' ',$bar[1]))[5];
- close(COM);
- print "siz = $siz, rss = $rss\n";
-}