Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #!/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", "");
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement