[freeside-commits] freeside/FS/FS Conf.pm, 1.180.2.2, 1.180.2.3 svc_acct.pm, 1.217.2.3, 1.217.2.4

[Jeff Finucane,420,,]

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

Modified Files:
      Tag: FREESIDE_1_7_BRANCH
	Conf.pm svc_acct.pm 
Log Message:
configuration option to have generated passwords be all caps (backport)

Index: Conf.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/Conf.pm,v
retrieving revision 1.180.2.2
retrieving revision 1.180.2.3
diff -u -d -r1.180.2.2 -r1.180.2.3
--- Conf.pm	6 Apr 2007 00:38:26 -0000	1.180.2.2
+++ Conf.pm	8 Apr 2007 01:18:55 -0000	1.180.2.3
@@ -2056,6 +2056,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.217.2.3
retrieving revision 1.217.2.4
diff -u -d -r1.217.2.3 -r1.217.2.4
--- svc_acct.pm	8 Apr 2007 00:23:14 -0000	1.217.2.3
+++ svc_acct.pm	8 Apr 2007 01:18:55 -0000	1.217.2.4
@@ -102,6 +102,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' , '.' , '/' );