2021-04-17 20:05:40 +02:00
|
|
|
#!/usr/bin/env perl
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
use warnings;
|
|
|
|
|
2021-05-24 15:19:04 +02:00
|
|
|
use Data::Dumper;
|
|
|
|
|
2021-04-17 20:05:40 +02:00
|
|
|
use Mojolicious::Commands;
|
|
|
|
|
2021-05-24 15:19:04 +02:00
|
|
|
use BeastBB;
|
|
|
|
|
2021-04-17 20:05:40 +02:00
|
|
|
# Start command line interface for application
|
2021-05-24 15:19:04 +02:00
|
|
|
if (!scalar @ARGV || $ARGV[0] ne 'migrate') {
|
|
|
|
@ARGV = qw/daemon/;
|
|
|
|
Mojolicious::Commands->start_app('BeastBB');
|
|
|
|
exit;
|
|
|
|
}
|
|
|
|
|
|
|
|
my $beastbb = BeastBB->new();
|
|
|
|
print Data::Dumper::Dumper $beastbb->config;
|