nipe.pl

#!/usr/bin/env perl

use 5.030;
use strict;
use warnings;
use Try::Tiny;
use lib './lib/';
use Nipe::Engine::Stop;
use Nipe::Engine::Start;
use Nipe::Engine::Restart;
use Nipe::Utils::Status;
use Nipe::Utils::Helper;
use Nipe::Utils::Install;
use English '-no_match_vars';

our $VERSION = '0.0.4';

sub main {
    my $argument = $ARGV[0];

    if ($argument) {
		die "Nipe must be run as root.\n" if $REAL_USER_ID != 0;

        my $commands = {
            stop    => 'Nipe::Engine::Stop',
            start   => 'Nipe::Engine::Start',
            status  => 'Nipe::Utils::Status',
            restart => 'Nipe::Engine::Restart',
            install => 'Nipe::Utils::Install',
            help    => 'Nipe::Utils::Helper'
        };

        try {
            my $exec = $commands -> {$argument} -> new();

            if ($exec ne 1) {
                print $exec;
            }
        }

        catch {
            print "\n[!] ERROR: this command could not be run\n\n";
        };

        return 1;
    }

    return print Nipe::Utils::Helper->new();
}

main();