[prev in list] [next in list] [prev in thread] [next in thread] 

List:       net-snmp-coders
Subject:    SNMP perl module problem
From:       <peter_l () faraday-tech ! com>
Date:       2005-06-27 7:53:42
Message-ID: 8E7BE2090212E14DA73CD7285406E6A7BF643D () EX1 ! faraday ! com ! tw
[Download RAW message or body]

Dear Sir,

I got some problems while running SNMP perl module in WIN2K.

Referring to the example async1.pl, I write a sample code to query a snmp agent in 100 seconds.

It works well in my linux PC, but hangs up in the WIN2K platform.

The program will enters an infinite loop when executing in WIN2K.

The behaviors of the SNMP modules in the WIN2K are different from the Linux.

For example, the timeout argument in the SNMP::MainLoop method seems useless in WIN2K.

Do I need to modify my program to suite WIN2000 patform.

Could you kindly help me to solve this problem? Thank you.

 

The package installed to run perl in WIN2K

======================================================================

ActivePerl-5.8.6

Net-snmp-5.2.1.win32.exe(binary code for window)

 

My test sampe code

======================================================================

 

#! /usr/bin/perl

# This code is for Faraday Wi-Fi ASD test

 

use strict;

use warnings;

use SNMP;

 

$SNMP::auto_init_mib = 0; 

 

my $value = 0;

my $req_num = 0;

my $rep_num = 0;

my $los_num = 0;

my $duration = 2;

my $dest_host = shift || '192.168.131.254';

my $time_out  = shift || 200000;

if (!defined($dest_host)) {

    die "No target host.....\n";

}

my $sess = new SNMP::Session(

            DestHost => $dest_host, 

            Timeout  => $time_out);

if (!defined($sess)) {

    die "Cannot open SNMP session:\n";  

}

 

sub poller {

   $req_num++;

   #print "Polling\n";

   # VarList is undefined if TIMEOUT occured

   if (!defined($_[1])) {

       #print "lost packet\n";

       $los_num++;

   } else {

       #print "Get packet\n";

       $rep_num++;

   }

   # Restart the request

   $_[0]->get([[".1.3.6.1.2.1.1.3.0"]], [\&poller, $_[0]]);

}

 

sub finish {

    my $los_per;

    

    print "finsih\n";

    if ($los_num == 0) {

        $los_per = 0;

    } else {

        $los_per = ($los_num/$req_num) *100;

    }

    print "snmp: Reqest Sent       = $req_num\n";

    print "snmp: Response Receive  = $rep_num\n";

    print "snmp: Packet Loss       = $los_num\n";

    print "snmp: Loss Percentage   = $los_per %\n";

    print "\n";

    SNMP::finish();

    

}

 

#$sess->{Timeout} = 20;

print "\n\n";

print "                      FARADAY TECH SNMP TEST TOOL\n";

print "====================================================\n";

print "snmp: Target Host = $sess->{DestHost}               \n";

print "snmp: Timeout     = $sess->{Timeout}                \n";

print "snmp: Duration    = $duration                       \n";

 

$sess->get([[".1.3.6.1.2.1.1.3.0"]]);

 

 

#$sess->get([[".1.3.6.1.2.1.1.3.0"]], [\&poller, $sess]);

 

SNMP::MainLoop($duration,\&finish);

 

Best Regards,

 

Peter Lin (林嘉璋)

=== Faraday Technology Corporation, Headquarters TW ===

= 智原科技股份有限公司 

= Dept.: APD/IPL/IPS

= Tel  : 886-3-578-7888 Ext:4026

= Fax  : 886-3-666-3958

= Email: peter_l@faraday-tech.com

= WWW  : www.faraday-tech.com <http://www.faraday-tech.com/>  

=======================================================

 



