Jean-Philippe Pialasse
c85022c49e
- add datetime getYear_list [SME: 13031] - use esmith::*DB::UTF8 to access db flat files [SME: 13027]
38 lines
1.0 KiB
Perl
38 lines
1.0 KiB
Perl
#! /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');
|