+++ /dev/null
-package PMG::HTTPServer;
-
-use strict;
-use warnings;
-
-use PVE::SafeSyslog;
-use PVE::INotify;
-use PVE::Tools;
-use PVE::APIServer::AnyEvent;
-use PVE::Exception qw(raise_param_exc);
-use PMG::RESTEnvironment;
-
-use PMG::Ticket;
-use PMG::Cluster;
-use PMG::API2;
-
-use Data::Dumper;
-
-use base('PVE::APIServer::AnyEvent');
-
-use HTTP::Status qw(:constants);
-
-
-sub new {
- my ($this, %args) = @_;
-
- my $class = ref($this) || $this;
-
- my $self = $class->SUPER::new(%args);
-
- $self->{rpcenv} = PMG::RESTEnvironment->init(
- $self->{trusted_env} ? 'priv' : 'pub', atfork => sub { $self->atfork_handler() });
-
- return $self;
-}
-
-
-sub generate_csrf_prevention_token {
- my ($username) = @_;
-
- return PMG::Ticket::assemble_csrf_prevention_token ($username);
-}
-
-sub auth_handler {
- my ($self, $method, $rel_uri, $ticket, $token, $peer_host) = @_;
-
- my $rpcenv = $self->{rpcenv};
-
- # set environment variables
- $rpcenv->set_user(undef);
- $rpcenv->set_role(undef);
- $rpcenv->set_language('C');
- $rpcenv->set_client_ip($peer_host);
-
- $rpcenv->init_request();
-
- my $require_auth = 1;
-
- # explicitly allow some calls without auth
- if (($rel_uri eq '/access/domains' && $method eq 'GET') ||
- ($rel_uri eq '/access/ticket' && ($method eq 'GET' || $method eq 'POST'))) {
- $require_auth = 0;
- }
-
- my ($username, $age);
-
- if ($require_auth) {
-
- die "No ticket\n" if !$ticket;
-
- if ($ticket =~ m/^PMGQUAR:/) {
- ($username, $age) = PMG::Ticket::verify_quarantine_ticket($ticket);
- $rpcenv->set_user($username);
- $rpcenv->set_role('quser');
- } else {
- ($username, $age) = PMG::Ticket::verify_ticket($ticket);
- my $role = PMG::AccessControl::check_user_enabled($self->{usercfg}, $username);
- $rpcenv->set_user($username);
- $rpcenv->set_role($role);
- }
-
- $rpcenv->set_ticket($ticket);
-
- my $euid = $>;
- PMG::Ticket::verify_csrf_prevention_token($username, $token)
- if ($euid != 0) && ($method ne 'GET');
- }
-
- return {
- ticket => $ticket,
- token => $token,
- userid => $username,
- age => $age,
- isUpload => 0,
- };
-}
-
-sub rest_handler {
- my ($self, $clientip, $method, $rel_uri, $auth, $params, $format) = @_;
-
- my $rpcenv = $self->{rpcenv};
- $rpcenv->set_format($format);
-
- my $resp = {
- status => HTTP_NOT_IMPLEMENTED,
- message => "Method '$method $rel_uri' not implemented",
- };
-
- my ($handler, $info);
-
- eval {
- my $uri_param = {};
- ($handler, $info) = PMG::API2->find_handler($method, $rel_uri, $uri_param);
- return if !$handler || !$info;
-
- foreach my $p (keys %{$params}) {
- if (defined($uri_param->{$p})) {
- raise_param_exc({$p => "duplicate parameter (already defined in URI)"});
- }
- $uri_param->{$p} = $params->{$p};
- }
-
- # check access permissions
- $rpcenv->check_api2_permissions($info->{permissions}, $uri_param);
-
- if (my $pn = $info->{proxyto}) {
-
- my $node;
- if ($pn eq 'master') {
- $node = PMG::Cluster::get_master_node();
- } else {
- $node = $uri_param->{$pn};
- raise_param_exc({$pn => "proxy parameter '$pn' does not exists"}) if !$node;
- }
-
- if ($node ne 'localhost' && $node ne PVE::INotify::nodename()) {
- die "unable to proxy file uploads" if $auth->{isUpload};
- my $remip = $self->remote_node_ip($node);
- $resp = { proxy => $remip, proxynode => $node, proxy_params => $params };
- return;
- }
- }
-
- my $euid = $>;
- if ($info->{protected} && ($euid != 0)) {
- $resp = { proxy => 'localhost' , proxy_params => $params };
- return;
- }
-
- if (my $pn = $info->{proxyto}) {
- if ($pn eq 'master') {
- $rpcenv->check_node_is_master();
- }
- }
-
-
- my $result = $handler->handle($info, $uri_param);
-
- $resp = {
- info => $info, # useful to format output
- status => HTTP_OK,
- };
-
- if ($info->{download}) {
- die "download methods should have return type 'string' - internal error"
- if ($info->{returns}->{type} ne 'string');
- $resp->{download} = $result;
- } else {
- $resp->{data} = $result;
- }
-
- if (my $count = $rpcenv->get_result_attrib('total')) {
- $resp->{total} = $count;
- }
-
- if (my $diff = $rpcenv->get_result_attrib('changes')) {
- $resp->{changes} = $diff;
- }
- };
- my $err = $@;
-
- $rpcenv->set_user(undef); # clear after request
- $rpcenv->set_role(undef); # clear after request
- $rpcenv->set_format(undef); # clear after request
-
- if ($err) {
- $resp = { info => $info };
- if (ref($err) eq "PVE::Exception") {
- $resp->{status} = $err->{code} || HTTP_INTERNAL_SERVER_ERROR;
- $resp->{errors} = $err->{errors} if $err->{errors};
- $resp->{message} = $err->{msg};
- } else {
- $resp->{status} = HTTP_INTERNAL_SERVER_ERROR;
- $resp->{message} = $err;
- }
- }
-
- return $resp;
-}
-
-sub check_cert_fingerprint {
- my ($self, $cert) = @_;
-
- return PMG::Cluster::check_cert_fingerprint($cert);
-}
-
-sub initialize_cert_cache {
- my ($self, $node) = @_;
-
- PMG::Cluster::initialize_cert_cache($node);
-}
-
-sub remote_node_ip {
- my ($self, $node) = @_;
-
- my $remip = PMG::Cluster::remote_node_ip($node);
-
- die "unable to get remote IP address for node '$node'\n" if !$remip;
-
- return $remip;
-}
-
-1;