From: jeff <jeff>
Date: Sun, 8 Apr 2007 01:14:25 +0000 (+0000)
Subject: configuration option to have generated passwords be all caps
X-Git-Tag: TRIXBOX_2_6~556
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=3bce7d148f2b658566e2d7dd718c52059f5c59e9

configuration option to have generated passwords be all caps
---

diff --git a/FS/FS/Conf.pm b/FS/FS/Conf.pm
index 21af2b4cf..d7bd80a24 100644
--- a/FS/FS/Conf.pm
+++ b/FS/FS/Conf.pm
@@ -2074,6 +2074,13 @@ httemplate/docs/config.html
     'type'       => 'checkbox',
   },
 
+  {
+    'key' => 'password-generated-allcaps',
+    'section' => 'password',
+    'description' => 'Causes passwords automatically generated to consist entirely of capital letters',
+    'type' => 'checkbox',
+  },
+
 );
 
 1;
diff --git a/FS/FS/svc_acct.pm b/FS/FS/svc_acct.pm
index dad60f8a5..cb3f38bf2 100644
--- a/FS/FS/svc_acct.pm
+++ b/FS/FS/svc_acct.pm
@@ -83,6 +83,7 @@ $FS::UID::callback{'FS::svc_acct'} = sub {
   $smtpmachine = $conf->config('smtpmachine');
   $radius_password = $conf->config('radius-password') || 'Password';
   $radius_ip = $conf->config('radius-ip') || 'Framed-IP-Address';
+  @pw_set = ( 'A'..'Z' ) if $conf->exists('password-generated-allcaps');
 };
 
 @saltset = ( 'a'..'z' , 'A'..'Z' , '0'..'9' , '.' , '/' );