cl-net-snmp-cvs

cl-net-snmp-cvs@common-lisp.net

164 discussions

[cl-net-snmp-cvs] r14 - trunk
by ctian＠common-lisp.net 11 Apr '07

11 Apr '07

Author: ctian Date: Tue Apr 10 18:54:26 2007 New Revision: 14 Modified: trunk/net-snmp.asd Log: fix load problem Modified: trunk/net-snmp.asd ============================================================================== --- trunk/net-snmp.asd (original) +++ trunk/net-snmp.asd Tue Apr 10 18:54:26 2007 @@ -12,7 +12,7 @@ :depends-on (:cffi) :components ((:file "package") (:file "constants" :depends-on ("package")) - (:file "typedefs" :depends-on ("package")) - (:file "asn1" :depends-on ("constants" "typedefs")) + (:file "typedefs" :depends-on ("constants")) + (:file "asn1" :depends-on ("typedefs")) (:file "snmp-api" :depends-on ("constants" "typedefs")) (:file "classes" :depends-on ("snmp-api"))))

1 0

[cl-net-snmp-cvs] r13 - tags/0_1_0 www
by ctian＠common-lisp.net 08 Apr '07

08 Apr '07

Author: ctian Date: Sun Apr 8 08:41:29 2007 New Revision: 13 Added: tags/0_1_0/ - copied from r6, trunk/ tags/0_1_0/README - copied unchanged from r12, trunk/README tags/0_1_0/asn1.lisp - copied unchanged from r12, trunk/asn1.lisp tags/0_1_0/changelog - copied unchanged from r12, trunk/changelog tags/0_1_0/classes.lisp - copied unchanged from r12, trunk/classes.lisp tags/0_1_0/constants.lisp - copied unchanged from r12, trunk/constants.lisp tags/0_1_0/net-snmp.asd - copied unchanged from r12, trunk/net-snmp.asd tags/0_1_0/package.lisp - copied unchanged from r12, trunk/package.lisp tags/0_1_0/snmp-api.lisp - copied unchanged from r12, trunk/snmp-api.lisp Modified: www/index.shtml Log: Make release tag 0.10, and modify webpage Modified: www/index.shtml ============================================================================== --- www/index.shtml (original) +++ www/index.shtml Sun Apr 8 08:41:29 2007 @@ -37,15 +37,15 @@ <div class="deck"> <ul> <li>Base on ASDF and CFFI, can easily run on most CLs.</li> - <li>Only support v1 and v2c now, I'll support v3 some days later.</li> - <li>Only support the GET pdu now.</li> + <li>Support SNMPv1, SNMPv2c, and SNMPv3, but V3 support limited to authNoPriv.</li> + <li>Only support the GET pdu now, but we can get multiple value in lists.</li> </ul> </div> <div class="rule"> </div> <h1>Release</h1> <div class="deck"> - Sat Mar 31 00:37:03 CST 2007: version 0.01, - <a href="http://common-lisp.net/project/cl-net-snmp/release/cl-net-snmp_0.01.tar.gz"> + Sun Apr 8 20:11:52 CST 2007: version 0.10, + <a href="http://common-lisp.net/project/cl-net-snmp/release/cl-net-snmp_0.10.tar.gz"> get the source.</a><br/> </div> <div class="rule"> </div> @@ -63,26 +63,7 @@ <h1>Document</h1> <div class="deck"> I define two classes: 'snmp-session and 'oid, and a 'snmp-get-msg method to do the - work, see sample usage: - <pre> -CL-USER> (in-package :snmp) -#<PACKAGE "ORG.NET-SNMP"> -NET-SNMP> (snmp-msg-get "binghe.people.163.org" "sysDescr.0") -"Linux binghe.people.163.org 2.6.18-4-686 #1 SMP Wed Feb 21 16:06:54 UTC 2007 i686" -NET-SNMP> (snmp-msg-get "binghe.people.163.org" "laLoad.1") -"0.00" -NET-SNMP> (defvar binghe (make-instance 'snmp-session - :peername "binghe.people.163.org" - :version +snmp-version-2c+ - :community "public")) -BINGHE -NET-SNMP> (snmp-msg-get binghe "sysDescr.0") -"Linux binghe.people.163.org 2.6.18-4-686 #1 SMP Wed Feb 21 16:06:54 UTC 2007 i686" -NET-SNMP> (defvar descr (make-instance 'oid :name "sysDescr.0")) -DESCR -NET-SNMP> (snmp-msg-get binghe descr) -"Linux binghe.people.163.org 2.6.18-4-686 #1 SMP Wed Feb 21 16:06:54 UTC 2007 i686" - </pre> + work, see README file in source code. </div> <div class="rule"> </div> <h1>Relate Lisp Projects</h1>

