From: ivan Date: Wed, 12 Dec 2001 19:42:21 +0000 (+0000) Subject: allow >8 character passwords in web interface X-Git-Tag: freeside_1_4_0pre11~191 X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=aa0a7b4128ed5cf56684378c9cb6ebc1c3ec8c1a allow >8 character passwords in web interface --- diff --git a/httemplate/edit/cust_main.cgi b/httemplate/edit/cust_main.cgi index 260d77e6c..3a29e2579 100755 --- a/httemplate/edit/cust_main.cgi +++ b/httemplate/edit/cust_main.cgi @@ -1,5 +1,5 @@ <% -# +# use vars qw( $cgi $custnum $action $cust_main $p1 @agents $agentnum $last $first $ss $company $address1 $address2 $city $zip @@ -434,11 +434,13 @@ unless ( $custnum ) { #$ulen = $svc_acct->dbdef_table->column('username')->length; $ulen = dbdef->table('svc_acct')->column('username')->length; $ulen2 = $ulen+2; + my $passwordmax = $conf->config('passwordmax') || 8; + my $pmax2 = $passwordmax + 2; print <Username Password - + (blank to generate) END diff --git a/httemplate/edit/svc_acct.cgi b/httemplate/edit/svc_acct.cgi index 4911e0ffd..ec4f66e20 100755 --- a/httemplate/edit/svc_acct.cgi +++ b/httemplate/edit/svc_acct.cgi @@ -1,9 +1,10 @@ <% -# +# use strict; use vars qw( $conf $cgi @shells $action $svcnum $svc_acct $pkgnum $svcpart - $part_svc $svc $otaker $username $password $ulen $ulen2 $p1 + $part_svc $svc $otaker $username $password $ulen $ulen2 + $pmax $pmax2 $p1 $popnum $domsvc $uid $gid $finger $dir $shell $quota $slipip %svc_domain ); use CGI; @@ -100,6 +101,9 @@ if ( $svc_acct->_password ) { $ulen = $svc_acct->dbdef_table->column('username')->length; $ulen2 = $ulen+2; +$pmax = $conf->config('passwordmax') || 8; +$pmax2 = $pmax+2; + $p1 = popurl(1); print header("$action $svc account"); @@ -121,7 +125,7 @@ print &itable("#cccccc",2), <Username Password - + (blank to generate) END