File Coverage

blib/lib/Bot/Cobalt/Plugin/Master.pm

Criterion	Covered	Total	%
statement	10	126	7.9
branch	0	18	0.0
condition	0	31	0.0
subroutine	4	14	28.5
pod	0	11	0.0
total	14	200	7.0

package Bot::Cobalt::Plugin::Master;
$Bot::Cobalt::Plugin::Master::VERSION = '0.021002';
use strictures 2;

use Bot::Cobalt;
use Bot::Cobalt::Common;


sub new { bless {}, shift }

sub Cobalt_register {
  my ($self, $core) = splice @_, 0, 2;

  register( $self, 'SERVER',
    qw/
      public_cmd_join
      public_cmd_part
      public_cmd_cycle

      public_cmd_die

      public_cmd_op
      public_cmd_deop
      public_cmd_voice
      public_cmd_devoice
    /
  );

  logger->info("Loaded");

  return PLUGIN_EAT_NONE
}

sub Cobalt_unregister {
  my ($self, $core) = splice @_, 0, 2;

  logger->info("Unloaded");

  return PLUGIN_EAT_NONE
}


sub Bot_public_cmd_cycle {
  my ($self, $core) = splice @_, 0, 2;
  my $msg = ${ $_[0] };

  my $context  = $msg->context;
  my $src_nick = $msg->src_nick;

  my $pcfg = plugin_cfg($self);

  my $requiredlev = $pcfg->{Level_joinpart} // 3;

  my $authed_lev  = $core->auth->level($context, $src_nick);

  ## fail quietly for unauthed users
  return PLUGIN_EAT_ALL unless $authed_lev >= $requiredlev;

  logger->info("CYCLE issued by $src_nick");

  my $channel = $msg->channel;

  broadcast( 'part', $context, $channel, "Cycling $channel" );
  broadcast( 'join', $context, $channel );

  return PLUGIN_EAT_ALL
}

sub Bot_public_cmd_join {
  my ($self, $core) = splice @_, 0, 2;
  my $msg = ${ $_[0] };

  my $context  = $msg->context;
  my $src_nick = $msg->src_nick;

  my $pcfg = plugin_cfg($self);

  my $requiredlev = $pcfg->{Level_joinpart} // 3;

  my $authed_lev  = $core->auth->level($context, $src_nick);

  return PLUGIN_EAT_ALL unless $authed_lev >= $requiredlev;

  my $channel = $msg->message_array->[0];

  unless ($channel) {
    broadcast( 'message', $context, $msg->channel,
      "No channel specified."
    );

    return PLUGIN_EAT_ALL
  }

  logger->info("JOIN ($channel) issued by $src_nick");

  broadcast( 'message', $context, $msg->channel,
    "Joining $channel"
  );

  broadcast( 'join', $context, $channel );

  return PLUGIN_EAT_ALL
}

sub Bot_public_cmd_part {
  my ($self, $core) = splice @_, 0, 2;
  my $msg = ${ $_[0] };

  my $context  = $msg->context;
  my $src_nick = $msg->src_nick;

  my $pcfg = plugin_cfg($self);

  my $requiredlev = $pcfg->{Level_joinpart} // 3;
  my $authed_lev  = $core->auth->level($context, $src_nick);

  return PLUGIN_EAT_ALL unless $authed_lev >= $requiredlev;

  my $channel = $msg->message_array->[0] // $msg->channel;

  logger->info("PART ($channel) issued by $src_nick");

  broadcast( 'message', $context, $msg->channel,
      "Leaving $channel"
  );

  broadcast( 'part', $context, $channel, "Requested by $src_nick" );

  return PLUGIN_EAT_ALL
}

sub Bot_public_cmd_op {
  my ($self, $core) = splice @_, 0, 2;
  my $msg = ${ $_[0] };

  my $context  = $msg->context;
  my $src_nick = $msg->src_nick;

  my $pcfg = plugin_cfg($self);

  my $requiredlev = $pcfg->{Level_op} // 3;
  my $authed_lev  = $core->auth->level($context, $src_nick);

  return PLUGIN_EAT_ALL unless $authed_lev >= $requiredlev;

  my $target_usr = $msg->message_array->[0] // $msg->src_nick;

  my $channel = $msg->channel;

  broadcast( 'mode', $context, $channel, "+o $target_usr" );

  return PLUGIN_EAT_ALL
}

sub Bot_public_cmd_deop {
  my ($self, $core) = splice @_, 0, 2;
  my $msg = ${ $_[0] };

  my $context  = $msg->context;
  my $src_nick = $msg->src_nick;

  my $pcfg = plugin_cfg($self);

  my $requiredlev = $pcfg->{Level_op} // 3;
  my $authed_lev  = $core->auth->level($context, $src_nick);

  return PLUGIN_EAT_ALL unless $authed_lev >= $requiredlev;

  my $target_usr = $msg->message_array->[0] // $msg->src_nick;
  my $channel = $msg->channel;

  broadcast( 'mode', $context, $channel, "-o $target_usr" );

  return PLUGIN_EAT_ALL
}

sub Bot_public_cmd_voice {
  my ($self, $core) = splice @_, 0, 2;
  my $msg = ${ $_[0] };

  my $context  = $msg->context;
  my $src_nick = $msg->src_nick;

  my $pcfg = plugin_cfg($self);

  my $requiredlev = $pcfg->{Level_voice} // 2;
  my $authed_lev  = $core->auth->level($context, $src_nick);

  return PLUGIN_EAT_ALL unless $authed_lev >= $requiredlev;

  my $target_usr = $msg->message_array->[0] // $msg->src_nick;

  my $channel = $msg->channel;

  broadcast( 'mode', $context, $channel, "+v $target_usr" );

  return PLUGIN_EAT_ALL
}

sub Bot_public_cmd_devoice {
  my ($self, $core) = splice @_, 0, 2;
  my $msg = ${ $_[0] };

  my $context  = $msg->context;
  my $src_nick = $msg->src_nick;

  my $pcfg = plugin_cfg($self);

  my $requiredlev = $pcfg->{Level_voice} // 2;
  my $authed_lev  = $core->auth->level($context, $src_nick);

  return PLUGIN_EAT_ALL unless $authed_lev >= $requiredlev;

  my $target_usr = $msg->message_array->[0] // $msg->src_nick;

  my $channel = $msg->channel;

  broadcast( 'mode', $context, $channel, "-v $target_usr" );

  return PLUGIN_EAT_ALL
}

sub Bot_public_cmd_die {
  my ($self, $core) = splice @_, 0, 2;
  my $msg = ${ $_[0] };

  my $context  = $msg->context;
  my $src_nick = $msg->src_nick;

  my $pcfg = plugin_cfg($self);

  my $requiredlev = $pcfg->{Level_die} || 9999;
  my $authed_lev  = $core->auth->level($context, $src_nick);

  return PLUGIN_EAT_ALL unless $authed_lev >= $requiredlev;

  my $auth_usr = $core->auth->username($context, $src_nick);

  logger->warn("Shutdown requested; $src_nick ($auth_usr)");

  $core->shutdown
}

1;
__END__