Revision 3f930238
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 996 | 996 |
my ($self, $msg) = @_; |
| 997 | 997 |
|
| 998 | 998 |
if (!$self->{callback}) {
|
| 999 |
|
|
| 1000 | 999 |
$self->info($msg); |
| 1001 |
::end_of_request(); |
|
| 1002 |
} |
|
| 1003 | 1000 |
|
| 1004 |
# my ($script, $argv) = split(/\?/, $self->{callback}, 2);
|
|
| 1005 |
# $script =~ s|.*/||; |
|
| 1006 |
# $script =~ s|[^a-zA-Z0-9_\.]||g; |
|
| 1007 |
# exec("perl", "$script", $argv);
|
|
| 1001 |
} else {
|
|
| 1002 |
print $::form->redirect_header($self->{callback});
|
|
| 1003 |
} |
|
| 1008 | 1004 |
|
| 1009 |
print $::form->redirect_header($self->{callback});
|
|
| 1005 |
::end_of_request();
|
|
| 1010 | 1006 |
|
| 1011 | 1007 |
$main::lxdebug->leave_sub(); |
| 1012 | 1008 |
} |
Auch abrufbar als: Unified diff
Nach $form->redirect() den Request beenden