diff options
| author | shige <shige@FreeBSD.org> | 2003-10-03 16:27:06 +0000 |
|---|---|---|
| committer | shige <shige@FreeBSD.org> | 2003-10-03 16:27:06 +0000 |
| commit | 5c3f0ec41d432cc0e083f4502b4af9975c34a498 (patch) | |
| tree | 69c9c9d14913e9de379377b3f0f2a6787a2f1f00 /japanese | |
| parent | 48e1f15bc3e7c51285316419d98b2480f7f5e698 (diff) | |
| download | FreeBSD-ports-5c3f0ec41d432cc0e083f4502b4af9975c34a498.zip FreeBSD-ports-5c3f0ec41d432cc0e083f4502b4af9975c34a498.tar.gz | |
Translate action URL by escapeHTML() (lib/CGI.pm).
PR: ports/57390
Submitted by: IIJIMA Hiromitsu <delmonta@ht.sakura.ne.jp>
Diffstat (limited to 'japanese')
| -rw-r--r-- | japanese/perl5/files/patch-lib:CGI.pm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/japanese/perl5/files/patch-lib:CGI.pm b/japanese/perl5/files/patch-lib:CGI.pm new file mode 100644 index 0000000..f805d37 --- /dev/null +++ b/japanese/perl5/files/patch-lib:CGI.pm @@ -0,0 +1,13 @@ +--- lib/CGI.pm.orig Fri Feb 12 09:05:57 1999 ++++ lib/CGI.pm Sat Oct 4 01:14:41 2003 +@@ -1413,8 +1413,8 @@ + + $method = $method || 'POST'; + $enctype = $enctype || &URL_ENCODED; +- $action = $action ? qq/ACTION="$action"/ : $method eq 'GET' ? +- 'ACTION="'.$self->script_name.'"' : ''; ++ $action = $action ? 'ACTION="'.$self->escapeHTML($action).'"' : $method eq 'GET' ? ++ 'ACTION="'.$self->escapeHTML($self->script_name).'"' : ''; + my($other) = @other ? " @other" : ''; + $self->{'.parametersToAdd'}={}; + return qq/<FORM METHOD="$method" $action ENCTYPE="$enctype"$other>\n/; |
