Revision 75f69249
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 258 | 258 |
|
| 259 | 259 |
bless $self, $type; |
| 260 | 260 |
|
| 261 |
$main::lxdebug->leave_sub(); |
|
| 262 |
|
|
| 263 |
return $self; |
|
| 264 |
} |
|
| 265 |
|
|
| 266 |
sub read_cgi_input {
|
|
| 267 |
$main::lxdebug->enter_sub(); |
|
| 268 |
|
|
| 269 |
my ($self) = @_; |
|
| 270 |
|
|
| 261 | 271 |
$self->_input_to_hash($ENV{QUERY_STRING}) if $ENV{QUERY_STRING};
|
| 262 | 272 |
$self->_input_to_hash($ARGV[0]) if @ARGV && $ARGV[0]; |
| 263 | 273 |
|
| ... | ... | |
| 268 | 278 |
$uploads = $self->_request_to_hash($content); |
| 269 | 279 |
} |
| 270 | 280 |
|
| 281 |
if ($self->{RESTORE_FORM_FROM_SESSION_ID}) {
|
|
| 282 |
my %temp_form; |
|
| 283 |
$::auth->restore_form_from_session(delete $self->{RESTORE_FORM_FROM_SESSION_ID}, form => \%temp_form);
|
|
| 284 |
$self->_input_to_hash(join '&', map { $self->escape($_) . '=' . $self->escape($temp_form{$_}) } keys %temp_form);
|
|
| 285 |
} |
|
| 286 |
|
|
| 271 | 287 |
my $db_charset = $::lx_office_conf{system}->{dbcharset};
|
| 272 | 288 |
$db_charset ||= Common::DEFAULT_CHARSET; |
| 273 | 289 |
|
| ... | ... | |
| 994 | 1010 |
return $jsscript; |
| 995 | 1011 |
} #end sub write_trigger |
| 996 | 1012 |
|
| 1013 |
sub _store_redirect_info_in_session {
|
|
| 1014 |
my ($self) = @_; |
|
| 1015 |
|
|
| 1016 |
return unless $self->{callback} =~ m:^ ( [^\?/]+ \.pl ) \? (.+) :x;
|
|
| 1017 |
|
|
| 1018 |
my ($controller, $params) = ($1, $2); |
|
| 1019 |
my $form = { map { map { $self->unescape($_) } split /=/, $_, 2 } split m/\&/, $params };
|
|
| 1020 |
$self->{callback} = "${controller}?RESTORE_FORM_FROM_SESSION_ID=" . $::auth->save_form_in_session(form => $form);
|
|
| 1021 |
} |
|
| 1022 |
|
|
| 997 | 1023 |
sub redirect {
|
| 998 | 1024 |
$main::lxdebug->enter_sub(); |
| 999 | 1025 |
|
| ... | ... | |
| 1003 | 1029 |
$self->info($msg); |
| 1004 | 1030 |
|
| 1005 | 1031 |
} else {
|
| 1032 |
$self->_store_redirect_info_in_session; |
|
| 1006 | 1033 |
print $::form->redirect_header($self->{callback});
|
| 1007 | 1034 |
} |
| 1008 | 1035 |
|
Auch abrufbar als: Unified diff
Keine großen GET-Requests via HTTP-Redirect erfordern
Bugfix für 1609.