my ($data, $buffer, $date, $tags, $displayed, $highlight, $prefix, $message ) = @_;
my %event = (
message => $message,
my ($data, $buffer, $date, $tags, $displayed, $highlight, $prefix, $message ) = @_;
my %event = (
message => $message,
config_get => \&config_get,
config_set => \&config_set,
config_has => \&config_has,
config_get => \&config_get,
config_set => \&config_set,
config_has => \&config_has,
config_del => \&config_del,
color => \&colorpair,
module_path => sub { return File::Spec->catfile(weechat::info_get("weechat_dir", ""), 'perl') },
quote => sub { return $_ },
reload => sub { weechat::print("", "Please use \"/script reload ...\" to reload") },
config_del => \&config_del,
color => \&colorpair,
module_path => sub { return File::Spec->catfile(weechat::info_get("weechat_dir", ""), 'perl') },
quote => sub { return $_ },
reload => sub { weechat::print("", "Please use \"/script reload ...\" to reload") },