add new type for password field which will not display value on cgi page.

git-svn-id: svn://10.0.0.236/trunk@86684 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
kestes%tradinglinx.com 2001-02-09 15:16:57 +00:00
parent 3eb84331cc
commit 0ab4c7ce99
2 changed files with 8 additions and 2 deletions

View File

@ -102,6 +102,7 @@ sub check_registryurl {
# of the following:
#
# t -- A short text entry field (suitable for a single line)
# p -- A password text entry field
# l -- A long text field (suitable for many lines)
# b -- A boolean value (either 1 or 0)
# i -- An integer.
@ -143,7 +144,7 @@ DefParam("mysqluser",
DefParam("mysqlpassword",
"The password of the bonsai database user.",
"t",
"p",
"");
DefParam("dbiparam",

View File

@ -55,7 +55,12 @@ foreach my $i (@::param_list) {
value_quote($value) . "\">\n";
last SWITCH;
};
/^l$/ && do {
/^p/ && do {
print "<input size=80 type=password name=$i value=\"" .
value_quote($value) . "\">\n";
last SWITCH;
};
/^l$/ && do {
print "<textarea wrap=hard name=$i rows=10 cols=80>" .
value_quote($value) . "</textarea>\n";
last SWITCH;