openvpn-rpc2.pl

#!/usr/bin/perl

## The fake API service for OpenVPN that allows to use client with simple setup mode.

use Mojo::File;
use Mojo::Util 'xml_escape';
use Mojolicious::Lite;

post '/RPC2' => sub {
    my ($c) = @_;

    my $methodName = eval { $c->req->dom->at('methodName')->text } // '';

    if ($methodName eq 'GetSession') {
        $c->render(text => q{<?xml version='1.0'?>
<methodResponse>
  <params>
    <param>

    <value>
      <struct>
        <member>
          <name>status</name>
          <value>
            <int>0</int>
          </value>
        </member>
        <member>
          <name>session_id</name>
          <value>
            <string>AS_AAAAAAAAAAAAAAAAAAAAAA==</string>
          </value>
        </member>
      </struct>
    </value>
    </param>
  </params>
</methodResponse>});
    } elsif ($methodName eq 'GetUserlogin') {
        my $client_conf = xml_escape(Mojo::File->new('/etc/openvpn/client.conf')->slurp) =~ s/^/        /gr;
        $c->render(text => qq{<?xml version='1.0'?>
<methodResponse>
  <params>
    <param>
    <value>
      <string>
        $client_conf
      </string>
    </value>
    </param>
  </params>
</methodResponse>});
    } else {
        $c->render(text => 'Not supported', status => 500);
    }
};

app->start;