1 0

[cl-net-snmp-cvs] r12 - trunk
by ctian＠common-lisp.net 08 Apr '07

08 Apr '07

Author: ctian Date: Sun Apr 8 08:26:19 2007 New Revision: 12 Added: trunk/asn1.lisp Modified: trunk/README trunk/changelog trunk/classes.lisp trunk/constants.lisp trunk/net-snmp.asd trunk/package.lisp trunk/snmp-api.lisp Log: * Release 0.10 * Add SNMPv3 (authNoPriv) support * One time get multiple value (use snmp-msg-get-list) Modified: trunk/README ============================================================================== --- trunk/README (original) +++ trunk/README Sun Apr 8 08:26:19 2007 @@ -6,15 +6,17 @@ ;;; NetEase.com, Inc. (http://corp.netease.com) ;;; This package only support: -;;; * Version: SNMPv1, SNMPv2c -;;; * PDU Type: GET -;;; * Just print the result to stdout... +;;; * Version: SNMPv1, SNMPv2c, SNMPv3(authNoPriv) +;;; * PDU Type: GET(single, multiple) +;;; * Return string or number. ;;; I use the CFFI for portable CL support, see http://common-lisp.net/project/cffi/ ;;; Known work on: SBCL and CLISP ;;; Sample usage: +(in-package :cl-user) + (defun test () (let ((s (make-instance 'snmp:snmp-session :peername "localhost" @@ -22,3 +24,15 @@ :version snmp:+snmp-version-2c+))) (snmp:snmp-msg-get s "sysDescr.0") (snmp:snmp-msg-get "localhost" ".1.3.6.1.2.1.1.1.0"))) + +;;; SNMPv3 and GETs Example +(defun v3-test () + (let ((s (make-instance 'snmp:snmp-session + :peername "binghe.people.163.org" + :version snmp:+snmp-version-3+ + :security-name "binghe" + :password "bBtB0bxs" + :security-auth-proto :hmac-sha1))) + (snmp:snmp-msg-get-list s + '("sysDescr.0" "sysContact.0")))) +;; => ("Linux binghe.people.163.org 2.6.18-4-686 #1 SMP Wed Feb 21 16:06:54 UTC 2007 i686" "Chun Tian (binghe) <binghe(a)163.org>") Added: trunk/asn1.lisp ============================================================================== --- (empty file) +++ trunk/asn1.lisp Sun Apr 8 08:26:19 2007 @@ -0,0 +1,36 @@ +(in-package :org.net-snmp) + +(eval-when (:compile-toplevel :load-toplevel :execute) + (defclass oid () + ((name :type string :reader oid-name :initarg :name) + (length :type integer :reader oid-length) + c-oids + c-oid-len)) + + (defmethod shared-initialize :after ((instance oid) slot-names &rest initargs) + (declare (ignore slot-names initargs)) + (with-slots (name length c-oids c-oid-len) instance + (progn + (setf c-oids (foreign-alloc 'c-oid :count +max-oid-len+) + c-oid-len (foreign-alloc 'c-size-type :initial-element +max-oid-len+)) + (if (and (> (length name) 0) + (eq (elt name 0) #\.)) + (c-read-objid name c-oids c-oid-len) + (c-get-node name c-oids c-oid-len)) + (setf length (mem-ref c-oid-len 'c-size-type))))) + + (defmacro snmp-var->value (var) + (let ((v (gensym))) + `(let ((,v ,var)) + (case (foreign-slot-value ,v 'c-variable-list 'c-type) + ;; ASN_OCTET_STR + (,+asn-octet-str+ + (foreign-string-to-lisp + (foreign-slot-value ,v 'c-variable-list 'c-val) + (foreign-slot-value ,v 'c-variable-list 'c-val-len))) + ;; ASN_COUNTER + (,+asn-counter+ + (mem-ref (foreign-slot-value ,v 'c-variable-list 'c-val) + :uint32)) + (otherwise :others)))))) + Modified: trunk/changelog ============================================================================== --- trunk/changelog (original) +++ trunk/changelog Sun Apr 8 08:26:19 2007 @@ -1,3 +1,9 @@ +Sun Apr 8 20:11:52 CST 2007, ctian + + * Release 0.10 + * SNMPv3 Support (only authNoPriv, both MD5 and SHA1) + * Add a snmp-msg-get-list to request more than one variable per time + Sat Mar 31 00:37:03 CST 2007, ctian * Release 0.01 Modified: trunk/classes.lisp ============================================================================== --- trunk/classes.lisp (original) +++ trunk/classes.lisp Sun Apr 8 08:26:19 2007 @@ -1,5 +1,17 @@ (in-package :org.net-snmp) +(eval-when (:compile-toplevel :load-toplevel :execute) + (let ((md5 (make-instance 'oid :name ".1.3.6.1.6.3.10.1.1.2")) + (sha1 (make-instance 'oid :name ".1.3.6.1.6.3.10.1.1.3"))) + (defparameter +usm-hmac-md5-auth-protocol+ (slot-value md5 'c-oids)) + (defparameter +usm-hmac-md5-auth-protocol-len+ (oid-length md5)) + (defparameter +usm-hmac-sha1-auth-protocol+ (slot-value sha1 'c-oids)) + (defparameter +usm-hmac-sha1-auth-protocol-len+ (oid-length sha1)))) + +;;; +;;; SNMP Session +;;; + (defclass snmp-session () ((peername :reader snmp-peername :initarg :peername @@ -13,38 +25,79 @@ :initarg :community :type string :initform "public") + (security-name :reader snmp-security-name + :initarg :security-name + :type string) + (security-level :reader snmp-security-level + :initarg :security-level + :type string + :initform +snmp-sec-level-authnopriv+) + (security-auth-proto :reader snmp-security-auth-proto + :initarg :security-auth-proto + :type (member :hmac-md5 :hmac-sha1) + :initform :hmac-md5) + (passphrase :initarg :passphrase + :type string + :initform "binghe") c-session)) (defmethod shared-initialize :after ((instance snmp-session) slot-names &rest initargs) (declare (ignore slot-names initargs)) - (with-slots (peername version community c-session) instance + (with-slots (peername version c-session) instance (progn (setf c-session (foreign-alloc 'c-snmp-session)) (c-snmp-session-init c-session) - (with-foreign-slots ((c-peername c-version c-community c-community-len) - c-session c-snmp-session) - (setf c-peername (foreign-string-alloc peername) - c-version version - c-community (foreign-string-alloc community) - c-community-len (length community)))))) - -(defclass oid () - ((name :type string :reader oid-name :initarg :name) - (length :type integer :reader oid-length) - c-oids - c-oid-len)) - -(defmethod shared-initialize :after ((instance oid) slot-names &rest initargs) - (declare (ignore slot-names initargs)) - (with-slots (name length c-oids c-oid-len) instance - (progn - (setf c-oids (foreign-alloc 'c-oid :count +max-oid-len+) - c-oid-len (foreign-alloc 'c-size-type :initial-element +max-oid-len+)) - (if (and (> (length name) 0) - (eq (elt name 0) #\.)) - (c-read-objid name c-oids c-oid-len) - (c-get-node name c-oids c-oid-len)) - (setf length (mem-ref c-oid-len 'c-size-type))))) + (cond ((or (= version +snmp-version-1+) + (= version +snmp-version-2c+)) + (with-slots (community) instance + (with-foreign-slots ((c-peername c-version c-community c-community-len) + c-session c-snmp-session) + (setf c-peername (foreign-string-alloc peername) + c-version version + c-community (foreign-string-alloc community) + c-community-len (length community))))) + ;; SNMPv3 support + ((= version +snmp-version-3+) + (with-slots (security-name security-level security-auth-proto passphrase) + instance + (with-foreign-slots ((c-peername + c-version + c-security-name + c-security-name-len + c-security-level + c-security-auth-proto + c-security-auth-proto-len + c-security-auth-key-len) + c-session c-snmp-session) + (progn + (setf c-peername (foreign-string-alloc peername) + c-version version + c-security-name security-name + c-security-name-len (length security-name) + ;; we only support authNoPriv now + c-security-level +snmp-sec-level-authnopriv+ + c-security-auth-key-len +usm-auth-ku-len+) + (case security-auth-proto + (:hmac-md5 + (setf c-security-auth-proto +usm-hmac-md5-auth-protocol+ + c-security-auth-proto-len +usm-hmac-md5-auth-protocol-len+)) + (:hmac-sha1 + (setf c-security-auth-proto +usm-hmac-sha1-auth-protocol+ + c-security-auth-proto-len +usm-hmac-sha1-auth-protocol-len+))) + (let ((c-passphrase (foreign-string-alloc passphrase))) + (if (/= (c-generate-ku c-security-auth-proto + c-security-auth-proto-len + c-passphrase + (length passphrase) + (foreign-slot-pointer c-session + 'c-snmp-session + 'c-security-auth-key) + (foreign-slot-pointer c-session + 'c-snmp-session + 'c-security-auth-key-len)) + +snmp-err-success+) + (error "Error generating Ku from authentication pass phrase."))))))) + (t (error "unknown snmp version!")))))) (defmethod snmp-msg-get ((s snmp-session) (o oid)) (car (snmp-msg-get-list s (list o)))) @@ -87,16 +140,3 @@ (defmethod snmp-msg-get-list ((s string) (oids list)) (snmp-msg-get-list (make-instance 'snmp-session :peername s) oids)) - -(defmacro snmp-var->value (var) - (let ((v (gensym))) - `(let ((,v ,var)) - (case (foreign-slot-value ,v 'c-variable-list 'c-type) - (,+asn-octet-str+ - (foreign-string-to-lisp - (foreign-slot-value ,v 'c-variable-list 'c-val) - (foreign-slot-value ,v 'c-variable-list 'c-val-len))) - (,+asn-counter32+ - (mem-ref (foreign-slot-value ,v 'c-variable-list 'c-val) - :uint32)) - (otherwise :others))))) Modified: trunk/constants.lisp ============================================================================== --- trunk/constants.lisp (original) +++ trunk/constants.lisp Sun Apr 8 08:26:19 2007 @@ -16,7 +16,6 @@ (defconstant +asn-object-id+ #x06) (defconstant +asn-sequence+ #x10) (defconstant +asn-set+ #x11) -(defconstant +asn-counter32+ #x41) (defconstant +asn-universal+ #b00000000) (defconstant +asn-application+ #b01000000) @@ -26,6 +25,19 @@ (defconstant +asn-primitive+ #b00000000) (defconstant +asn-constructor+ #b00100000) +;; defined types (from the SMI, RFC 1157) +(defconstant +asn-ipaddress+ (logior +asn-application+ 0)) +(defconstant +asn-counter+ (logior +asn-application+ 1)) +(defconstant +asn-gauge+ (logior +asn-application+ 2)) +(defconstant +asn-unsigned+ (logior +asn-application+ 2)) +(defconstant +asn-timeticks+ (logior +asn-application+ 3)) +(defconstant +asn-opaque+ (logior +asn-application+ 4)) + +;; defined types (from the SMI, RFC 1442) +(defconstant +asn-nsap+ (logior +asn-application+ 5)) +(defconstant +asn-counter64+ (logior +asn-application+ 6)) +(defconstant +asn-uinteger+ (logior +asn-application+ 7)) + ;;; from snmp.h (defconstant +snmp-version-1+ 0) (defconstant +snmp-version-2c+ 1) @@ -76,6 +88,7 @@ (defconstant +snmp-stat-error+ 1) (defconstant +snmp-stat-timeout+ 2) +(defconstant +snmp-err-success+ 0) (defconstant +snmp-err-noerror+ 0) (defconstant +snmp-err-toobig+ 1) (defconstant +snmp-err-nosuchname+ 2) Modified: trunk/net-snmp.asd ============================================================================== --- trunk/net-snmp.asd (original) +++ trunk/net-snmp.asd Sun Apr 8 08:26:19 2007 @@ -7,11 +7,12 @@ (defsystem net-snmp :description "Common Lisp interface for Net-SNMP" - :version "0.01" + :version "0.10" :author "Chun Tian (binghe)" :depends-on (:cffi) :components ((:file "package") (:file "constants" :depends-on ("package")) (:file "typedefs" :depends-on ("package")) + (:file "asn1" :depends-on ("constants" "typedefs")) (:file "snmp-api" :depends-on ("constants" "typedefs")) (:file "classes" :depends-on ("snmp-api")))) Modified: trunk/package.lisp ============================================================================== --- trunk/package.lisp (original) +++ trunk/package.lisp Sun Apr 8 08:26:19 2007 @@ -11,7 +11,8 @@ snmp-msg-get-list ;; constants +snmp-version-1+ - +snmp-version-2c+)) + +snmp-version-2c+ + +snmp-version-3+)) (in-package :org.net-snmp) Modified: trunk/snmp-api.lisp ============================================================================== --- trunk/snmp-api.lisp (original) +++ trunk/snmp-api.lisp Sun Apr 8 08:26:19 2007 @@ -1,7 +1,5 @@ (in-package :org.net-snmp) -;;(defcvar ("usmHMACMD5AuthProtocol" *c-usm-hmac-md5-auth-protocol*) :pointer) - (eval-when (:compile-toplevel :load-toplevel) (defcfun ("init_snmp" c-snmp-init) :void (type :string))) @@ -75,3 +73,10 @@ (objidlen :ulong) (variable :pointer)) +(defcfun ("generate_Ku" c-generate-ku) :int + (hashtype :pointer) + (hashtype-len :uint) + (p :pointer) + (pplen :ulong) + (ku :pointer) + (kulen :pointer))

1 0

[cl-net-snmp-cvs] r11 - trunk
by ctian＠common-lisp.net 02 Apr '07

02 Apr '07

Author: ctian Date: Mon Apr 2 14:14:12 2007 New Revision: 11 Modified: trunk/package.lisp Log: export snmp-msg-get-list Modified: trunk/package.lisp ============================================================================== --- trunk/package.lisp (original) +++ trunk/package.lisp Mon Apr 2 14:14:12 2007 @@ -8,6 +8,7 @@ snmp-session oid ;; method snmp-msg-get + snmp-msg-get-list ;; constants +snmp-version-1+ +snmp-version-2c+))

