diff options
Diffstat (limited to 'goodnicks')
| -rw-r--r-- | goodnicks/goodnicks.pl | 321 |
1 files changed, 321 insertions, 0 deletions
diff --git a/goodnicks/goodnicks.pl b/goodnicks/goodnicks.pl new file mode 100644 index 0000000..9512759 --- /dev/null +++ b/goodnicks/goodnicks.pl @@ -0,0 +1,321 @@ +# Original Author, more credit be to him +#%IRSSI = ( +# authors => 'Wouter Coekaerts', +# contact => 'coekie@irssi.org', +# license => 'GPLv2', +# url => 'http://wouter.coekaerts.be/irssi', +# changed => '29/06/2004' +#); + + +# TODO +# Right so I knocked off the old todo list. +# Now, some umode checking would be nice :) +# Fix all the commands that only kinda work +# Sort out the messagelevel stuff +# Add badnicks, which are nicks we never wnt to talk to, +# - Should invalidate a chan even if no goodnicks + +# Add fingerprint support +# Hook to catch a fingerprint response on supported servers + +# finish cleanup + +use Irssi; +use strict; +use IO::Handle; # for (auto)flush +use Fcntl; # for sysopen +use vars qw($VERSION %IRSSI); +$VERSION = '0.0.' . (split(/ /, '$Rev: 1117 $'))[1]; +my $LastModifiedDate = (split(/ /, '$LastChangedDate: 2010-12-15 11:26:10 +1100 (Wed, 15 Dec 2010) $'))[1]; +$LastModifiedDate =~ s/([0-9]{4})-([0-9]{2})-([0-9]{2})/\3\/\2\/\1/; + +%IRSSI = ( + authors => 'richo, Wouter Coekaerts', + contact => 'richo@psych0tik.net', + name => 'goodnicks', + description => 'alert you when nicks you don\'t trust are present in a channel', + license => 'GPLv2', + url => 'http://natalya.psych0tik.net/~richo/irssi/', + changed => $LastModifiedDate +); + +sub cmd_help { + print ( <<EOF +goodnicks is a system for keeping track of whether there's anyone who can hear you, who shouldn't. + +GOODNICKS ADD nick - Add nick to the goodnicks list for current channel +GOODNICKS DEL nick - Delete nick from the goodnicks list for current channel +GOODNICKS CLEAR - Clear the goodnicks list for current channel +GOODNICKS THEME COOL theme - set the theme for when things are cool to theme +GOODNICKS THEME BAD theme - set the theme to use when someone can hear you +GOODNICKS LIST - Show the goodnicks list for the current channel +GOODNICKS WHO - Show the list of people not valid to be on the current channel + +EOF + ); +} + +my $need_redraw = 0; # goodnicks needs redrawing +my $active_channel; # (REC) + +my @goodnicks=(); # array of hashes, containing the internal goodnicks of the active channel +my @badnicks=(); +my @enabled_channels = (); +my @valid_peeps=(); # all peeps who are allowed to be in the chan +my @seen_chans = (); # All the channels we've looked at to date. + # nick => realnick + # mode => + my ($MODE_OP, $MODE_HALFOP, $MODE_VOICE, $MODE_NORMAL) = (0,1,2,3); + # status => + my ($STATUS_NORMAL, $STATUS_JOINING, $STATUS_PARTING, $STATUS_QUITING, $STATUS_KICKED, $STATUS_SPLIT) = (0,1,2,3,4,5); + # text => text to be printed + # cmp => text used to compare (sort) nicks + + +# 'cached' settings +my ($screen_prefix, $irssi_width, @prefix_mode, @prefix_status, $height, $goodnicks_width); + + +sub update { + read_settings(); +} + +sub cmd_theme { + my @args = split(/ /, shift); + if (@args < 2 and (@args[0] == 'cool' or @args[0] == 'bad')) { + Irssi::print("Usage: goodnicks theme [cool | bad] [themename]"); + } else { + Irssi::settings_set_str('goodnicks_theme_'.@args[0], @args[1]); + } +} + +sub cmd_debug { + Irssi::print("Current Server: ".Irssi::active_server()->{tag}); + Irssi::print("Alt form ". Irssi::active_server()->{tag}); + #Irssi::print(@valid_peeps); + #my $tmpnix = Irssi::settings_get_str('goodnicks_chan_'.$channel.'valid_peeps'); + #Irssi::settings_add_str('goodnicks', 'goodnicks_chan_kthxbai_valid_peeps', ''); + #Irssi::print(Irssi::settings_get_str('goodnicks_'.Irssi::active_server()->{tag}.'_kthxbai_valid_peeps')); +} + +### both ### + +# TODO Rename +sub need_redraw { + # Code to validate @goodnicks against @valid_peeps needs to go in here. + my $func = \&chan_is_cool; + my $tmp_server = Irssi::active_server(); + my $own_nick = lc($tmp_server->{nick}); + # If valid peeps is empty we assume that we don't care who's in there. + if (@valid_peeps > 0) { + foreach my $nick (@goodnicks){ + if (not(grep m/^\Q$nick\E$/i, @valid_peeps) && ($own_nick ne lc($nick))) { + push @badnicks, $nick; + $func = \&chan_is_bad; + } + } + } + &$func() + +} + +sub haxy_print_hook { + Irssi::signal_stop(); +} +sub set_theme { + my $theme = shift; + Irssi::signal_add_first('print text', 'haxy_print_hook'); + Irssi::command("set theme ".$theme); + Irssi::signal_remove('print text', 'haxy_print_hook'); +} + + +sub chan_is_cool { + # Do stuff to alert user chan is well groovy + my $theme = Irssi::settings_get_str('goodnicks_theme_cool'); + set_theme($theme) +} + +sub chan_is_bad { + # Do stuff to alert user to chan not being all good + my $theme = Irssi::settings_get_str('goodnicks_theme_bad'); + set_theme($theme) +} + +sub get_valid_peeps { + my $channel = shift; + $channel = $channel->{name}; + $channel =~ s/^#//; + if (not ( grep m/^\Q$channel\E$/i, @seen_chans)) { + Irssi::settings_add_str('goodnicks', 'goodnicks_'.Irssi::active_server()->{tag}.'_'.$channel.'_valid_peeps', ''); + } + my $thisnick; + my $tmpnix = Irssi::settings_get_str('goodnicks_'.Irssi::active_server()->{tag}.'_'.$channel.'_valid_peeps'); + $tmpnix =~ s/\\e/\033/g; + @valid_peeps = split( /,/, $tmpnix); +} + + +# make the (internal) goodnicks (@goodnicks) +sub make_goodnicks { + my $thisnick; + + @valid_peeps = (); + @goodnicks = (); + @badnicks = (); + + ### get & check channel ### + my $channel = Irssi::active_win->{active}; + + if (!$channel || (ref($channel) ne 'Irssi::Irc::Channel' && ref($channel) ne 'Irssi::Silc::Channel') || $channel->{'type'} ne 'CHANNEL' || ($channel->{chat_type} ne 'SILC' && !$channel->{'names_got'}) ) { + $active_channel = undef; + # no goodnicks + } else { + $active_channel = $channel; + ### make goodnicks ### + get_valid_peeps($active_channel); + foreach my $nick ($channel->nicks()) { + $thisnick = {'nick' => $nick->{'nick'}}; + if (grep m/^.+$/, $thisnick) { + push @goodnicks, $thisnick->{nick}; + } + } + + } + need_redraw(); +} + +sub cmd_add { + my $nick = shift; + if (not ( grep m/^\Q$nick\E$/i, @valid_peeps)) { + my $channel = $active_channel->{name}; + $channel =~ s/^#//; + push @valid_peeps, $nick; + my $tmpnicks = join(',', @valid_peeps); + Irssi::settings_set_str('goodnicks_'.Irssi::active_server()->{tag}.'_'.$channel.'_valid_peeps', $tmpnicks); + write_to_current_channel("Added ".$nick." to goodnicks"); + } else { + write_to_current_channel($nick." already present in goodnicks"); + } + make_goodnicks(); +} + +sub cmd_del { + my $nick = shift; + my @delorted = (); + my $index = 0; + my $channel = $active_channel->{name}; + $channel =~ s/^#//; + my @newnicks = (); + while ($index <= $#valid_peeps) { + if (lc($valid_peeps[$index]) ne lc($nick)) { + push @newnicks, $valid_peeps[$index]; + push @delorted, $nick; + } + $index++; + } + @valid_peeps = @newnicks; + my $tmpnicks = join(',', @valid_peeps); + Irssi::settings_set_str('goodnicks_'.Irssi::active_server()->{tag}.'_'.$channel.'_valid_peeps', $tmpnicks); + if (@delorted > 0) { + my $data = join(', ', @delorted); + write_to_current_channel("Deleted from goodnicks: ".$data); + } else { + write_to_current_channel($nick." not found in goodnicks."); + } + make_goodnicks(); +} + +sub cmd_clear { + my $channel = $active_channel->{name}; + $channel =~ s/^#//; + @valid_peeps = (); + my $tmpnicks = ''; + Irssi::settings_set_str('goodnicks_'.Irssi::active_server()->{tag}.'_'.$channel.'_valid_peeps', $tmpnicks); + write_to_current_channel("Cleared goodnicks for ".$active_channel->{name}); + make_goodnicks(); +} + +sub write_to_current_channel { + my $data = shift; + $active_channel->print($data, MSGLEVEL_CRAP); +} + +sub cmd_list { + if (@valid_peeps > 0) { + my $nicks; + write_to_current_channel("Valid peeps for ".$active_channel->{name}); + $nicks = join(', ', @valid_peeps); + write_to_current_channel($nicks); + } else { + write_to_current_channel("goodnicks disabled for ".$active_channel->{name}); + } +} +sub cmd_who { + if (@badnicks > 0) { + my $nicks; + write_to_current_channel("Invalid peeps on ".$active_channel->{name}); + $nicks = join(', ', @badnicks); + write_to_current_channel($nicks); + } else { + if (@valid_peeps > 0) { + write_to_current_channel("No invalid peeps on ".$active_channel->{name}); + } else { + write_to_current_channel("goodnicks disabled for ".$active_channel->{name}); + } + } +} + +##### command binds ##### +Irssi::command_bind 'goodnicks' => sub { + my ( $data, $server, $item ) = @_; + $data =~ s/\s+$//g; + Irssi::command_runsub ('goodnicks', $data, $server, $item ) ; +}; +Irssi::signal_add_first 'default command goodnicks' => sub { + # gets triggered if called with unknown subcommand + cmd_help(); +}; +Irssi::command_bind('goodnicks help',\&cmd_help); +Irssi::command_bind('goodnicks add', \&cmd_add); +Irssi::command_bind('goodnicks del', \&cmd_del); +Irssi::command_bind('goodnicks clear', \&cmd_clear); +Irssi::command_bind('goodnicks theme', \&cmd_theme); +# XXX Need to add this. +Irssi::command_bind('goodnicks list', \&cmd_list); +Irssi::command_bind('goodnicks who', \&cmd_who); +Irssi::command_bind('goodnicks debug',\&cmd_debug); + +# +###### signals ##### +Irssi::signal_add_last('window item changed', \&make_goodnicks); +Irssi::signal_add_last('window changed', \&make_goodnicks); +#Irssi::signal_add_last('channel wholist', \&sig_channel_wholist); +Irssi::signal_add_first('message join', \&make_goodnicks); # first, to be before ignores +Irssi::signal_add_first('message part', \&make_goodnicks); +Irssi::signal_add_first('message kick', \&make_goodnicks); +Irssi::signal_add_first('message quit', \&make_goodnicks); +Irssi::signal_add_first('message nick', \&make_goodnicks); +#Irssi::signal_add_first('message own_nick', \&sig_nick); +#Irssi::signal_add_first('nick mode changed', \&sig_mode); +# +#Irssi::signal_add('setup changed', \&read_settings); +# +###### settings ##### +#Irssi::settings_add_str('goodnicks', 'goodnicks_screen_prefix', '\e[m '); +Irssi::settings_add_str('goodnicks', 'goodnicks_prefix_mode_op', '\e[32m@\e[39m'); +Irssi::settings_add_str('goodnicks', 'goodnicks_prefix_mode_halfop', '\e[34m%\e[39m'); +Irssi::settings_add_str('goodnicks', 'goodnicks_prefix_mode_voice', '\e[33m+\e[39m'); +Irssi::settings_add_str('goodnicks', 'goodnicks_prefix_mode_normal', ' '); +Irssi::settings_add_str('goodnicks', 'goodnicks_theme_bad', 'intruder'); +Irssi::settings_add_str('goodnicks', 'goodnicks_theme_cool', 'default'); +# +#Irssi::settings_add_int('goodnicks', 'goodnicks_width',11); +#Irssi::settings_add_int('goodnicks', 'goodnicks_height',24); +Irssi::settings_add_str('goodnicks', 'goodnicks_channels', ''); +#Irssi::settings_add_str('goodnicks', 'goodnicks_screen_split_windows', ''); +#Irssi::settings_add_str('goodnicks', 'goodnicks_automode', ''); +Irssi::settings_add_str('goodnicks', 'goodnicks_', ''); +# +#} |