#!/usr/bin/perl

# To run need listen two ports: 80, 443
# sudo morbo 12.pl -l https://*:443?cert%3D%2Fhome%2Flogioniz%2Fcert%2Fserver.crt%26key%3D%2Fhome%2Flogioniz%2Fcert%2Fserver.key%26verify%3D0x00 -l http://*:80
# go to url in browser http://your_ip/qwe/asd

use Mojo::Base -strict;

use Mojolicious::Lite;

app->hook(before_dispatch => sub {
  my $c = shift;
  my $request_url = $c->req->url->to_abs;
  if ($request_url->scheme eq 'http') {
    $request_url->scheme('https');
    $c->redirect_to($request_url);
  }
});

get '/qwe/asd' => sub { shift->render(text => 'Hello, world') };

app->start;