开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > SNMP编程 > 查看源码
OID.xs
资源名称：net-snmp-5.2.2.rar　[点击查看]
上传用户：wxp200602
上传日期：2007-10-30
资源大小：4028k
文件大小：11k
源码类别：

SNMP编程

开发平台：

Unix_Linux

OID.xs：源码内容
  1. /* -*- C -*- */
  2. #include "EXTERN.h"
  3. #include "perl.h"
  4. #include "XSUB.h"
  6. #include <net-snmp/net-snmp-config.h>
  7. #include <net-snmp/net-snmp-includes.h>
  9. /* pulled from Dave's, yet-to-be-used, net-snmp library rewrite.
  10.    autocompatibility for the future? */
  12. typedef struct netsnmp_oid_s {
  13.     oid                 *name;
  14.     unsigned int         len;
  15.     oid                  namebuf[ MAX_OID_LEN ];
  16. } netsnmp_oid;
  18. static int
  19. not_here(char *s)
  20. {
  21.     croak("%s not implemented on this architecture", s);
  22.     return -1;
  23. }
  25. static double
  26. constant(char *name, int len, int arg)
  27. {
  28.     errno = EINVAL;
  29.     return 0;
  30. }
  32. netsnmp_oid *
  33. nso_newarrayptr(oid *name, size_t name_len) 
  34. {
  35.     netsnmp_oid *RETVAL;
  36.     RETVAL = SNMP_MALLOC_TYPEDEF(netsnmp_oid);
  37.     RETVAL->name = RETVAL->namebuf;
  38.     RETVAL->len = name_len;
  39.     memcpy(RETVAL->name, name, name_len * sizeof(oid));
  40.     return RETVAL;
  41. }
  43. static int __sprint_num_objid _((char *, oid *, int));
  45. /* stolen from SNMP.xs.  Ug, this needs merging to snmplib */
  46. /* XXX: this is only here because snmplib forces quotes around the
  47.    data and won't return real binary data or a numeric string.  Every
  48.    app must do its own switch() to get around it.  Ug. */
  49. #define USE_BASIC 0
  50. #define USE_ENUMS 1
  51. #define USE_SPRINT_VALUE 2
  52. static int
  53. __snprint_value (buf, buf_len, var, tp, type, flag)
  54. char * buf;
  55. size_t buf_len;
  56. netsnmp_variable_list * var;
  57. struct tree * tp;
  58. int type;
  59. int flag;
  60. {
  61.    int len = 0;
  62.    u_char* ip;
  63.    struct enum_list *ep;
  66.    buf[0] = '';
  67.    if (flag == USE_SPRINT_VALUE) {
  68. snprint_value(buf, buf_len, var->name, var->name_length, var);
  69. len = strlen(buf);
  70.    } else {
  71.      switch (var->type) {
  72.         case ASN_INTEGER:
  73.            if (flag == USE_ENUMS) {
  74.               for(ep = tp->enums; ep; ep = ep->next) {
  75.                  if (ep->value == *var->val.integer) {
  76.                     strcpy(buf, ep->label);
  77.                     len = strlen(buf);
  78.                     break;
  79.                  }
  80.               }
  81.            }
  82.            if (!len) {
  83.               sprintf(buf,"%ld", *var->val.integer);
  84.               len = strlen(buf);
  85.            }
  86.            break;
  88.         case ASN_GAUGE:
  89.         case ASN_COUNTER:
  90.         case ASN_TIMETICKS:
  91.         case ASN_UINTEGER:
  92.            sprintf(buf,"%lu", (unsigned long) *var->val.integer);
  93.            len = strlen(buf);
  94.            break;
  96.         case ASN_OCTET_STR:
  97.         case ASN_OPAQUE:
  98.            memcpy(buf, (char*)var->val.string, var->val_len);
  99.            len = var->val_len;
  100.            break;
  102.         case ASN_IPADDRESS:
  103.           ip = (u_char*)var->val.string;
  104.           sprintf(buf, "%d.%d.%d.%d", ip[0], ip[1], ip[2], ip[3]);
  105.           len = strlen(buf);
  106.           break;
  108.         case ASN_NULL:
  109.            break;
  111.         case ASN_OBJECT_ID:
  112.           __sprint_num_objid(buf, (oid *)(var->val.objid),
  113.                              var->val_len/sizeof(oid));
  114.           len = strlen(buf);
  115.           break;
  117. case SNMP_ENDOFMIBVIEW:
  118.           sprintf(buf,"%s", "ENDOFMIBVIEW");
  119.   break;
  120. case SNMP_NOSUCHOBJECT:
  121.   sprintf(buf,"%s", "NOSUCHOBJECT");
  122.   break;
  123. case SNMP_NOSUCHINSTANCE:
  124.   sprintf(buf,"%s", "NOSUCHINSTANCE");
  125.   break;
  127.         case ASN_COUNTER64:
  128.           printU64(buf,(struct counter64 *)var->val.counter64);
  129.           len = strlen(buf);
  130.           break;
  132.         case ASN_BIT_STR:
  133.             snprint_bitstring(buf, sizeof(buf), var, NULL, NULL, NULL);
  134.             len = strlen(buf);
  135.             break;
  137.         case ASN_NSAP:
  138.         default:
  139.            warn("snprint_value: asn type not handled %dn",var->type);
  140.      }
  141.    }
  142.    return(len);
  143. }
  145. static int
  146. __sprint_num_objid (buf, objid, len)
  147. char *buf;
  148. oid *objid;
  149. int len;
  150. {
  151.    int i;
  152.    buf[0] = '';
  153.    for (i=0; i < len; i++) {
  154. sprintf(buf,".%lu",*objid++);
  155. buf += strlen(buf);
  156.    }
  157.    return SNMPERR_SUCCESS;
  158. }
  160. static int
  161. __tp_sprint_num_objid (buf, tp)
  162. char *buf;
  163. struct tree *tp;
  164. {
  165.    oid newname[MAX_OID_LEN], *op;
  166.    /* code taken from get_node in snmp_client.c */
  167.    for (op = newname + MAX_OID_LEN - 1; op >= newname; op--) {
  168.       *op = tp->subid;
  169.       tp = tp->parent;
  170.       if (tp == NULL) break;
  171.    }
  172.    return __sprint_num_objid(buf, op, newname + MAX_OID_LEN - op);
  173. }
  175. MODULE = NetSNMP::OID PACKAGE = NetSNMP::OID PREFIX=nso_
  177. netsnmp_oid *
  178. nso_newptr(initstring)
  179.     char *initstring
  180.     CODE:
  181.         if (get_tree_head() == NULL)
  182.             init_mib();
  183.         RETVAL = SNMP_MALLOC_TYPEDEF(netsnmp_oid);
  184.         RETVAL->name = RETVAL->namebuf;
  185.         RETVAL->len = sizeof(RETVAL->namebuf)/sizeof(RETVAL->namebuf[0]);
  186.         if (!snmp_parse_oid(initstring, (oid *) RETVAL->name, &RETVAL->len)) {
  187.             snmp_log(LOG_ERR, "Can't parse: %sn", initstring);
  188.             RETVAL->len = 0;
  189.             RETVAL = NULL;
  190.         }
  191.     OUTPUT:
  192.         RETVAL
  194. double
  195. constant(sv,arg)
  196.     PREINIT:
  197. STRLEN len;
  198.     INPUT:
  199. SV * sv
  200. char * s = SvPV(sv, len);
  201. int arg
  202.     CODE:
  203. RETVAL = constant(s,len,arg);
  204.     OUTPUT:
  205. RETVAL
  207. int
  208. _snmp_oid_compare(oid1, oid2)
  209.     netsnmp_oid *oid1;
  210.     netsnmp_oid *oid2;
  211.     CODE:
  212.         RETVAL = snmp_oid_compare((oid *) oid1->name, oid1->len,
  213.                                   (oid *) oid2->name, oid2->len);
  214.     OUTPUT:
  215.         RETVAL
  217. MODULE = NetSNMP::OID  PACKAGE = netsnmp_oidPtr  PREFIX = nsop_
  219. void
  220. nsop_DESTROY(oid1)
  221. netsnmp_oid *oid1
  222.     CODE:
  223. free(oid1);
  224.         
  225. char *
  226. nsop_to_string(oid1)
  227.      netsnmp_oid *oid1
  228.     PREINIT:
  229.         static char mystr[SNMP_MAXBUF];
  230.     CODE:
  231.         {
  232.             if (oid1->len == 0)
  233.                 snprintf(mystr, sizeof(mystr), "Illegal OID");
  234.             else
  235.                 snprint_objid(mystr, sizeof(mystr),
  236.                               (oid *) oid1->name, oid1->len);
  237.             RETVAL = mystr;
  238.         }
  239.                 
  240.     OUTPUT:
  241.         RETVAL
  243. void
  244. nsop_to_array(oid1)
  245.     netsnmp_oid *oid1;
  246.     PREINIT:
  247.         int i;
  249.     PPCODE:
  250.         EXTEND(SP, oid1->len);
  251.         for(i=0; i < (int)oid1->len; i++) {
  252.             PUSHs(sv_2mortal(newSVnv(oid1->name[i])));
  253.         }
  255. SV *
  256. nsop_get_indexes(oid1)
  257.         netsnmp_oid *oid1;
  258.     PREINIT:
  259.         int i, nodecount;
  260.         struct tree    *tp, *tpe, *tpnode, *indexnode;
  261.         struct index_list *index;
  262.         netsnmp_variable_list vbdata;
  263.         u_char         *buf = NULL;
  264.         size_t          buf_len = 256, out_len = 0;
  265.         oid name[MAX_OID_LEN];
  266.         size_t name_len = MAX_OID_LEN;
  267.         oid *oidp;
  268.         size_t oidp_len;
  269.         AV *myret;
  271.     CODE:
  272.         {
  273.             memset(&vbdata, 0, sizeof(vbdata));
  274.             if (NULL == (tp = get_tree(oid1->name, oid1->len,
  275.                                        get_tree_head()))) {
  276.                 RETVAL = NULL;
  277.                 return;
  278.             }
  279.                 
  280.             if ((buf = (u_char *) calloc(buf_len, 1)) == NULL) {
  281.                 RETVAL = NULL;
  282.                 return;
  283.             }
  285.             nodecount = 0;
  286.             for(tpnode = tp; tpnode; tpnode = tpnode->parent) {
  287.                 nodecount++;
  288.                 if (nodecount == 2)
  289.                     tpe = tpnode;
  290.                 if (nodecount == 3 &&
  291.                     (strlen(tpnode->label) < 6 ||
  292.                      strcmp(tpnode->label + strlen(tpnode->label) - 5,
  293.                             "Table"))) {
  294.                     /* we're not within a table.  bad logic, little choice */
  295.                     RETVAL = NULL;
  296.                     return;
  297.                 }
  298.             }
  300.             if (tpe->augments && strlen(tpe->augments) > 0) {
  301.                 /* we're augmenting another table, so use that entry instead */
  302.                 if (!snmp_parse_oid(tpe->augments, name, &name_len) ||
  303.                     (NULL ==
  304.                      (tpe = get_tree(name, name_len,
  305.                                      get_tree_head())))) {
  306.                     RETVAL = NULL;
  307.                     return; /* XXX: better error recovery needed? */
  308.                 }
  309.             }
  310.             
  311.             i = 0;
  312.             for(index = tpe->indexes; index; index = index->next) {
  313.                 i++;
  314.             }
  316.             myret = (AV *) sv_2mortal((SV *) newAV());
  318.             oidp = oid1->name + nodecount;
  319.             oidp_len = oid1->len - nodecount;
  321.             for(index = tpe->indexes; index; index = index->next) {
  322.                 /* XXX: NOT efficient! */
  323.                 name_len = MAX_OID_LEN;
  324.                 if (!snmp_parse_oid(index->ilabel, name, &name_len) ||
  325.                     (NULL ==
  326.                      (indexnode = get_tree(name, name_len,
  327.                                            get_tree_head())))) {
  328.                     RETVAL = NULL;
  329.                     return;             /* xxx mem leak */
  330.                 }
  331.                 vbdata.type = mib_to_asn_type(indexnode->type);
  332.                 
  333.                 if (vbdata.type == (u_char) -1) {
  334.                     RETVAL = NULL;
  335.                     return; /* XXX: not good.  half populated stack? */
  336.                 }
  337.                 if (index->isimplied)
  338.                     vbdata.type |= ASN_PRIVATE;
  339.                 /* possible memory leak: vbdata.data should be freed later */
  340.                 if (parse_one_oid_index(&oidp, &oidp_len, &vbdata, 0)
  341.                     != SNMPERR_SUCCESS) {
  342.                     RETVAL = NULL;
  343.                     return;
  344.                 }
  345.                 out_len = 0;
  346.                 if (index->isimplied)
  347.                     vbdata.type ^= ASN_PRIVATE;
  348.                 out_len =
  349.                     __snprint_value (buf, buf_len, &vbdata, indexnode,
  350.                                      vbdata.type, 0);
  351. /*
  352.                 sprint_realloc_value(&buf, &buf_len, &out_len,
  353.                                      1, name, name_len, &vbdata);
  354. */
  356.                 av_push(myret, newSVpv(buf, out_len));
  357.             }
  358.             RETVAL = newRV((SV *)myret);
  359.         }
  360.     OUTPUT:
  361.         RETVAL
  363. void
  364. nsop_append(oid1, string)
  365.     netsnmp_oid *oid1;
  366.     char *string;
  367.     PREINIT:
  368.     oid name[MAX_OID_LEN];
  369.     size_t name_len = MAX_OID_LEN;
  370.     int i;
  371.     CODE: 
  372.     {
  373.         if (!snmp_parse_oid(string, (oid *) name, &name_len)) {
  374.             /* XXX */
  375.         }
  376.         if (oid1->len + name_len > MAX_OID_LEN) {
  377.             /* XXX: illegal */
  378.         }
  379.         for(i = 0; i < (int)name_len; i++) {
  380.             oid1->name[i+oid1->len] = name[i];
  381.         }
  382.         oid1->len += name_len;
  383.     }
  385. void
  386. nsop_append_oid(oid1, oid2)
  387.     netsnmp_oid *oid1;
  388.     netsnmp_oid *oid2;
  389.     PREINIT:
  390.     int i;
  391.     CODE: 
  392.     {
  393.         if (oid1->len + oid2->len > MAX_OID_LEN) {
  394.             /* XXX: illegal */
  395.         }
  396.         for(i = 0; i < (int)oid2->len; i++) {
  397.             oid1->name[i+oid1->len] = oid2->name[i];
  398.         }
  399.         oid1->len += oid2->len;
  400.     }
  402. int
  403. nsop_length(oid1)
  404.     netsnmp_oid *oid1;
  405.     CODE: 
  406.     {
  407.         RETVAL = oid1->len;
  408.     }
  409.     OUTPUT:
  410.     RETVAL
  411.     
  412. netsnmp_oid *
  413. nsop_clone(oid1)
  414.     netsnmp_oid *oid1;
  415.     PREINIT:
  416.     netsnmp_oid *oid2;
  417.     CODE:
  418.     {
  419.         oid2 = nso_newarrayptr(oid1->name, oid1->len);
  420.         RETVAL = oid2;
  421.     }
  422. OUTPUT:
  423.     RETVAL
  424.