Support enforcing a naming policy for wallet objects via a Perl

function in the wallet server configuration file.

1 files changed, 8 insertions, 1 deletions

diff --git a/perl/Wallet/Server.pm b/perl/Wallet/Server.pm
index 87a5bab..6be7e59 100644
--- a/perl/Wallet/Server.pm
+++ b/perl/Wallet/Server.pm
@@ -23,7 +23,7 @@ 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.04';
+$VERSION = '0.05';
 
 ##############################################################################
 # Utility methods
@@ -247,6 +247,13 @@ sub create {
     unless ($acl) {
         return unless $self->{admin}->check ($user);
     }
+    if (defined (&Wallet::Config::verify_name)) {
+        my $error = Wallet::Config::verify_name ($type, $name, $user);
+        if ($error) {
+            $self->error ("${type}:${name} rejected: $error");
+            return;
+        }
+    }
     my $object = eval { $class->create ($type, $name, $dbh, $user, $host) };
     if ($@) {
         $self->error ($@);