diff options
Diffstat (limited to 'fs_selfservice/FS-SelfService/cgi/signup.cgi')
| -rwxr-xr-x | fs_selfservice/FS-SelfService/cgi/signup.cgi | 28 |
1 files changed, 28 insertions, 0 deletions
diff --git a/fs_selfservice/FS-SelfService/cgi/signup.cgi b/fs_selfservice/FS-SelfService/cgi/signup.cgi index 817fdd310..072ce96be 100755 --- a/fs_selfservice/FS-SelfService/cgi/signup.cgi +++ b/fs_selfservice/FS-SelfService/cgi/signup.cgi @@ -508,3 +508,31 @@ use FS::SelfService qw( regionselector expselect popselector domainselector didselector ); +sub add_password_validation { + my $fieldid = shift; + my $out = ''; + if ((-e './send_xmlhttp.html') && (-e './add_password_validation.html')) { + my $template = new Text::Template( TYPE => 'FILE', + SOURCE => "./send_xmlhttp.html", + DELIMITERS => [ '<%=', '%>' ], + UNTAINT => 1, + ) + or die $Text::Template::ERROR; + $out .= $template->fill_in( PACKAGE => 'FS::SelfService::_signupcgi' ); + $template = new Text::Template( TYPE => 'FILE', + SOURCE => "./add_password_validation.html", + DELIMITERS => [ '<%=', '%>' ], + UNTAINT => 1, + ) + or die $Text::Template::ERROR; + $out .= $template->fill_in( PACKAGE => 'FS::SelfService::_signupcgi' ); + $out .= <<ENDOUT; +<SCRIPT> +add_password_validation('$fieldid'); +</SCRIPT> +ENDOUT + } + return $out; +} + + |