aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--goodnicks/goodnicks.pl321
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_', '');
+#
+#}