forked from Lainports/opnsense-ports
25 lines
811 B
Text
25 lines
811 B
Text
--- keyprint.orig 2017-05-09 16:34:33.966382000 -0600
|
|
+++ keyprint 2017-05-09 16:34:57.987755000 -0600
|
|
@@ -10,18 +10,14 @@ $|=1;
|
|
|
|
@ENV{'PATH'}='/usr/bin';
|
|
|
|
-$username=$ARGV[0] || `whoami`;
|
|
-$username =~ /(\w+)/;
|
|
-$username = $1;
|
|
-
|
|
-open(NAMES, "$dir/keyinfo $username|")
|
|
- || die "can't run keyinfo: $!, stopped";
|
|
+open(NAMES, "$dir/opieinfo|")
|
|
+ || die "can't run opieinfo: $!, stopped";
|
|
$key = <NAMES>;
|
|
$key =~ /^\d+\s+(\w+)/
|
|
- || die "User $username not found. Make sure you have run keyinit, stopped";
|
|
+ || die "Keys not found. Make sure you have run opiepasswd, stopped";
|
|
$key = $1;
|
|
close(NAMES);
|
|
-open(KEYS, "$dir/key -n 99 99 $key|")
|
|
+open(KEYS, "$dir/opiekey -n 100 100 $key|")
|
|
|| die "can't open $keyfile: $!, stopped";
|
|
open(PS, "<$psfile") || die "can't open $psfile: $!, stopped";
|
|
|