trivial ubic-web

app.pl

#!/usr/bin/perl
use Dancer;
use Ubic;

my @commands = qw( start stop status restart try-restart reload force-reload);

post '/:service/:command' => sub {
    my $service = param('service');
    my $command = param('command');

    my $result;
    if (grep { $_ eq $command } @commands) {
        $result = Ubic->$command($service);
    }
    else {
        $result = Ubic->do_custom_command($service, $command);
    }
    return "$result";
};

dance;