***************** Confidentiality Notice *****************
This electronic message and any attachments may contain
confidential and legally privileged information or
information which is otherwise protected from disclosure.
If you are not the intended recipient,please do not disclose
the contents, either in whole or in part, to anyone,and
immediately delete the message and any attachments from
your computer system and destroy all hard copies.
Thank you for your cooperation.
*************************************************************
[Attachment #3 (text/html)]

<html xmlns:o="urn:schemas-microsoft-com:office:office" \
xmlns:w="urn:schemas-microsoft-com:office:word" \
xmlns:st1="urn:schemas-microsoft-com:office:smarttags" \
xmlns="http://www.w3.org/TR/REC-html40">

<head>
<meta http-equiv=Content-Type content="text/html; charset=big5">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
 name="Street"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
 name="address"/>
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
 name="chsdate" downloadurl=""/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
 /* Font Definitions */
 @font-face
	{font-family:新細明體;
	panose-1:2 2 3 0 0 0 0 0 0 0;}
@font-face
	{font-family:"\@新細明體";
	panose-1:2 2 3 0 0 0 0 0 0 0;}
 /* Style Definitions */
 p.MsoNormal, li.MsoNormal, div.MsoNormal
	{margin:0cm;
	margin-bottom:.0001pt;
	font-size:12.0pt;
	font-family:"Times New Roman";}
a:link, span.MsoHyperlink
	{color:blue;
	text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
	{color:purple;
	text-decoration:underline;}
p
	{mso-margin-top-alt:auto;
	margin-right:0cm;
	mso-margin-bottom-alt:auto;
	margin-left:0cm;
	font-size:12.0pt;
	font-family:新細明體;}
span.EmailStyle17
	{mso-style-type:personal-compose;
	font-family:Arial;
	color:windowtext;}
 /* Page Definitions */
 @page Section1
	{size:595.3pt 841.9pt;
	margin:72.0pt 90.0pt 72.0pt 90.0pt;
	layout-grid:18.0pt;}
div.Section1
	{page:Section1;}
-->
</style>

</head>

<body lang=ZH-TW link=blue vlink=purple style='text-justify-trim:punctuation'>

<div class=Section1 style='layout-grid:18.0pt'>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>Dear Sir,<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>I got some problems while running SNMP perl module in
WIN2K.<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>Referring to the example async1.pl, I write a sample
code to query a snmp agent in 100 seconds.<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>It works well in my linux PC, but hangs up in the WIN2K
platform.<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>The program will enters an infinite loop when executing
in WIN2K.<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>The behaviors of the SNMP modules in the WIN2K are
different from the Linux.<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>For example, the timeout argument in the \
</span></font><font size=1 face=Arial><span lang=EN-US \
style='font-size:9.0pt;font-family:Arial'>SNMP::MainLoop</span></font><font \
face=Arial><span lang=EN-US style='font-family:Arial'> method seems useless in \
WIN2K.<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>Do I need to modify my program to <st1:address \
w:st="on"><st1:Street  w:st="on">suite</st1:Street> WIN2000</st1:address> \
patform.<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>Could you kindly help me to solve this problem? Thank
you.<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>The package installed to run perl in \
WIN2K<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>======================================================================<o:p></o:p></span></font></p>


<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>ActivePerl-<st1:chsdate IsROCDate="False"
IsLunarDate="False" Day="30" Month="12" Year="1899" \
w:st="on">5.8.6</st1:chsdate><o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>Net-snmp-<st1:chsdate IsROCDate="False"
IsLunarDate="False" Day="30" Month="12" Year="1899" \
w:st="on">5.2.1</st1:chsdate>.win32.exe(binary code for \
window)<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>My test sampe code<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face=Arial><span lang=EN-US style='font-size:
12.0pt;font-family:Arial'>======================================================================<o:p></o:p></span></font></p>


<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>#! /usr/bin/perl<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'># This code is for Faraday Wi-Fi ASD \
test<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>use strict;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>use warnings;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>use SNMP;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>$SNMP::auto_init_mib = 0; <o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>my $value = 0;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>my $req_num = 0;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>my $rep_num = 0;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>my $los_num = 0;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>my $duration = 2;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>my $dest_host = shift || \
'192.168.131.254';<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>my $time_out&nbsp; = shift || \
200000;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>if (!defined($dest_host)) {<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; die &quot;No target
host.....\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>}<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>my $sess = new SNMP::Session(<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 DestHost =&gt; $dest_host, <o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 Timeout&nbsp; =&gt; $time_out);<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>if (!defined($sess)) {<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; die &quot;Cannot open SNMP
session:\n&quot;;&nbsp; <o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>}<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>sub poller {<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp; $req_num++;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp; #print \
&quot;Polling\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp; # VarList is undefined if TIMEOUT \
occured<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp; if (!defined($_[1])) \
{<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; #print &quot;lost
packet\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \
$los_num++;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp; } else {<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; #print &quot;Get
packet\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \
$rep_num++;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp; }<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp; # Restart the \
request<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp; $_[0]-&gt;get([[&quot;.<st1:chsdate
IsROCDate="False" IsLunarDate="False" Day="30" Month="12" Year="1899" \
w:st="on">1.3.6</st1:chsdate>.1.2.1.1.3.0&quot;]], [\&amp;poller, \
$_[0]]);<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>}<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>sub finish {<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; my $los_per;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; <o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; print \
&quot;finsih\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; if ($los_num == 0) \
{<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $los_per =
0;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; } else {<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; $los_per =
($los_num/$req_num) *100;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; }<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; print &quot;snmp: Reqest
Sent&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = \
$req_num\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; print &quot;snmp: Response
Receive&nbsp; = $rep_num\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; print &quot;snmp: Packet
Loss&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; = \
$los_num\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=PT-BR style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; </span></font><font size=1
face=Arial><span lang=EN-US style='font-size:9.0pt;font-family:Arial'>print
&quot;snmp: Loss Percentage&nbsp;&nbsp; = $los_per \
%\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; print \
&quot;\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; \
SNMP::finish();<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>&nbsp;&nbsp;&nbsp; <o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>}<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>#$sess-&gt;{Timeout} = 20;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>print &quot;\n\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>print \
&quot;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; \
FARADAY TECH SNMP TEST TOOL\n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>print
&quot;====================================================\n&quot;;<o:p></o:p></span></font></p>


<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>print &quot;snmp: Target Host =
$sess-&gt;{DestHost}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 \n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>print &quot;snmp: Timeout&nbsp;&nbsp;&nbsp;&nbsp; =
$sess-&gt;{Timeout}&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 \n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>print &quot;snmp: Duration&nbsp;&nbsp;&nbsp; =
$duration&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
 \n&quot;;<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>$sess-&gt;get([[&quot;.<st1:chsdate IsROCDate="False"
IsLunarDate="False" Day="30" Month="12" Year="1899" \
w:st="on">1.3.6</st1:chsdate>.1.2.1.1.3.0&quot;]]);<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>#$sess-&gt;get([[&quot;.<st1:chsdate IsROCDate="False"
IsLunarDate="False" Day="30" Month="12" Year="1899" \
w:st="on">1.3.6</st1:chsdate>.1.2.1.1.3.0&quot;]], [\&amp;poller, \
$sess]);<o:p></o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'>SNMP::MainLoop($duration,\&amp;finish);<o:p></o:p></span></font></p>


