Import scripts from scripts.irssi.org

1 files changed, 277 insertions, 0 deletions

diff --git a/scripts/notes.pl b/scripts/notes.pl
new file mode 100644
index 0000000..e2df219
--- /dev/null
+++ b/scripts/notes.pl
@@ -0,0 +1,277 @@
+# First, add $NOTE to your /format whois line so the output is shown, for example use
+# '/format whois {nick $0} {nickhost $1@$2}%:{whois ircname $3}%:{whois note $NOTE}' which would produce
+# Dec 12 21:24:18 -!- vague [~vague@c-e0ebe055.14-500-64736c10.cust.bredbandsbolaget.se]
+# Dec 12 21:24:18 -!-  ircname  : vague
+# Dec 12 21:24:18 -!-  note     : A nice guy but can be a PITA :)
+# ...
+#
+# See /notes help for more help
+#
+# Prerequisites:
+# irssi 0.8.13+
+# DBM::Deep
+# DBI
+
+use Irssi;
+use DBI;
+use Data::Dumper;
+use DBM::Deep;
+
+use vars qw($VERSION %IRSSI);
+
+my $VERSION = '0.31';
+my %IRSSI = (
+    authors     => 'vague',
+    contact     => 'vague!#irssi\@freenode',
+    name        => 'notes',
+    description => 'Keeps notes on users and displayes the note in /whois output if the host/nick matches',
+    license     => 'GPL2',
+);
+
+my $notes;
+my $note_expando = '';
+my @chatnets;
+push @chatnets, $_->{name} for(Irssi::chatnets());
+
+my $DEBUG_ENABLED = 1;
+sub DEBUG { $DEBUG_ENABLED }
+
+sub init {
+  my $filename = Irssi::settings_get_str("notes_db") || Irssi::get_irssi_dir() . "/notes.db";
+  $notes = DBM::Deep->new( $filename );
+}
+
+sub _print {
+  my ($msg) = @_;
+  Irssi::active_win->print($msg, Irssi::MSGLEVEL_CLIENTCRAP);
+}
+
+sub _error {
+  my ($msg) = @_;
+  Irssi::active_win->print($msg, Irssi::MSGLEVEL_CLIENTCRAP);
+}
+
+sub _debug_print {
+  return unless DEBUG;
+  my ($msg) = @_;
+  Irssi::active_win->print($msg, Irssi::MSGLEVEL_CLIENTCRAP);
+}
+
+sub sig_whois {
+  my ($server, $data, undef, undef) = @_;
+  my ($me, $nick, $user, $host) = split(" ", $data);
+
+  if(exists $notes->{lc $server->{tag}}->{nick}->{lc $nick}) {
+    $note_expando = $notes->{lc $server->{tag}}->{nick}->{lc $nick};
+  }
+  else {
+    my $masks = $notes->{lc $server->{tag}}->{mask};
+    while(my ($mask, $value) = each %$masks) {
+      if($server->mask_match_address(lc $mask, '*', "$nick!$user\@$host")) {
+        $note_expando = $value;
+        return;
+      }
+    }
+  }
+}
+
+sub expando_note {
+  my ($tmp) = $note_expando;
+  $note_expando = '';
+  return $tmp;
+}
+
+sub cmd_notes_add {
+  my ($args, $server, $witem) = @_;
+  my $tmpargs = [ sort {$a =~ /^-/ <=> $b !~ /^-/} split / /, $args ];
+  my @options_list = Irssi::command_parse_options('notes add', join(' ', @$tmpargs));
+
+  if(!@options_list) {
+    _error "Could not parse arguments\n" . usage();
+    return;
+  }
+
+  my @minusargs = grep {/^-/} split / /, $args;
+  my @rest = grep {!/^-/} split / /, $args;
+  my ($network, $type, $pattern);
+
+  foreach(@minusargs) {
+    s/^-//;
+    if(/nick|mask/i) {
+      $type = $_;
+      $pattern = shift @rest;
+    }
+    else {
+      if(join(' ', @chatnets) =~ /$_/i) {
+        $network = $_;
+      }
+    }
+  }
+
+  if(not defined $network) {
+    $network = Irssi::active_server()->{tag};
+  }
+
+  unless ($type || $pattern) {
+    _error "Could not parse command\n" . usage();
+    return;
+  }
+
+  $notes->{lc $network}->{lc $type}->{lc $pattern} = join ' ', @rest;
+  _print "Added $pattern to $network";
+}
+
+sub cmd_notes_del {
+  my ($args, $server, $witem) = @_;
+  my $tmpargs = [ sort {$a =~ /^-/ <=> $b !~ /^-/} split / /, $args ];
+  my @options_list = Irssi::command_parse_options('notes del', join(' ', @$tmpargs));
+
+  if(!@options_list) {
+    _error "Could not parse arguments\n" . usage();
+    return;
+  }
+
+  my @minusargs = grep {/^-/} split / /, $args;
+  my @rest = grep {!/^-/} split / /, $args;
+  my ($network, $type, $pattern, $purge);
+
+  foreach(@minusargs) {
+    s/^-//;
+    if(/nick|mask/i) {
+      $type = $_;
+      $pattern = shift @rest;
+    }
+    elsif(/purge/) {
+      $purge = 1;
+    }
+    else {
+      if(join(' ', @chatnets) =~ /$_/i) {
+        $network = $_;
+      }
+    }
+  }
+
+  unless ($purge || $type || $pattern) {
+    _error "Could not parse command\n" . usage();
+    return;
+  }
+
+  if($purge) {
+    if(defined $network) {
+      delete $notes->{lc $network};
+      _print "Deleted all notes in $network";
+    }
+    else {
+      $notes->clear;
+      _print "Deleted all notes";
+    }
+  }
+  else {
+    if(not defined $network) {
+      $network = Irssi::active_server()->{tag};
+    }
+
+    if(exists $notes->{lc $network}->{lc $type}->{lc $pattern}) {
+      delete $notes->{lc $network}->{lc $type}->{lc $pattern};
+      _print "Deleted $pattern from $network";
+    }
+    else {
+      _error "\u$type '$pattern' on '$network' not found";
+    }
+  }
+}
+
+sub cmd_notes_list {
+  my ($args, $server, $witem) = @_;
+  my $tmpargs = [ sort {$a =~ /^-/ <=> $b !~ /^-/} split / /, $args ];
+  my @options_list = Irssi::command_parse_options('notes list', join(' ', @$tmpargs));
+
+  if(!@options_list) {
+    _error "Could not parse arguments\n" . usage();
+    return;
+  }
+
+  my @minusargs = grep {/^-/} split / /, $args;
+  my @rest = grep {!/^-/} split / /, $args;
+  my ($network, $type, $pattern, $all);
+
+  foreach(@minusargs) {
+    s/^-//;
+    if(/nick|mask/i) {
+      $type = $_;
+      $pattern = shift @rest;
+    }
+    elsif(/all/) {
+      $all = 1;
+    }
+    else {
+      if(join(' ', @chatnets) =~ /$_/i) {
+        $network = $_;
+      }
+    }
+  }
+
+  if(not defined $network) {
+    $network = Irssi::active_server()->{tag};
+  }
+
+  if($all) {
+    foreach my $tag (keys %$notes) {
+      Irssi::active_win()->{active}->print("--- Notes for $tag ---");
+      my $nicks = $notes->{$tag}->{nick};
+      while(my ($nick, $value1) = each %$nicks) {
+        Irssi::active_win()->{active}->print($nick . ": " . $value1);
+      }
+      my $masks = $notes->{$tag}->{mask};
+      while(my ($hostmask, $value2) = each %$masks) {
+        Irssi::active_win()->{active}->print($hostmask . ": " . $value2);
+      }
+    }
+  }
+  else {
+    if(defined $type && defined $pattern) {
+      Irssi::active_win()->{active}->print("--- Note on $network/$pattern ---");
+      Irssi::active_win()->{active}->print($notes->{lc $network}->{lc $type}->{lc $pattern});
+    }
+    else {
+      Irssi::active_win()->{active}->print("--- Notes for $network ---");
+      my $nicks = $notes->{lc $network}->{nick};
+      while(my ($nick, $value1) = each %$nicks) {
+        Irssi::active_win()->{active}->print($nick . ": " . $value1);
+      }
+      my $masks = $notes->{lc $network}->{mask};
+      while(my ($hostmask, $value2) = each %$masks) {
+        Irssi::active_win()->{active}->print($hostmask . ": " . $value2);
+      }
+    }
+  }
+}
+
+sub usage {
+  return "Usage: %_/notes%_ add [-tag] -nick|-mask pattern <notes>\n" .
+         "       %_/notes%_ del [-tag] -purge|(-nick|-mask pattern)\n" .
+         "       %_/notes%_ list [-tag] -all|(-nick|-mask pattern)";
+}
+
+Irssi::command_bind('notes' => sub {
+  my ( $data, $server, $item ) = @_;
+  $data =~ s/\s+$//g;
+  Irssi::command_runsub ('notes', $data, $server, $item ) ;
+});
+
+Irssi::command_bind('notes add', \&cmd_notes_add);
+Irssi::command_bind('notes del', \&cmd_notes_del);
+Irssi::command_bind('notes list', \&cmd_notes_list);
+Irssi::command_bind('notes help', sub { Irssi::active_win()->print(usage()); });
+
+Irssi::command_set_options('notes add', join(' ', @chatnets) . ' nick mask');
+Irssi::command_set_options('notes del', join(' ', @chatnets) . ' purge nick mask');
+Irssi::command_set_options('notes list', join(' ', @chatnets) . ' all nick mask');
+
+Irssi::settings_add_str('Notes', 'notes_db', Irssi::get_irssi_dir() . "/notes.db");
+
+Irssi::signal_add_first('event 311', \&sig_whois);
+Irssi::expando_create('NOTE', \&expando_note,
+                     {'event 311' => 'None' });
+
+init();