1*9e63cf3fSagc#! /usr/pkg/bin/perl -w 2e1d61885Sagc 3e1d61885Sagc# netpgp bindings for perl 4e1d61885Sagc 5*9e63cf3fSagcuse lib "/usr/src/crypto/external/bsd/netpgp/dist/bindings/perl"; 6e1d61885Sagc 7e1d61885Sagcuse netpgpperl; 8e1d61885Sagc 9e1d61885Sagc# initializations 10e1d61885Sagc$n = netpgpperlc::new_netpgp_t(); 11f17a59ebSagcnetpgpperlc::netpgp_setvar($n, "homedir", $ENV{'HOME'}."/.gnupg"); 12e1d61885Sagcnetpgpperlc::netpgp_setvar($n, "hash", "SHA256"); 13e1d61885Sagcnetpgpperlc::netpgp_init($n); 14e1d61885Sagc 15e1d61885Sagc# get the default userid 16e1d61885Sagc$userid = netpgpperlc::netpgp_getvar($n, "userid"); 17e1d61885Sagc 18e1d61885Sagcforeach $i (0 .. $#ARGV) { 19e1d61885Sagc # set up file names 20f17a59ebSagc my $in = $ARGV[$i]; 21f17a59ebSagc my $out = $in . ".gpg"; 22e1d61885Sagc 23e1d61885Sagc # sign the file, output is in $out 24f17a59ebSagc netpgpperlc::netpgp_sign_file($n, $userid, $in, $out, 0, 0, 0); 25e1d61885Sagc 26e1d61885Sagc # verify the signed file $out 27f17a59ebSagc netpgpperlc::netpgp_verify_file($n, $out, "/dev/null", 0); 28e1d61885Sagc} 29