/usr/share/weechat/perl/mnick.pl is in weechat-scripts 20140928-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 | # Copyright (C) 2014 CrazyCat <crazycat@c-p-f.org>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
#
# Set WeeChat and plugins options interactively.
#
# Description:
#
# This script allows to change your nick on the different networks you are
# connected, by appending or removing a suffix to your current nick on the
# network, based on the defined mask
# Command: /mnick [suffix]
# * if suffix is set and script enabled on network, will do a
# /nick <current_nick><formatted_suffix>
# * if suffix is not set, will do a
# /nick <previous_nick>
#
# Settings:
# * plugins.var.perl.mnick.<network>_enabled : on/off
# * plugins.var.perl.mnick.<network>_mask : default [%s]
#
# Example
# I'm CrazyCat on net1 and net3, GatoLoco on net2
# * plugins.var.perl.mnick.net1_enabled : on
# * plugins.var.perl.mnick.net1_mask : [%s]
# * plugins.var.perl.mnick.net2_enabled : on
# * plugins.var.perl.mnick.net2_mask : |%s
# * plugins.var.perl.mnick.net3_enabled : off
# * plugins.var.perl.mnick.net3_mask : [%s]
# /mnick AFK
# => CrazyCat[AFK] on net1, GatoLoco|AFK on net2, CrazyCat on net3
# /mnick
# => CrazyCat on net1 and net3, GatoLoco on net2
#
# History:
# 2014-04-01, CrazyCat <crazycat@c-p-f.org>:
# version 0.1 : first official version
weechat::register("mnick", "CrazyCat", "0.1", "GPL", "Multi Nick Changer", "", "");
weechat::hook_command(
"mnick",
"Multi Nick Changer",
"mnick [extension]",
"",
"",
"mnick_change",
""
);
# Unused yet
#weechat::hook_config("plugins.var.perl.mnick.*", "mnick_setup", "");
sub mnick_setup
{
$infolist = weechat::infolist_get("irc_server", "", "");
while (weechat::infolist_next($infolist))
{
my $name = weechat::infolist_string($infolist, "name");
if (!weechat::config_is_set_plugin($name."_mask"))
{
weechat::config_set_plugin($name."_mask", "[%s]");
}
if (!weechat::config_is_set_plugin($name."_enabled"))
{
weechat::config_set_plugin($name."_enabled", "off");
}
}
weechat::infolist_free($infolist);
}
sub mnick_change
{
my ($data, $buffer, $text) = @_;
my $newnick;
$infolist = weechat::infolist_get("irc_server", "", "");
if ($text)
{
while (weechat::infolist_next($infolist))
{
my $name = weechat::infolist_string($infolist, "name");
my $nick = weechat::info_get('irc_nick', $name);
if (weechat::config_is_set_plugin($name."_enabled")
&& weechat::config_get_plugin($name."_enabled") eq "on")
{
$newnick = sprintf($nick . weechat::config_get_plugin($name."_mask"), $text);
weechat::config_set_plugin($name."_backnick", $nick);
weechat::command($name, "/quote -server ".$name." nick ".$newnick);
}
}
} else {
while (weechat::infolist_next($infolist))
{
my $name = weechat::infolist_string($infolist, "name");
my $nick = weechat::info_get('irc_nick', $name);
if (weechat::config_is_set_plugin($name."_enabled")
&& weechat::config_get_plugin($name."_enabled") eq "on")
{
if (weechat::config_is_set_plugin($name."_backnick")
&& weechat::config_get_plugin($name."_backnick") ne "") {
$newnick = weechat::config_get_plugin($name."_backnick");
} else {
@nicks = split(',', weechat::infolist_string($infolist, "nicks"));
$newnick = $nicks[0];
}
weechat::command($name, "/quote -server ".$name." nick ".$newnick);
weechat::config_set_plugin($name."_backnick", "");
}
}
}
weechat::infolist_free($infolist);
return weechat::WEECHAT_RC_OK;
}
mnick_setup;
|