← Back to branch summary

~ubuntu-branches/ubuntu/precise/net-snmp/precise

« back to all changes in this revision

Viewing changes to perl/agent/agent.xs

  • Committer: Bazaar Package Importer
  • Author(s): Chuck Short
  • Date: 2010-06-28 14:59:36 UTC
  • mfrom: (1.2.3 upstream) (1.1.12 sid)
  • Revision ID: james.westby@ubuntu.com-20100628145936-cbiallic69pn044g
Tags: 5.4.3~dfsg-1ubuntu1
https://launchpad.net/bugs/104738
https://launchpad.net/bugs/254261
https://launchpad.net/bugs/250459
https://launchpad.net/bugs/589056
https://launchpad.net/bugs/573391
https://launchpad.net/bugs/533603
* Merge from debian unstable.  Remaining changes:
  - Set Ubuntu maintainer address.
  - net-snmp-config: Use bash. (LP: #104738)
  - Removed multiuser option when calling update-rc.d. (LP: #254261)
  - debian/snmpd.init: LSBify the init script.
  - debian/patches/52_fix_snmpcmd_1_typo.patch: Adjust a typo in snmpcmd.1
    (LP: #250459)
  - debian/snmpd.postinst: source debconf before doing work, LP: #589056
  - debian/snmp.preinst, debian/snmp.prerm: kill any/all processes owned by
    snmp user before install/uninstall, LP: #573391
  - Add apport hook (LP: #533603):
  - debian/{snmp,snmpd}.apport: Added.
  - debian/control: Build-depends on dh-apport.
  - debian/rules: 
    + Add --with apport.
    + override_dh_apport to install hook on snmpd package only.
 * Dropped patches:
   - debian/patches/99-fix-ubuntu-div0.patch: Fix dvision by zero.. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
perl/agent/agent.xs
13
13
#define sv_undef PL_sv_undef
14
14
#endif
15
15
 
 
16
typedef netsnmp_handler_registration *NetSNMP__agent__netsnmp_handler_registration;
 
17
 
16
18
typedef struct handler_cb_data_s {
17
19
   SV *perl_cb;
18
20
} handler_cb_data;
397
399
        sv_setiv(arg, (IV) handler);
398
400
        XPUSHs(sv_2mortal(rarg));
399
401
        rarg = newSViv(0);
400
 
        arg = newSVrv(rarg, "NetSNMP::agent::reginfo");
 
402
        arg = newSVrv(rarg, "NetSNMP::agent::netsnmp_handler_registrationPtr");
401
403
        sv_setiv(arg, (IV) reginfo);
402
404
        XPUSHs(sv_2mortal(rarg));
403
405
        rarg = newSViv(0);
494
496
 
495
497
MODULE = NetSNMP::agent  PACKAGE = NetSNMP::agent::netsnmp_handler_registration  PREFIX = nsahr_
496
498
 
497
 
netsnmp_handler_registration *
 
499
NetSNMP::agent::netsnmp_handler_registration
498
500
nsahr_new(name, regoid, perlcallback)
499
501
        char *name;
500
502
        char *regoid;
524
526
    OUTPUT:
525
527
        RETVAL
526
528
 
527
 
MODULE = NetSNMP::agent  PACKAGE = netsnmp_handler_registrationPtr  PREFIX = nsahr_
528
 
 
529
529
void
530
530
nsahr_DESTROY(reginfo)
531
531
        netsnmp_handler_registration *reginfo
549
549
    OUTPUT:
550
550
        RETVAL
551
551
 
 
552
 
 
553
MODULE = NetSNMP::agent PACKAGE = NetSNMP::agent::netsnmp_handler_registrationPtr PREFIX = nsahr_
 
554
 
552
555
void
553
556
nsahr_getRootOID(me)
554
557
    SV *me;
773
776
        netsnmp_request_info *request;
774
777
        u_long utmp;
775
778
        long ltmp;
 
779
        uint64_t ulltmp;
 
780
        struct counter64 c64;
776
781
        oid myoid[MAX_OID_LEN];
777
782
        size_t myoid_len;
778
783
        STRLEN stringlen;
828
833
 
829
834
          case ASN_UNSIGNED:
830
835
          case ASN_COUNTER:
831
 
          case ASN_COUNTER64:
832
836
          case ASN_TIMETICKS:
833
837
              /* We want an integer here */
834
838
              if ((SvTYPE(value) == SVt_IV) || (SvTYPE(value) == SVt_PVMG) ||
862
866
                break;
863
867
              }
864
868
 
 
869
          case ASN_COUNTER64:
 
870
              /* We want an integer here */
 
871
              if ((SvTYPE(value) == SVt_IV) || (SvTYPE(value) == SVt_PVMG)) {
 
872
                  /* Good - got a real one (or a blessed scalar which we have to hope will turn out OK) */
 
873
                  ulltmp = SvIV(value);
 
874
                  c64.high = (uint32_t)(ulltmp >> 32);
 
875
                  c64.low  = (uint32_t)ulltmp;
 
876
                  snmp_set_var_typed_value(request->requestvb, (u_char)type,
 
877
                                       (u_char *) &c64, sizeof(struct counter64));
 
878
                  RETVAL = 1;
 
879
                  break;
 
880
              }
 
881
              else if (SvPOKp(value)) {
 
882
                  /* Might be OK - got a string, so try to convert it, allowing base 10, octal, and hex forms */
 
883
                  stringptr = SvPV(value, stringlen);
 
884
#if defined(WIN32)
 
885
                  ulltmp = strtoul(  stringptr, NULL, 0 );
 
886
#else
 
887
                  ulltmp = strtoull( stringptr, NULL, 0 );
 
888
#endif
 
889
                  if (errno == EINVAL) {
 
890
                        snmp_log(LOG_ERR, "Could not convert string to number in setValue: '%s'", stringptr);
 
891
                        RETVAL = 0;
 
892
                        break;
 
893
                  }
 
894
 
 
895
                  c64.high = (uint32_t)(ulltmp >> 32);
 
896
                  c64.low  = (uint32_t)ulltmp;
 
897
                  snmp_set_var_typed_value(request->requestvb, (u_char)type,
 
898
                                       (u_char *) &c64, sizeof(struct counter64));
 
899
                  RETVAL = 1;
 
900
                  break;
 
901
              }
 
902
              else {
 
903
                snmp_log(LOG_ERR, "Non-unsigned-integer value passed to setValue with ASN_COUNTER64: type was %d\n",
 
904
                        SvTYPE(value));
 
905
                RETVAL = 0;
 
906
                break;
 
907
              }
 
908
 
865
909
          case ASN_OCTET_STR:
866
910
          case ASN_BIT_STR:
867
911
              /* Check that we have been passed something with a string value (or a blessed scalar) */