mirrors/weechat-opal
1
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

antifuck.pl: clean up source

Browse Source
This commit is contained in:
wowaname 2016-11-27 12:15:12 +00:00
parent e00dfa8492
commit 8bce1075ba
1 changed files with 33 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
scripts/antifuck.pl
View File

@ -50,26 +50,23 @@ HELP
} }
} }
sub mynick { sub mynick
{
my ($buf, $nick) = ($_[0], $_[1]); my ($buf, $nick) = ($_[0], $_[1]);
return lc weechat::buffer_get_string($buf, 'localvar_nick') eq lc $nick; return lc weechat::buffer_get_string($buf, 'localvar_nick') eq lc $nick;
# my $hd_serv = weechat::hdata_get('irc_server');
# my $hd_servs = weechat::hdata_get_list($hd_serv, 'irc_servers');
#
# $hd_serv = weechat::hdata_search(
# $hd_serv, $hd_servs, '${irc_server.name} == '.
# weechat::buffer_get_string($buf, 'localvar_server'), 1);
#
# return lc weechat::hdata_string($hd_serv, $buf, 'nick') eq lc $nick;
} }
sub servchan { sub servchan
{
my $buf = shift; my $buf = shift;
return (lc weechat::buffer_get_string($buf, 'localvar_server'), return (lc weechat::buffer_get_string($buf, 'localvar_server'),
lc weechat::buffer_get_string($buf, 'localvar_channel')); lc weechat::buffer_get_string($buf, 'localvar_channel'));
} }
sub cmd_antifuck { sub cmd_antifuck
{
my (undef, $buffer, $args) = @_; my (undef, $buffer, $args) = @_;
if ($args eq 'part') { if ($args eq 'part') {
@ -81,37 +78,46 @@ sub cmd_antifuck {
return weechat::WEECHAT_RC_OK; return weechat::WEECHAT_RC_OK;
} }
sub fuckbuf_input { sub fuckbuf_input
{
return weechat::WEECHAT_RC_OK; return weechat::WEECHAT_RC_OK;
} }
sub fuckbuf_close { sub fuckbuf_close
$fuckbuf = ''; {
weechat::buffer_close($_) for (keys %partbuf); weechat::buffer_close($_) for (keys %partbuf);
%partbuf = (); %partbuf = ();
$fuckbuf = '';
return weechat::WEECHAT_RC_OK; return weechat::WEECHAT_RC_OK;
} }
sub irc_connect { sub irc_connect
{
my $server = pop; my $server = pop;
my ($autojoin) = (weechat::config_string(weechat::config_get( my ($autojoin) = (weechat::config_string(weechat::config_get(
"irc.server.$server.autojoin")) =~ /^([^ ]*)/); "irc.server.$server.autojoin")) =~ /^([^ ]*)/);
$channels{$server}{$_} = 1 for (split ',', lc($autojoin)); $channels{$server}{$_} = 1 for (split ',', lc($autojoin));
return weechat::WEECHAT_RC_OK; return weechat::WEECHAT_RC_OK;
} }
sub irc_disconnect { sub irc_disconnect
{
my $server = pop; my $server = pop;
$server = lc $server; $server = lc $server;
delete $channels{$server}; delete $channels{$server};
delete $part{$server}; delete $part{$server};
return weechat::WEECHAT_RC_OK; return weechat::WEECHAT_RC_OK;
} }
sub buffer_opened { sub buffer_opened {
my $buffer = pop; my $buffer = pop;
my ($server, $channel) = servchan($buffer); my ($server, $channel) = servchan($buffer);
return weechat::WEECHAT_RC_OK if exists $channels{$server}{$channel}; return weechat::WEECHAT_RC_OK if exists $channels{$server}{$channel};
$fuckbuf = weechat::buffer_new( $fuckbuf = weechat::buffer_new(
@ -136,7 +142,8 @@ sub buffer_closed {
return weechat::WEECHAT_RC_OK; return weechat::WEECHAT_RC_OK;
} }
sub client_join { sub client_join
{
my (undef, $server, $channel) = (shift, my (undef, $server, $channel) = (shift,
shift =~ /(.+),irc_out1_join/i, shift =~ /(.+),irc_out1_join/i,
shift =~ /^join :?([^ ]*)/i); shift =~ /^join :?([^ ]*)/i);
@ -146,7 +153,8 @@ sub client_join {
return weechat::WEECHAT_RC_OK; return weechat::WEECHAT_RC_OK;
} }
sub client_part { sub client_part
{
my (undef, $server, $channel) = (shift, my (undef, $server, $channel) = (shift,
shift =~ /(.+),irc_out1_part/i, shift =~ /(.+),irc_out1_part/i,
shift =~ /^part ([^ ]*)/i); shift =~ /^part ([^ ]*)/i);
@ -156,7 +164,8 @@ sub client_part {
return weechat::WEECHAT_RC_OK; return weechat::WEECHAT_RC_OK;
} }
sub irc_366 { sub irc_366
{
my ($server, $message) = ($_[2], $_[3]); my ($server, $message) = ($_[2], $_[3]);
my ($nick, $channel) = $message =~ /^:[^ ]* 366 ([^ ]*) ([^ ]*)/i; my ($nick, $channel) = $message =~ /^:[^ ]* 366 ([^ ]*) ([^ ]*)/i;
my $buffer = weechat::buffer_search('irc', "$server.$channel"); my $buffer = weechat::buffer_search('irc', "$server.$channel");
@ -178,7 +187,8 @@ sub irc_366 {
return ''; return '';
} }
sub irc_join_delay { sub irc_join_delay
{
my $buffer = shift; my $buffer = shift;
for my $server (values %part) { for my $server (values %part) {
@ -206,7 +216,8 @@ sub irc_join_delay {
return weechat::WEECHAT_RC_OK; return weechat::WEECHAT_RC_OK;
} }
sub irc_part { sub irc_part
{
my ($server, $message) = ($_[2], $_[3]); my ($server, $message) = ($_[2], $_[3]);
my ($arj, $arj_delay, $arjd, $arjd_delay) = ( my ($arj, $arj_delay, $arjd, $arjd_delay) = (
weechat::config_get("irc.server.$server.autorejoin"), weechat::config_get("irc.server.$server.autorejoin"),