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:
parent
3eb84331cc
commit
0ab4c7ce99
@ -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",
|
||||
|
||||
@ -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;
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user