From 026a0c50f1b0907d25291b6651c18886e2971d1f Mon Sep 17 00:00:00 2001
From: Russ Allbery <rra@stanford.edu>
Date: Fri, 7 Dec 2007 00:01:16 +0000
Subject: Load the Perl modules for ACL verifiers and object types dynamically
 now that we're reading the class from the database.

---
 perl/Wallet/Server.pm | 16 +++++++++++++---
 1 file changed, 13 insertions(+), 3 deletions(-)

(limited to 'perl/Wallet/Server.pm')

diff --git a/perl/Wallet/Server.pm b/perl/Wallet/Server.pm
index 1fa7e4a..b6ce92f 100644
--- a/perl/Wallet/Server.pm
+++ b/perl/Wallet/Server.pm
@@ -18,13 +18,12 @@ use vars qw(%MAPPING $VERSION);
 
 use Wallet::ACL;
 use Wallet::Config;
-use Wallet::Object::Keytab;
 use Wallet::Schema;
 
 # This version should be increased on any code change to this module.  Always
 # use two digits for the minor version with a leading zero if necessary so
 # that it will sort properly.
-$VERSION = '0.03';
+$VERSION = '0.04';
 
 ##############################################################################
 # Utility methods
@@ -139,7 +138,7 @@ sub DESTROY {
 ##############################################################################
 
 # Given an object type, return the mapping to a class by querying the
-# database, or undef if no mapping exists.
+# database, or undef if no mapping exists.  Also load the relevant module.
 sub type_mapping {
     my ($self, $type) = @_;
     my $class;
@@ -153,6 +152,17 @@ sub type_mapping {
         $self->{dbh}->rollback;
         return;
     }
+    if (defined $class) {
+        if ($class !~ /^Wallet::Object::(\w+::)*\w+\z/) {
+            $self->error ("invalid class name $class for type $type");
+            return;
+        }
+        eval "require $class";
+        if ($@) {
+            $self->error ($@);
+            return;
+        }
+    }
     return $class;
 }
 
-- 
cgit v1.2.3