From 9a165138570b28998564744619a69085f8a4029d Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Wed, 3 Oct 2012 14:42:16 +0200 Subject: Remove obsolete script generate_specfile.pl. --- generate_specfile.pl | 14 -------------- 1 file changed, 14 deletions(-) delete mode 100755 generate_specfile.pl 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 . - -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"}); -- cgit v1.2.3