Changeset 861

Timestamp:

03/05/09 02:14:38 (9 months ago)

Author:

mart

Message:

Add the start of a Gearman-powered Authen plugin.

Location:

trunk/DJabberd-Gearman/lib/DJabberd/Gearman

Files:

• Authen.pm (added)
• BasePlugin.pm (modified) (1 diff)

trunk/DJabberd-Gearman/lib/DJabberd/Gearman/BasePlugin.pm

@@ -106 +106 @@
 
     foreach my $func (@funcs) {
-        my $config_name = $func.'_func';
+        my $accessor_name = $func."_func";
+        $func =~ s/_//g;
         my $set_config_name = "set_config_".$func."func";
         *{$class."::".$set_config_name} = sub {
             my ($self, $name) = @_;
-            $self->$config_name($name);
+            $self->$accessor_name($name);
         };
 
-        *{$class."::".$config_name} = sub {
+        *{$class."::".$accessor_name} = sub {
             my $self = shift;
 
             if (@_) {
-                $self->{$config_name} = shift;
-                $self->{$config_name} =~ s/^\s*//g;
-                $self->{$config_name} =~ s/\s*$//g;
+                $self->{$accessor_name} = shift;
+                $self->{$accessor_name} =~ s/^\s*//g;
+                $self->{$accessor_name} =~ s/\s*$//g;
             }
             else {
-                return $self->{$config_name};
+                return $self->{$accessor_name};
             }
         };