Changeset d1bb4f3 for lib/BarnOwl/Module

Timestamp:

Mar 12, 2008, 9:20:00 PM (17 years ago)

Author:

nelhage@mit.edu <nelhage@mit.edu>

Branches:

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

Children:

1c24c69

Parents:

30f0680

Message:

Wildcard support

File:

• lib/BarnOwl/Module/Twitter.pm (modified) (2 diffs)

lib/BarnOwl/Module/Twitter.pm

@@ -35 +35 @@
 # Which was fixed in svn r819
 if((BarnOwl::getvar('twitter:class')||'') eq '') {
+    my $desc = <<'END_DESC';
+BarnOwl::Module::Twitter will watch for authentic zephyrs to
+-c $twitter:class -i $twitter:instance -O $twitter:opcode
+from your sender and mirror them to Twitter.
+
+A value of '*' in any of these fields acts a wildcard, accepting
+messages with any value of that field.
+END_DESC
     BarnOwl::new_variable_string('twitter:class',
                                {
                                    default => $class,
-                                   summary => 'Class to watch for Twitter messages'
+                                   summary => 'Class to watch for Twitter messages',
+                                   description => $desc
                                   });
     BarnOwl::new_variable_string('twitter:instance',
                                {
                                    default => $instance,
-                                   summary => 'Instance on twitter:class to watch for Twitter messages'
+                                   summary => 'Instance on twitter:class to watch for Twitter messages.',
+                                   description => $desc
                                   });
     BarnOwl::new_variable_string('twitter:opcode',
                                {
                                    default => $opcode,
-                                   summary => 'Opcode for zephyrs that will be sent as twitter updates'
+                                   summary => 'Opcode for zephyrs that will be sent as twitter updates',
+                                   description => $desc
                                   });
 }
@@ -71 +82 @@
 }
 
+sub match {
+    my $val = shift;
+    my $pat = shift;
+    return $pat eq "*" || ($val eq $pat);
+}
+
 sub handle_message {
     my $m = shift;
     ($class, $instance, $opcode) = map{BarnOwl::getvar("twitter:$_")} qw(class instance opcode);
     if($m->sender eq $user
-       && $m->class eq $class
-       && $m->instance eq $instance
-       && $m->opcode eq $opcode
+       && match($m->class, $class)
+       && match($m->instance, $instance)
+       && match($m->opcode, $opcode)
        && $m->auth eq 'YES') {
         twitter($m->body);