smeserver-manager/root/usr/share/smanager/script/srvmngr

#! /usr/bin/perl -wT

# mojo-app server-manager v3 mab974 2020

use strict;
use warnings;
use esmith::util;

BEGIN
{
    $0 =~ /^(.+)$/ms; $0 = $1; # Untaint script name
    $ENV{'PATH'} = '/usr/sbin:/usr/bin:/usr/local/bin';
    $ENV{'SHELL'} = '/bin/bash';
    $ENV{'HOME'} = '/usr/share/smanager';
    delete $ENV{'ENV'};
    esmith::util::setRealToEffective();
    #to help debug UTF8, see perlrun and perlvar -CSAD or -CLSD
    #print '$ENV{PERL_UNICODE}='.$ENV{'PERL_UNICODE'}."\n" if $ENV{'PERL_UNICODE'};
    #print '${^UNICODE}='.${^UNICODE}.' ; ${^UTF8LOCALE}='.${^UTF8LOCALE} ."\n";
    #print '${^OPEN}'.${^OPEN}."\n" if ${^OPEN} ;
} 


use FindBin;
#use lib "$FindBin::Bin/lib";
use lib "$FindBin::Bin/../lib";
#BEGIN { unshift @INC, "$FindBin::Bin/../lib" }

#Application
$ENV{MOJO_APP} ||= 'SrvMngr';
$ENV{MOJO_REVERSE_PROXY} ||= '/smanager';
$ENV{MOJO_SMANAGER_DEBUG} ||= 0;
$ENV{SRVMNGR_HOME} ||= "$FindBin::Bin/..";

# Start command
require Mojolicious::Commands;
Mojolicious::Commands->start_app('SrvMngr');