Changeset 3706 for lang/perl/Archer

Timestamp:

12/28/07 11:23:47 (11 months ago)

Author:

tokuhirom

Message:

r3659@mnk (orig r309): tokuhiro | 2007-03-15 19:21:17 -0700
added role support for Archer.

Files:

• lang/perl/Archer/lib/Archer.pm (modified) (1 diff)

lang/perl/Archer/lib/Archer.pm

@@ -61 +61 @@
         if ($self->{skips}->{$plugin->{name}}) {
             $self->log(info => "skipped: $plugin->{name}");
+            next;
+        }
+
+        if ( $plugin->{role} && $plugin->{role} ne $args->{role} ) {
+            $self->log(debug => "skip $args->{server}. because $plugin->{role} ne $args->{role}");
             next;
         }