1 0

[cl-net-snmp-cvs] r10 - trunk
by ctian＠common-lisp.net 02 Apr '07

02 Apr '07

Author: ctian Date: Mon Apr 2 14:11:13 2007 New Revision: 10 Modified: trunk/classes.lisp trunk/constants.lisp Log: * add +asn-counter32+ type * add snmp-msg-get-list method to request more than one snmp var at once. Modified: trunk/classes.lisp ============================================================================== --- trunk/classes.lisp (original) +++ trunk/classes.lisp Mon Apr 2 14:11:13 2007 @@ -40,38 +40,63 @@ (progn (setf c-oids (foreign-alloc 'c-oid :count +max-oid-len+) c-oid-len (foreign-alloc 'c-size-type :initial-element +max-oid-len+)) - (if (eq (elt name 0) #\.) + (if (and (> (length name) 0) + (eq (elt name 0) #\.)) (c-read-objid name c-oids c-oid-len) (c-get-node name c-oids c-oid-len)) (setf length (mem-ref c-oid-len 'c-size-type))))) (defmethod snmp-msg-get ((s snmp-session) (o oid)) + (car (snmp-msg-get-list s (list o)))) + +(defmethod snmp-msg-get ((s snmp-session) (o string)) + (snmp-msg-get s (make-instance 'oid :name o))) + +(defmethod snmp-msg-get ((s string) (o string)) + (snmp-msg-get (make-instance 'snmp-session :peername s) o)) + +(defmethod snmp-msg-get-list ((s snmp-session) (oids list)) (let ((ss (c-snmp-open (slot-value s 'c-session))) (pdu (c-snmp-pdu-create +snmp-msg-get+)) (response (foreign-alloc :pointer :initial-element (null-pointer))) - value) + values) (progn - (c-snmp-add-null-var pdu - (slot-value o 'c-oids) - (mem-ref (slot-value o 'c-oid-len) 'c-size-type)) + ;; 1. fill oids into request pdu + (dolist (o oids) + (let ((real-o (typecase o + (oid o) + (string (make-instance 'oid :name o)) + (t (make-instance 'oid :name ""))))) + (c-snmp-add-null-var pdu + (slot-value real-o 'c-oids) + (mem-ref (slot-value real-o 'c-oid-len) 'c-size-type)))) + ;; 2. get results from response pdu (let ((status (c-snmp-synch-response ss pdu response))) - (if (and (= status +snmp-stat-success+) - (= (foreign-slot-value (mem-aref response :pointer) 'c-snmp-pdu 'c-errstat) - +snmp-err-noerror+)) - (let ((vars (foreign-slot-value (mem-aref response :pointer) - 'c-snmp-pdu 'c-variables))) - (if (= (foreign-slot-value vars 'c-variable-list 'c-type) +asn-octet-str+) - (setf value (foreign-string-to-lisp - (foreign-slot-value vars 'c-variable-list 'c-val) - (foreign-slot-value vars 'c-variable-list 'c-val-len))) - (setf value "(not a string, unsupport yet..)"))))) + (setf values + (if (and (= status +snmp-stat-success+) + (= (foreign-slot-value (mem-aref response :pointer) 'c-snmp-pdu 'c-errstat) + +snmp-err-noerror+)) + (loop for vars = (foreign-slot-value (mem-aref response :pointer) + 'c-snmp-pdu 'c-variables) + then (foreign-slot-value vars 'c-variable-list 'c-next-variable) + until (null-pointer-p vars) + collect (snmp-var->value vars))))) (c-snmp-pdu-free (mem-aref response :pointer)) (c-snmp-close ss) - value))) - -(defmethod snmp-msg-get ((s snmp-session) (o string)) - (snmp-msg-get s (make-instance 'oid :name o))) + values))) -(defmethod snmp-msg-get ((s string) (o string)) - (snmp-msg-get (make-instance 'snmp-session :peername s) o)) +(defmethod snmp-msg-get-list ((s string) (oids list)) + (snmp-msg-get-list (make-instance 'snmp-session :peername s) oids)) +(defmacro snmp-var->value (var) + (let ((v (gensym))) + `(let ((,v ,var)) + (case (foreign-slot-value ,v 'c-variable-list 'c-type) + (,+asn-octet-str+ + (foreign-string-to-lisp + (foreign-slot-value ,v 'c-variable-list 'c-val) + (foreign-slot-value ,v 'c-variable-list 'c-val-len))) + (,+asn-counter32+ + (mem-ref (foreign-slot-value ,v 'c-variable-list 'c-val) + :uint32)) + (otherwise :others))))) Modified: trunk/constants.lisp ============================================================================== --- trunk/constants.lisp (original) +++ trunk/constants.lisp Mon Apr 2 14:11:13 2007 @@ -16,6 +16,7 @@ (defconstant +asn-object-id+ #x06) (defconstant +asn-sequence+ #x10) (defconstant +asn-set+ #x11) +(defconstant +asn-counter32+ #x41) (defconstant +asn-universal+ #b00000000) (defconstant +asn-application+ #b01000000)

1 0

[cl-net-snmp-cvs] r9 - www
by ctian＠common-lisp.net 30 Mar '07

30 Mar '07

Author: ctian Date: Fri Mar 30 11:50:38 2007 New Revision: 9 Modified: www/index.shtml Log: fix download url Modified: www/index.shtml ============================================================================== --- www/index.shtml (original) +++ www/index.shtml Fri Mar 30 11:50:38 2007 @@ -44,8 +44,9 @@ <div class="rule"> </div> <h1>Release</h1> <div class="deck"> - Sat Mar 31 00:37:03 CST 2007: version 0.01. - <a href="/release/cl-net-snmp_0.01.tar.gz">Download the source.</a><br/> + Sat Mar 31 00:37:03 CST 2007: version 0.01, + <a href="http://common-lisp.net/project/cl-net-snmp/release/cl-net-snmp_0.01.tar.gz"> + get the source.</a><br/> </div> <div class="rule"> </div> <h1>Source Code</h1>

1 0

[cl-net-snmp-cvs] r8 - tags/0_0_1 www
by ctian＠common-lisp.net 30 Mar '07

30 Mar '07

Author: ctian Date: Fri Mar 30 11:46:17 2007 New Revision: 8 Added: tags/0_0_1/ - copied from r6, trunk/ tags/0_0_1/changelog - copied unchanged from r7, trunk/changelog Modified: www/index.shtml Log: [tags] release 0.01 Modified: www/index.shtml ============================================================================== --- www/index.shtml (original) +++ www/index.shtml Fri Mar 30 11:46:17 2007 @@ -43,7 +43,9 @@ </div> <div class="rule"> </div> <h1>Release</h1> - <div class="deck">No release at current...<br/> + <div class="deck"> + Sat Mar 31 00:37:03 CST 2007: version 0.01. + <a href="/release/cl-net-snmp_0.01.tar.gz">Download the source.</a><br/> </div> <div class="rule"> </div> <h1>Source Code</h1>

1 0

[cl-net-snmp-cvs] r7 - trunk
by ctian＠common-lisp.net 30 Mar '07

30 Mar '07

Author: ctian Date: Fri Mar 30 11:42:50 2007 New Revision: 7 Added: trunk/changelog Log: release 0.01 Added: trunk/changelog ============================================================================== --- (empty file) +++ trunk/changelog Fri Mar 30 11:42:50 2007 @@ -0,0 +1,4 @@ +Sat Mar 31 00:37:03 CST 2007, ctian + + * Release 0.01 + * SNMP support: v1 and v2c, get

1 0

[cl-net-snmp-cvs] r6 - trunk
by ctian＠common-lisp.net 30 Mar '07

30 Mar '07

Author: ctian Date: Fri Mar 30 11:18:00 2007 New Revision: 6 Modified: trunk/classes.lisp Log: fix: snmp-msg-get now return results as a string Modified: trunk/classes.lisp ============================================================================== --- trunk/classes.lisp (original) +++ trunk/classes.lisp Fri Mar 30 11:18:00 2007 @@ -48,7 +48,8 @@ (defmethod snmp-msg-get ((s snmp-session) (o oid)) (let ((ss (c-snmp-open (slot-value s 'c-session))) (pdu (c-snmp-pdu-create +snmp-msg-get+)) - (response (foreign-alloc :pointer :initial-element (null-pointer)))) + (response (foreign-alloc :pointer :initial-element (null-pointer))) + value) (progn (c-snmp-add-null-var pdu (slot-value o 'c-oids) @@ -59,13 +60,14 @@ +snmp-err-noerror+)) (let ((vars (foreign-slot-value (mem-aref response :pointer) 'c-snmp-pdu 'c-variables))) - (c-print-variable (foreign-slot-value vars 'c-variable-list 'c-name) - (foreign-slot-value vars 'c-variable-list 'c-name-length) - vars)) - nil)) + (if (= (foreign-slot-value vars 'c-variable-list 'c-type) +asn-octet-str+) + (setf value (foreign-string-to-lisp + (foreign-slot-value vars 'c-variable-list 'c-val) + (foreign-slot-value vars 'c-variable-list 'c-val-len))) + (setf value "(not a string, unsupport yet..)"))))) (c-snmp-pdu-free (mem-aref response :pointer)) (c-snmp-close ss) - nil))) + value))) (defmethod snmp-msg-get ((s snmp-session) (o string)) (snmp-msg-get s (make-instance 'oid :name o)))

1 0

[cl-net-snmp-cvs] r5 - www
by ctian＠common-lisp.net 30 Mar '07

30 Mar '07

Author: ctian Date: Fri Mar 30 11:16:33 2007 New Revision: 5 Modified: www/index.shtml Log: [www] add more info and sample code Modified: www/index.shtml ============================================================================== --- www/index.shtml (original) +++ www/index.shtml Fri Mar 30 11:16:33 2007 @@ -1,79 +1,121 @@ <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> -<head> - <title>cl-net-snmp</title> - <link rel="stylesheet" type="text/css" - href="http://www.style.org/css/style.org-blue.css"> - <meta http-equiv="Content-Type" - content="text/html; charset=ISO-8859-1"> -</head> -<body> -<basefont face="Georgia" size="2"> -<div class="header"><br> -</div> -<div class="shadow1"> </div> -<div class="shadow2"> </div> -<div class="content"> -<h1>Common Lisp Interface of Net-SNMP (cl-net-snmp)</h1> -<div class="rule"> </div> -<a href="http://www.net-snmp.org"><img - src="http://www.net-snmp.org/images/logos/logo1_50.jpg" - alt="Net-SNMP Logo" class="titleimage" - style="margin-top: 10px; margin-right: 0px;" border="0"></a> -<h1>About</h1> -<div class="deck">cl-net-snmp is a Common Lisp package, an -interface to Net-SNMP project: the famous open source implementation of -Simple Network -Management Protocol (SNMP). With this package, It's possible to build a -network nanagement system in common lisp, the most advance computer -programming language in the world.<br> -<br> -This package is still in early development stage, lots of work for me -to do, but I'll continue coding, because I use it for managing my -servers. (I'm a Unix System Administrator of <a - href="http://corp.netease.com/">NetEase.com, Inc.</a>) -</div> -<div class="rule"> </div> -<h1>Release<br> -</h1> -<div class="deck">No release at current...<br> -</div> -<div class="rule"> </div> -<h1>Source Code</h1> -<div class="deck">Click <a - href="http://common-lisp.net/websvn/listing.php?repname=cl-net-snmp&path=%2F&…">here</a> -to view the source code on common-lisp.net's Web-SVN interface, and use -follow command to check out the code:<br> -<br> -<div class="dateline">svn checkout -svn://common-lisp.net/project/cl-net-snmp/svn/trunk cl-net-snmp<br> -</div> -</div> -<br> -<div class="rule"> </div> -<h1>Mailing List</h1> -<div class="deck"> -<ul> - <li><a - href="http://common-lisp.net/cgi-bin/mailman/listinfo/cl-net-snmp-announce">cl-net-snmp-announce</a></li> - <li><a - href="http://common-lisp.net/cgi-bin/mailman/listinfo/cl-net-snmp-devel">cl-net-snmp-devel</a></li> - <li><a - href="http://common-lisp.net/cgi-bin/mailman/listinfo/cl-net-snmp-cvs">cl-net-snmp-cvs</a><br> - </li> -</ul> -</div> -<div class="rule"> </div> -<h1>Maintainer<br> -</h1> -<div class="deck">Chun Tian (binghe) <ctian at common-lisp dot -net>, Lisp Programmer, Unix Administrator.<br> -Welcome to his chinese <a href="http://tianchunbinghe.blog.163.com/">BLOG</a> -on NetEase blog system.^_^<br> -</div> -</div> -<div class="footer"> -<address>Powered by Common-Lisp.net</address> -</div> -</body> + <head> + <title>cl-net-snmp</title> + <link rel="stylesheet" type="text/css" + href="http://www.style.org/css/style.org-red.css"/> + <meta http-equiv="Content-Type" + content="text/html; charset=ISO-8859-1"/> + <basefont face="Georgia" size="2"/> + </head> + <body> + <div class="header"><br/></div> + <div class="shadow1"> </div> + <div class="shadow2"> </div> + <div class="content"> + <h1>Common Lisp Interface of Net-SNMP (cl-net-snmp)</h1> + <div class="rule"> </div> + <a href="http://www.net-snmp.org"> + <img src="http://www.net-snmp.org/images/logos/logo1_50.jpg" + alt="Net-SNMP Logo" class="titleimage" + style="margin-top: 10px; margin-right: 0px;" border="0"/> + </a> + <h1>About</h1> + <div class="deck"> + cl-net-snmp is a Common Lisp package, an interface to Net-SNMP project: + the famous open source implementation of Simple Network Management Protocol + (SNMP). With this package, It's possible to build a network nanagement system + in common lisp, the most advance computer programming language in the world. + <br/> + This package is still in early development stage, lots of work for me + to do, but I'll continue coding, because I use it for managing my + servers. (I'm a Unix System Administrator of + <a href="http://corp.netease.com/">NetEase.com, Inc.</a>) + </div> + <div class="rule"> </div> + <h1>Feature</h1> + <div class="deck"> + <ul> + <li>Base on ASDF and CFFI, can easily run on most CLs.</li> + <li>Only support v1 and v2c now, I'll support v3 some days later.</li> + <li>Only support the GET pdu now.</li> + </ul> + </div> + <div class="rule"> </div> + <h1>Release</h1> + <div class="deck">No release at current...<br/> + </div> + <div class="rule"> </div> + <h1>Source Code</h1> + <div class="deck"> + Click + <a href="http://common-lisp.net/websvn/listing.php?repname=cl-net-snmp&path=%2F&sc=0"> + here</a> to view the source code on common-lisp.net's Web-SVN interface, and use + follow command to check out the code:<br/> + <div class="dateline"> + svn checkout svn://common-lisp.net/project/cl-net-snmp/svn/trunk cl-net-snmp<br/> + </div> + </div> + <div class="rule"> </div> + <h1>Document</h1> + <div class="deck"> + I define two classes: 'snmp-session and 'oid, and a 'snmp-get-msg method to do the + work, see sample usage: + <pre> +CL-USER> (in-package :snmp) +#<PACKAGE "ORG.NET-SNMP"> +NET-SNMP> (snmp-msg-get "binghe.people.163.org" "sysDescr.0") +"Linux binghe.people.163.org 2.6.18-4-686 #1 SMP Wed Feb 21 16:06:54 UTC 2007 i686" +NET-SNMP> (snmp-msg-get "binghe.people.163.org" "laLoad.1") +"0.00" +NET-SNMP> (defvar binghe (make-instance 'snmp-session + :peername "binghe.people.163.org" + :version +snmp-version-2c+ + :community "public")) +BINGHE +NET-SNMP> (snmp-msg-get binghe "sysDescr.0") +"Linux binghe.people.163.org 2.6.18-4-686 #1 SMP Wed Feb 21 16:06:54 UTC 2007 i686" +NET-SNMP> (defvar descr (make-instance 'oid :name "sysDescr.0")) +DESCR +NET-SNMP> (snmp-msg-get binghe descr) +"Linux binghe.people.163.org 2.6.18-4-686 #1 SMP Wed Feb 21 16:06:54 UTC 2007 i686" + </pre> + </div> + <div class="rule"> </div> + <h1>Relate Lisp Projects</h1> + <div class="deck"> + <ul> + <li><a href="http://common-lisp.net/project/asdf/"> + ASDF: Another System Definition Facility</a></li> + <li><a href="http://common-lisp.net/project/cffi/"> + CFFI - The Common Foreign Function Interface</a></li> + <li><a href="http://www.sbcl.org/">Steel Bank Common Lisp</a></li> + <li><a href="http://www.cliki.net/Lisp-SNMP">Lisp-SNMP</a></li> + </ul> + </div> + <div class="rule"> </div> + <h1>Mailing List</h1> + <div class="deck"> + <ul> + <li><a href="http://common-lisp.net/cgi-bin/mailman/listinfo/cl-net-snmp-announce"> + cl-net-snmp-announce</a></li> + <li><a href="http://common-lisp.net/cgi-bin/mailman/listinfo/cl-net-snmp-devel"> + cl-net-snmp-devel</a></li> + <li><a href="http://common-lisp.net/cgi-bin/mailman/listinfo/cl-net-snmp-cvs"> + cl-net-snmp-cvs</a></li> + </ul> + </div> + <div class="rule"> </div> + <h1>Maintainer</h1> + <div class="deck"> + Chun Tian (binghe) <ctian at common-lisp dot + net>, Lisp Programmer, Unix Administrator.<br/> + Welcome to his chinese <a href="http://tianchunbinghe.blog.163.com/">BLOG</a> + on NetEase blog system.^_^<br/> + </div> + </div> + <div class="footer"> + <address>Powered by Common-Lisp.net</address> + </div> + </body> </html>

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

cl-net-snmp-cvs