diff options
Diffstat (limited to 'pki/base/ra/forms/agent/index.cgi')
-rwxr-xr-x | pki/base/ra/forms/agent/index.cgi | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/pki/base/ra/forms/agent/index.cgi b/pki/base/ra/forms/agent/index.cgi index ae786618a..c8f2040fe 100755 --- a/pki/base/ra/forms/agent/index.cgi +++ b/pki/base/ra/forms/agent/index.cgi @@ -31,6 +31,7 @@ use Template::Velocity; use PKI::Base::Conf; use PKI::Base::UserStore; use PKI::Base::Registry; +use PKI::Base::Util; use vars qw (@ISA); use PKI::Service::Op; @@ -48,6 +49,8 @@ sub process() my $q = CGI->new(); + my $util = PKI::Base::Util->new(); + my $docroot = PKI::Base::Registry->get_docroot(); my $parser = PKI::Base::Registry->get_parser(); my $cfg = PKI::Base::Registry->get_config(); @@ -61,7 +64,7 @@ sub process() my $uid = $self->get_current_uid($cfg); my %context; - $context{uid} = $uid; + $context{uid} = $util->html_encode($uid); my $result = $parser->execute_file_with_context("agent/index.vm", \%context); |