1 files changed, 5 insertions, 0 deletions
diff --git a/perl/Wallet/Policy/Stanford.pm b/perl/Wallet/Policy/Stanford.pm
index 8bf4257..5ac29e0 100644
--- a/perl/Wallet/Policy/Stanford.pm
+++ b/perl/Wallet/Policy/Stanford.pm
@@ -279,6 +279,11 @@ sub verify_name {
                 and $principal !~ /^(class|dept|group)-[a-z0-9_-]+$/) {
                 return "invalid CGI principal name $name";
             }
+        } elsif ($instance eq 'cron') {
+            if ($principal !~ /^[a-z][a-z0-9]{1,7}$/
+                and $principal !~ /^(class|dept|group)-[a-z0-9_-]+$/) {
+                return "invalid cron principal name $name";
+            }
         } else {
             return "unknown principal type $principal";
         }