1#! /usr/bin/env tclsh
2
3# netpgp bindings for tcl
4
5load libnetpgptcl.so
6
7# initialisations
8set n [new_netpgp_t]
9netpgp_setvar $n "homedir" "/home/agc/.gnupg"
10netpgp_setvar $n "hash" "SHA256"
11netpgp_init $n
12
13set userid [netpgp_getvar $n "userid"]
14netpgp_sign_file $n $userid "a" "a.gpg" 0 0 0
15netpgp_verify_file $n "a.gpg" "/dev/null" 0
16