diff options
Diffstat (limited to 'generate_specfile.pl')
-rwxr-xr-x | generate_specfile.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/generate_specfile.pl b/generate_specfile.pl new file mode 100755 index 0000000..957c721 --- /dev/null +++ b/generate_specfile.pl @@ -0,0 +1,14 @@ +#! /usr/bin/env perl +# Copyright 2012, Matthias Andreas Benkard <code@mail.matthias.benkard.de>. + +use common::sense; +use Modern::Perl; +use JSON; +use Crypt::OpenSSL::RSA; +use File::Slurp; + +my $key = Crypt::OpenSSL::RSA->new_private_key(scalar read_file('/etc/mulkid/rsa2048.pem')); +my ($n, $e, @stuff) = $key->get_key_parameters; +say encode_json({"public-key" => {e => $e->to_decimal, n => $n->to_decimal, algorithm => "RS"}, + "authentication" => "/browserid/authenticate.html", + "provisioning" => "/browserid/provision.html"}); |