view release on metacpan or  search on metacpan

lib/App/Raider/Plugin/Situation.pm  view on Meta::CPAN

  isa     => 'Bool',
  default => 0,
);

sub _situation_text {
  my $now = time;
  my $local  = strftime('%Y-%m-%d %H:%M', localtime($now));
  my $offset = strftime('%z',            localtime($now));
  my $tzname = strftime('%Z',            localtime($now)) || 'local';
  my $host   = Sys::Hostname::hostname();
  my $user   = $ENV{USER} // $ENV{LOGNAME} // getpwuid($<) // 'unknown';
  return "[situation] $local $tzname (UTC$offset), host=$host user=$user\n\n";
}

async sub plugin_before_raid {
  my ($self, $messages) = @_;
  return $messages if $self->_injected;
  $self->_injected(1);

  my @msgs = @$messages;
  return \@msgs unless @msgs;