1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#! /usr/bin/env tclsh
lappend auto_path [file join [pwd] work lib]
lappend auto_path [file join [pwd] lib]
set pkcs11_module "/usr/local/lib/libcackey.so"
load tclpkcs11.so Tclpkcs11
set handle [pki::pkcs11::loadmodule $pkcs11_module]
puts "Handle: $handle"
set slots [pki::pkcs11::listslots $handle]
puts "Slots: $slots"
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
#! /usr/bin/env tclsh
lappend auto_path [file join [pwd] work lib]
lappend auto_path [file join [pwd] lib]
set pkcs11_module "/usr/local/lib/libcackey.so"
load ./tclpkcs11.so Tclpkcs11
set handle [pki::pkcs11::loadmodule $pkcs11_module]
puts "Handle: $handle"
set slots [pki::pkcs11::listslots $handle]
puts "Slots: $slots"
|