[freeside-commits] freeside/FS/FS Conf.pm, 1.188, 1.189 svc_acct.pm, 1.223, 1.224

[Jeff Finucane,420,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail:/tmp/cvs-serv26484/FS/FS

Modified Files:
	Conf.pm svc_acct.pm 
Log Message:
configuration option to have generated passwords be all caps

Index: Conf.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Conf.pm,v
retrieving revision 1.188
retrieving revision 1.189
diff -u -d -r1.188 -r1.189
--- Conf.pm	6 Apr 2007 00:37:59 -0000	1.188
+++ Conf.pm	8 Apr 2007 01:14:25 -0000	1.189
@@ -2074,6 +2074,13 @@
     'type'       => 'checkbox',
   },
 
+  {
+    'key' => 'password-generated-allcaps',
+    'section' => 'password',
+    'description' => 'Causes passwords automatically generated to consist entirely of capital letters',
+    'type' => 'checkbox',
+  },
+
 );
 
 1;

Index: svc_acct.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/svc_acct.pm,v
retrieving revision 1.223
retrieving revision 1.224
diff -u -d -r1.223 -r1.224
--- svc_acct.pm	8 Apr 2007 00:22:13 -0000	1.223
+++ svc_acct.pm	8 Apr 2007 01:14:25 -0000	1.224
@@ -83,6 +83,7 @@
   $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' , '.' , '/' );