Changeset 1117

Timestamp:

11/05/07 07:07:34 (6 years ago)

Author:

tokuhirom

Message:

lang/perl/mobirc: added config schema validate feature.

Location:

lang/perl/mobirc/trunk/mobirc/lib

Files:

• Mobirc.pm (modified) (2 diffs)
• Mobirc/Plugin/Component/XMPP.pm (modified) (2 diffs)

lang/perl/mobirc/trunk/mobirc/lib/Mobirc.pm

@@ -13 +13 @@
 
 our $VERSION = 0.02;
+
+our $HasKwalify;
+eval {
+    require Kwalify;
+    $HasKwalify++;
+};
 
 my $context;
@@ -36 +42 @@
         DEBUG "LOAD PLUGIN: $plugin->{module}";
         $plugin->{module}->use or die $@;
+        if ( $HasKwalify && $plugin->{module}->can('config_schema') ) {
+            my $res = Kwalify::validate( $plugin->{module}->config_schema, $plugin->{config} );
+            unless ( $res == 1 ) {
+                die "config.yaml validation error : $plugin->{module}, $res";
+            }
+        }
         $plugin->{module}->register( $self, $plugin->{config} );
     }

lang/perl/mobirc/trunk/mobirc/lib/Mobirc/Plugin/Component/XMPP.pm

@@ -16 +16 @@
 use Mobirc::Util;
 
+sub config_schema {
+    {
+        type    => 'map',
+        mapping => {
+            jid => {
+                type     => 'str',
+                required => 1,
+            },
+            password => {
+                type     => 'str',
+                required => 1,
+            },
+            hostname        => { type => 'str', },
+            channel         => { type => 'str', },
+            alias           => { type => 'str', },
+            connection_type => { type => 'int', },
+        }
+    }
+}
+
 our $PLUGIN_COUNT = 0;
-our $XMPP_SESSION_NAME; # XXX for debug
 sub register {
     my ($class, $global_context, $conf) = @_;
@@ -40 +59 @@
     $conf->{channel} ||= U 'xmpp[%s]';
     $conf->{alias} ||= "XMPP$PLUGIN_COUNT";
-    $XMPP_SESSION_NAME = $conf->{alias};
     $conf->{connection_type} ||= POE::Component::Jabber::ProtocolFactory::XMPP;
 }