add irssi timeout to autovoice.pl

gistfile1.txt

sub voicem {
    my ($channel_rec, @nicks) = @_;
    if (is_auto($channel_rec)) {
        for my $nick_rec (@nicks) {
            unless (is_bad($channel_rec, $nick_rec)
                    or $nick_rec->{voice}) {
                if (get_voiceops() or
                        !($nick_rec->{op} or $nick_rec->{halfop})) {
                    my $nick_text = $nick_rec->{nick};
                    # Introduce a delay before voicing
                    Irssi::timeout_add_once(10000, sub {
                        $channel_rec->command("voice $nick_text") if $channel_rec->nick_find($nick_text);
                    }, undef);
                }
            }
        }
    }
}