rooty/yubikey-ksm
1
0
Fork 0
mirror of https://github.com/Yubico/yubikey-ksm.git synced 2024-11-29 00:24:14 +01:00
Code Issues Projects Releases Wiki Activity

Improve help and fix created_by field.

Browse Source
This commit is contained in:
Simon Josefsson 2009-12-14 16:02:53 +00:00
parent 24e030ff85
commit 9be8b3bbc8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ykksm-import.pl
View File

@ -41,7 +41,8 @@ sub usage {
print "\n"; print "\n";
print " --database DBI: Database identifier, see http://dbi.perl.org/\n"; print " --database DBI: Database identifier, see http://dbi.perl.org/\n";
print " defaults to a MySQL database ykksm on localhost,\n"; print " defaults to a MySQL database ykksm on localhost,\n";
print " i.e., DBI::mysql:ykksm.\n"; print " i.e., dbi:mysql:ykksm. For PostgreSQL on the local\n";
print " host you can use 'DBI:Pg:dbname=ykksm;host=127.0.0.1'.\n";
print "\n"; print "\n";
print " --db-user USER: Database username to use, defaults to empty string.\n"; print " --db-user USER: Database username to use, defaults to empty string.\n";
print "\n"; print "\n";
@ -105,7 +106,7 @@ open(GPGV, "gpg --status-fd 1 --output /dev/null < $infilename 2>&1 |")
while (<GPGV>) { while (<GPGV>) {
$verify_status .= $_; $verify_status .= $_;
$encrypted_to = $1 if m,^\[GNUPG:\] ENC_TO ([0-9A-F]+) ,; $encrypted_to = $1 if m,^\[GNUPG:\] ENC_TO ([0-9A-F]+) ,;
$signed_by = $1 if m,^\[GNUPG:\] VALIDSIG ([0-9A-F]+) ,; $signed_by = $1 if m,^\[GNUPG:\] VALIDSIG [0-9A-F]+([0-9A-F]{8}) ,;
} }
close GPGV; close GPGV;