Changeset f81176c for perl/modules/IRC

Timestamp:

Dec 17, 2009, 10:52:39 PM (14 years ago)

Author:

Alex Vandiver <alexmv@mit.edu>

Branches:

master, release-1.10, release-1.5, release-1.6, release-1.7, release-1.8, release-1.9

Children:

99c1f46

Parents:

cd12307

git-author:

Alex Vandiver <alexmv@mit.edu> (10/16/09 01:23:08)

git-committer:

Alex Vandiver <alexmv@mit.edu> (12/17/09 22:52:39)

Message:

Skip some IRC admin messages by default, controlled by irc:skip

Location:

perl/modules/IRC/lib/BarnOwl/Module

Files:

• IRC.pm (modified) (2 diffs)
• IRC/Connection.pm (modified) (1 diff)

perl/modules/IRC/lib/BarnOwl/Module/IRC.pm

@@ -59 +59 @@
         'admin messages. Intended for debugging and development use only.'
        });
-    
+
+    BarnOwl::new_variable_string('irc:skip', {
+        default     => 'welcome yourhost created ' .
+        'luserclient luserme luserop luserchannels',
+        summary     => 'Skip messages of these types',
+        description => 'If set, each (space-separated) message type ' .
+        'provided will be hidden and ignored if received.'
+       });
+
     register_commands();
     register_handlers();
@@ -120 +128 @@
         $irc->timeout(0);
     }
+}
+
+sub skip_msg {
+    my $class = shift;
+    my $type = lc shift;
+    my $skip = lc BarnOwl::getvar('irc:skip');
+    return grep {$_ eq $type} split ' ', $skip;
 }
 

perl/modules/IRC/lib/BarnOwl/Module/IRC/Connection.pm

@@ -131 +131 @@
 sub on_admin_msg {
     my ($self, $evt) = @_;
+    return if BarnOwl::Module::IRC->skip_msg($evt->type);
     BarnOwl::admin_message("IRC",
             BarnOwl::Style::boldify('IRC ' . $evt->type . ' message from '