home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl502b.zip / ext / DPI / t2.pl < prev    next >
Text File  |  1996-02-23  |  353b  |  13 lines

  1. use DPI;
  2.  
  3. DPI::DPIdebug(2);
  4.  
  5. $h = DPI::DPIconnect_to_agent_TCP("r0124", "public");
  6. $data = "Dies ist ein SNMP-Trap";
  7. $values = DPI::mkDPIset(0, "1.3.6.1.4.1.2.2.1.5.", "2.0", SNMP_TYPE_OCTET_STRING, $data);
  8. $packet = DPI::mkDPItrap(6, 1, $values);
  9. $rc = DPI::DPIsend_packet_to_agent($h, $packet);
  10. DPI::DPIdisconnect_from_agent($h);
  11.  
  12. exit 0;
  13.