irssi script to forward messages while away to mqtt

awayforward.pl

use Irssi;
use POSIX;
use JSON;
use vars qw(%IRSSI);

%IRSSI = (
    name        => "awayforward",
    license     => "Public Domain",
);

sub sig_printtext {
  my ($dest, $text, $stripped) = @_;

  my $opt = MSGLEVEL_HILIGHT;
  $opt = MSGLEVEL_HILIGHT|MSGLEVEL_MSGS;

  if ($dest->{server} && $dest->{server}->{usermode_away}) {

    if(
        ($dest->{level} & ($opt)) &&
        ($dest->{level} & MSGLEVEL_NOHILIGHT) == 0
    ) {
      my %json_hash = ('message' => $stripped, 'target' => $dest->{target});
      my $json_message = encode_json \%json_hash;

      my $pid = fork();
      unless (defined($pid)) {
        Irssi::print("awayforward: fork failed");
        return 0;
      }       

      if ($pid > 0) {
        # parent
        Irssi::print("forked to $pid");
        Irssi::pidwait_add($pid);
      } else {
        open(MQTT, "| mosquitto_pub -t irssi/away -h mqttbroker -s");
        print MQTT $json_message."\n";
        close(MQTT);
        POSIX::_exit(0);
      }
    }
  }
}

Irssi::signal_add_last('print text', 'sig_printtext');