diff options
-rwxr-xr-x | generate_specfile.pl | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/generate_specfile.pl b/generate_specfile.pl deleted file mode 100755 index 957c721..0000000 --- a/generate_specfile.pl +++ /dev/null @@ -1,14 +0,0 @@ -#! /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"}); |