diff options
| author | Shigeyuki Fukushima <shige@FreeBSD.org> | 2003-10-03 16:27:06 +0000 |
|---|---|---|
| committer | Shigeyuki Fukushima <shige@FreeBSD.org> | 2003-10-03 16:27:06 +0000 |
| commit | e42039bc307974b017e2df314ff209171de133c5 (patch) | |
| tree | faad91024695f5b36ba8fcd34aa508d447fbdca8 | |
| parent | d823ed96c0195ca0dc24a00d2e727d2ed5433dbf (diff) | |
| download | ports-e42039bc307974b017e2df314ff209171de133c5.tar.gz ports-e42039bc307974b017e2df314ff209171de133c5.zip | |
Translate action URL by escapeHTML() (lib/CGI.pm).
PR: ports/57390
Submitted by: IIJIMA Hiromitsu <delmonta@ht.sakura.ne.jp>
Notes
Notes:
svn path=/head/; revision=90148
| -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 000000000000..f805d374c336 --- /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/; |