ns_hotp: aligned name of variable with documentation

Author: gustafn

simple-config.tcl

@@ -14,6 +14,7 @@ ns_section ns/servers {
 ns_section ns/server/default/adp {
     ns_param    map              /*.adp
 }
+if {1} {
 ns_section ns/server/default/modules {
     #ns_param   nscp            nscp
     ns_param    nssock          nssock
@@ -23,3 +24,11 @@ ns_section ns/server/default/module/nssock {
     ns_param    address         0.0.0.0
     ns_param    port            8000
 }
+} else {
+ns_section ns/modules { ns_param    nssock          nssock }
+ns_section ns/module/nssock {
+    ns_param    address         0.0.0.0
+    ns_param    port            8000
+}
+}
+#ns_logctl severity Debug(ns:driver) on

tcl/ns_crypto.tcl

@@ -151,9 +151,9 @@ nsf::proc ns_hotp {
     {-digest sha256}
     {-digits:integer 6}
     {-key ""}
-    data
+    counter
 } {
-    set hmac [::ns_crypto::hmac string -digest $digest $key $data]
+    set hmac [::ns_crypto::hmac string -digest $digest $key $counter]
     return [::ns_crypto::hotp_truncate -digits $digits $hmac]
 }
 

tests/ns_crypto.test

@@ -370,7 +370,7 @@ test pbkdf2_hmac-sha256.5 {Testcase 4 for pbkdf2-hmac-sha256, forcing a differen
 
 test ns_hotp-1.0 {syntax: ns_hotp} -constraints {crypto nsf} -body {
     ns_hotp x y
-} -returnCodes error -result {invalid argument 'y', maybe too many arguments; should be "ns_hotp ?-digest /value/? ?-digits /integer/? ?-key /value/? /data/"}
+} -returnCodes error -result {invalid argument 'y', maybe too many arguments; should be "ns_hotp ?-digest /value/? ?-digits /integer/? ?-key /value/? /counter/"}
 
 test hotp-1.1 {