<p class=MsoNormal><font size=1 face=Arial><span lang=EN-US style='font-size:
9.0pt;font-family:Arial'><o:p>&nbsp;</o:p></span></font></p>

<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=2
face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family:"Courier \
New"'>Best Regards,<o:p></o:p></span></font></p>

<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=3
face=新細明體><span lang=EN-US \
style='font-size:12.0pt'><o:p>&nbsp;</o:p></span></font></p>

<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=2
face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family:"Courier \
New"'>Peter&nbsp;Lin (</span></font><font size=2><span \
style='font-size:10.0pt'>林嘉璋</span></font><font size=2 face="Courier New"><span \
lang=EN-US style='font-size:10.0pt;font-family: "Courier \
New"'>)<o:p></o:p></span></font></p>

<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=2
face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family:"Courier \
New"'>=== Faraday Technology Corporation, Headquarters TW \
===<o:p></o:p></span></font></p>

<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=2
face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family:"Courier \
New"'>= </span></font><font size=2><span \
style='font-size:10.0pt'>智原科技股份有限公司<span \
lang=EN-US>&nbsp;<o:p></o:p></span></span></font></p>

<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=2
face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family:"Courier \
New"'>= Dept.:&nbsp;APD/IPL/IPS</span></font><span lang=EN-US><o:p></o:p></span></p>

<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=2
face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family:"Courier \
New"'>= Tel&nbsp; : 886-3-578-7888 Ext:4026</span></font><span \
lang=EN-US><o:p></o:p></span></p>

<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=2
face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family:"Courier \
New"'>= Fax&nbsp; : 886-3-666-3958</span></font><span \
lang=EN-US><o:p></o:p></span></p>

<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=2
face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family:"Courier \
                New"'>=
Email: <a href="mailto:peter_l@faraday-tech.com">peter_l@faraday-tech.com</a><o:p></o:p></span></font></p>


<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=2
face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family:"Courier \
New"'>= WWW&nbsp; : <a href="http://www.faraday-tech.com/">www.faraday-tech.com</a> \
<o:p></o:p></span></font></p>

<p style='margin:0cm;margin-bottom:.0001pt;layout-grid-mode:char'><font size=2
face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family:"Courier \
New"'>=======================================================</span></font><font \
size=2 face="Courier New"><span lang=EN-US style='font-size:10.0pt;font-family: \
"Courier New"'><o:p></o:p></span></font></p>

<p class=MsoNormal><font size=3 face="Times New Roman"><span lang=EN-US
style='font-size:12.0pt'><o:p>&nbsp;</o:p></span></font></p>

</div>

</body>


<BODY><BR>***************** Confidentiality Notice *****************
<BR>This electronic message and any attachments may contain
<BR>confidential and legally privileged information or
<BR>information which is otherwise protected from disclosure.
<BR>If you are not the intended recipient,please do not disclose
<BR>the contents, either in whole or in part, to anyone,and
<BR>immediately delete the message and any attachments from
<BR>your computer system and destroy all hard copies.
<BR>Thank you for your cooperation.
<BR>*************************************************************</BODY></HTML>


-------------------------------------------------------
SF.Net email is sponsored by: Discover Easy Linux Migration Strategies
from IBM. Find simple to follow Roadmaps, straightforward articles,
informative Webcasts and more! Get everything you need to get up to
speed, fast. http://ads.osdn.com/?ad_id=7477&alloc_id=16492&op=click
_______________________________________________
Net-snmp-coders mailing list
Net-snmp-coders@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/net-snmp-coders

[prev in list] [next in list] [prev in thread] [next in thread] 

Configure | About | News | Add a list | Sponsored by KoreLogic