sergiotarxz/Peace
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding start web script

Browse Source
This commit is contained in:
sergiotarxz 2022-02-23 02:52:55 +01:00
parent caa066a5aa
commit d5f21284c5
1 changed files with 80 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
bin/peace Executable file
View File

@ -0,0 +1,80 @@
#!/usr/bin/env perl
use v5.30.0;
use strict;
use warnings;
use Data::Dumper;
use Mojolicious::Commands;
use Term::ReadLine;
use Getopt::Long::Descriptive;
use Crypt::URandom q/urandom/;
use JSON;
use Path::Tiny;
my ( $opt, $usage ) = describe_options(
'peace %o',
[ 'dbname|d=s', 'The database name for config generation.' ],
[ 'host|H=s', 'The database host for config generation.' ],
[ 'username|u=s', 'The database username for config generation.' ],
[ 'password|P=s', 'The database password for config generation.' ],
[ 'port|p=i', 'The database port for config generation.' ],
[
'disable-readline-ask',
'Disable the readline questions for undefined fields.'
],
[ 'help|h', 'Print this usage message', { shortcircuit => 1 } ],
);
print( $usage->text ), exit if $opt->help;
my $home = $ENV{HOME};
my $config_path = "$home/.config/peace/peace.conf";
if ( !-e $config_path) {
my $secret = unpack 'H*', urandom(128);
say $secret;
my $prompt = '> ';
my $dbname = $opt->dbname;
my $host = $opt->host;
my $username = $opt->username;
my $password = $opt->password;
my $port = $opt->port;
if ( !$opt->disable_readline_ask ) {
$dbname = ask_readline_question( $dbname, 'Introduce the dbname:' );
$host = ask_readline_question( $host, 'Introduce the host:' );
$username =
ask_readline_question( $username, 'Introduce the username:' );
$password =
ask_readline_question( $password, 'Introduce the password:' );
$port = ask_readline_question( $port, 'Introduce the port:' );
}
my $config = {
secret => $secret,
db_config => {
( username => $username ) x ( 0 + !!( defined $username ) ),
( dbname => $dbname ) x ( 0 + !!( defined $dbname ) ),
( host => $host ) x ( 0 + !!( defined $host ) ),
( password => $password ) x ( 0 + !!( defined $password ) ),
( port => $port ) x ( 0 + !!( defined $port ) ),
}
};
path ($config_path)->parent->mkpath;
print Data::Dumper::Dumper $config;
path ($config_path)->spew_utf8(encode_json $config);
}
@ARGV = ('daemon');
# Start command line interface for application
Mojolicious::Commands->start_app('Peace');
sub ask_readline_question {
return if defined shift;
my $prompt = '~> ';
my $term = Term::ReadLine->new('Peace setup');
say shift;
return $term->readline($prompt) || undef;
}