aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-10-03 14:42:16 +0200
committerMatthias Andreas Benkard <code@mail.matthias.benkard.de>2012-10-03 14:42:16 +0200
commit9a165138570b28998564744619a69085f8a4029d (patch)
treec3c74faec830551cb0b917adfdb05398092c6a1f
parent85b069d9bb94de4e01a4375d485b2a8a1f8c21ab (diff)
Remove obsolete script generate_specfile.pl.
-rwxr-xr-xgenerate_specfile.pl14
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"});