66 lines
1.9 KiB
Perl
66 lines
1.9 KiB
Perl
##@file
|
|
# Request manager
|
|
|
|
##@class Lemonldap::NG::Manager::Request
|
|
# Request manager
|
|
package Lemonldap::NG::Manager::Request;
|
|
|
|
use strict;
|
|
use Crypt::OpenSSL::RSA;
|
|
use JSON;
|
|
use MIME::Base64;
|
|
use URI::Escape;
|
|
|
|
##@method public string request(string request)
|
|
# Return the response corresponding to the request
|
|
# @param $request A request
|
|
# @return String
|
|
sub request {
|
|
my ($self, $rrequest) = splice @_;
|
|
my $request = ${$rrequest};
|
|
my $response = undef;
|
|
#
|
|
# GENERATE PRIVATE/PUBLIC KEYS
|
|
#
|
|
if ($request =~ /generateKeys/i) {
|
|
my $rsa = Crypt::OpenSSL::RSA->generate_key(2048);
|
|
%$response = (
|
|
'private' => $rsa->get_private_key_string(),
|
|
'public' => $rsa->get_public_key_x509_string(),
|
|
);
|
|
}
|
|
if (defined $response) {
|
|
$self->sendJSONResponse($response);
|
|
}
|
|
}
|
|
|
|
##@method public void sendJSONResponse(string content)
|
|
# Write to standard output a complete HTTP response, in JSON format
|
|
# @param $content The content to sent
|
|
# @return Void
|
|
sub sendJSONResponse {
|
|
my ($self, $content) = splice @_;
|
|
my $json = new JSON();
|
|
my $json_content = '';
|
|
# All systems do not have the most recent JSON version.
|
|
# We should take care of version 1 (RedHat 5) and version 2 (Debian 5).
|
|
if ( $JSON::VERSION lt 2 ) {
|
|
local $JSON::UTF8 = 1;
|
|
$json_content = $json->objToJson( [$content] );
|
|
$json_content =~ s/^\[//;
|
|
$json_content =~ s/\]$//;
|
|
}
|
|
else {
|
|
$json = $json->allow_nonref( ['1'] );
|
|
$json = $json->utf8( ['1'] );
|
|
$json_content = $json->encode($content);
|
|
}
|
|
my $http_content = '{"status":"OK", "content":' . $json_content . '}';
|
|
print $self->header(
|
|
-type => 'text/html; charset=utf-8',
|
|
-Content_Length => length $http_content
|
|
) . $http_content;
|
|
}
|
|
|
|
1;
|