#!/usr/bin/perl
use Getopt::Long;
use Smolder::Server::Control;
use warnings;
use strict;
my ( $config_file, $verbose );
GetOptions( 'f=s' => \$config_file, 'v|verbose' => \$verbose );
if ( !defined($config_file) ) {
die "usage: $0 -f config_file [-v] start|stop|restart|ping";
}
my $ctl = Smolder::Server::Control->new(config_file => $config_file);
$ctl->handle_cmdline(verbose => $verbose);