quote.pl for weechat

quote.pl

#!/usr/bin/env perl -w
use strict;
use utf8;

sub quote_cb {
	my ($data, $mod, $mod_data, $msg) = @_;
	
	if ($msg =~ /^>/) {
		$msg="\x03" . int(rand(15)) . $msg;
	}

	return $msg;
}

weechat::register("quote.pl", "dcat", "1.1", "beerware", "quote", "", "");
weechat::hook_modifier("input_text_for_buffer", "quote_cb", "");