X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=httemplate%2Fedit%2Fsvc_acct.cgi;h=ec4f66e2051eb085a73da0e106ef4aba6dc5dc95;hb=f1042452ad03c578088c7b43a5e8263770c365c5;hp=8646bb70739349ead428755fc05fb6a4e1410de8;hpb=bc8a035db564658a7d9abdf3e141651c2de8082b;p=freeside.git
diff --git a/httemplate/edit/svc_acct.cgi b/httemplate/edit/svc_acct.cgi
index 8646bb707..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,8 +101,11 @@ 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 $cgi->header( '-expires' => 'now' ), header("$action $svc account");
+print header("$action $svc account");
print qq!Error: !, $cgi->param('error'),
"
"
@@ -116,12 +120,12 @@ print 'Service # '. ( $svcnum ? "$svcnum" : " (NEW)" ). '
'.
END
-print &itable("#cccccc"), <
| Username |
|
Password |
-
+ |
(blank to generate) |
END