intellihome-master

#!/usr/bin/perl
# PODNAME: intellihome-master
use lib './lib';
use IntelliHome::IntelliHomeNodeMaster;
use Getopt::Long;
use Carp::Always;

###################################################### GetOptions
my ( $install_plugin, $remove_plugin, $update_plugin, $foreground );
GetOptions(
    "i|installplugin=s" => \$install_plugin,
    "r|removeplugin=s"  => \$remove_plugin,
    "u|updateplugin=s"  => \$update_plugin,
    "f|foreground"      => \$foreground,
    "s|stop"            => \$stop
) or die("Error in command line arguments\n");

######################################################
if ($install_plugin) {
    IntelliHome::IntelliHomeNodeMaster->install_plugin($install_plugin);
}
elsif ($remove_plugin) {
    IntelliHome::IntelliHomeNodeMaster->remove_plugin($remove_plugin);
}
elsif ($update_plugin) {
    IntelliHome::IntelliHomeNodeMaster->update_plugin($update_plugin);
}
######################################################

if ( defined $stop ) {
    IntelliHome::IntelliHomeNodeMaster->stop;
}

IntelliHome::IntelliHomeNodeMaster->start($foreground);